A. Object-object yang terdapat pada Latihan_05_46110001:
1)
Object Label
Terdapat tiga label yang bertuliskan
nama, date of birth, bintang).
2)
Object Textbox
Terdapat tiga textbox (satu status
input; duat status read only). Status input digunakan untuk memasukkan nama
saya,
sedangkan status readonly digunakan untuk menampilkan Tanggal Kelahiran, Bulan
Kelahiran, Tahun Kelahiran, dan Hari Kelahiran.dari kolom tanggal lahir yang telah diisi pada datetimepicker
3)
Object Button
Pada form ini Terdapat dua object
button yaitu Analizing dan Close. Button Analizing digunakan untuk menampilkan
hasil analisa di object TextBox ReadOnly. Sedangkan button Close digunakan
untuk mengosongkan kembali semua TextBox yang telah terisi.
4)
Object DateTimePicker
Pada form latihan ini Terdapat satu
objek datetimepicker. Digunakan untuk menentukan tanggal yang akan ditampilkan sehingga
muncul bintang yang sesuai dengan tanggal yang telah diisi pada pada datetimepicker
/TextBox ReadOnly.
B. Script Unique
Untuk button Analizing:
Private Sub Analisa_46110001_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Analisa_46110001.Click
If
DTPlahir_46110001.Value.Day > 20 And
DTPlahir_46110001.Value.Month = 12 Or DTPlahir_46110001.Value.Day
< 20 And DTPlahir_46110001.Value.Month = 1 Then
bintang_46110001.Text = "CAPRICORN"
ramalan_46110001.Text = "Peruntungan : yakini intuisi yang timbul dari hati
anda yang sangat didalam. Dengan kata lain feeling akan memegang fungsi didalam
keberhasilan anda di hari ini. Usaha serta karir : banyak celah yang dapat
dimanfaakan, karenanya pandai-pandai mengambil hati atasan. Kesehatan : keadaan
badan serta pikiran anda terlihat bagus serta tidak butuh di kuatirkan. Pertahankan
keadaan yang bagus ini dengan senantiasa lakukan olahraga teratur tiap-tiap
pagi. Finansial : pemasukan nyatanya tidak sebesar layaknya yang anda pikirkan
karenanya jauhi pemborosan. Percintaan : bertuturkatalah yang halus serta tanpa
nada yang kasar lantaran akan dapat kurangi ketegangan yang kerapkali nampak
apabila ada perbedaan pendapat."
ElseIf
Untuk button Close:
Nama_46110001.Text = ""
bintang_46110001.Text = ""
ramalan_46110001.Text = ""
C. Even
Analisa_46110001.Click
close_46110001_Click
D. Property
Property TextBox ==> ReadOnly
Property TextBox ==> TextBox Tasks=MultiLine
E. Langkah-langkah menjalankan program
1. Masukkan/isi
data pada kolom texbox yang berada disampig label " Nama Saya".
2. Langkah
selanjutnya adalah Klik atau pilih tanggal sesuai tanggal kelahiran
anda
3. untuk
melihat hasil analisa, klik button Annalizing. maka akan muncul Bintang dan isi pada texbox readonly ukuran besar seperti berikut ini
4. untuk
menutup jendela form,/ mengosongkan isi texbox maka tekan close disudut kanan





0 komentar:
Posting Komentar