summaryrefslogtreecommitdiff
path: root/basic/source/sample/sample.bas
diff options
context:
space:
mode:
Diffstat (limited to 'basic/source/sample/sample.bas')
-rw-r--r--basic/source/sample/sample.bas39
1 files changed, 39 insertions, 0 deletions
diff --git a/basic/source/sample/sample.bas b/basic/source/sample/sample.bas
new file mode 100644
index 000000000000..d0e416871af0
--- /dev/null
+++ b/basic/source/sample/sample.bas
@@ -0,0 +1,39 @@
+' Sample-Programm fuer Sample-Objekte
+
+Sub Main
+ Dim Sample As SampleObject
+ Dim Element1 As Object, Element2 As Object
+ Set Element1 = Sample!Create "Objekt"
+ Set Element2 = Sample.Create "Objekt"
+ Element1 = "Element 1"
+ Element2 = "Element 2"
+ For i = 0 to 1
+ Print Sample.Objekt( i )
+ Next
+ 'Test der Event-Methode im Sample-Objekt
+ Sample.Event "Bang"
+End Sub
+
+Sub Bang
+ print "Sample-Callback: BANG!"
+End Sub
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+