SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Bopo en Miércoles 21 de Enero de 2004, 03:13

Título: Problema Raro
Publicado por: Bopo en Miércoles 21 de Enero de 2004, 03:13
En un textbox quiero que si ponen AX y despues lo que sea osea Ax1700 que diga tal cosa en un label y si se one axda que siga otra
yo tenia esto

 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" Then
lblproci.Caption = "Athlon XP Palomino"
End If
 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" And Mid(txtstepp.Text, 3) = "d" And Mid(txtstepp.Text, 4) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If

pero no funciona cuando pongo axda y sin la parte del axda del if hasta el final si pongo axs no lo pescam no sale palomino.... como lo hago? :(  :smartass:
Título: Re: Problema Raro
Publicado por: cpmario en Miércoles 21 de Enero de 2004, 04:46
Mid$ incompleto

Te hace falta el tercer parámetro de Mid$

Mid(string, start[, length])


    If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2, 1) = "x" And Len(txtstepp.Text) = 3 Then
        lblproci.Caption = "Athlon XP Palomino"
    End If
    If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2, 1) = "x" And Mid(txtstepp.Text, 3, 1) = "d" And Mid(txtstepp.Text, 4, 1) = "a" Then
        lblproci.Caption = "Athlon XP Tbred"
    End If
Título: Re: Problema Raro
Publicado por: pacegar en Miércoles 21 de Enero de 2004, 10:55
Creo que así te podría funcionar mejor
Saludos

If Left(txtstepp.Text, 4) = "axda" Then
   lblproci.Caption = "Athlon XP Tbred"
else
   If Left(txtstepp.Text, 2) = "ax" then
      lblproci.Caption = "Athlon XP Palomino"
   endif
endif
Título: Re: Problema Raro
Publicado por: Bopo en Miércoles 21 de Enero de 2004, 16:21
Cita de: "Bopo"
En un textbox quiero que si ponen AX y despues lo que sea osea Ax1700 que diga tal cosa en un label y si se one axda que siga otra
yo tenia esto

 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" Then
lblproci.Caption = "Athlon XP Palomino"
End If
 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" And Mid(txtstepp.Text, 3) = "d" And Mid(txtstepp.Text, 4) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If

pero no funciona cuando pongo axda y sin la parte del axda del if hasta el final si pongo axs no lo pescam no sale palomino.... como lo hago? :(  :smartass:
pero en los 2 si pongo axda y depeus borro la a del final sale palomino :( , que hagooo,
Título: Re: Problema Raro
Publicado por: Brroz en Miércoles 21 de Enero de 2004, 17:19
El ejemplo que te da pacegar es válido con una salvedad: que se te ocurra escribir en el textbox con mayúsculas... con esto debería de servir:

Código: Text
  1.  
  2. If LCase(Left(txtstepp.Text, 4)) = "axda" Then
  3.       lblproci.Caption = "Athlon XP Tbred"
  4. elseif LCase(Left(txtstepp.Text, 2)) = "ax" then
  5.       lblproci.Caption = "Athlon XP Palomino"
  6. endif
  7.  
  8.  

Y que no te parezca mal, pero podrías esforzarte un poco para poder comprenderte mejor...
Citar
pero en los 2 si pongo axda y depeus borro la a del final sale palomino  , que hagooo
... porque quién sabe a qué te refieres cuando dices que ¿en los 2? (¿TextBox?,¿no era uno?) pones 'axda' y después borras la 'a del final'.

Suerte.
Título: Re: Problema Raro
Publicado por: Bopo en Miércoles 21 de Enero de 2004, 17:36
Cita de: "Brroz"
El ejemplo que te da pacegar es válido con una salvedad: que se te ocurra escribir en el textbox con mayúsculas... con esto debería de servir:

Código: Text
  1.  
  2. If LCase(Left(txtstepp.Text, 4)) = "axda" Then
  3.       lblproci.Caption = "Athlon XP Tbred"
  4. elseif LCase(Left(txtstepp.Text, 2)) = "ax" then
  5.       lblproci.Caption = "Athlon XP Palomino"
  6. endif
  7.  
  8.  

Y que no te parezca mal, pero podrías esforzarte un poco para poder comprenderte mejor...
Citar
pero en los 2 si pongo axda y depeus borro la a del final sale palomino  , que hagooo
... porque quién sabe a qué te refieres cuando dices que ¿en los 2? (¿TextBox?,¿no era uno?) pones 'axda' y después borras la 'a del final'.

Suerte.
Perdon por ser tan dificil de entender :( , pero ya lo arregle :lol: , le puse que el tercero si es un numero que salga palomino :huh: , grracas a Todos :D