mirror of
https://github.com/fedapo/vb6-parser.git
synced 2025-12-16 16:27:03 +03:00
66 lines
1.1 KiB
QBasic
66 lines
1.1 KiB
QBasic
Attribute ModuleName = "MyForm"
|
|
Attribute ProgID = "a1-b2-c3-d4"
|
|
' test.bas
|
|
Option Explicit
|
|
' compare options
|
|
Option Compare Text
|
|
Option Compare Binary
|
|
' array base options
|
|
Option Base 0
|
|
Option Base 1
|
|
|
|
' test.bas
|
|
|
|
Global g_v1 As String, g_v2 As Integer
|
|
Public g_v3 As Long
|
|
Private g_v4 As Single
|
|
|
|
' we miss the declaration of arrays
|
|
'Dim arr0() As String
|
|
'Dim arr1(10) As Integer
|
|
'Dim arr2(10, 10) As Long
|
|
|
|
' what about this?
|
|
'Dim values As Integer * 10
|
|
|
|
Enum Colors
|
|
Black = 0
|
|
White = 1
|
|
Blue = 2
|
|
Red = 3
|
|
Green = 4
|
|
End Enum
|
|
|
|
Public Type Point3d
|
|
x As Double
|
|
y As Double
|
|
End Type
|
|
|
|
Sub Func(ByRef obj As Canvas)
|
|
Dim i As Integer
|
|
i = 23
|
|
|
|
Dim pnt As Point3d
|
|
pnt.x = 1.0
|
|
pnt.y = 1.2
|
|
' we miss the dot notation for subroutines and functions
|
|
'Call obj.Plot(pnt)
|
|
|
|
If check(87) Then
|
|
Print "check1"
|
|
ElseIf check(92) Then
|
|
Print "check2"
|
|
Else
|
|
Print "check3"
|
|
End If
|
|
|
|
While cond(34, i)
|
|
Print str
|
|
For i = 1 To 100 Step 2
|
|
Dim str As String
|
|
str = CStr(i)
|
|
Call Print(str)
|
|
Next i
|
|
Wend
|
|
End Sub
|