Programación General > Visual Basic 6.0 e inferiores

 El For No Me Corre

<< < (2/2)

Juanolo:
Hola:
Lo que veo es lo siguiente:


--- Citar ---w = Mid(sFrase, 1, h)
--- Fin de la cita ---

Si sólo quieres leer un caracter, debe ser:


--- Código: Text ---w=Mid(sFrase, h, 1) 
Es de esos momentos en que los árboles no dejan ver el bosque.

Salu2.

Shiquilla:
Buenas, el error simplemente está en la función Mid.


--- Código: Text ---Mid(Frase, Inicio, Cuantos) Mid(Frase,h,1) en vez de Mid(Frase, 1, h)


--- Código: Text ---Private Sub CmdCalc_Click()Dim iCont As IntegerDim sFrase As StringDim x, h, wx = Len(TxtWord.Text)sFrase = TxtWord.TextFor h = 1 To x   w = Mid(sFrase, h, 1)   If w = &#34; &#34; Then      iCont = iCont + 1   End IfNext hMsgBox iContEnd Sub 
Saludos,  :P

PD: Juanolo se me ha adelantao por 1 minuto xD. Bueno, aún así lo dejo..

Juanolo:
Saludos, Shiquilla.

RadicalEd:

--- Cita de: "Shiquilla" --- Buenas, el error simplemente está en la función Mid.


--- Código: Text ---Mid(Frase, Inicio, Cuantos) Mid(Frase,h,1) en vez de Mid(Frase, 1, h)


--- Código: Text ---Private Sub CmdCalc_Click()Dim iCont As IntegerDim sFrase As StringDim x, h, wx = Len(TxtWord.Text)sFrase = TxtWord.TextFor h = 1 To x   w = Mid(sFrase, h, 1)   If w = &#34; &#34; Then      iCont = iCont + 1   End IfNext hMsgBox iContEnd Sub 
Saludos,  :P

PD: Juanolo se me ha adelantao por 1 minuto xD. Bueno, aún así lo dejo..
--- Fin de la cita ---
Claro lo tenia al reves gracias a todos por resopnder .

PD. eliza, es un programa para C, pero lo estoy empezando el algoritmo en VB y de hay lo termino.

Gracias Chao.

Navegación

[0] Índice de Mensajes

[*] Página Anterior