Autor Tema: El For No Me Corre (Leído 2317 veces)

RadicalEd · « **en:** Viernes 1 de Julio de 2005, 20:13 »

Hola chicos de SoloCodigo, miren tengo este código:

Código: Text

Private Sub CmdCalc_Click()
Dim iCont As Integer
Dim sFrase As String
Dim x, h, w
x = Len(TxtWord.Text)
sFrase = TxtWord.Text
For h = 1 To x
    w = Mid(sFrase, 1, h)
    If w = &#34; &#34; Then
       iCont = iCont + 1
    End If
Next h
MsgBox iCont
End Sub
 

Y pues lo que pasa es que el for no me corre, cual es el error, me ayuda porfa'.

Gracias Chao.

Kev

declara x, h, w, pro separado
Dim x as integer
Dim h as integer
Dim w as integer

'Asugura que x es entero y no un variant
nos vemos

eliza_marti

Hola Radical..

..mmm..pienso que tu error puede estar en que nunca incrementas la variable h dentro de tu for, tienes que incrementarla para que siga el ciclo..y ..la validacion que haces del espacio dentro del for no le pongas espacio ponle asi : w="" ...segun lo que me puedo dar cuenta es que quieres que en un text se ingrese algun texto y que si no se ingresa nada te presente un uno..

..bueno..

Código: Text

Private Sub Command1_Click()
Dim iCont As Integer
Dim sFrase As String
Dim x, h, w
x = Len(Text1.Text)
sFrase = Text1.Text
For h = 1 To (x + 1)
   w = Mid(sFrase, 1, h)
   If w = &#34;&#34; Then
      iCont = iCont + 1
   End If
   h = h + 1
'MsgBox w
Next h
MsgBox iCont
End Sub
 

Espero que te sirva de guia..chaitos..

nos vemos..

Kev

Hola de nuevo pues creo que el h esta bien pues es el que sirve de pivote(una manera de decile como indice) y este por la propia sintaxis de VB se autoincremente, ahora si lo que quieres compara son caracteres como espacio, etc. usa sus similares ej la letra A es chr(65), una la tabla ASCII

Chau

eliza_marti

Tenes toda la razon con lo de la variable h Kev..ya me estaba confundiendo con C ...

...mmm..en todo caso..prueba sin lo de la h...y una preguntita....Radical...que necesitas hacer?..

...

Saluditos!..

..

Juanolo

Hola:
Lo que veo es lo siguiente:

Citar

w = Mid(sFrase, 1, h)

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 Integer
Dim sFrase As String
Dim x, h, w
x = Len(TxtWord.Text)
sFrase = TxtWord.Text
For h = 1 To x
   w = Mid(sFrase, h, 1)
   If w = &#34; &#34; Then
      iCont = iCont + 1
   End If
Next h
MsgBox iCont
End Sub
 

Saludos,

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 Integer
Dim sFrase As String
Dim x, h, w
x = Len(TxtWord.Text)
sFrase = TxtWord.Text
For h = 1 To x
w = Mid(sFrase, h, 1)
If w = " " Then
iCont = iCont + 1
End If
Next h
MsgBox iCont
End Sub

Saludos,

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

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.

SoloCodigo

Autor Tema: El For No Me Corre (Leído 2317 veces)

RadicalEd

El For No Me Corre

Kev

Re: El For No Me Corre

eliza_marti

Re: El For No Me Corre

Kev

Re: El For No Me Corre

eliza_marti

Re: El For No Me Corre

Juanolo

Re: El For No Me Corre

Shiquilla

Re: El For No Me Corre

Juanolo

Re: El For No Me Corre

RadicalEd

Re: El For No Me Corre