Sebelum kita lanjut membuat project alangkah baiknya ketahui terdahulu apa yang di maksud dengan visual basic dan apa saja komponen yang ada di dalamnya. setelah memahami selanjut nya download aplikasi visual basic yang versi 6.0.
Jika sudah punya kita lanjut kelangkah berikut :
Membuat Project
Buka Aplikasi VB 6.0 yang telah di download >> Standar EXE >> Open.Inilah tampilan awal lembaran kerja yang akan kita buat. tambahkan isi tool sesuai dengan gambar di bawah.
Pada Label17 sampai Label 23 ubah BorderStyle menjadi Fixed Single yang terdapat pada properties. kemudian klik 2 kali pada isi form, masukkan code di bawah ini :
Private Sub Form_Activat()
Text1.SetFocus
End Sub
Private Sub command1_Click()
If Text1 = "" Then
MsgBox "Isi Tanggal Lahir", vbInformation, "informasi"
Else
label17.Caption = DateDiff("yyyy", CDate(Text1.Text), CDate(Text2.Text))
label18.Caption = DateDiff("m", CDate(Text1.Text), CDate(Text2.Text))
label19.Caption = DateDiff("w", CDate(Text1.Text), CDate(Text2.Text))
label20.Caption = DateDiff("d", CDate(Text1.Text), CDate(Text2.Text))
label21.Caption = DateDiff("h", CDate(Text1.Text), CDate(Text2.Text))
label22.Caption = DateDiff("n", CDate(Text1.Text), CDate(Text2.Text))
label23.Caption = DateDiff("s", CDate(Text1.Text), CDate(Text2.Text))
End If
End Sub
Private Sub command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command2.SetFocus
End If
End Sub
Private Sub Form_Load()
Text2 = Date
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = Asc("/") Or KeyAscii = vbKeyReturn Or KeyAscii = vbKeyBack) Then
MsgBox "Hanya Boleh Angka"
KeyAscii = 0
End If
End Sub
Save project >> kemudian Run.
Itulah Project Tentang Menguhitung Usia Dengan Menggunakan VB 6.0, jika terdapat debug silahkan tinggalkan komentar agar bisa di perbaiki kembali.