Latihan_07_46110006

Latihan_07_46110006

1.      Deskripsi from

Object Label

Terdapat dua label (yang bertuliskan “Masukkan  Angka dan Hasil Perhitungan).

Object TexBox

Terdapat tiga puluh textbox ( 5 status input, 25 status read only). Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan sedangkan 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 ABC().,, script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Event :

Button click

Property :

Property TextBox ==> ReadOnly=True

1.      Cara Membuat From Latihan 07 :

1.      Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.   Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_07_46110006”

3.  Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Button. 

                                               Merah : Button

                                               Biru : TextBox

      4.  Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

        Public Class Latihan_07_46110006

Private Sub fitri()

        K846110006.Text = K246110006.Text + K446110006.Text

        K946110006.Text = K346110006.Text - K246110006.Text

        K1046110006.Text = K446110006.Text * K546110006.Text

        K1146110006.Text = K446110006.Text / K246110006.Text

        K1246110006.Text = K346110006.Text + K546110006.Text

        K1346110006.Text = K346110006.Text * K246110006.Text

        K1446110006.Text = K546110006.Text - K346110006.Text

        K1546110006.Text = K346110006.Text / K246110006.Text

        K1646110006.Text = K546110006.Text - K346110006.Text

        K1746110006.Text = K446110006.Text + K146110006.Text

        K1846110006.Text = K246110006.Text * K546110006.Text

        K1946110006.Text = K546110006.Text / K446110006.Text

        K2046110006.Text = K446110006.Text + K346110006.Text

        K2146110006.Text = K546110006.Text - K146110006.Text

        K2246110006.Text = K346110006.Text * K446110006.Text

        K2346110006.Text = K246110006.Text / K546110006.Text

        K2446110006.Text = K346110006.Text - K246110006.Text

        K2546110006.Text = K246110006.Text * K446110006.Text

        K2646110006.Text = K146110006.Text + K246110006.Text

        K2746110006.Text = K446110006.Text / K546110006.Text

        K2846110006.Text = K246110006.Text + K546110006.Text

    End Sub

    Private Sub Hitung1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung1.Click

        K646110006.Text = Val(K146110006.Text) + Val(K546110006.Text)

        K746110006.Text = Val(K246110006.Text) + Val(K446110006.Text)

        K2946110006.Text = Val(K346110006.Text) + Val(K246110006.Text)

        K3046110006.Text = Val(K246110006.Text) + Val(K146110006.Text)

        fitri()

    End Sub

    Private Sub Hitung2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung2.Click

        K646110006.Text = Val(K346110006.Text) - Val(K246110006.Text)

        K746110006.Text = Val(K546110006.Text) - Val(K446110006.Text)

        K2946110006.Text = Val(K446110006.Text) - Val(K246110006.Text)

        K3046110006.Text = Val(K246110006.Text) - Val(K146110006.Text)

        fitri()

    End Sub

    Private Sub Hitung3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung3.Click

        K646110006.Text = Val(K146110006.Text) * Val(K546110006.Text)

        K746110006.Text = Val(K246110006.Text) * Val(K446110006.Text)

        K2946110006.Text = Val(K346110006.Text) * Val(K246110006.Text)

        K3046110006.Text = Val(K246110006.Text) * Val(K146110006.Text)

        fitri()

    End Sub

End Class

3.      Langkah untuk menjalankan from 07 :

1.    Klik start debugging.

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

3.    Kemudin Klik hitung1,  hitung2,  hitung3 maka akan muncul nilai hasil dari yang anda input.