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
Apuk
6
317
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.575479- 934317
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.3742562Ovatko naiset lopettaneet sen vähäisenkin vaivannäön Tinderissa?
Meinaan vaan profiileja selatessa nykyään valtaosalla ei ole minkäänlaista kirjoitettua tekstiä siellä. Juuri ja juuri s711078Suomi vietiin Natoon väärin perustein. Viides artikla on hölynpölyä. Yksin jäämme.
Kuka vielä uskoo, että viides artikla takaa Suomelle avun, jos Suomeen hyökätään. Liikuttavasti täällä on uskottu ja ved3301038- 61843
Sydämeni on sinun luona
Koko ajan. Oli ympärilläni ketä oli niin sinä olet vain ajatuksissa ja tunteissa. En halua muiden kosketusta kuin sinun46816- 28803
Trump ja Venäjä
Huomasitteko muuten... Käytännössä ainoat valtiot, joille Trump EI eilen asettanut typeriä tariffejaan, olivat Venäjä ja102789Jatkuva stressitila
On sinun vuoksesi kun en tiedä missä mennään mutta tunteeni tiedän ainoastaan52779