Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: & eDu & en 3 Julio 2008, 16:55 PM

Título: [Tutorial] Broma !
Publicado por: & eDu & en 3 Julio 2008, 16:55 PM
Añadimos 1 Timer intervalo 1000 y enabled=false
Añadimos 2 Labels

Código (vb) [Seleccionar]
Dim Variable1 As String
Dim numero As String
Private Sub Form_Load()
numero = "40"
variabel1 = InputBox("¿Que quedo españa en la final?[España primero]", "Pregunta")
If variabel1 = "1-0" Then
MsgBox "Correcto"
Else
Call Repetir
MsgBox "Mal"
MsgBox "Adios"
Form1.Timer1.Enabled = True
Label3.Caption = "60"
Label2.Visible = False
End If
End Sub
Public Function Repetir()
For i = 1 To 40
MsgBox "Lo as inroducido mal " & numero & Form1.Repetir1
Next
End Function
Public Function Repetir1()
numero = numero - 1
End Function
Private Sub Label2_Click()
End
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Label3.Caption - 1
If Label3.Caption = "0" Then
End
End If
End Sub
Título: Re: [Tutorial] Broma !
Publicado por: Red Mx en 3 Julio 2008, 17:04 PM
 :xD
Título: Re: [Tutorial] Broma !
Publicado por: seba123neo en 3 Julio 2008, 17:07 PM
borrale el label3 porque tira error al terminar.... :o :P :P :P :P