Latihan_07_46110002

1. Deskripsi from

 Object Label

Terdapat dua label (yang bertuliskan “MASUKKAN ANGKA, HASIL PERHITUNGAN).

 Object Textbox

Terdapat tiga puluh textbox (lima status input; 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.

Object Button

Terdapat tiga object button (HITUNG1, HITUNG2,HITUNG3). Untuk TextBox 6, 7, 29, dan 30 memiliki rumus yang berbeda tiap button hitung. Sedangkan TextBox 8 sampai 28 memilik rumus yang sama tiap button hitung. Jadi hasil dari TextBox 6, 7, 29, dan 30 akan berbeda untuk tiap button hitung karena rumusnya berbeda pula.

Script Unique

Private Sub xyz().,, 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

2. Cara membuat from 

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan latihan untuk membuka folder

3.      Lalu pilih Project dan pilih add windows from

 4.      Kemudian buat form dan add

5.      Buat desai seperti dibawah ini dgn menggunakan toolbox

6.      klik knan pilih view kode. Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_07_46110002
    Private Sub XYZ()

        HP346110002.Text = Val(MA246110002.Text) * Val(MA146110002.Text)
        HP446110002.Text = Val(MA546110002.Text) / Val(MA446110002.Text)
        HP546110002.Text = Val(HP1446110002.Text) + Val(HP446110002.Text)
        HP646110002.Text = Val(MA446110002.Text) * Val(MA146110002.Text)
        HP746110002.Text = Val(HP346110002.Text) - Val(HP346110002.Text)
        HP846110002.Text = Val(HP746110002.Text) + Val(HP746110002.Text)
        HP946110002.Text = Val(MA446110002.Text) - Val(MA446110002.Text)
        HP1046110002.Text = Val(MA446110002.Text) - Val(MA446110002.Text) + Val(MA146110002.Text)
        HP1146110002.Text = Val(MA346110002.Text) / 2
        HP1246110002.Text = Val(MA446110002.Text) / Val(MA146110002.Text)
        HP1346110002.Text = Val(MA546110002.Text) / Val(MA146110002.Text)
        HP1446110002.Text = Val(HP1246110002.Text) + Val(MA146110002.Text)
        HP1546110002.Text = Val(MA346110002.Text) - Val(HP1046110002.Text)
        HP1646110002.Text = Val(MA546110002.Text) * Val(HP846110002.Text)
        HP1746110002.Text = Val(MA446110002.Text) / Val(HP546110002.Text)
        HP1846110002.Text = Val(MA346110002.Text) * Val(HP346110002.Text)
        HP1946110002.Text = Val(MA146110002.Text) + Val(MA246110002.Text)
        HP2046110002.Text = Val(MA546110002.Text) - Val(MA146110002.Text)
        HP2146110002.Text = Val(MA346110002.Text) * Val(MA346110002.Text)
        HP2246110002.Text = Val(MA546110002.Text) - Val(MA246110002.Text)
        HP2346110002.Text = Val(MA446110002.Text) / Val(MA146110002.Text)

    End Sub

    Private Sub HT146110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HT146110002.Click
        HP146110002.Text = Val(MA346110002.Text) * Val(MA346110002.Text)
        HP246110002.Text = Val(HP146110002.Text) / Val(MA546110002.Text)
        HP2446110002.Text = Val(MA146110002.Text) - Val(MA246110002.Text)
        HP2546110002.Text = Val(MA446110002.Text) * Val(MA446110002.Text)
        XYZ()
    End Sub

    Private Sub HT246110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HT246110002.Click
        HP146110002.Text = Val(MA346110002.Text) * Val(MA346110002.Text)
        HP246110002.Text = Val(HP146110002.Text) * Val(MA546110002.Text)
        HP2446110002.Text = Val(MA146110002.Text) * Val(MA246110002.Text)
        HP2546110002.Text = Val(MA446110002.Text) - Val(MA446110002.Text)
        XYZ()
    End Sub

    Private Sub HT346110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HT346110002.Click
        HP146110002.Text = Val(HP1246110002.Text) * Val(MA346110002.Text)
        HP246110002.Text = Val(HP146110002.Text) + Val(MA546110002.Text)
        HP2446110002.Text = Val(MA146110002.Text) - Val(MA546110002.Text)
        HP2546110002.Text = Val(MA346110002.Text) / Val(MA446110002.Text)
        XYZ()
    End Sub
End Class

3. langkah untuk menjalankan from

1.    Klik start debugging.

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

3.    Klik hitung1,  hitung2,  hitung3 maka akan muncul nilai