Minggu, 23 April 2017

Project Menghitung Usia Menggunakan Visual Basic 6.0

Ada banyak macam yang bisa di buat menggunakan aplikasi visual basic ini, dan biasa di sebut dengan Project. salah satu nya yaitu aplikasi menghitung umur, sebenarnya membuat Project ini mudah saja tetapi tidak semua orang yang bisa memahaminya. untuk itu anda harus terlebih dahulu mengetahui komponen yang ada pada visual basic dan mempelajari algoritma secara logis dan mendasar. apalagi jika 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 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 :

 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, jika terdapat debug silahkan tinggalkan komentar agar bisa di perbaiki kembali.
Disqus Comments