IndeksBSI-PCCalendarFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 PROGRAM ZODIAC SEDERHANA

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
agoenxz21
Moderator
Moderator


Male
Jumlah posting : 88
Age : 27
Lokasi : Pontianak
Registration date : 11.12.08

PostSubyek: PROGRAM ZODIAC SEDERHANA   2009-05-05, 11:45

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 dijalankan
seperti 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 Zodiac

Gunakan 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 file
Contoh 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
Kembali Ke Atas Go down
Lihat profil user http://aobe.web44.net
 
PROGRAM ZODIAC SEDERHANA
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
 :: Programming :: Pemrograman Visual :: Visual Basic-
Navigasi: