Pelajari contoh skrip berikut untuk membuat Tanggal/Waktu secara
realtime:
Buat Form sederhana yang hanya terdiri dari object TextBox
‘ Gambas class file
Public Sub Form_Open()
‘Jika tidak ada perintah “Show” maka program akan gagal
‘menampilkan Form karena ditunda oleh perulangan
‘penampilan waktu/tanggal (WaktuRealtime).
Me.Show
WaktuRealtime(1)
End
Public Sub Form_Close()
WaktuRealtime(0)
End
Private Sub WaktuRealtime(n As Byte)
Dim Hari As String[] = ["Senin", "Selasa",
"Rabu", "Kamis", "Jumat", "Sabtu",
"Ahad"]
If n = 1 Then
Wait 1
TextBox1.Text = Hari[WeekDay(Now)] & ", " &
Format(Now, "dd/mm/yyy hh:nn:ss")
WaktuRealtime(1)
Endif
Catch
‘Jika tidak dipasang perintah Catch maka akan muncul error,
‘kecuali pada Form_Close dipasang perintah “Quit”
End