26
Label1.Caption = TimeValue(Time)
Label2.Caption = Format(Now, "dd mmmm yyyy")
End Sub
Gambar 2.20 Tampilan dari waktu dan tanggal komputer
Program
diatas,
akan
menampilkan
waktu
dan
tanggal
yang
ada
pada
komputer.
Gambar 2.21 Tampilan dari komponen Microsoft Comm Control
Gambar
di
atas
adalah
MsComm
yang
berguna
untuk
komunikasi
program Visual
Basic dengan
modul sistem minimum melalui port serial
pada komputer.
Koding Visual Basic
Private Sub Form_Load()
 |