Latihan_07_46110027

Deskripsi from

 Object Label

Pada latihan 07 ini terdapat 2 label (yang bertuliskan “Masukkan Angka” & “Hasil Perhitungan”).

 Object Textbox

Pada form ini terdapat juga 30 textbox (5 status input; 25 status read only). Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Object Button

Pada form ini terdapat 3 object button.Button 1 digunakan untuk menampilkan hasil perhitungan dari nilai” yang telah dimasukkan pada textbox yang berstatus read only. Button 2 dan Button 3 digunakan untuk menampilakn perubahan nilai pada textbox ke 6,7,29 dan 30 disebabkan rumus yang digunakan berbeda dengan yg sebelumnya.

Script Unique

Terdapat Script unik pada form ini yaitu “Private Sub rsty()” script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even

Button click

Property

Property TextBox ==> ReadOnly=True

Langkah-langkah membuat Latihan 07

1. Klik “START” lalu pilih Microsoft Visual Studio 2008

                                                                                                                                                                                  

2.  Setelah itu pilih Kumpulan Latihan seperti berikut in

 

                                                                                                                                                         

3.  Pilih menu Project lalu klik add windows form

 

                                                                                                                                                                        

4.  Ketik nama latihan yang akan dibuat pada kotak “NAME” lalu pilih “add”

 

5.  Buatlah desain seperti berikut menggunakan toolbox

 

6.  Pilih menu “view” klik  “code”

 

                                                                                                                                                                                         

7.  Masukkan rumus berikut:

Public Class Latihan_07_46110027

    Private Sub rsty()

        hp3_46110027.Text = Val(MA1_46110027.Text) * Val(ma2_46110027.Text)

        hp4_46110027.Text = Val(ma2_46110027.Text) * Val(ma4_46110027.Text)

        hp5_46110027.Text = Val(ma4_46110027.Text) * Val(ma5_46110027.Text)

        hp6_46110027.Text = Val(ma5_46110027.Text) * Val(MA1_46110027.Text)

        hp6_46110027.Text = Val(ma4_46110027.Text) * Val(ma3_46110027.Text)

        hp7_46110027.Text = Val(ma4_46110027.Text) * Val(MA1_46110027.Text)

        hp8_46110027.Text = Val(ma4_46110027.Text) * Val(ma5_46110027.Text)

        hp9_46110027.Text = Val(ma3_46110027.Text) * Val(MA1_46110027.Text)

        hp10_46110027.Text = Val(ma3_46110027.Text) * Val(ma2_46110027.Text)

        hp11_46110027.Text = Val(ma3_46110027.Text) * Val(ma4_46110027.Text)

        hp12_46110027.Text = Val(ma3_46110027.Text) * Val(ma5_46110027.Text)

        hp13_46110027.Text = Val(ma2_46110027.Text) * Val(MA1_46110027.Text)

        hp14_46110027.Text = Val(ma2_46110027.Text) * Val(ma3_46110027.Text)

        hp15_46110027.Text = Val(ma2_46110027.Text) * Val(ma5_46110027.Text)

        hp16_46110027.Text = Val(MA1_46110027.Text) + Val(ma2_46110027.Text)

        hp17_46110027.Text = Val(MA1_46110027.Text) + Val(ma3_46110027.Text)

        hp18_46110027.Text = Val(MA1_46110027.Text) + Val(ma4_46110027.Text)

        hp19_46110027.Text = Val(MA1_46110027.Text) + Val(ma5_46110027.Text)

        hp20_46110027.Text = Val(ma2_46110027.Text) + Val(ma3_46110027.Text)

        hp21_46110027.Text = Val(MA1_46110027.Text) - Val(ma2_46110027.Text)

        hp22_46110027.Text = Val(MA1_46110027.Text) / Val(ma2_46110027.Text)

        hp23_46110027.Text = Val(MA1_46110027.Text) / Val(ma5_46110027.Text)

    End Sub

    Private Sub htg1_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles htg1_46110027.Click

        hp1_46110027.Text = Val(MA1_46110027.Text) - Val(ma4_46110027.Text)

        hp2_46110027.Text = Val(ma2_46110027.Text) - Val(ma3_46110027.Text)

        hp24_46110027.Text = Val(ma3_46110027.Text) / Val(ma2_46110027.Text)

        hp25_46110027.Text = Val(ma4_46110027.Text) / Val(MA1_46110027.Text)

        rsty()

    End Sub

    Private Sub htg2_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles htg2_46110027.Click

        hp1_46110027.Text = Val(ma3_46110027.Text) * Val(ma4_46110027.Text)

        hp2_46110027.Text = Val(ma2_46110027.Text) - Val(ma4_46110027.Text)

        hp24_46110027.Text = Val(ma3_46110027.Text) + Val(ma2_46110027.Text)

        hp25_46110027.Text = Val(ma5_46110027.Text) / Val(MA1_46110027.Text)

        rsty()

    End Sub

    Private Sub htg3_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles htg3_46110027.Click

        hp1_46110027.Text = Val(ma3_46110027.Text) * Val(ma3_46110027.Text)

        hp2_46110027.Text = Val(ma4_46110027.Text) - Val(ma2_46110027.Text)

        hp24_46110027.Text = Val(ma2_46110027.Text) + Val(ma2_46110027.Text)

        hp25_46110027.Text = Val(MA1_46110027.Text) / Val(ma5_46110027.Text)

        rsty()

    End Sub

End Class

Langkah – Langkah Menjalankan Form 07

        1.    Klik start debugging,

     2.    Isi text box yang berstatus input, sesuai dengan angka pilihan anda,

    3.    Untuk mengetahui hasil perhitungan, klik hitung1 atau hitung2 atau hitung3.