RE:ayudame a resolver este problema
Aquí tienes un ejemplo básico de acceso a una aplicación
* ------------------------------- *
* --- Procedimiento : llave --- *
* --- Puerta acceso a prog. --- *
* ------------------------------- *
procedure llave
use acceso // B.D. donde tenemos el pwd guardado
control=0 // Control de acceso
con = 1 // Variable contador intentos
set console off
do while control = 0
con = con+1 && contador de intentos
t1 = space(1)
t2 = space(1)
t3 = space(1)
t4 = space(1)
t5 = space(1)
@ 6,24 say"Introduce clave de acceso : "
@ 6,52 get t1 picture "@!"
read
@ 6,52 say "*"
@ 6,54 get t2 picture "@!"
read
@ 6,54 say "*"
@ 6,56 get t3 picture "@!"
read
@ 6,56 say "*"
@ 6,58 get t4 picture "@!"
read
@ 6,58 say "*"
@ 6,60 get t5 picture "@!"
read
@ 6,60 say "*"
if zcl = clave && comparar clave
control = 1 && si es ok. abro puerta
else
@ 6,25 clear to 6,60
@ 6,24 SAY " Clave incorrecta, reintenta "
inkey(1)
endif
enddo
close
El diágrama lo haces tú, yo nunca he hecho ninguno, no me ha hecho falta.
Un saludo