Cara Membuat Tanggal/Waktu RealTime/Berjalan Pada TextBoxt Gambas

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