Latihan_07_46110020

Form Latihan 07

Deskripsi Form Latihan 07

Dalam Form latihan 07 terdapat tiga object yaitu Label, Textbox,  dan Button.

Object Label :

Yang dimana dalam form ini terdapat Dua Label yang bertuliskan yaitu (Masukkan Angka dan Hasil Perhitungan).

Object Textbox :

Dalam form ini hanya terdapat 30 Textbox yang digunakan yaitu (5 untuk status input dan 25 untuk status ReadOnly). Status input ini digunakan untuk menginput  data, sedangkan untuk status ReadOnly digunakan untuk menampilkan hasil analisa dari perhitungan yang dilakukan.

Object Button :

Pada Form ini terdapat tiga object Button yang digunakan untuk Menampilkan Hasil Analisa dari penginputan data dari textbox input dan dalam ketiga button ini tertuliskan “hitung 1, hitung 2, dan hitung 3” dimana tombol hitung 1 (textbox  8 sampai 28) itu menampilkan semua hasil yg sama di analisis dari textbox keselurahan, sedangkan tombol hitung 2 dan 3 menampilkan analisis yang berubah pada tombol button ke 6,7,9, dan 30 karena keduanya meiliki rumus yang berbeda.

Cara dalam Pembuatan Latihan 07 :

1.     Klik Start lalu pilih Microsoft Visual Studio 2008

2.     Buka Project dalam visual basic.

3.     Kemudian pilih Add Windows form

4.     Lalu add new item dan rename file “form.vb menjadi Latihan_07_46110020”

5.     Dan muncullah form untuk memulai mengerjakan latihan 07

6.     Kemudian Gunakanlah Toolbox untuk memilih object Label, Textbox, dan Button.

7.     Lalu Gunakanlah 2 label, 30 textbox, dan 3 Button.

-          Merah = Label

-          Pink = TextBox

-          Biru = Button

8.     Kemudian setelah itu Klik kanan pada form tersebut lalu muncul View Code.Lalu isilah rumus seperti berikut :

Public Class Latihan_07_46110020

    Private Sub yuni()

        TB846110020.Text = Val(TB346110020.Text) + Val(TB246110020.Text)

        TB946110020.Text = Val(TB546110020.Text) - Val(TB446110020.Text)

        TB1046110020.Text = Val(TB446110020.Text) * Val(TB346110020.Text)

        TB1146110020.Text = Val(TB546110020.Text) / Val(TB146110020.Text)

        TB1246110020.Text = Val(TB246110020.Text) + Val(TB246110020.Text) - Val(TB446110020.Text)

        TB1346110020.Text = Val(TB546110020.Text) - Val(TB346110020.Text) * Val(TB246110020.Text)

        TB1446110020.Text = Val(TB346110020.Text) / Val(TB246110020.Text) + Val(TB446110020.Text)

        TB1546110020.Text = Val(TB446110020.Text) - Val(TB346110020.Text)

        TB1646110020.Text = Val(TB346110020.Text) * Val(TB546110020.Text)

        TB1746110020.Text = Val(TB246110020.Text) + Val(TB446110020.Text)

        TB1846110020.Text = Val(TB146110020.Text) / Val(TB446110020.Text) + Val(TB546110020.Text)

        TB1946110020.Text = Val(TB546110020.Text) - Val(TB246110020.Text)

        TB2046110020.Text = Val(TB346110020.Text) * Val(TB246110020.Text)

        TB2146110020.Text = Val(TB546110020.Text) - Val(TB446110020.Text) + Val(TB546110020.Text)

        TB2246110020.Text = Val(TB346110020.Text) + Val(TB446110020.Text) - Val(TB546110020.Text)

        TB2346110020.Text = Val(TB546110020.Text) * Val(TB446110020.Text)

        TB2446110020.Text = Val(TB246110020.Text) / Val(TB346110020.Text)

        TB2546110020.Text = Val(TB446110020.Text) - Val(TB346110020.Text) + Val(TB446110020.Text)

        TB2646110020.Text = Val(TB346110020.Text) * Val(TB146110020.Text) - Val(TB346110020.Text)

        TB2746110020.Text = Val(TB446110020.Text) + Val(TB346110020.Text) - Val(TB246110020.Text)

        TB2846110020.Text = Val(TB546110020.Text) / Val(TB346110020.Text) + Val(TB446110020.Text)

    End Sub

    Private Sub HITUNG1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG1.Click

        TB646110020.Text = Val(TB546110020.Text) + Val(TB446110020.Text)

        TB746110020.Text = Val(TB246110020.Text) + Val(TB346110020.Text) - Val(TB346110020.Text)

        TB2946110020.Text = Val(TB546110020.Text) + Val(TB446110020.Text)

        TB3046110020.Text = Val(TB446110020.Text) + Val(TB346110020.Text)

        yuni()

    End Sub

    Private Sub HITUNG2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG2.Click

        TB646110020.Text = Val(TB446110020.Text) - Val(TB546110020.Text)

        TB746110020.Text = Val(TB346110020.Text) - Val(TB246110020.Text) * Val(TB546110020.Text)

        TB2946110020.Text = Val(TB446110020.Text) - Val(TB346110020.Text)

        TB3046110020.Text = Val(TB246110020.Text) - Val(TB546110020.Text)

        yuni()

    End Sub

    Private Sub HITUNG3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG3.Click

        TB646110020.Text = Val(TB546110020.Text) * Val(TB346110020.Text)

        TB746110020.Text = Val(TB246110020.Text) * Val(TB146110020.Text) + Val(TB446110020.Text)

        TB2946110020.Text = Val(TB346110020.Text) * Val(TB546110020.Text)

        TB3046110020.Text = Val(TB546110020.Text) * Val(TB546110020.Text) - Val(TB246110020.Text)

        yuni()

    End Sub

   

End Class

Langkah – langkah untuk menjalankan dari latihan 07 :

              1. Pertama Klik start debugging.

              2.  Lalu, Isi textbox yang berstatus input sesuai dengan angka yang anda inginkan,

         3. Untuk mengetahui hasil perhitungan dari angka yang anda masukkan, klik hitung 1 atau hitung2 atau  hitung3 sesuai dengan yang anda inginkan.

Script Unique :

Script unik yang terdapat pada latihan 07 yaitu “Private Sub yuni()” ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang kita inginkan tanpa mengulang apa isi procedure tersebut.

Event :

ButtonClick

Property

Property textbox è ReadOnly = True