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
260
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
Voitaisko olla kavereita?
Haluaisin aloittaa puhtaalta pöydältä sinun kanssasi, tabula rasa. Minä lopetan sinun perääsi haikailun, ja sitten sinäk244122Deodoranttiteollisuus
Annan ilmaisen vinkin. Kyseinen teollisuus voisi alkaa valmistaa kuolleen ruumiin hajua. Olisi varma hittituote, ainakin122931Rukoilimme Länsimuurilla 2000 vuoden jälkeen, Jumalamme oli antanut meille kaiken takaisin
Western Wall, In our Hands. 55th Para. https://www.youtube.com/watch?v=u4BJAppyCSo https://en.wikipedia.org/wiki/55th_111213Oulaisten kaupunki tuomittiin maksamaan korvauksia
Mikäs juttu tämä on? Kaupunki syyllistänyt useamman vuoden koneyrittäjiä ja nyt tuomittu.22900Kerro kaivattusi
Jokin tapa/piirre mikä sinua viehättää ja mistä hän voisi myös tunnistaa itsensä.39876PURRA TULEE !
Valtiovarainministeri Riika Purra, joka on lisäksi varapääministeri ja perussuomalaisten puheenjohtaja, tulee puoluesiht115743- 36717
Onko MOT tulossa Ähtärin valtuuston kokoukseen?
Esityslistan mukaan Ähtärin kaupunginvaltuuston valtapuolueet aikovat maanantaina estää tilintarkastajan laatiman raport37715- 104657
- 134645