VB6 - pikku onglema

>2013
>Käyttää VB6
TTETT

Meillä koulussa käytettiin ikivanhaa Borland Pascal 7:aa ohjelmoinnin perusopetukseen. Joten siihen nähden VB:kin varmaan ajaa asiansa perusasioiden sisäistämisessä. Mihinkään vakavampaan sitä tuskin kannattaa edes harkita.

Sata ihviä


Piirretään "formille" tekstiboksi ja komentonappi
ja kirjoitetaan komentonapille allaoleva koodi.
Messageboxien tilalle sijoitetaan haluttu toiminto.
(Else-käskyn kanssa ei kannata pelleillä jos
vaihtoehtoja on useita.)


Private Sub Command1_Click()

Dim annettu_sana As String

annettu_sana = Text1.Text

if annettu_sana= "matti" then
MsgBox "terve matti"
end if

if annettu_sana= "masa" then
MsgBox "terve masa"
end if

if annettu_sana= "jussi" then
MsgBox "terve jussi"
end if

if annettu_sana= "ossi" then
MsgBox "terve ossi"
end if


End Sub

Sata selectiä

Piirretään "formille" tekstiboksi ja komentonappi
ja kirjoitetaan komentonapille allaoleva koodi.
Messageboxien tilalle sijoitetaan haluttu toiminto.


Private Sub Command1_Click()

Dim annettu_sana As String

annettu_sana = Text1.Text

Select Case annettu_sana

Case "matti"
MsgBox "terve matti"

Case "masa"
MsgBox "terve masa"

Case "jussi"
MsgBox "terve jussi"

Case "ossi"
MsgBox "terve ossi"

Case Else
MsgBox "ei kukaan kotona"


End Select


End Sub

Ja salasanat kannattaa tietysti aina koodata staattisena selväkielisenä merkkijonona :)