VB6 - pikku onglema

Apuk

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.

6

378

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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.

    • heikkioskari

      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

    • 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

    • visual bashit

      Ja salasanat kannattaa tietysti aina koodata staattisena selväkielisenä merkkijonona :)

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kuka sitä naista maalittaa

      Täällä oikeasti?
      Ikävä
      196
      1492
    2. Anteeksipyynnöstä

      Uskotko anteeksipyynnön voimaan? Mikä tekee anteeksipyynnöstä vaikeaa? Onko se mielestäsi joskus turhaa, joko pyytäjän
      Ikävä
      140
      934
    3. Voisin jopa maksaa että saisin nähdä sut mies

      Miten helvetissä joku voi olla tollanen kotihiiri. Edes mä en ole noin paha ku sä! Miten sua voi ikinä edes nähdä ?
      Ikävä
      58
      911
    4. Oletko päässyt minusta

      Eteenpäin?
      Ikävä
      85
      892
    5. Ei kukaan ole katsonut

      Kuten sinä. Niin välittävä ja hellä katse.
      Ikävä
      53
      816
    6. Tumman vihreä mercedes

      Mikä se on tuo kylää ympäri ajava vihreä mercedes, takakontti tärisee kuin hullu ja välillä kylän juoppojakin kuskailee,
      Hyrynsalmi
      10
      710
    7. Martinan tarve valehdella.

      Miksiköhän Martina valehtelee niin paljon,onko hän tietoinen siitä että valheistaan jää useimmiten kiinni? Esimerkkinä t
      Kotimaiset julkkisjuorut
      255
      703
    8. Stubb munasi - Suomessa kuuluu liputtaa Suomen lipulla

      Presidentinlinnan ja Mäntyniemen salkoihin nostettiin sateenkaariliput lauantaina. Suurin osa kansasta ei varmasti pidä
      Maailman menoa
      338
      671
    9. Olisitko oikeasti valmis rikkomaan

      Perheesi? En haluaisi sitä, mutta ne on teidän välisiä asioita. Voin olla sinulle vain kaverikin… ei paineita. Minä kesk
      Ikävä
      58
      664
    10. Miksi tällainen pelottaa ja aiheuttaa joillakin ärtymystä?

      "Sitoudun ystävien ja kollegoiden kanssa puuttumaan seksistisiin vitseihin ja vähättelyyn. Sanon ääneen, kun jokin ei ol
      Maailman menoa
      74
      636
    Aihe