Hi, guest ! Welcome to Seinfomu. | Lowongan CPNS | Ebook CPNS | Register | Sign In

Rabu, 23 Januari 2013

Cara Membuat Program Perhitungan Masa Berlaku KTP dengan Menggunakan Microsoft Visual Basic 6.0 (Tutorial)

Gak ada Henti2nya Berbagi Source Code Visual BAsic yaa Sobat :D
Nahh Kali ini saya mau berbagi sedikit trik membuat Program Menghitung Masa Berlaku KTP dengan Menggunakan Microsoft Visual Basic 6.0.
Program Kecil2an ini emang sengaja mau di share aja biar sobat bisa coba-coba bikin di rumah :D
Oke Sob Langsung Aja Liat Cara Bikinnya..
Maff Juga nie Sobat, saya ga jadikan unduhan, Lagi Males Buka PhourShared,.

1. Seperti Biasa Masuk Ke Aplikasi VB
2. Pilih STANDART,EXE
3. Sobat Desaign Ya Sesuka Sobat, yg Penting Field-field'snya Persis seperti ScreenShoot di Bawah Ini :


4. Kemudian Masukan Source Code Berikut ini ke dalam Form tadi yg kamu desaign :

Option Explicit

Private Sub Command1_Click()
Dim x As Date
Dim y As Integer
Dim hitung As Date
x = awal.Text
y = lama.Text
hitung = x + (y * 365) + 1
akhir.Text = hitung
sekarang.Text = Date
MsgBox "Jangan Telat Perpanjang KTP Anda!!", vbOKOnly + vbExclamation, "Pesan"
Image1.Visible = True
End Sub

Private Sub Command2_Click()
awal.Text = ""
lama.Text = ""
akhir.Text = ""
sekarang.Text = ""
Image1.Visible = False
awal.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub



* * *

nah cukup mudah kan soba ??
Selamat Mencoba Tutorial ini. :-)
Share this article now on :

Posting Komentar

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.