Deskripsi dan Prosedur Latihan_07_36110039

    Deskripsi Form Latihan_07_36110039

 Terdapat tiga object yaitu label, textbox, dan button:

1.    Object Label
Terdapat dua label (yang bertuliskan masukkan angka dan hasil perhitungan).

2.    Object TextBox
Terdapat tiga puluh TextBox (lima status input, dua puluh lima status ReadOnly).

3.   Object Button
Terdapat tiga object button (Hitung1, Hitung2, dan Hitung3). Pada object TextBox 6, 7, 29, dan 30 memiliki rumus yang berbeda setiap button hitung. Sedangkan object TextBox 8 sampai 28 memiliki rumus yang sama setiap button hitung.


     Script Unique
Pada saat call prosedur
Private Sub gabungan()
TextBox8_36110039.Text = Val(TextBox5_36110039.Text) / Val(TextBox4_36110039.Text) * Val(TextBox1_36110039.Text)
Dst.

Pada saat Button click
Hitung1:
TextBox6_36110039.Text = Val(TextBox1_36110039.Text) + Val(TextBox3_36110039.Text) - Val(TextBox2_36110039.Text)
TextBox7_36110039.Text = Val(TextBox2_36110039.Text) * Val(TextBox4_36110039.Text) / Val(TextBox5_36110039.Text)
gabungan()
TextBox29_36110039.Text = Val(TextBox2_36110039.Text) + Val(TextBox3_36110039.Text) * Val(TextBox1_36110039.Text)
TextBox30_36110039.Text = Val(TextBox2_36110039.Text) / Val(TextBox5_36110039.Text) + Val(TextBox3_36110039.Text)

Hitung2:
TextBox6_36110039.Text = Val(TextBox2_36110039.Text) + Val(TextBox3_36110039.Text) - Val(TextBox1_36110039.Text)
    TextBox7_36110039.Text = Val(TextBox5_36110039.Text) * Val(TextBox7_36110039.Text) / Val(TextBox5_36110039.Text)
    gabungan()
    TextBox29_36110039.Text = Val(TextBox1_36110039.Text) + Val(TextBox27_36110039.Text) * Val(TextBox28_36110039.Text)
    TextBox30_36110039.Text = Val(TextBox3_36110039.Text) * Val(TextBox8_36110039.Text) - Val(TextBox9_36110039.Text)

Hitung3:
TextBox6_36110039.Text = Val(TextBox6_36110039.Text) + Val(TextBox3_36110039.Text) - Val(TextBox9_36110039.Text)
TextBox7_36110039.Text = Val(TextBox5_36110039.Text) / Val(TextBox7_36110039.Text) + Val(TextBox4_36110039.Text)
gabungan()
TextBox29_36110039.Text = Val(TextBox22_36110039.Text) + Val(TextBox25_36110039.Text) * Val(TextBox2_36110039.Text)
TextBox30_36110039.Text = Val(TextBox23_36110039.Text) * Val(TextBox28_36110039.Text) / Val(TextBox8_36110039.Text)


     Even
Hit1_36110039_Click

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan Latihan_07_36110039:

1.    Klik Start dan pilih Microsoft Visual Studio 2008.
       

2.    Klik menu file dan pilih New Project.
       

3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
      

4.    Klik menu view dan pilih toolbox.
      

5.    Kemudian pilih object Label dan buat sebanyak 2. Pada properti text masing-masing label, isilah kalimat berikut: Masukkan angka dan Hasil Perhitungan.

6.    Kemudian pilih object textbox dan buat sebanyak 30 (duapuluh lima status ReadOnly dan 5 textbox status input).

7.    Kemudian pilih object Button dan buat sebanyak 3. Isi properti text masing-masing menjadi Hitung1, Hitung2, Hitung3, lalu properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


8.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
      


9.    Klik 2x Hitung1 sehingga muncul perintah berikutnya dan masukkan rumus seperti ini:
Private Sub Hit1_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hit1_36110039.Click
        TextBox6_36110039.Text = Val(TextBox1_36110039.Text) + Val(TextBox3_36110039.Text) - Val(TextBox2_36110039.Text)
        TextBox7_36110039.Text = Val(TextBox2_36110039.Text) * Val(TextBox4_36110039.Text) / Val(TextBox5_36110039.Text)
        gabungan()
        TextBox29_36110039.Text = Val(TextBox2_36110039.Text) + Val(TextBox3_36110039.Text) * Val(TextBox1_36110039.Text)
        TextBox30_36110039.Text = Val(TextBox2_36110039.Text) / Val(TextBox5_36110039.Text) + Val(TextBox3_36110039.Text)

End Sub

10.    Klik 2x Hitung2 sehingga muncul perintah berikutnya dan masukkan rumus seperti ini:
Private Sub Hit2_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hit2_36110039.Click
        TextBox6_36110039.Text = Val(TextBox2_36110039.Text) + Val(TextBox3_36110039.Text) - Val(TextBox1_36110039.Text)
        TextBox7_36110039.Text = Val(TextBox5_36110039.Text) * Val(TextBox7_36110039.Text) / Val(TextBox5_36110039.Text)
        gabungan()
        TextBox29_36110039.Text = Val(TextBox1_36110039.Text) + Val(TextBox27_36110039.Text) * Val(TextBox28_36110039.Text)
        TextBox30_36110039.Text = Val(TextBox3_36110039.Text) * Val(TextBox8_36110039.Text) - Val(TextBox9_36110039.Text)

End Sub

11.    Klik 2x Hitung3 sehingga muncul perintah berikutnya dan masukkan rumus seperti ini:
Private Sub Hit3_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hit3_36110039.Click
        TextBox6_36110039.Text = Val(TextBox6_36110039.Text) + Val(TextBox3_36110039.Text) - Val(TextBox9_36110039.Text)
        TextBox7_36110039.Text = Val(TextBox5_36110039.Text) / Val(TextBox7_36110039.Text) + Val(TextBox4_36110039.Text)
        gabungan()
        TextBox29_36110039.Text = Val(TextBox22_36110039.Text) + Val(TextBox25_36110039.Text) * Val(TextBox2_36110039.Text)
        TextBox30_36110039.Text = Val(TextBox23_36110039.Text) * Val(TextBox28_36110039.Text) / Val(TextBox8_36110039.Text)
End Sub

12.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging dan isi kolom yang perlu diisi dan klik tombol Hitung1, Hitung2, dan Hitung3 untuk mengetahui fungsi dan hasilnya.