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.
VB6 - pikku onglema
6
227
Vastaukset
- an0n1
>2013
>Käyttää VB6
TTETT- korjaus
>2013
>Käyttää VB
TTETT
- entinenlukiolainen
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 SubSata 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- visual bashit
Ja salasanat kannattaa tietysti aina koodata staattisena selväkielisenä merkkijonona :)
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mielessäni vieläkin T
Harmi että siinä kävi niinkuin kävi, rakastin sinua. Toivotan sulle kaikkea hyvää. Toivottavasti löydät sopivan ja hyvän422217Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita
Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita – neljä Jyväskylän Outlaws MC:n jäsentä vangittu: "Määrät p511738Persut petti kannattajansa, totaalisesti !
Peraujen fundamentalisteille, vaihtkaa saittia. Muille, näin sen näimme. On helppo luvata kehareille, eikä ne ymmärrä,401553- 431511
Nähtäiskö ylihuomenna taas siellä missä viimeksikin?
Otetaan ruokaöljyä, banaaneita ja tuorekurkkuja sinne messiin. Tehdään taas sitä meidän salakivaa.31469Nellietä Emmaa ja Amandaa stressaa
Ukkii minnuu Emmaa ja Amandaa stressaa ihan sikana joten voidaanko me koko kolmikko hypätä ukin kainaloon ja syleilyyn k81454Sinäkö se olit...
Vai olitko? Jostain kumman syystä katse venyi.. Ajelin sitten miten sattuu ja sanoin ääneen siinä se nyt meni😅😅... Lis41440Housuvaippojen käyttö Suomi vs Ulkomaat
Suomessa housuvaippoja aletaan käyttämään vauvoilla heti, kun ne alkavat ryömiä. Tuntuu, että ulkomailla housuvaippoihin31371Hyvää yötä ja kauniita unia!
Täytyy alkaa taas nukkumaan, että jaksaa taas tämän päivän haasteet. Aikainen tipu madon löytää, vai miten se ärsyttävä51281Lepakot ja lepakkopönttö
Ajattelin tehdä lepakkopöntön. Tietääkö joku ovatko lepakot talvella lepakkopöntössä ´vai jossain muualla nukkumassa ta81245