Programación General > Visual Basic 6.0 e inferiores
El For No Me Corre
RadicalEd:
Hola chicos de SoloCodigo, miren tengo este código:
--- 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, 1, h) If w = " " Then iCont = iCont + 1 End IfNext hMsgBox iContEnd 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
:comp:
eliza_marti:
Hola Radical.. :hola: ..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.. :unsure: ..bueno.. :rolleyes:
--- Código: Text ---Private Sub Command1_Click()Dim iCont As IntegerDim sFrase As StringDim x, h, wx = Len(Text1.Text)sFrase = Text1.TextFor h = 1 To (x + 1) w = Mid(sFrase, 1, h) If w = "" Then iCont = iCont + 1 End If h = h + 1'MsgBox wNext hMsgBox iContEnd Sub
Espero que te sirva de guia..chaitos.. :hola: nos vemos.. :hola: :ph34r:
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
:comp: :hola:
eliza_marti:
Tenes toda la razon con lo de la variable h Kev..ya me estaba confundiendo con C ... :unsure: ...mmm..en todo caso..prueba sin lo de la h...y una preguntita....Radical...que necesitas hacer?.. :) ...
Saluditos!.. :hola: .. :ph34r: :comp:
Navegación
[#] Página Siguiente
Ir a la versión completa