PC Toledo

Código: Selecionar todos

Function Espaco_Press()
cCmpValue := GetProperty( cFrmName, cCmpName, "Value" )
nCmpPos  := GetProperty( cFrmName, cCmpName, "CaretPos" )
cCmpValue += Space(1)
SetProperty( cFrmName, cCmpName, "Value", cCmpValue )
SetWindowText ( GetControlhandle(cCmpName,cFrmName), cCmpValue )
SetProperty( cFrmName, cCmpName, "CaretPos", nCmpPos+1 )
Return .T.

Function Back_Press()
cCmpValue := GetProperty( cFrmName, cCmpName, "Value" )
nCmpPos  := GetProperty( cFrmName, cCmpName, "CaretPos" )
cCmpValue := Stuff(cCmpValue,nCmpPos,1,"")
SetProperty( cFrmName, cCmpName, "Value", cCmpValue )
SetProperty( cFrmName, cCmpName, "CaretPos", If(nCmpPos>0,nCmpPos-1,0))
Return .T.

Código: Selecionar todos

#include <hmg.ch>

Function Main
public tabela,CAPTURA:={}, SENHA:='789123', SENHA_OK:='111111'
nrow:=20
ncol:=-40
wid:=55
hei:=30

tabela:={'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','0','1','2','3','4','5','6','7','8','9'}

DADOS:={}
num:=rt:=ok:=0
vr:=""
while .t.
num:=hb_randomint(1,len(tabela))
if num<1 .or. num>len(tabela); loop; endif

OK:=0
FOR N=1 TO LEN(DADOS)
    IF AT(TABELA[NUM], DADOS[N])<>0
		OK:=1
		N:=LEN(DADOS)
	ENDIF
NEXT N
	
if ok=0
	if at(tabela[num],vr)<>0; ok:=1; endif
endif

if ok=0
	vr+=tabela[num]
	if len(vr)=3
		xv:=subst(vr,1,1)+"-"+subst(vr,2,1)+"-"+subst(vr,3,1)
		aadd(dados, xv)
		vr:=""
		rt+=1
	endif
endif

if rt=(len(tabela)/3); exit; endif
enddo
aadd(dados, 'OK')

DEFINE WINDOW Tcv AT 306 , 853 WIDTH 850 HEIGHT 350 title "teclado (senha: 789123)" on init monta() main

for a=1 to len(dados)
   lb:='tecla'+strzero(a,3)
   lba:="'"+lb+"'"
   ncol:=ncol+60
   if ncol>780
      nrow:=nrow+35
      ncol:=20
   endif
   obj:=dados[a]
   
   @ 20,20 button &lb caption "" width 23 height 23 action tecla(&lba) 

   setproperty('tcv',lb,'row',nrow)
   setproperty('tcv',lb,'col',ncol)
   setproperty('tcv',lb,'caption',obj)
   setproperty('tcv',lb,'width',wid)
   setproperty('tcv',lb,'height',hei)
   setproperty('tcv',lb,'fontbold',.t.)
next a


END WINDOW
activate window tcv


Return

func monta()

retu 

func tecla(x)
tcl:=getproperty('tcv',x,'CAPTION')
IF TCL<>'OK'
	AADD(CAPTURA, TCL)
	RETU
ENDIF	

IF LEN(CAPTURA)<>LEN(SENHA)
    MSGINFO("SENHA INVALIDA !")
	CAPTURA:={}
	RETU
ENDIF
	
OK_SENHA:=""
FOR N=1 TO LEN(SENHA)
    IF AT(SUBST(SENHA,N,1), CAPTURA[N])<>0
		OK_SENHA+='1'
	ELSE
		OK_SENHA+="0"
	ENDIF
NEXT N

IF OK_SENHA=SENHA_OK
	MSGINFO("SENHA VALIDA !")
	CAPTURA:={}
ELSE
	MSGINFO("SENHA INVALIDA !")
	CAPTURA:={}
ENDIF
retu