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 :
Project Menghitung Usia Menggunakan Visual Basic  6.0


Membuat Project


  • Buka Aplikasi VB 6.0 yang telah di download >> Standar EXE >> Open.
Project Menghitung Usia Menggunakan Visual Basic  6.0

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

Project Menghitung Usia Menggunakan Visual Basic  6.0


  • 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.

Related Posts

Project Menghitung Usia Menggunakan Visual Basic 6.0
4/ 5
Oleh
Show comments
Hide comments

۝ Peraturan dalam berkomentar :

☛ UpsS,. Budayakan berkomentar sesudah membaca artikel sob.
☛ Dilarang Menghina, Promosi (Iklan), Menyelipkan Link Aktiv, dsb.
☛ Dilarang berkomentar berbau Porno, Spam, Sara, Politic, Profokasi.
☛ Berkomentarlah yang Sopan,Bijak, dan Sesuai Artikel (Dilarang OOT)
☛ Saya sangat berterima kasih atas semua yang mau berkomentar diblog saya.
☛ Saya PASTI akan berkunjung balik ke blog Sobat yang sudah mau berkomentar di sini.