VB6 - pikku onglema

Eli tietääkö kukaan kuinka vois tehdä salasanan, jossa on useampi salasana.
Aina joka salasanasta pitäisi mennä eri formille.

Textboxia ja commandia käyttäen en saa muuta tehtyä, kun tälläsen.

If text1.text = "salasana" then
Form2.show
else
msgbox "Salasana väärin!"
End if

Tuohon kun saisi useamman salasana vaihtoehdon.
Ilmoita


>2013
>Käyttää VB6
TTETT
1 VASTAUS:
>2013
>Käyttää VB
TTETT
+Lisää kommentti
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.
Ilmoita
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
Ilmoita
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
Ilmoita
Ja salasanat kannattaa tietysti aina koodata staattisena selväkielisenä merkkijonona :)
Ilmoita

Vastaa alkuperäiseen viestiin

VB6 - pikku onglema

Eli tietääkö kukaan kuinka vois tehdä salasanan, jossa on useampi salasana.
Aina joka salasanasta pitäisi mennä eri formille.

Textboxia ja commandia käyttäen en saa muuta tehtyä, kun tälläsen.

If text1.text = "salasana" then
Form2.show
else
msgbox "Salasana väärin!"
End if

Tuohon kun saisi useamman salasana vaihtoehdon.

5000 merkkiä jäljellä

Peruuta