password

[giaguaro66]

ciao rag,
chi mi puo' aiutare,
non riesco a capire i loop o cicli ,
vorrei che prima di entrare in un determinato form, che mi venga fuori un formpassword con 3 o 4 possibilita' di tentativi dopodicche se superati i 3o4 tentativi ritorni al form precedente.

Grazie di una vostra risposta.
potete anche inviarmela via e-mail se volete
vitoeterry49@hotmail.com
Grazie ancora. :confused:

[Davide7]

Sciào bèlo!
Il tuo problema is very simple, se mi segui capirai perchè:

Devi solamente creare due semplici forms:
1) FormBegin
2) FormPWD

Successivamente inserire due pulsanti nel primo, con questo codice:
Private Sub cmdEsci_Click()
Unload Me
End Sub

Private Sub cmdInsPWD_Click()
FormPWD.Show
Unload Me
End Sub

Il primo pulsante permetterà l'uscita di tutto, il secondo aprirà il form per l'inserimento

Nel secondo form ci dovranno essere,invece, tre oggetti:
a) una label in cui visualizzare i tentativi mancanti
b) una txtBox in cui inserire la pwd (proprietà PASSWORDCHAR per inserire l'*)
c) un pulsante per confermare la pwd inserita

Il codice relativo al secondo form (FormPWD) sarà il seguente:

Dim contatore As Byte
Dim PWD As String

Private Sub cmdOK_Click()
If txtPWD.Text <> PWD Then
contatore = contatore - 1
lblCounter.Caption = "Remaining: " & contatore
Else
MsgBox "Password esatta"
End If
If contatore = 0 Then
MsgBox "La PWD non è stata trovata dopo 4 tentativi"
FormBegin.Show
Unload Me
End If
End Sub

Private Sub Form_Load()
PWD = "VolksWagen"
contatore = 4
lblCounter.Caption = "Remaining: " & contatore
End Sub

Il codice è chiaro come alla luce del sole, se si è inserita la PWD giusta emette una msgbox (poi puoi fare cio che vuoi), altrimenti ricarica la form precedente.
Se hai problemi fammelo sapere all'indirizzo dave.fullbike@email.it

Bye!DaVe

[grullo]

Scusa giaguaro ma non ti avveo già risposto tempo fa in merito???
Come mai riproponi nuovamente lo stesso quesito?

[giaguaro66]

infatti grullo!,
non ho riproposto niente, anche xche' la tua spiegazione e' stata veramente esaudiente.

Non so come sia successo , mmbo! :)

[grullo]

Infatti mi sembrava strano che tu riproponessi il solito quesito ma soprattutto con le stesse identiche parole(stile copia & incolla)!

:D