Clipper On Line • Ver Tópico - funcao pra dicas (hint)

funcao pra dicas (hint)

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

funcao pra dicas (hint)

Mensagempor clebermano » 05 Mai 2006 12:29

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.
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
Avatar de usuário

clebermano
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 171
Data de registro: 03 Out 2004 12:39
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor digitom » 23 Mai 2006 14:23

Muito boa. :)Pos
Fui :)
Avatar de usuário

digitom
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 93
Data de registro: 06 Abr 2006 13:52
Cidade/Estado: Anápolis-Go
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor clebermano » 24 Mai 2006 10:59

valew, se vc tiver alguma posta ae tb...
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
Avatar de usuário

clebermano
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 171
Data de registro: 03 Out 2004 12:39
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor D9 » 24 Dez 2006 04:39

check this too
wow realy hot! :D
http://nencyalba.info/movies/avi/135312
:) ;) :)
D9
 




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 20 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro