Visual Basic - el profesor me mata, ayuda

Life is soft - evento anual de software empresarial
 
Vista:

el profesor me mata, ayuda

Publicado por Jorge Luis Yanez Roca (1 intervención) el 29/07/2001 01:30:44
Tengo que pasar un programa de Qbasic a Visual Basic, no me sale aui pongo el codigo fuente del programa en Qbasic, el chiste del programa es que tiene que dar el ultimo digito de la cedula de ciudadania en el Ecuador
5 CLS
10 V=2 : L=7
20 LOCATE 3,10 :PRINT "CALCULO VERIFICADOR "
30 FOR I=1 TO 9
35 LOCATE 20, 40 :PRINT SPC(20)
40 LOCATE L,20:PRINT "INGRESE EL # " ; I ;" DE LA CEDULA"
50 LOCATE L,50:INPUT " ",N$: CN=LEN(N$): N = VAL(N$)
55 IF CN > 1 THEN LOCATE 20, 40 : PRINT "SOLO UN DIGITO" : FOR A=1 TO 1000: NEXT A : LOCATE L, 50:PRINT SPC(CN+1);:GOTO 35
60 IF N$ ="0" THEN R2=0: GOTO 100
70 IF N< 1 THEN GOTO 35
80 R1=N*V
90 IF R1> 9 THEN R2=(R1-10) +1 ELSE R2=R1
100 AR2=AR2+R2
105 IF V=2 THEN V=1 ELSE V=2
107 L=L+1
110 NEXT I
120 D= (AR2/10)-(INT(AR2/10)):E=INT(AR2/10)
130 IF D=0 THEN DV=0 ELSE DV=((E*10)+10)-AR2
140 LOCATE 20, 30 : PRINT "EL DIGITO VERIFICADOR ES"; DV
PORFAVOR RESPONDANME A:
[email protected]
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:el profesor me mata, ayuda

Publicado por Falil (22 intervenciones) el 30/07/2001 00:32:24
Espero que te sirva esto
mira para poder hacer en Visual Basic tienes qeu tener en cuenta lo siguiente

Para preguntar por un string puedes utilizar un inputbox

vlPalabra=inputbox " Dame la cedula"
o lo puedes hacer agregando una caja de texto
y harias lo siguiente
vlPalabra=txtCajaTexto.text
vlPalabra, tendrá lo que leiste osease la cedula

Para copiar un caracter específico en este caso el último digito debes ahcer lo siguiente

vlTamaño=len(vlPalabrA)
con eso sacas el tamaño de la cedula, el tamaño me refiero a la cantidad de caracteres

vlFinal=mid(vlPalabra,vlTamaño,1)

COn esto "mid" haces la copia de un caracter, primeor pone del string de donde vas a sacar la parte, la posición en este caso ocmo es el ultimo digito es vltamaño ya que es en la ultima posición

Espero que con estas pistas logres hacer algo...
Si tienes dudas en tu codigo mandame un mail

atte
Falil Sellav
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar