DISKRIPSI LATIHAN 07
Form Latihan_07 terdapat tiga object yaitu Label, Textbox,
dan Button:
Object Label
Terdapat dua object Label (yang bertuliskan “Masukkan harga”
dan “Hasil perhitungan”)
Object Textbox
Terdapat tiga puluh object textbox (lima status input; dua
puluh lima status read only). Status input digunakan untuk memasukkan angka.
Status Read Only digunakan untuk menampilkan hasil perhitungan.
Object Button
Terdapat tiga object button yaitu
“HITUNG 1”, “HITUNG 2”, dan “HITUNG 3”
Object button ini digunakan untuk
menghitung hasil perhitungan yang pertama, kedua, dan ketiga.
RUMUS PERHITUNGAN : untuk textbox
6,7,29,30 berbeda rumus perhitungannya untuk setiap button sedangkan 8-28 itu
sama untuk setiap button.
Script Unique
Private Sub HITUNG1_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
HITUNG1_36110043.Click
T6_36110043.Text =
Val(T3_36110043.Text) * Val(T2_36110043.Text) / Val(T3_36110043.Text) *
Val(T4_36110043.Text) + Val(T5_36110043.Text)
T7_36110043.Text =
Val(T4_36110043.Text) / Val(T1_36110043.Text) + Val(T4_36110043.Text) /
Val(T2_36110043.Text) - Val(T3_36110043.Text)
T8_36110043.Text =
Val(T4_36110043.Text) * Val(T2_36110043.Text)
Even
Button click
Property
Property TextBox ==> ReadOnly=True
LANGKAH-LANGKAH
1.
BUKA
Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Click icon "Add new Item"

3.
pilih Windows Form, lalu
isi Name dengan Nama Latihan 07 dan click add.

4.
Buat design Form sesuai dengan Form
diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}
5. Ganti nama setiap object kecuali Label menggunakan
"Properties Window"
6. Klik 2x pada design form yang telah dibuat untuk membuka lembar Scripnya.
7.
Masukkkan Scrip di bawah
ini.
SCRIPT LATIHAN 7
Public Class latihan_07_36110043
Private Sub HITUNG1_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
HITUNG1_36110043.Click
T6_36110043.Text =
Val(T3_36110043.Text) * Val(T2_36110043.Text) / Val(T3_36110043.Text) *
Val(T4_36110043.Text) + Val(T5_36110043.Text)
T7_36110043.Text =
Val(T4_36110043.Text) / Val(T1_36110043.Text) + Val(T4_36110043.Text) /
Val(T2_36110043.Text) - Val(T3_36110043.Text)
T8_36110043.Text =
Val(T4_36110043.Text) * Val(T2_36110043.Text)
T9_36110043.Text =
Val(T3_36110043.Text) / Val(T1_36110043.Text)
T10_36110043.Text =
Val(T5_36110043.Text) - Val(T4_36110043.Text) + Val(T3_36110043.Text)
T11_36110043.Text =
Val(T1_36110043.Text) / Val(T3_36110043.Text) - Val(T4_36110043.Text)
T12_36110043.Text =
Val(T2_36110043.Text) * Val(T2_36110043.Text)
T13_36110043.Text =
Val(T5_36110043.Text) + Val(T4_36110043.Text) + Val(T1_36110043.Text)
T14_36110043.Text =
Val(T4_36110043.Text) - Val(T3_36110043.Text)
T15_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T16_36110043.Text =
Val(T2_36110043.Text) / Val(T5_36110043.Text)
T17_36110043.Text =
Val(T1_36110043.Text) - Val(T3_36110043.Text)
T18_36110043.Text =
Val(T4_36110043.Text) + Val(T1_36110043.Text)
T19_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T20_36110043.Text = Val(T3_36110043.Text)
/ Val(T5_36110043.Text)
T21_36110043.Text =
Val(T3_36110043.Text) + Val(T2_36110043.Text)
T22_36110043.Text =
Val(T1_36110043.Text) - Val(T2_36110043.Text)
T23_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T24_36110043.Text =
Val(T4_36110043.Text) + Val(T5_36110043.Text) / Val(T2_36110043.Text)
T25_36110043.Text =
Val(T2_36110043.Text) * Val(T4_36110043.Text) - Val(T1_36110043.Text)
T26_36110043.Text =
Val(T2_36110043.Text) / Val(T5_36110043.Text) + Val(T4_36110043.Text)
T27_36110043.Text =
Val(T3_36110043.Text) + Val(T2_36110043.Text) * Val(T3_36110043.Text)
T28_36110043.Text =
Val(T2_36110043.Text) / Val(T1_36110043.Text) * Val(T3_36110043.Text)
T29_36110043.Text =
Val(T3_36110043.Text) + Val(T4_36110043.Text) / Val(T5_36110043.Text)
T30_36110043.Text =
Val(T4_36110043.Text) - Val(T3_36110043.Text) + Val(T1_36110043.Text)
End Sub
Private Sub HITUNG2_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
HITUNG2_36110043.Click
T6_36110043.Text =
Val(T1_36110043.Text) * Val(T2_36110043.Text) - Val(T3_36110043.Text) *
Val(T4_36110043.Text) + Val(T5_36110043.Text)
T7_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text) + Val(T4_36110043.Text) /
Val(T2_36110043.Text) - Val(T3_36110043.Text)
T8_36110043.Text =
Val(T4_36110043.Text) * Val(T2_36110043.Text)
T9_36110043.Text =
Val(T3_36110043.Text) / Val(T1_36110043.Text)
T10_36110043.Text =
Val(T5_36110043.Text) - Val(T4_36110043.Text) + Val(T3_36110043.Text)
T11_36110043.Text =
Val(T1_36110043.Text) / Val(T3_36110043.Text) - Val(T4_36110043.Text)
T12_36110043.Text = Val(T2_36110043.Text)
* Val(T2_36110043.Text)
T13_36110043.Text =
Val(T5_36110043.Text) + Val(T4_36110043.Text) + Val(T1_36110043.Text)
T14_36110043.Text =
Val(T4_36110043.Text) - Val(T3_36110043.Text)
T15_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T16_36110043.Text =
Val(T2_36110043.Text) / Val(T5_36110043.Text)
T17_36110043.Text =
Val(T1_36110043.Text) - Val(T3_36110043.Text)
T18_36110043.Text =
Val(T4_36110043.Text) + Val(T1_36110043.Text)
T19_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T20_36110043.Text =
Val(T3_36110043.Text) / Val(T5_36110043.Text)
T21_36110043.Text =
Val(T3_36110043.Text) + Val(T2_36110043.Text)
T22_36110043.Text =
Val(T1_36110043.Text) - Val(T2_36110043.Text)
T23_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T24_36110043.Text =
Val(T4_36110043.Text) + Val(T5_36110043.Text) / Val(T2_36110043.Text)
T25_36110043.Text =
Val(T2_36110043.Text) * Val(T4_36110043.Text) - Val(T1_36110043.Text)
T26_36110043.Text =
Val(T2_36110043.Text) / Val(T5_36110043.Text) + Val(T4_36110043.Text)
T27_36110043.Text =
Val(T3_36110043.Text) + Val(T2_36110043.Text) * Val(T3_36110043.Text)
T28_36110043.Text =
Val(T2_36110043.Text) / Val(T1_36110043.Text) * Val(T3_36110043.Text)
T29_36110043.Text =
Val(T2_36110043.Text) * Val(T4_36110043.Text) / Val(T5_36110043.Text)
T30_36110043.Text =
Val(T2_36110043.Text) - Val(T5_36110043.Text) * Val(T2_36110043.Text)
End Sub
Private Sub HITUNG3_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
HITUNG3_36110043.Click
T6_36110043.Text =
Val(T3_36110043.Text) + Val(T2_36110043.Text) / Val(T3_36110043.Text) *
Val(T4_36110043.Text) + Val(T5_36110043.Text)
T7_36110043.Text =
Val(T2_36110043.Text) - Val(T5_36110043.Text) * Val(T2_36110043.Text) /
Val(T2_36110043.Text) - Val(T3_36110043.Text)
T8_36110043.Text =
Val(T4_36110043.Text) * Val(T2_36110043.Text)
T9_36110043.Text =
Val(T3_36110043.Text) / Val(T1_36110043.Text)
T10_36110043.Text =
Val(T5_36110043.Text) - Val(T4_36110043.Text) + Val(T3_36110043.Text)
T11_36110043.Text =
Val(T1_36110043.Text) / Val(T3_36110043.Text) - Val(T4_36110043.Text)
T12_36110043.Text =
Val(T2_36110043.Text) * Val(T2_36110043.Text)
T13_36110043.Text =
Val(T5_36110043.Text) + Val(T4_36110043.Text) + Val(T1_36110043.Text)
T14_36110043.Text =
Val(T4_36110043.Text) - Val(T3_36110043.Text)
T15_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T16_36110043.Text =
Val(T2_36110043.Text) / Val(T5_36110043.Text)
T17_36110043.Text =
Val(T1_36110043.Text) - Val(T3_36110043.Text)
T18_36110043.Text =
Val(T4_36110043.Text) + Val(T1_36110043.Text)
T19_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T20_36110043.Text = Val(T3_36110043.Text)
/ Val(T5_36110043.Text)
T21_36110043.Text =
Val(T3_36110043.Text) + Val(T2_36110043.Text)
T22_36110043.Text =
Val(T1_36110043.Text) - Val(T2_36110043.Text)
T23_36110043.Text =
Val(T5_36110043.Text) * Val(T1_36110043.Text)
T24_36110043.Text =
Val(T4_36110043.Text) + Val(T5_36110043.Text) / Val(T2_36110043.Text)
T25_36110043.Text =
Val(T2_36110043.Text) * Val(T4_36110043.Text) - Val(T1_36110043.Text)
T26_36110043.Text =
Val(T2_36110043.Text) / Val(T5_36110043.Text) + Val(T4_36110043.Text)
T27_36110043.Text =
Val(T3_36110043.Text) + Val(T2_36110043.Text) * Val(T3_36110043.Text)
T28_36110043.Text =
Val(T2_36110043.Text) / Val(T1_36110043.Text) * Val(T3_36110043.Text)
T29_36110043.Text =
Val(T3_36110043.Text) * Val(T1_36110043.Text) - Val(T4_36110043.Text)
T30_36110043.Text =
Val(T4_36110043.Text) / Val(T5_36110043.Text) + Val(T1_36110043.Text)
End Sub
End Class
TERAKHIR,,,SAVE
DAN UNTUK MENJALANKAN PROGRAM INI CLICK STAR DEBUGGING
SUKSES.......
Tidak ada komentar:
Posting Komentar