PROSEDUR LATIHAN 7:
Ø
Lanjutan
Ø
Pilih
“Add New Item” pada tool
Ø
Lalu
pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”
Ø
Muncullah
form1.vb (Form1 bisa diganti)
Ø
Mulai
bekerja dengan menggunakan tool pada toolbox
Ø
Buat
textbox sebanyak 30 tetapi 25 property ReadOnly textbox di
atur jadi true.
Ø
Untuk
lebih jelasnya perhatikan gambar di bawah ini :
Ø
Buat
3 tombol dengan menggunakan button pada toolbox dan berinama, “Hitung
1”,”Hitung 2”, dan “Hitung 3”
Ø
Setelah
selesai, maka kita masuk pada rumus yaitu :
Public Class Latihan_07_36001155
Private Sub HT1_36001155_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles HT1_36001155.Click
A6_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text)
A7_36001155.Text =
Val(A2_36001155.Text) + Val(A3_36001155.Text)
A8_36001155.Text =
Val(A3_36001155.Text) + Val(A4_36001155.Text)
A9_36001155.Text = Val(A4_36001155.Text)
+ Val(A5_36001155.Text)
A10_36001155.Text =
Val(A5_36001155.Text) + Val(A2_36001155.Text)
A11_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A12_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A13_36001155.Text =
Val(A4_36001155.Text) + Val(A3_36001155.Text)
A14_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text)
A15_36001155.Text =
Val(A4_36001155.Text) + Val(A2_36001155.Text)
A16_36001155.Text = Val(A1_36001155.Text)
+ Val(A3_36001155.Text)
A17_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A18_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A19_36001155.Text =
Val(A1_36001155.Text) + Val(A3_36001155.Text)
A20_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A21_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A22_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A23_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A24_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text)
A25_36001155.Text =
Val(A2_36001155.Text) + Val(A3_36001155.Text)
A26_36001155.Text =
Val(A3_36001155.Text) + Val(A4_36001155.Text)
A27_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A28_36001155.Text =
Val(A5_36001155.Text) + Val(A2_36001155.Text)
A29_36001155.Text =
Val(A2_36001155.Text) + Val(A4_36001155.Text)
A30_36001155.Text =
Val(A2_36001155.Text) + Val(A5_36001155.Text)
End Sub
Private Sub HT2_36001155_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HT2_36001155.Click
A6_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text) / Val(A2_36001155.Text)
A7_36001155.Text =
Val(A2_36001155.Text) + Val(A3_36001155.Text) + Val(A4_36001155.Text)
A8_36001155.Text =
Val(A3_36001155.Text) + Val(A4_36001155.Text)
A9_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A10_36001155.Text =
Val(A5_36001155.Text) + Val(A2_36001155.Text)
A11_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A12_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A13_36001155.Text =
Val(A4_36001155.Text) + Val(A3_36001155.Text)
A14_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text)
A15_36001155.Text =
Val(A4_36001155.Text) + Val(A2_36001155.Text)
A16_36001155.Text =
Val(A1_36001155.Text) + Val(A3_36001155.Text)
A17_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A18_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A19_36001155.Text =
Val(A1_36001155.Text) + Val(A3_36001155.Text)
A20_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A21_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A22_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A23_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A24_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text)
A25_36001155.Text =
Val(A2_36001155.Text) + Val(A3_36001155.Text)
A26_36001155.Text =
Val(A3_36001155.Text) + Val(A4_36001155.Text)
A27_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A28_36001155.Text =
Val(A5_36001155.Text) + Val(A2_36001155.Text)
A29_36001155.Text =
Val(A2_36001155.Text) + Val(A4_36001155.Text) - Val(A5_36001155.Text)
A30_36001155.Text =
Val(A2_36001155.Text) + Val(A5_36001155.Text) * Val(A2_36001155.Text)
End Sub
Private Sub HT3_36001155_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HT3_36001155.Click
A6_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text) * Val(A4_36001155.Text)
A7_36001155.Text =
Val(A2_36001155.Text) + Val(A3_36001155.Text) + Val(A1_36001155.Text)
A8_36001155.Text =
Val(A3_36001155.Text) + Val(A4_36001155.Text)
A9_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A10_36001155.Text =
Val(A5_36001155.Text) + Val(A2_36001155.Text)
A11_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A12_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A13_36001155.Text =
Val(A4_36001155.Text) + Val(A3_36001155.Text)
A14_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text)
A15_36001155.Text =
Val(A4_36001155.Text) + Val(A2_36001155.Text)
A16_36001155.Text =
Val(A1_36001155.Text) + Val(A3_36001155.Text)
A17_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A18_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A19_36001155.Text =
Val(A1_36001155.Text) + Val(A3_36001155.Text)
A20_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A21_36001155.Text = Val(A1_36001155.Text)
+ Val(A4_36001155.Text)
A22_36001155.Text =
Val(A1_36001155.Text) + Val(A4_36001155.Text)
A23_36001155.Text =
Val(A2_36001155.Text) + Val(A1_36001155.Text)
A24_36001155.Text =
Val(A1_36001155.Text) + Val(A2_36001155.Text)
A25_36001155.Text = Val(A2_36001155.Text) +
Val(A3_36001155.Text)
A26_36001155.Text =
Val(A3_36001155.Text) + Val(A4_36001155.Text)
A27_36001155.Text =
Val(A4_36001155.Text) + Val(A5_36001155.Text)
A28_36001155.Text =
Val(A5_36001155.Text) + Val(A2_36001155.Text)
A29_36001155.Text =
Val(A2_36001155.Text) + Val(A4_36001155.Text) - Val(A2_36001155.Text)
A30_36001155.Text =
Val(A2_36001155.Text) + Val(A5_36001155.Text) + Val(A5_36001155.Text)
End Sub
End Class
Tidak ada komentar:
Posting Komentar