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
344
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
Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?
Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k1094282- 1493673
SDP haluaa 40 000 nettomaahanmuuttajaa
SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah883435Mikä tuota vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia392829- 1291730
Nyt meni lopulliset lämmöt.
Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta371558Orpo loukkaantui fasismiin viittaavasta sanavalinnasta
Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk141201Sulla on avaimet ja keinot
Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi191184Meitä ei tule
Koska periaatteemme ovat rakkautta vahvempia. Tämä on siis koettelemus, jonka tarkoitus on vahvistaa meitä yksilöinä 😌221144Onko erityinen paikka jossa haluaisit nyt olla
Onko joku spesiaali lempipaikka missä mieluiten olisit?421140