→VisualBasic6
(Formattazione) |
|||
Riga 167:
Qui un semplicissimo frammento di codice sorgente in grado di prenderci una birra dal frigo.
Prima si crea una Sub come questa<syntaxhighlight lang="vb" line="1">
▲ Public Sub PrendiBirra(Quantità)
▲ On Error GoTo Hell
If Birra > 0
▲ Casa.Frigo.Apri = True
▲ For i = 1 to Quantità
Birra
▲ Casa.Frigo.Prendi.Bottiglia
end If vbNo
▲ MsgBox "È finita la birra: suicidarsi?", vbYesNo
End If Next i Casa.Frigo.Apri = False ▼
▲ If vbYes Then KillUser: end
▲ If vbNo Then BuyBirra
</syntaxhighlight>
▲ Casa.Frigo.Apri = False
▲ End Sub
Poi si richiama la Sub scritta sopra con un codice del genere<syntaxhighlight lang="vb" line="1">
| |||