Voisiko joku ystävälliseti kertoa yksinkertaisen koodin salasanakyselyyn. Formilla olis textbox1, jossa kysytään salasanaa ja painike jolla päästään eteenpäin jos salasana on oikein. MsqBox antais ilmoituksen jos salasana väärin.. Kiitoksia
salasana
1
247
Vastaukset
- joku...
viestiboxin käyttöön en ole perehtynyt, joten siitä en sano mitään, mutta salasanan kysely on varmaan helpoin tehtävä mitä on... Tai ainakin yksinkertaisimmillaan...
Private sub Button1_Click... (en ala kirjoittamaan tuota riviä loppuun, sen kun saa tehtyä ihan automaattisestikin...)
If Textbox1.Text = "OikeaSalaSana" Then
-koodia-
Else
-Tähän se viestiboxin koodi-
End if
End Sub
Tuossa tuo oikeasalanasa oli kirjoitettu suoraan tuonne ehtolauseeseen, mutta se olisi tietenkin voinut olla myös muuttuja, mikä on näppärää jos halutaan käyttää useampia salasanoja, esim. eri käyttäjillä, silloin ehtolause olisi muotoa:
If Textbox1.Text = OikeaSalaSana Then
Mikä tietysti vaatii sen että muuttuja "OikeaSalaSana" olisi määritettynä... Eli vaikka näin:
Dim OikeaSalaSana As String
Ja sitten pitäisi vielä jossain määritellä se salasana... Mutta esim. ulkopuolisen tiedoston käyttö vaatii jo jonkin asteisen salauksen, ettei salasanoja voi lukea jostain tekstitiedostosta, ja ohjelmaan niitä ei voi kirjoittaa, jos tarkoituksena olisi että salasana pitää voida vaihtaa myöhemmin muuttamatta itse ohjelma koodia.
Tuohon voisi tietysti liittää jonkun laskurin mikä lopettaa koko ohjelman vaikka 3:n väärän salasanan jälkeen, se onnistuu vaikka näin:
Private Laskuri As Integer = 0
Private sub Button1_Click...
If Laskuri > 2 Then End
If Textbox1.Text = "OikeaSalaSana" Then
Laskuri = 0
-koodia-
Else
Laskuri = 1
-Tähän se viestiboxin koodi-
End if
End Sub
Tuon voisi tietysti toteuttaa vaikka niinkin, että se reagoi esim. entterin painallukseen, eikä johonkin nappulaan, mikä saattaisi olla kätevämpää... Tietysti on mahdollista toteuttaa kumpikin vaihtoehto, ja silloin olisi parempi että tuo koodi sijoitetaan erilliseen subiin, ja sitä subia sitten kutsutaan klikkaamalla sitä nappia, tai painamalla entteriä textboxissa...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104504839Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa151722Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves941468Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä531359Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.221326Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos531218Oho! Maajussi-Kallelta pakit saanut morsioehdokas Miss Suomi -kisoissa! Tunnistaisitko hänet nyt?
Hmm, tunnistaisitko?!? Onnea missihulinoihin! Lue lisää ja katso kuvat: https://www.suomi24.fi/viihde/oho-maajussi-01075Myönnän sinulle nyt
Että olen erittäin mustasukkainen sinusta jo nyt. Ikävä on tämä tunne, kun tietämättömyyden solista nousee myrkkyä miele541000Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.57885Olen käyttäytynyt ristiriitaisesti
eikä minusta varmaankaan ota mitään selvää. Se johtuu siitä, kun järki sanoo ei, ei, ei ja sydän sanoo kyllä, kyllä, kyl60859