Lama bener ya aku ga posting diblogku ini. karena blog pribadiku sudah aku pindah disini. SO!!! sory aja buat yang kunjungi blogku tapi kagak aku bales.
okey to the point aja
1. BUKA APLIKASI VB 6
2. PILIH STANDART EXE
3. RANCANG APLIKASI SEPERTI INI (1)
4. KEMUDIAN DOUBLE CLICK PADA PROSES
5. KETIKKAN SOURCE CODE PROGRAM SEPERTI INI:
Private Sub Command1_Click()
Dim KodeHari As Byte
Dim Hari As String
KodeHari = Weekday(Text1)
Select Case KodeHari
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jumat"
Case 7: Hari = "Sabtu"
End Select
Text2 = Hari
End Sub
6. JALANKAN PROGRAMNYA
NB (TROUBLESHOOTING):
1. FORMAT INPUTAN TANGGAL BISA SAJA 17 AGUSTUS 1945, ATAU 17/08/1945 ATAU JUGA 17/08/. SILAHKAN CEK DI REGIONAL AND LANGUAGE OPTION DI CONTROL PANEL WINDOWS ANDA.
2. UNTUK END DAN RESET HANYA MERUPAKAN TAMBAHAN SAJA. SOURCE KODENYA BISA ANDA LIHAT DIPOSTINGAN SAYA SEBELUMNYA.
3. KALAU KURANG JELAS, MASUK KE BUKU TAMU SAYA SAJA
PENCARIAN HARI LAHIR DENGAN APLIKASI BUATAN VISUAL BASIC 6
Diposting oleh
Arief Rachman Hakim
On 21 Mei 2009
