Ejercicios de programación .net (nivel inicial)
Se muestra el funcionamiento de los conceptos básicos para programar en .net
Se muestra el funcionamiento de los conceptos básicos para programar en .net
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Utilizando un Módulo<br />
Public Class Form1<br />
Private Sub Form1_Load(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles MyBase.Load<br />
u = Label1()<br />
c = Label2()<br />
d = Label3<br />
Timer1.Start()<br />
End Sub<br />
Private Sub Timer1_Tick(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Timer1.Tick<br />
animacion()<br />
End Sub<br />
Private Sub Button1_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Button1.Click<br />
If TextBox1.Text = "Leo" And Val(TextBox2.Text) = 123 Then<br />
Timer2.Start()<br />
Else<br />
MsgBox("Usuario o contraseña incorrecto",<br />
MsgBoxStyle.Critical)<br />
End If<br />
End Sub<br />
Private Sub Timer2_Tick(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Timer2.Tick<br />
ProgressBar1.Increment(1)<br />
If ProgressBar1.Value = 100 Then<br />
Me.Hi<strong>de</strong>()<br />
Form2.Show()<br />
Timer2.Stop()<br />
End If<br />
End Sub<br />
End Class<br />
Leonel Navarrete