basic/source/sample/sample.bas

   1 ' Sample-Programm fuer Sample-Objekte
   2
   3 Sub Main
   4         Dim Sample As SampleObject
   5         Dim Element1 As Object, Element2 As Object
   6         Set Element1 = Sample!Create "Objekt"
   7         Set Element2 = Sample.Create "Objekt"
   8         Element1 = "Element 1"
   9         Element2 = "Element 2"
  10         For i = 0 to 1
  11                 Print Sample.Objekt( i )
  12         Next
  13         'Test der Event-Methode im Sample-Objekt
  14         Sample.Event "Bang"
  15 End Sub
  16
  17 Sub Bang
  18         print "Sample-Callback: BANG!"
  19 End Sub
  20
  21
  22
  23
  24
  25
  26
  27
  28
  29
  30
  31
  32
  33
  34
  35
  36
  37
  38
  39