Membuat Desian Pada Form
Pada tahap ini saya membuat desain pada form, dengan 9 label, 8 textbox dan 1 button, captinnyapun sudah di sesuaikan dengan letak dan fungsinya.
Membuat image sourcenya.
Masukkan kotak image kedalam form, lalu ubah gambarnya dengan cara merubah (menambahkan) picture pada kotak propertis image.
Lakukan langkah ini berulang hingga semua ke12rasi bintang masuk semua, letakkan pada tempat yang sama, dan ubah visible = false di dalam kotak propertis agar image tidak akan tampil pada saat proram mulai di jalankan.
Pengodingan terhadap command button1 (LIHAT ZODIAK)
Klik 2x button tersebut pada form. Isinya:
· Pembentukan variable tglLhr dan blnLhr yang berttipe data integer dan masing2 terletak pada text1.text dan text2.text.
· Penetapan kondisi pertama:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=22 dan blnLhr (Bulan, text2.text) = 12 atau (Tanggal Lahir, text1.text) <=20 dan blnLhr (Bulan, text2.text) = 1 maka nilai variable zodiac = “Capricorn” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-4.
· Penetapan kondisi kedua:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=21 dan blnLhr (Bulan, text2.text) = 1 atau (Tanggal Lahir, text1.text) <=19 dan blnLhr (Bulan, text2.text) = 2 maka nilai variable zodiac = “Aquarius” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-1.
· Penetapan kondisi ketiga:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=20 dan blnLhr (Bulan, text2.text) = 2 atau (Tanggal Lahir, text1.text) <=20 dan blnLhr (Bulan, text2.text) = 3 maka nilai variable zodiac = “Pisces” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-8.
· Penetapan kondisi keempat:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=21 dan blnLhr (Bulan, text2.text) = 3 atau (Tanggal Lahir, text1.text) <=19 dan blnLhr (Bulan, text2.text) = 4 maka nilai variable zodiac = “Aries” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-2.
· Penetapak kondisi kelima:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=20 dan blnLhr (Bulan, text2.text) = 4 atau (Tanggal Lahir, text1.text) <=20 dan blnLhr (Bulan, text2.text) = 5 maka nilai variable zodiac = “Taurus” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-11.
· Penetapan kondisi keenam:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=21 dan blnLhr (Bulan, text2.text) = 5 atau (Tanggal Lahir, text1.text) <=21 dan blnLhr (Bulan, text2.text) = 6 maka nilai variable zodiac = “Gemini” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-5.
· Penetapan kondisi ketujuh:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=22 dan blnLhr (Bulan, text2.text) = 6 atau (Tanggal Lahir, text1.text) <=22 dan blnLhr (Bulan, text2.text) = 7 maka nilai variable zodiac = “Cancer” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-3.
· Penetapan kondisi kedelapan:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=23 dan blnLhr (Bulan, text2.text) = 7 atau (Tanggal Lahir, text1.text) <=23 dan blnLhr (Bulan, text2.text) = 8 maka nilai variable zodiac = “Leo” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-6.
· Penetapan kondisi kesembilan:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=24 dan blnLhr (Bulan, text2.text) = 8 atau (Tanggal Lahir, text1.text) <=22dan blnLhr (Bulan, text2.text) = 9 maka nilai variable zodiac = “Virgo” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-12.
· Penetapan kondisi kesepuluh:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=23 dan blnLhr (Bulan, text2.text) = 9 atau (Tanggal Lahir, text1.text) <=23 dan blnLhr (Bulan, text2.text) = 10 maka nilai variable zodiac = “Libra” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-7.
· Penetapan kondisi kesebelas:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=24 dan blnLhr (Bulan, text2.text) = 10 atau (Tanggal Lahir, text1.text) <=22 dan blnLhr (Bulan, text2.text) = 11 maka nilai variable zodiac = “Scorpio” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-10.
· Penetapan kondisi keduabelas dan penutupan kondisi:
Kondisi pada coding ini adalah jika user menginputkan tglLhr (Tanggal Lahir, text1.text) >=23 dan blnLhr (Bulan, text2.text) = 11 atau (Tanggal Lahir, text1.text) <=21 dan blnLhr (Bulan, text2.text) = 12 maka nilai variable zodiac = “Sagitarius” dan nilai variable umum, karir, cinta serta diet akan berubah menjadi seperti tuliasan yang berada dalam tanda kutip “ ” pada setiap variable seperti coding diatas. Pada kondisi inipun akan menyembunyikan ke-12 gambar, kecuali gambar ke-9. Di karenakan ini adalah kondisi terakhir maka pengodinganpun ditulis end if.
· Pencetakan nilai variable:
Variable zodiac dicetak di text5.text
Variable umum dicetak di text4.text
Variable karir dicetak di text6.text
Variable cinta dicetak di text7.text
Variable diet dicetak di text8.text
Pengodingan pada command button pun telah selesai, ditandai dengan end sub.
Agar tampilan lebih menarik, kita dapat menambahkan picture pada tab propertis form.
HASIL
Private Sub Command1_Click()
tglLhr = Int(Text1.Text)
blnLhr = Int(Text2.Text)
If (tglLhr >= 22 And blnLhr = 12) Or (tglLhr <= 20 And blnLhr = 1) Then
zodiak = "Capricorn"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "pikirkan orang disekitar anda"
karir = "atur kembali waktu anda"
cinta = "terdapat perdebatan yang cukup serius"
diet = "perbanyak minum air putih"
ElseIf (tglLhr >= 21 And blnLhr = 1) Or (tglLhr <= 19 And blnLhr = 2) Then
zodiak = "Aquarius"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "harus banyak bersyukur"
karir = "cukup jenuh dengan pekerjaan"
cinta = "mungkin anda sangat sensitif"
diet = "kurangi konsumsi softdrink"
ElseIf (tglLhr >= 20 And blnLhr = 2) Or (tglLhr <= 20 And blnLhr = 3) Then
zodiak = "Pisces"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = True
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "anda adalah sang inspirasi"
karir = "sebuah planing yang matang"
cinta = "tunjukan keromantisan anda"
diet = "hindari makanan instan"
ElseIf (tglLhr >= 21 And blnLhr = 3) Or (tglLhr <= 19 And blnLhr = 4) Then
zodiak = "Aries"
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "jangan pecahkan konsentrasi anda"
karir = "hati-hati pada emosi anda"
cinta = "menekan cemburu adalah langkah terbaik"
diet = "merasa agak gemuk"
ElseIf (tglLhr >= 20 And blnLhr = 4) Or (tglLhr <= 20 And blnLhr = 5) Then
zodiak = "Taurus"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = True
Image12.Visible = False
umum = "harus lebih respect kepada orag lain"
karir = "perbanyak relasi"
cinta = "hadapi dengan dewasa"
diet = "perbanyak asupan omega-3"
ElseIf (tglLhr >= 21 And blnLhr = 5) Or (tglLhr <= 21 And blnLhr = 6) Then
zodiak = "Gemini"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "dahulukan logika"
karir = "evaluasi kembali keinginan anda"
cinta = "fokuskan diri kepada pasangan"
diet = "kurangi asumsi kopi"
ElseIf (tglLhr >= 22 And blnLhr = 6) Or (tglLhr <= 22 And blnLhr = 7) Then
zodiak = "Cancer"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "insting yang membawa kesuksesan"
karir = "lebih berani mengambil resiko"
cinta = "single"
diet = "coklat cukup baik untuk relaksasi"
ElseIf (tglLhr >= 23 And blnLhr = 7) Or (tglLhr <= 23 And blnLhr = 8) Then
zodiak = "Leo"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = True
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "belajarlah untuk terbuka"
karir = "belajarlah untuk obyektif dalam memandang sesuatu"
cinta = "mungkin anda belum siap untuk memiliki"
diet = "hindari roti dengan lemak tinggi"
ElseIf (tglLhr >= 24 And blnLhr = 8) Or (tglLhr <= 22 And blnLhr = 9) Then
zodiak = "Virgo"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = True
umum = "anda adalah seseorang yang diandalkan"
karir = "teamwork adalah kerja terbaik"
cinta = "buka hatimu"
diet = "perbanyak makan protein"
ElseIf (tglLhr >= 23 And blnLhr = 9) Or (tglLhr <= 23 And blnLhr = 10) Then
zodiak = "Libra"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = True
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "anda harus lebih profiesional"
karir = "sebaiknya konsentrasi terhadap yang utama"
cinta = "bersikap cengeng tidak akan membantu anda"
diet = "kontrol cemilan anda"
ElseIf (tglLhr >= 24 And blnLhr = 10) Or (tglLhr <= 22 And blnLhr = 11) Then
zodiak = "Scorpio"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = True
Image11.Visible = False
Image12.Visible = False
umum = "jangan bermalas-malasan"
karir = "gunakan insting anda"
cinta = "bahagia/tidak, semua ditangan anda"
diet = "perbanyak makan sayur dan buah"
ElseIf (tglLhr >= 23 And blnLhr = 11) Or (tglLhr <= 21 And blnLhr = 12) Then
zodiak = "Sagitarius"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = True
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
umum = "ada peluang terjadi konflik"
karir = "banyak informasi yang anda temui"
cinta = "ubah pemikiran anda"
diet = "kurangi kacang-kacangan"
End If
Text5.Text = zodiak
Text4.Text = umum
Text6.Text = karir
Text7.Text = cinta
Text8.Text = diet
End Sub
No comments:
Post a Comment