Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: pica6666 en 17 Agosto 2011, 16:12 pm



Título: NOVATO con problemas IF
Publicado por: pica6666 en 17 Agosto 2011, 16:12 pm
no me acepta ELSE debajo del form2.label1.text para poner contraseña erronea en un msgbox, aqui dejo el codigo

por cierto me dice "'Else' debe ir precedida de la instrucción 'If' o 'ElseIf' correspondiente"

Gracias


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "kikon" And TextBox2.Text = "premio" Then Form2.Show()
        Form2.Label1.Text = "CONTRASEÑA ACEPTADA"
    End Sub


Título: Re: NOVATO con problemas IF
Publicado por: $Edu$ en 17 Agosto 2011, 16:23 pm
Eso es porque al poner el Then y la instruccion que sigue todo en una misma linea, no hay q poner End If pero cuando usas else si, entonces hazlo distinto por ejemplo asi:

Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.  
  3. If TextBox1.Text = "kikon" And TextBox2.Text = "premio" Then
  4.        Form2.Show()
  5.   else
  6.        Form2.Label1.Text = "CONTRASEÑA ACEPTADA"
  7. end if
  8.  
  9.    End Sub
  10.  
  11.  

Entiendes?


Título: Re: NOVATO con problemas IF
Publicado por: pica6666 en 17 Agosto 2011, 16:28 pm
pero lo que yo quiero es crear un if y que me diga contraseña aceptada y luego el form2  y SI NO que me diga contraseña incorrecta con un msgbox.


Título: Re: NOVATO con problemas IF
Publicado por: pica6666 en 17 Agosto 2011, 16:35 pm
vale ya lo he conseguido, no se que tenia mal pero ya esta, gracias$Edu$


Título: Re: NOVATO con problemas IF
Publicado por: $Edu$ en 17 Agosto 2011, 16:41 pm
Ah no lei bien q decia Contraseña Aceptada perdon, mala mia, pero la idea ya la entendiste creo, quedaria asi:

Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.  
  3. If TextBox1.Text = "kikon" And TextBox2.Text = "premio" Then
  4.        Form2.Show()
  5.        Form2.Label1.Text = "CONTRASEÑA ACEPTADA"
  6.  
  7.  else
  8.  
  9.        Form2.Label1.Text = "CONTRASEÑA INCORRECTA"
  10. end if
  11.  
  12.    End Sub
  13.  
  14.  
  15.  

Pero acuerdate que tu error era porque hiciste un if "corto" de una linea, si lo haces "estructurado" no tendras problemas nunca


Título: Re: NOVATO con problemas IF
Publicado por: pica6666 en 18 Agosto 2011, 20:57 pm
Pues estoy empezando con esto, aprendiendo viendo tutoriales y videos del youtube, me recomiendas algun tutorial o manual que conozcas?.

Correcto ese fue mi error, tan simple y corto  era el codigo que acudi al foro, por que me daba rabia no solucionarlo, gracias de nuevo.