Cursus Visual Basic 2005 hoofdstuk 3: Code van het hoger/lager-spel

Cursus Visual Basic 2005: Code voor het hoger/lager-spel en tips !!!

1. Code die u kan kopiëren

De code correct overnemen is belangrijk. Door onderstaande code te kopiëren zal ze beslist foutloos zijn. Het blijft echter belangrijk ook te kijken dat u de code correct plaatst. Maak dus zelf de procedures aan en kleef de code erin (knippen en plakken mag je gebruiken). Als je dan toch nog een foutmelding krijgt, kijk dan eerst eens of je alle besturingselementen (controls) correct benoemd hebt.

Dim sho_Getal As Short
Dim sho_Beurten As Short
' sho is de naamconventie van short vb'n: sho_Getal, sho_Beurten

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtGetal.Text = ""
lblGo.Text = ""
PictGo.Image = Image.FromFile("c:\d\vb_net\question.ico")
Call rekenen()
End Sub

Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click
sho_Beurten = sho_Beurten + 1
Select Case Val(txtGetal.Text)
Case Is < sho_Getal
PictGo.Image = Image.FromFile("c:\d\vb_net\up.ico")
Case Is > sho_Getal
PictGo.Image = Image.FromFile("c:\d\vb_net\down.ico")
Case Else
PictGo.Image = Image.FromFile("c:\d\vb_net\ok.ico")
lblGo.Text = "Aantal beurten : " & sho_Beurten
If MsgBox("Nog", vbYesNo, "SPEEL") = vbYes Then
PictGo.Image = Image.FromFile("c:\d\vb_net\question.ico")
lblGo.Text = ""
Call berekenen()
Else
End
End If
End Select
txtGetal.Text = ""
Me.Text = sho_Getal
'Onderstaande regel zorgt voor de schermverversing.
Me.Refresh()
End Sub

Sub berekenen()
Randomize()
sho_Getal = Int((100 * Rnd()) + 1)
sho_Beurten = 0
End Sub

Probeer deze code zo goed mogelijk te begrijpen. De instructie Call berekenen die u vindt in de procedure "(Private Sub) Form1_Load" roept de procedure "(Private Sub)Op_Random_Getal" aan. Daar Private Sub betekent dat er een procedure is, mogen we deze woorden weglaten en er Call voor zetten. Hij roept dan - zoals in bovenstaande oefening - deze procedure aan.

Op het einde van de procedure BtnGo_Click gebruik ik Me.Refresh. Dit is niet verplicht maar kan nuttig zijn om het scherm te vernieuwen. Meestal gebeurt dit automatisch.

2. Code (venster 1 & venster 2) zoals ze eruit ziet in Visual Basic 2005

Venster 1

Venster 2

=================================