Programación General > Visual Basic 6.0 e inferiores

 Ayuda!! No Coinciden Tipos?

(1/2) > >>

althenna:
ok estoy haciendo un programa de suma binaria pero me encuentro con el siguente problema

nami, namie, num1pos y num2pos todos fueron declarados como double, tomo sus valores de dos textbox

nami = num1.Text
namie = num2.Text

num1pos = (Mid(nami, podi, 1))
num2pos = (Mid(namie, podi, 1))

 :( eh utilizado en otro programa esta funcion con la diferencia que su valor no lo guardo en una variable sino en otro textbox.. no se que hacer

F_Tanori:
que es podi?

que valores puede tener?

pudes colocar el procedimiento/funcion complet@?


Saludos

althenna:
aun no completo el programa, estoy haciendo pruebas

podi es mi segundo contador de posicion, ya que necesito tomar el primer digito a la izquierda

solo pueden entrar 1 y 0 pero aun no completo esa parte estoy haciendo pruebas sin validar  :(


--- Código: Text --- Dim numi1 As DoubleDim numi2 As DoubleDim grande As DoubleDim tempo As DoubleDim long1 As DoubleDim long2 As DoubleDim vari As DoubleDim inic As DoubleDim podi As DoubleDim nami As DoubleDim namie As DoubleDim num1pos As IntegerDim num2pos As Integer ' *acabo de cambiarlos a integer*  Private Sub Command2_Click() long1 = Len(num1)long2 = Len(num2)tempo = 0inic = 0  If long1 < long2 Then     grande = long2 Else     grande = long1End If 'necesito saber cual de los dos numeros tiene mayor longitud para agregar 0 en 'los ligares que esta nulo podi = grande 'empieza for   for (variable) = (inicio) to (final //si no se usar el for en visual lo 'copie de una web  For inic = inic To grande nami = num1.Textnamie = num2.Text num1pos = (Mid(nami, podi, 1))num2pos = (Mid(namie, podi, 1)) ' comienza  la suma binaria'aqui va una serie de ifs que no quise poner para que no se burlaran XD es de lo mas simple por eso ocupo tantas variables  

F_Tanori:
1- en visual basic las cadenas comienzan de 1


--- Código: Text ---cadena="cadena" for c=1 to len(cadena)    letra=mid(cadena,c,1)next c  
2- el for en visual lleva esta estructura


--- Citar ---FOR variablecontrol= desde to hasta  [step 1] <--- opcional es el incremento por default 1
      instrucciones dentro del for
NEXT variablecontrol
--- Fin de la cita ---

3- NO puedes hacer esto:

For inic = inic To grande

debes de usar otra variable de control


--- Citar ---For i=inic to grande
--- Fin de la cita ---


4- La funcion Mid espera dos parametros obligatorios y 1 opcional

mid(Cadena,inicio,[longitud])

si inicio vale 0 entonces marca ese error (podi vale 0) (porque las cadenas inician en 1 :P)

si no llevan punto decimal no es necesario que sean doble

5- nami = num1.Text para tomar este valor utiliza
     nami = val(num1.Text) o
     nami = cdbl(num1.Text)


Saludos

althenna:
aaaaaaaah ya hice esos cambios pero sigo teniendo problemas pero creo saber ke puedo hacer, tengo que agregar ceros a la izqquiera para que tengan la misma longitud

gracias

Navegación

[0] Índice de Mensajes

[#] Página Siguiente