Reloj Digital en Visual Basic 6

Con muy poco codigo se puede hacer un reloj digital en visual basic 6, he tardado poco mas de 20 minutos en diseñar y realizar el codigo, es decir, visual basic es mas rapido y comodo que java, pero claro, java es portable y sirve para todos los equipos, aunque visual se puede montar en un ejecutable y tambien funciona en todos los equipos, en fin, usad lo que mas os guste, aqui teneis el relojito:

Vamos a trabajar con cadenas y right, left y mid que es para extraer partes de una cadena:

CODIGO

Private Sub Timer1_Timer()

      Text1.Text = Left(Time, 2)
      Text2.Text = Mid(Time, 4, 2)
      Text3.Text = Right(Time, 2)

         If Val(Text3.Text) / 2 <> 0 And Val(Text3.Text) Mod 2 <> 0 Then
                    Label4.Visible = False
                    Label5.Visible = False
        Else
                   Label4.Visible = True
                   Label5.Visible = True
        End If
End Sub

usamos tres campos de texto cinco label y un control timer al que le damos de intervalo 1000, cargamos todo el codigo en el control timer y buala, un reloj digital que coge los datos del reloj del sistema.

No hay comentarios: