salasana

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...