Latihan_07_36110033

     

Latihan_07_36110033

A.    Object-object dalam Latihan_07_36110033:

           1.      Object Label

Terdapat dua label dalam latihan 07 yang bertuliskan (masukkan angka dan hasil perhitungan) pada text dalam property tiap label yang dibuat.

            2.      Object Textbox

Terdapat tiga puluh textbox. Lima status input dan dua puluh lima status read only. Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

            3.      Object Button

Terdapat tiga object button (Hitung 1, Hitung 2, dan Hitung 3). Untuk TextBox 6, 7, 29, dan 30 dimana textboxnya bernama PI­_36110033= TextBox 6, P2­_36110033= TextBox 7, P29­_36110033= TextBox 29 dan P30­_36110033= TextBox 30 memiliki rumus yang berbeda tiap button hitung. Sedangkan TextBox 8 sampai 28 memilik rumus yang sama tiap button hitung1, 2 dan 3.

B.     Script Unique

Untuk button Hitung 1:

P1_36110033.Text = Val(M1_36110033.Text) * Val(M2_36110033.Text)

Untuk button Hitung 2:

P1_36110033.Text = Val(M1_36110033.Text) + Val(M5_36110033.Text)

Untuk button Hitung 3:

P1_36110033.Text = Val(M5_36110033.Text) / Val(P16_36110033.Text)

           

C.    Even

Private Sub ilha()

H1_36110033_Click

H2_36110033_Click

H3_36110033_Click

D.    Property

Property TextBox ==> ReadOnly=True

Prosedur

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

1.    Buka Ms. Visual Studio

2.    Lalu akan muncul jendela awal Microsoft Visual Studio

3.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

 Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add.. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project

4.    Buat text pada form dengan menggunakan label, sebanyak 2 label. Dengan nama text masing-masing bernama masukkan angka dan hasil perhitungan

5.  Buat kolom sesuai dengan design pada latihan 07 dengan mengguanakan textbox,  sebanyak 30 kolom. Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor stambuk. 5 textbox menggunakan readonly false dan selebihnya menggunakan readonly true.

6.    Buat 3 tombol sesuai dengan design pada latihan 07 dengan menggunakan button. Kemudian beri nama text hitung 1, hitung 2 dan hitung 3 kemudian  beri nama apa saja.

7.  Untuk menuliskan rumus pada latihan 07, klik dua kali pada Hitung 1, hitung 2 dan hitung 3 kumudian tuliskan rumusnya dan lembar kerja untuk menulis rumus akan muncul saat mengklik tombol hitung 1. Adapun rumusnya dapat dituliskan seperti dibawah ini namun sebelumnya buat dulu prosedur Private sub ilha beserta rumusnya sebagai berikut:

Public Class Latihan_07_36110033

Private Sub ilha()

P3_36110033.Text = Val(M3_36110033.Text) * Val(M1_36110033.Text)

P4_36110033.Text = Val(M2_36110033.Text) * Val(M4_36110033.Text)

P5_36110033.Text = Val(M5_36110033.Text) * Val(M3_36110033.Text)

P6_36110033.Text = Val(P1_36110033.Text) * Val(M4_36110033.Text)

P7_36110033.Text = Val(M3_36110033.Text) * Val(P3_36110033.Text)

P8_36110033.Text = Val(P8_36110033.Text) * Val(P9_36110033.Text)

P9_36110033.Text = Val(M5_36110033.Text) * Val(P1_36110033.Text)

P10_36110033.Text = Val(P5_36110033.Text)* Val(P7_36110033.Text)

P11_36110033.Text = Val(P3_36110033.Text)* Val(M2_36110033.Text)

P12_36110033.Text = Val(P8_36110033.Text) *Val(P1_36110033.Text)

P13_36110033.Text = Val(P4_36110033.Text) *Val(M5_36110033.Text)

P14_36110033.Text = Val(M4_36110033.Text)*Val(M2_36110033.Text)

P15_36110033.Text=Val(P12_36110033.Text)*Val(P20_36110033.Text)

P16_36110033.Text=Val(P10_36110033.Text) * Val(P2_36110033.Text)

P17_36110033.Text=Val(P7_36110033.Text) * Val(P10_36110033.Text)

P18_36110033.Text=Val(P3_36110033.Text) * Val(P6_36110033.Text)

P19_36110033.Text=Val(P9_36110033.Text) * Val(P19_36110033.Text)

P20_36110033.Text=Val(P14_36110033.Text) * Val(P5_36110033.Text)

P21_36110033.Text=Val(P12_36110033.Text) * Val(P7_36110033.Text)

P22_36110033.Text=Val(P6_36110033.Text) * Val(M1_36110033.Text)

P23_36110033.Text=Val(P17_36110033.Text) * Val(M3_36110033.Text)

       End Sub

       Rumus hitung 1:

   Private Sub H1_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1_36110033.Click

P1_36110033.Text = Val(M1_36110033.Text) * Val(M2_36110033.Text)

P2_36110033.Text = Val(M4_36110033.Text) * Val(M3_36110033.Text)

P24_36110033.Text= Val(P6_36110033.Text) * Val(M1_36110033.Text)

P25_36110033.Text=Val(P17_36110033.Text) * Val(M3_36110033.Text)

End Sub

      Rumus hitung 2:

Private Sub H2_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H2_36110033.Click

P1_36110033.Text = Val(M1_36110033.Text) + Val(M5_36110033.Text)

P2_36110033.Text = Val(M4_36110033.Text) / Val(P5_36110033.Text)

P24_36110033.Text = Val(P6_36110033.Text) * Val(P7_36110033.Text)

      P25_36110033.Text = Val(P10_36110033.Text) * Val(P24_36110033.Text)

      End Sub

      Rumus hitung 3:

Private Sub H3_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H3_36110033.Click

      P1_36110033.Text = Val(M5_36110033.Text) / Val(P16_36110033.Text)

P2_36110033.Text = Val(P3_36110033.Text) - Val(P6_36110033.Text)

      P24_36110033.Text = Val(P7_36110033.Text) + Val(M1_36110033.Text)

P25_36110033.Text = Val(P16_36110033.Text) * Val(P10_36110033.Text)

End Sub

End Class

8.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

9.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data

10.  Setelah melaksanakan semua prosedur maka latihan 07 selesai.