Latihan_07_46110055

Deskripsi Latihan 07

Pada Form  Latihan 07  terdapat 3 object yaitu  label, textbox, dan button.

Object Label

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

Object Textbox

Pada form ini terdapat juga 30 textbox :

1-5 , merupakan status input yang digunakan untuk menginput nilai yang digunakan dalam perhitungan.

6-30 , merupakan status Read Only yang digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.

Dimana textbox 6,7,29,30 rumusnya berbeda pada setiap Tombol HITUNG, sedangkan textbox 8-28 rumusnya sama untuk semua tombol HITUNG 1,2,dan3.

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

Private Sub feby() à 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

Cara  membuat Latihan 07 :

1. Buka  Microsoft Visual Studio 2008

2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan “Latihan 07”

6. Pilih menu “view” klik  “code”

7. Masukkan rumus berikut :

Public Class Latihan_07_46110055

    Private Sub feby()

        tb846110055.Text = Val(tb146110055.Text) + Val(tb246110055.Text)

        tb946110055.Text = Val(tb246110055.Text) + Val(tb346110055.Text)

        tb1046110055.Text = Val(tb446110055.Text) + Val(tb546110055.Text)

        tb1146110055.Text = Val(tb246110055.Text) + Val(tb146110055.Text)

        tb1246110055.Text = Val(tb346110055.Text) + Val(tb246110055.Text)

        tb1346110055.Text = Val(tb146110055.Text) + Val(tb546110055.Text)

        tb1446110055.Text = Val(tb146110055.Text) + Val(tb346110055.Text)

        tb1546110055.Text = Val(tb546110055.Text) + Val(tb346110055.Text)

        tb1646110055.Text = Val(tb446110055.Text) + Val(tb546110055.Text)

        tb1746110055.Text = Val(tb346110055.Text) + Val(tb446110055.Text)

        tb1846110055.Text = Val(tb246110055.Text) + Val(tb546110055.Text)

        tb1946110055.Text = Val(tb346110055.Text) + Val(tb146110055.Text)

        tb2046110055.Text = Val(tb346110055.Text) + Val(tb246110055.Text)

        tb2146110055.Text = Val(tb546110055.Text) + Val(tb146110055.Text)

        tb2246110055.Text = Val(tb246110055.Text) + Val(tb446110055.Text)

        tb2346110055.Text = Val(tb146110055.Text) + Val(tb346110055.Text)

        tb2446110055.Text = Val(tb546110055.Text) + Val(tb346110055.Text)

        tb2546110055.Text = Val(tb146110055.Text) + Val(tb246110055.Text)

        tb2646110055.Text = Val(tb246110055.Text) + Val(tb346110055.Text)

        tb2746110055.Text = Val(tb346110055.Text) + Val(tb246110055.Text)

        tb2846110055.Text = Val(tb546110055.Text) + Val(tb446110055.Text)

    End Sub

    Private Sub hit146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hit146110055.Click

        tb646110055.Text = Val(tb146110055.Text) + Val(tb246110055.Text)

        tb746110055.Text = Val(tb146110055.Text) + Val(tb346110055.Text)

        tb2946110055.Text = Val(tb346110055.Text) + Val(tb546110055.Text)

        tb3046110055.Text = Val(tb546110055.Text) + Val(tb446110055.Text)

    End Sub

    Private Sub hit246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hit246110055.Click

        tb646110055.Text = Val(tb246110055.Text) * Val(tb346110055.Text)

        tb746110055.Text = Val(tb546110055.Text) * Val(tb446110055.Text)

        tb2946110055.Text = Val(tb2446110055.Text) * Val(tb346110055.Text)

        tb3046110055.Text = Val(tb246110055.Text) * Val(tb446110055.Text)

        feby()

    End Sub

    Private Sub hit346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hit346110055.Click

        tb646110055.Text = Val(tb346110055.Text) - Val(tb146110055.Text)

        tb746110055.Text = Val(tb446110055.Text) - Val(tb246110055.Text)

        tb2946110055.Text = Val(tb546110055.Text) - Val(tb346110055.Text)

        tb3046110055.Text = Val(tb446110055.Text) - Val(tb546110055.Text)

        feby()

    End Sub

End Class

Langkah - langkah menjalankan Latihan 07 :

1.    Klik start debugging,

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

3.    Untuk mengetahui hasil perhitungan, klik HITUNG 1 atau HITUNG 2 atau HITUNG 3.