Would you like to react to this message? Create an account in a few clicks or log in to continue.


 
IndeksBSI-PCLatest imagesPencarianPendaftaranLogin

 

 PROGRAM ZODIAC SEDERHANA

Go down 
PengirimMessage
agoenxz21
Moderator
Moderator
agoenxz21


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

PROGRAM ZODIAC SEDERHANA Empty
PostSubyek: PROGRAM ZODIAC SEDERHANA   PROGRAM ZODIAC SEDERHANA Icon_minitime2009-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:
PROGRAM ZODIAC SEDERHANA Tugasvb8v0001

Apabila program pertama kali tampil, maka pada bagian
- Combo (0) menampilkan nomor dari 1 sampai 31
PROGRAM ZODIAC SEDERHANA Tugasvb8v0003

- Combo (1) menampilkan nama bulan dari Januari sampai Desember (dalam bahasa Indonesia)
PROGRAM ZODIAC SEDERHANA Tugasvb8v0004

- Combo (2) menampilkan angka dari tahun sekarang (2009) sampai 1900
PROGRAM ZODIAC SEDERHANA Tugasvb8v0005

Pada pertama kali tampil, setiap combo menyusun formasi tanggal, bulan dan tahun pada saat program dijalankan
seperti gambar berikut:
PROGRAM ZODIAC SEDERHANA Tugasvb8v0002

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:
PROGRAM ZODIAC SEDERHANA Tugasvb8v0006


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
http://aobe.web44.net
 
PROGRAM ZODIAC SEDERHANA
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Bimbingan TA Program Studi D1

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