Página 1 de 1
Comando esta Contido(coisa da matematica)
Enviado: 29 Mar 2005 14:05
por negrao
No clipper tem como fazer o seguinte
if x $ '1_2_3'
ok
endif
O que gostaria seria o inverso, no caso acima os numeros de 1 a 3 sao o que podem ser digitados, o que eu gostaria era de passar numeros que nao podem ser aceitos.Ex:
Vou dar a escolha pro cara digitar os numeros que ele nao que, ja tentei colocar o sinal ! antes do $ mas deu erro.
Como posso fazer isso
Valeu
Enviado: 29 Mar 2005 14:30
por Clipper
Veja aí...
NUMERO=SPACE(1)
@ 10,00 GET NUMERO PICT "9"
READ
A="1_2_3_4_5"
IF AT(NUMERO,A)=0
//NÃO FOI ACHADA A OCORRÊNCIA
ENDIF
Até logo.
Marcelo
Enviado: 29 Mar 2005 14:41
por casesistemas
tente
if ! (x$'1_2_3')
ok
endif
Abracos
Joao Carlos
Enviado: 29 Mar 2005 14:48
por rrfsistemas
Existe uma maneira mais prática a menu modo de ver :
conf = ´S´
@ 10,10 Say ´confirma sua resposta [s/n]´ get conf valid conf $´SsNn´
nesta expressão VALID é validado SE CONTIDO as letras S e N maiusculo ou minusculo, caso contrario continua-se no get.
espero te ajudado :xau
Enviado: 29 Mar 2005 18:44
por Clipper
Prezado Renato
Creio que vocÊ não entendeu o que o colega quer.
Veja :
o que eu gostaria era de passar numeros que nao podem ser aceitos
Ele quer algo do tipo :
Pode ser aceito todas as letras com exceção de S e N ou
Pode ser aceito todos os números com exceção de 0,1 e 2
Até logo.
Marcelo
Enviado: 30 Mar 2005 00:29
por rrfsistemas
Op's foi mal !!
Tente esta função, uso no VFP mas funciona no clipper (testada).
function fuf
parameters uf1
if .not. uf1 $'SÄSCÄSEÄSPÄTO'
@ 04,01 say "Estado Invalido - Redigite "
T = .F.
else
@ 04,01 say space(78)
T = .T.
endif
return(T)