Programación General > Visual Basic para principiantes

 Funcion Para Manejo De Cadena De Caracteres

(1/1)

VeronicaNF:
segun mi criterio esta es la instruccion que no funciona


--- Código: Text ---For m = 0 To m = 21    formula(m) = Mid(w.Text, m + 1, 1)Next m 
y me gustaria saber como puedo corregirla, aqui esta el codigo completo


--- Código: Text ---Dim k As IntegerDim arreglo() As StringDim total As IntegerDim igual() As StringDim cambio As IntegerDim formula(22) As VariantDim j  As IntegerDim z  As IntegerDim m  As Integer arreglo = Split(variable.Text, ";") For m = 0 To m = 21    formula(m) = Mid(w.Text, m + 1, 1)Next m  For k = LBound(arreglo) To UBound(arreglo)    igual = Split(arreglo(k), "=")    For j = 0 To j = 21        If igual(0) = formula(j) Then            formula(j) = igual(1)        End If    Next j        igual(k) = ""Next k total = Val(formula(0)) For m = 0 To m = 2    cambio = Val(formula(m + 1))    Select Case formula(m)        Case "*"            total = total * cambio        Case "/"            total = total / cambio        Case "+"            total = total + cambio        Case "-"            total = total - cambio    End SelectNext m result.Text = total 
cualquier ayuda es bien recibida  :D

F_Tanori:
La sintaxis no es correcta ,
<!--xc1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>XCODE </td></tr><tr><td id='XCODE'><!--exc1-->For m = 0 To m = 21
   formula(m) = Mid(w.Text, m + 1, 1)
Next m<!--xc2--></td></tr></table><div class='postcolor'><!--exc2-->

No tienes que asignarle de nuevo el valor "Hasta" a la variable (eso lo hace el ciclo)


--- Código: Text ---For m = 0 To 21   formula(m) = Mid(w.Text, m + 1, 1)Next m 
Ahora, pudieras poner un ejemplo para que se utiliza la funcion de abajo, cuales son los datos que tiene que recibir etc



Saludos

VeronicaNF:
muchas gracias, esto soluciona mi problema
 :smartass:

F_Tanori:
Por nada  ;)


Saludos

Navegación

[0] Índice de Mensajes