Visual Basic 6 Basics
| Beste Leden, |
In deze tutorial gaan we de Basis van VB6 gedeeltelijk behandelen.
Je vraagt je misschien af van 'Hoe?'.
Nou, in deze tutorial gaan we een klein hotel reservatie applicatie maken.
Wat kan deze applicatie nou precies.
Je kunt aanvinken wat je bij je reservering wilt,
en doormiddel van op een knop te drukken,
krijg je een bevestiging van wat je hebt bestelt.
Deze tutorial vereist een klein beetje begrip van VB6, maar niet ontzettend veel.
Ik raad je aan om deze tutorial te mee te lezen en te volgen EN uitproberen,
en niet gewoon te copy-pasten. |
|
Oke, we beginnen.
Als eerste moet je VB6 hebben.
Deze staat vanaf 31-03-2009 beschikbaar op SiteMasters.be (mogelijke link volgt).
Stap 1.
Open VB6.
Als het goed is , krijg je een scherm met wat keuzes.
Kies hieruit, Standard EXE.
Je ziet nu aan de linkerkant je zogeheten Tools.
In het midden zie je je Form
En aan de rechterkant zie je de Project lijst, en de properties.
Stap 2.
Klik op Form1 en kijk bij je properties.
Stel het volgende in:
(Name) - frmHotel
Caption - Hotel Reservering
Height - 7500
Width - 5500
Stap 3.
Zet de volgende objecten op je frmHotel (*deze zijn te zien in je Toolbar)
Ga als het nodig is met je muis over de icoontjes, en dan verschijnt er tekst
met de naam van de tool.
1x Image
1x CommandButton
1x Frame(Group)
1x TextBox
5x CheckBox (Zet deze checkbox in het Frame(Group))
Stap 4.
Klik op elk object en stel het volgende in:
Image:
(Name) - imgHotel
Height - 1700
Left - 0
Picture - Klik Hier (Plaatje eventueel naar goeie grote aanpassen en klaar)
Stretch - True
Top - 0
Width - 5270
CommandButton:
(Name) - cmdReserveer
Caption - Reserveer
Height - 495
Left - 2160
Top - 6360
Width - 1335
Frame(Group):
(Name) - frmReserveren
Caption - Te Reserveren
Height - 4575
Left - 120
Top - 2160
Width - 1815
TextBox:
(Name) - txtGereserveerd
Height - 3975
Left - 2160
Locked - True
MultiLine - True
Text - {Dit vakje leegmaken}
Top - 2280
Width - 3015
CheckBox1:
(Name) - chkOvernachting
Caption - Overnachting
Height - 255
Left - 120
Top - 360
Width - 1575
CheckBox2:
(Name) - chkBad
Caption - Met Bad
Height - 255
Left - 120
Top - 720
Width - 1575
CheckBox3:
(Name) - chkDouche
Caption - Met Douche
Height - 255
Left - 120
Top - 1080
Width - 1575
CheckBox4:
(Name) - chkMinibar
Caption - Minibar
Height - 255
Left - 120
Top - 1440
Width - 1575
CheckBox5:
(Name) - chkBed
Caption - 2-persoonsbed
Height - 255
Left - 120
Top - 1800
Width - 1575
Stap 5.
Oke, nu komt de code voor de applicatie te pas.
We gaan stukje voor stukje doen vanwege de uitleg zodat je snapt wat alles doet.
Druk 2x op de CommandButton 'Reserveren'.
Zoals je ziet, zit je nu in een heel ander scherm.
In dit scherm gaan we coderen.
Nu zie je deze code erstaan:
|
Private Sub cmdReserveer_Click()
End Sub
|
Hierbij zie je staan cmdReserveer, dit is de naam van de CommandButton.
Erachter zie je '_Click' staan. Dit geeft aan dat er iets moet gebeuren zodra erop word geklikt.
Oke, nu gaan we de code uitbreiden.
Bij deze code gaan we bekijken of er bepaalde CheckedBoxes zijn aangevinkt.
Typ de volgende code over en zet hem tussen de Private Sub en End Sub. (uitleg staat vermeld in de code) |
If chkOvernachting.Value = Checked Then ' Kijken of chkOvernachting is aangevinkt '
txtGereserveerd.Text = "U heeft een overnachting geboekt," & vbCrLf
' Als hij aangevinkt is, dan geeft hij dit weer in txtGereserveerd '
End If ' De If code afsluiten '
' De code & vbCrLf geeft aan dat er vanaf hier een nieuwe regel moet starten '
' Omdat dit de tweede If is voor in hetzelfde vak. '
' Moet deze code worden aangepast, '
' in de tweede regel, zie je dit staan: txtGereserveerd.Text = txtGereserveerd.Text & '
' txtGereserveerd.Text = , Hierin geeft hij weer waarin het moet staan, '
' txtGereserveerd.Text & , Onthoud de eerste tekst en geeft aan dat er iets aan moet worden geplakt '
If chkBad.Value = Checked Then
txtGereserveerd.Text = txtGereserveerd.Text & "Met bad inbegrepen," & vbCrLf
End If
' Herhaling van de tweede If maar met andere CheckBox '
If chkDouche.Value = Checked Then
txtGereserveerd.Text = txtGereserveerd.Text & "Met een douche," & vbCrLf
End If
' Herhaling.. '
If chkMinibar.Value = Checked Then
txtGereserveerd.Text = txtGereserveerd.Text & "Een Minibar," & vbCrLf
End If
' Gedeeltelijke Herhaling, maar hierbij gebruiken we nog een Else '
' Als de klant geen 2persoons bed wilt, dan krijgt hij/zij een 1 persoons bed '
If chkBed.Value = Checked Then
txtGereserveerd.Text = txtGereserveerd.Text & "En een 2-persoons Bed."
ElseIf chkBed.Value = Unchecked Then
txtGereserveerd.Text = txtGereserveerd.Text & "En een 1-persoons bed."
End If
|
Stap 6.
Test nu je applicatie door op F5 te drukken , door op het blauwe pijltje te klikken of via Alt + R en druk op Start
Tot zover deze Tutorial. Ik hoop dat ik je met deze tutorial iets bij heb kunnen brengen.
Maar wacht! Er zit nog een kleine opdracht aanvast!
Uw opdracht:
Breid deze applicatie uit met nog 3 tot 5 extra CheckBoxes. |
|
Wat is jouw favoriete javascript framework? (S: 18, R: 2)
