Project Menghitung Usia Menggunakan Visual Basic 6.0

Ada banyak macam yang mampu di buat menggunakan aplikasi visual basic ini, dan biasa di sebut dengan Project. salah satu nya ialah aplikasi menghitung umur, bersama-sama membuat Project ini mudah saja tetapi tidak semua orang yang mampu memahaminya. untuk itu anda harus terlebih dahulu mengetahui komponen yang ada pada visual basic dan mempelajari algoritma secara logis dan mendasar. apalagi kalau mempelajarinya secara otodidak.

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 unduh aplikasi visual basic yang  versi  6.0. jika sudah punya kita lanjut kelangkah berikut :

Membuat Project

• Buka Aplikasi VB 6.0 yang telah di unduh >> Standar EXE >> Open.

• inilah tampilan awal lembaran kerja yang akan kita buat.
• tambahkan isi tool sesuai  dengan gambar di bawah.

• Pada Label17 hingga Label 23 ubah BorderStyle menjadi Fixed Single yang terdapat pada properties. 
• kemudian klik 2 kali pada isi form, masukkan code di bawah ini :

Source Code :  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, kalau terdapat debug silahkan tinggalkan komentar biar mampu di perbaiki kembali.