64 lines
1.4 KiB
HTML
64 lines
1.4 KiB
HTML
|
<h2>Comments</h2>
|
||
|
|
<pre><code>' This is a comment
|
||
|
|
// This is a comment too
|
||
|
|
Rem This is a remark</code></pre>
|
||
|
|
|
||
|
|
<h2>Strings</h2>
|
||
|
|
<pre><code>""
|
||
|
|
"foo ""bar"" baz"</code></pre>
|
||
|
|
|
||
|
|
<h2>Numbers and colors</h2>
|
||
|
|
<pre><code>42
|
||
|
|
3.14159
|
||
|
|
3E4
|
||
|
|
&b0110
|
||
|
|
&cAABBCCDD
|
||
|
|
&hBadFace
|
||
|
|
&o777
|
||
|
|
&u9</code></pre>
|
||
|
|
|
||
|
|
<h2>Example</h2>
|
||
|
|
<pre><code>Dim g As Graphics
|
||
|
|
Dim yOffSet As Integer
|
||
|
|
g = OpenPrinterDialog()
|
||
|
|
If g <> Nil Then
|
||
|
|
If MainDishMenu.ListIndex <> -1 Then
|
||
|
|
g.Bold = True
|
||
|
|
g.DrawString("Main Dish:",20,20)
|
||
|
|
g.Bold = False
|
||
|
|
g.DrawString(MainDishMenu.Text,100,20)
|
||
|
|
g.Bold = True
|
||
|
|
g.DrawString("Side Order:",20,40)
|
||
|
|
g.Bold = False
|
||
|
|
If FriesRadio.Value Then
|
||
|
|
g.DrawString(FriesRadio.Caption,100,40)
|
||
|
|
End If
|
||
|
|
If PotatoRadio.Value Then
|
||
|
|
g.DrawString(PotatoRadio.Caption,100,40)
|
||
|
|
End If
|
||
|
|
If OnionRingRadio.Value Then
|
||
|
|
g.DrawString(OnionRingRadio.Caption,100,40)
|
||
|
|
End If
|
||
|
|
yOffSet = 60
|
||
|
|
If CheeseCheckBox.Value Then
|
||
|
|
g.Bold = True
|
||
|
|
g.DrawString("Extra:",20,yOffSet)
|
||
|
|
g.Bold = False
|
||
|
|
g.DrawString(CheeseCheckBox.Caption,100,yOffSet)
|
||
|
|
yOffSet = yOffSet + 20
|
||
|
|
End If
|
||
|
|
If BaconCheckBox.Value Then
|
||
|
|
g.Bold = True
|
||
|
|
g.DrawString("Extra:",20,yOffSet)
|
||
|
|
g.Bold = False
|
||
|
|
g.DrawString(BaconCheckBox.Caption,100,yOffSet)
|
||
|
|
yOffSet = yOffSet + 20
|
||
|
|
End If
|
||
|
|
g.Bold = True
|
||
|
|
g.DrawString("Notes:",20,yOffSet)
|
||
|
|
g.Bold = False
|
||
|
|
g.DrawString(NotesField.Text,100,yOffSet,(g.Width-40))
|
||
|
|
End If
|
||
|
|
End If
|
||
|
|
</code></pre>
|