Menghitung usia dengan visual basic 6

Cara Menghitung umur dengan visual basic 6
  • Bukalah Micr*soft Visual Basic anda kemudian pilihlah StandardEXE;
  • Ganti Caption pada form1 menjadi Aplikasi Menghitung Umur Anda, seperti gambar dibawah ini :





Photobucket

  • Aktifkan Micr*soft Wind*ws Common Control-2 6.0 dengan cara menekan Ctrl+T untuk menampilkan Component, kemudian cari ke bawah sampai menemukan  Micr*soft Wind*ws Common Control-2 6.0 lalu klik Apply. Setelah itu lihatlah pada deretan Toolbox maka akan terdapat tambahan lima Tools salah satunya adalah DTPicker;





Photobucket

  • Kemudian masukkan sebuah komponen DTPicker ke form1 dan ubahlah properties Format menjadi 0-dtpLongDate, untuk ukuran DTPicker tergantung selera;





Photobucket

  • Untuk tambahan masukkan komponen Label dan komponen CommandButton sebagai eksekutor perintah. Ganti caption pada Label1 menjadi "Tanggal Lahir Saya" dan caption pada CommandButton1 menjadi "Hitung Umur Saya", sehingga jadi seperti di bawah ini :





Photobucket

  • Klik 2x pada Command1 dan masukkan source code dibawah ini :
  Dim totalhari As Integer
  Dim umur As Integer
  Dim hari As Integer

  totalhari = DateDiff("d", DTPicker1.Value, Date)
  umur = totalhari / 365
  hari = totalhari - (umur * 365)
  MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"
  • Selesai.
Untuk melihat hasilnya, tekan Run atau tombol F5. Sekian tutorial kali ini semoga bermannfaat yah ^_^
Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
 Photobucket

Komentar

Postingan populer dari blog ini

Interrupt driven I/O

List Linier (Linked list) Dan Variasinya_Struktur Data

Menghitung Jarak Jatuh Peluru (C++)