Ver Mensaje Individual
  #4 (permalink)  
Antiguo 03/06/2010, 01:40
Avatar de donyoyo
donyoyo
 
Fecha de Ingreso: mayo-2010
Ubicación: Chile
Mensajes: 31
Antigüedad: 14 años
Puntos: 0
Respuesta: decir si un carácter es vocal, consonante, número o signo de puntuación

se puede simplificar aun mas ...


numeros="01234567890"
vocales="AEIOU"
consonantes="BCDFGHJKLMNPQRSTVWXYZ"
signos=",.:;"

Caracter=Ucase(Caracter)

if (Instr(numeros,Caracter) <> 0) then msgbox "numero"
if (Instr(vocales,Caracter) <> 0) then msgbox "vocal"
if (Instr(consonantes,Caracter) <> 0) then msgbox "consonante"
if (Instr(signos,Caracter) <> 0) then msgbox "signos"

pd: como le hacen para meter el codigo en esos frames con lineas y todo ?

Última edición por donyoyo; 03/06/2010 a las 01:47