Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: el_trocha en Diciembre 05, 2011, 04:53:26 pm
-
Amigos tengo una estructura IF tal que esta:
If numero = 0 Or numero = 44 Or numero = 88 Or numero = 132 Then
codigo_marcador_imagen = "Co1Fi1"
Codigo_marcador_texto = "Co1Fi1N"
ElseIf numero = 1 Or numero = 45 Or numero = 89 Or numero = 133 Then
codigo_marcador_imagen = "Co2Fi1"
Codigo_marcador_texto = "Co2Fi1N"
ElseIf numero = 2 Or numero = 46 Or numero = 90 Or numero = 134 Then
codigo_marcador_imagen = "Co3Fi1"
Codigo_marcador_texto = "Co3Fi1N"
ElseIf numero = 3 Or numero = 47 Or numero = 91 Or numero = 135 Then
codigo_marcador_imagen = "Co4Fi1"
Codigo_marcador_texto = "Co4Fi1N"
else.......................
Me gustaria saber de que modo puedo hacer las comprobaciones de la variable Numero sin tener que escribir todos los numeros que quiera comprobar.
Mi idea es poder llegar a comprobar hasta 1000 registros y por lo tanto tendria que escribir continuamente :
or numero = 1 ...... or numero = 1000
Existe alguna formula matematica para hacer esto? ??? ?
UN saludito a todos los cracks de este foro..............
Alejandro.
-
HOLA!!!
Tomando en cuenta la base 44 que usas...
Solo con estas 2 simples lineas lo arreglas TODO.
(Quita todos los if y bla bla que solamente ejecutando esto se arregla)
Codigo_marcador_imagen = "Co" & Trim(str((Numero mod 44) + 1)) & "Fi1"
Codigo_marcador_texto = "Co" & Trim(str((Numero mod 44) + 1)) & "Fi1N"
//MODO ALTERNATIVO, Menor uso de recursos:
Codigo_marcador_imagen = "Co" & Trim(str((Numero mod 44) + 1)) & "Fi1"
Codigo_marcador_texto = Codigo_Marcador_imagen & "N"
GRACIAS POR LEER!!!
-
La solución que te da 791... es exacta para lo que necesitas. Pero en adelante, cuando tengas muchos If mejor usa Select Case.
Saludos
-
A ver comento un poco por que no entendi muy bien... lo que me querias transmitir.
codigo_marcador_imagen = "Co1Fi1" ESto es un marcador de word que no se puede modificar.
Por lo tanto lo que quiero es que cuando se le pase a la funcion el numero a comprobar: "numero"
Cuando compruebe este numero, que devuelva el marcador donde se escribira en el documento word.
If numero = 0 Or numero = 44 Or numero = 88 Or numero = 132 Then
Lo que me hace falta saber es si hay alguna formula o alguna otra estructura de control para poder comprobar numero en base a 44 sin necesidada de tener q colocar la estructura if para cada numero hasta el 1000.
No se si me esplique con claridad.......
De todos modos gracias.
UN saludo.
-
HOLA!!!
>:( >:( >:(
Lee bien los codigos que hacen exactamente lo que queres.
Con las primeras 2 lineas podes verificar la variable Numero de 0 a 65535. (suponiendo que es integer sino mas)
:-X :-X :-X (en este foro hay que mantener el temple)
GRACIAS POR LEER!!!
-
@79137913: Tranquilo que el pibe es nuevo, esta aprendiendo!!
-
Perdon por mi ignorancia........
Tenias razon...... soy nuevo........ pero aprendo rapido......jejjejeje
Siiiiii esa solucion me sirvio......
En la primera leida ofuscado por no encontrar respuesta a mis dudas no supe entender.....
Despues analizando el codigo vi la solucion......
Gracias ..........