Digital Clock

Interactive Digital Clock

This interactive digital clock demonstrates how a simple Visual Basic application can be created with minimal code. The timer updates the display every second, just like in VB6 and VB.NET applications.

How It Works

A digital clock in Visual Basic can be created with just a few lines of code. The key components are:

• Timer Control: Updates the time at regular intervals (typically every second)
• Label Control: Displays the current time
• Format Functions: Converts the time to a human-readable format

In both VB6 and VB.NET, you would:

1. Add a Timer control to your form and set its Interval property to 1000 (1 second)
2. Add a Label control to display the time
3. Write code in the Timer's Tick event to update the Label with the current time

Code Examples

' Digital Clock in VB6
Private Sub Form_Load()
    ' Set timer interval to 1000ms (1 second)
    Timer1.Interval = 1000
    ' Set initial time
    UpdateTime
End Sub

Private Sub Timer1_Timer()
    ' Update time every second
    UpdateTime
End Sub

Private Sub UpdateTime()
    ' Display time in 12-hour format with AM/PM
    lblTime.Caption = Format(Time, "hh:mm:ss AMPM")
    
    ' Display date
    lblDate.Caption = Format(Date, "dddd, mmmm dd, yyyy")
End Sub

' Digital Clock in VB.NET
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Set timer interval to 1000ms (1 second)
    Timer1.Interval = 1000
    ' Start the timer
    Timer1.Start()
    ' Set initial time
    UpdateTime()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' Update time every second
    UpdateTime()
End Sub

Private Sub UpdateTime()
    ' Display time in 12-hour format with AM/PM
    lblTime.Text = DateTime.Now.ToString("hh:mm:ss tt")
    
    ' Display date
    lblDate.Text = DateTime.Now.ToString("dddd, MMMM dd, yyyy")
End Sub

VB6 vs VB.NET: Key Differences

Try It Yourself