Membuat program untuk menentukan nama hari, weton dan zodizc dari tanggal yang ditentukan!!
Nama hari berupa nama hari secara umum dalam bahasa Indonesia dan nama hari dalam penanggalan jawa (WETON) serta zodiac sesuai dengan tanggal yang di tentukan pada kombinasi combobox.
Buatlah tampilan seperti berikut:
GUNAKAN COMBO BERINDEX (OBJEK ARRAY)
Buat dengan 3 combobox
Property Style = 2 - Dropdown List
Tambahkan objek kontrol Image, PictureBox dan Textbox seperti gambar berikut:
Apabila program pertama kali tampil, maka pada bagian
- Combo (0) menampilkan nomor dari 1 sampai 31
- Combo (1) menampilkan nama bulan dari Januari sampai Desember (dalam bahasa Indonesia)
- Combo (2) menampilkan angka dari tahun sekarang (2009) sampai 1900
Pada pertama kali tampil, setiap combo menyusun formasi tanggal, bulan dan tahun
pada saat program dijalankanseperti gambar berikut:
Nama hari, weton dan zodiac didapat ketika user memilih tanggal atau bulan atau tahun pada combobox.
Ketika susunan dipilih dengan benar maka dengan sendirinya akan menampilkan nama hari, weton, zodiac, gambar zodiac, dan keterangan zodiac sesuai susunan tanggal, bulan dan tahun yang dipilih.
Apabila user memilih susunan tanggal. bulan dan tahun yang salah maka akan tampil tulisan Tanggal tidak valid! seperti berikut:
Sebagai gambaran programnya, anda bisa
DOWNLOAD DISINI
Algoritma Weton-. Ambil sample hari yang telah kita ketahui nama wetonnya sebagai acuan, Misal tanggal 1 April 2009 adalah Wage
-. Cari selisih antara hari yang ingin diketahui wetonnya dengan acuan tanggal.
Misal ingin mengetahui tanggal 16 April 2009, maka cari selisih antara tanggal 1 April 2009 dengan 16 April 2009. Gunakan fungsi Datediff
contoh:
selisih = datediff("d",CDate("2009-04-01"), CDate("2009-04-16"))
-. Apabila selisih hari telah didapat maka gunakan mod (modulo). Modulokan selisih hari dengan 5
-. Apabila hasil modulo = 0 maka hari : Wage
-. Apabila hasil modulo = 1 atau modulo = -4 maka hari : Kliwon
-. Apabila hasil modulo = 2 atau modulo = -3 maka hari : Legi
-. Apabila hasil modulo = 3 atau modulo = -2 maka hari : Pahing
-. Apabila hasil modulo = 4 atau modulo = -1 maka hari : Pon
____________________________________________________________
Algoritma Fungsi ZodiacGunakan perintah pengendali IF atau select case
Apabila tanggal masukan antara:
20 Januari sampai 17 Februari maka Zodiac = 1 'aquarius
18 Februari sampai 19 Maret maka Zodiac = 2 'pisces
20 Maret sampai 19 April Maka Zodiac = 3 'aries
20 April sampai 19 Mei maka Zodiac = 4 'taurus
20 Mei sampai 20 Juni Maka Zodiac = 5 'gemini
21 Juni sampai 21 Juli maka Zodiac = 6 'cancer
22 Juli sampai 22 Agustus maka Zodiac = 7 'Leo
23 Agustus sampai 21 September maka Zodiac = 8 'Virgo
22 September sampai 22 Oktober maka Zodiac = 9 'libra
23 Oktober Sampai 21 November maka Zodiac = 10 'scorpio
22 November sampai 21 Agustus maka Zodiac = 11 'Sagitarius
Selain tanggal tsb maka Zodiac = 12 'capicorn
Perintah untuk meload gambar:Contoh dengan menggunakan objek kontrol Image dengan nama Image1.
File gambar berada pada satu folder dengan program Projek VB yang dibuat dengan nama gambar Gambarku.jpg. :
Set Image1.picture = Loadpicture(
app.path & "\gambarku.jpg")
Perintah untuk menampilkan text dari fileContoh apabila
file berada pada satu folder dengan project VB yang sedang dibuat, file dengan nama teksku.txt kemudian ditampilkan pada textbox.
dim tampung as string
dim namafile as string
namafile =
app.path & "\teksku.txt"
tampung = space(filelen(namafile))
open namafile as Binary Access Read As #1
Get #1, , tampung
close #1
text1.text = tampung
Berikut Source Codenya.
Download disini