Esta funcao eh mto boa gente, ela da hints, ou seja dicas a cada get que o usuario pressina aparece uma dica, eh mto bom quanto seu sistema tem campos que o usuario (como na maoria das vezes), nao consegue interpretar sozinho.
vale a penal.
ae vai.
/*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ PROGRAMA EXEMPLO DE COMO MOSTRAR DICAS (HINTS) NO CLIPPER ³
³ SEM PRECISAR DE MUITO MISTERIO...! ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
³ AUTOR: ANDERSON CARDOSO SILVA ³
³ WWW: www.caclipper.cjb.net ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/
CLS
cNOME := SPACE(30)
cENDE := SPACE(35)
cBAIRRO := SPACE(20)
cTRAB := "S"
cPROF := SPACE(20)
@ 10,10 SAY "NOME.....:" GET cNOME WHEN DICA(11,10,"Digite seu nome")
@ 11,10 SAY "TRABALHA.:" GET cTRAB PICT "@!" WHEN DICA(12,10,"Voce trabalha? S/N") VALID cTRAB $ "SN"
@ 12,10 SAY "PROFISSAO:" GET cPROF WHEN ( DICA(13,10,"Entao, digite sua Profissao") .AND. cTRAB="S" )
@ 13,10 SAY "ENDERECO.:" GET cENDE WHEN DICA(14,10,"Digite seu endereco")
@ 14,10 SAY "BAIRRO...:" GET cBAIRRO WHEN DICA(15,10,"Digite seu bairro") VALID DICAFINAL()
SAVE SCREEN TO LIMPADICA // Coloque esta linha exatamente como est antes do READ
READ
RESTORE SCREEN FROM LIMPADICA // Coloque esta linha exatamente como est depois do READ
// FUNCOES PARA A DICA
FUNCTION DICA(Y,X,cDICA)
RESTORE SCREEN FROM LIMPADICA
FOR T=1 TO LEN(GETLIST)
GETLIST[T]:DISPLAY()
NEXT
@ Y,X CLEA TO Y+2,X+LEN(cDICA)+2
@ Y,X TO Y+2,X+LEN(cDICA)+2
@ Y+1,X+1 SAY cDICA
RETURN .T.
FUNCTION DICAFINAL()
RESTORE SCREEN FROM LIMPADICA
FOR T=1 TO LEN(GETLIST)
GETLIST[T]:DISPLAY()
NEXT
SAVE SCREEN TO LIMPADICA
RETURN .T.