Latihan_07_46110001

         

          A.    Object-object dalam Latihan_07_46110001 :

1.                          Object Label

pada form latihan 07 Terdapat dua label yang bertuliskan: masukkan angka dan hasil perhitungan.

2.                          Object Textbox

selain itu object texbox pada form ini Terdapat tiga puluh textbox diantaranya lima yang berstatus input; dan dua puluh lima berstatus read only. texbox yang berstatus input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. sedangkan texbox yang berstatus Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

3.                          Object Button

pada form ini Terdapat tiga object button yaitu (Hitung 1, Hitung 2, dan Hitung 3). 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 hanya TextBox 6, 7, 29, dan 30 yang hasilnya akan berbeda nanti  untuk tiap button hitung karena rumus yang dimasukkan juga berbeda.

      B.     Script Unique

Untuk button Hitung 1:

TB6_46110001.Text = Val(TB5_46110001.Text) - Val(TB1_46110001.Text)

Untuk button Hitung 2:

TB6_46110001.Text = Val(TB5_46110001.Text) * Val(TB1_46110001.Text)

Untuk button Hitung 3:

TB6_46110001.Text = Val(TB1_46110001.Text) + Val(TB4_46110001.Text)

Bahri()digunakan untuk memunculkan data-data/cara2 yang telah dibuat sebelumnya tanpa perlu mnegetik  ulang isi data/cara2 tersebut.

C.     Even

H1_46110001.Click

H2_46110001.Click

H3_46110001.Click

D.    Property

Property TextBox ==> ReadOnly=True

LANGKAH-LANGKAH PENYELESAIAN

  1.  Langkah pertama dalam membuat form/ latihan 07 ialah, pada desktop anda, pilih microsoft        visual      studio 2008.seperti pada langkah dibawah ini,

 

           

  2.Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

3.  Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

 

4.    atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini.

 

5.  Buatlah form seperti gambar dibawah ini, dengan cara, pilih toolbox kemudian pada toolbox tersebut pilih dan buat label sebanyak 2 label,(kotak yang berwarna abu-abu adalah label) dan texbox sebanyak 30 (kotak yang pinggirannya berwarna hitam adalah texbox). 25 diantaranya berstatus readonly, serta button sebanyak 3(kotak merah "button), buatlah form seperti pada gambar dibawah ini.

6.     Setelah itu buatlah rumus untuk menjalankan form tersebut. Sperti rumus dibawah ini.(rumus dibawah ini merupakan rumus untuk menjalankan form diatas)

Public Class Latihan_07_46110001
    Private Sub Bahri()
        TB8_46110001.Text = Val(TB3_46110001.Text) * Val(TB4_46110001.Text)
        TB9_46110001.Text = Val(TB4_46110001.Text) * Val(TB5_46110001.Text)
        TB10_46110001.Text = Val(TB5_46110001.Text) * Val(TB1_46110001.Text)
        TB11_46110001.Text = Val(TB1_46110001.Text) * Val(TB2_46110001.Text)
        TB12_46110001.Text = Val(TB2_46110001.Text) * Val(TB3_46110001.Text)
        TB13_46110001.Text = Val(TB1_46110001.Text) * Val(TB3_46110001.Text)
        TB14_46110001.Text = Val(TB1_46110001.Text) * Val(TB4_46110001.Text)
        TB15_46110001.Text = Val(TB1_46110001.Text) * Val(TB5_46110001.Text)
        TB16_46110001.Text = Val(TB2_46110001.Text) * Val(TB3_46110001.Text)
        TB17_46110001.Text = Val(TB2_46110001.Text) * Val(TB4_46110001.Text)
        TB18_46110001.Text = Val(TB2_46110001.Text) * Val(TB5_46110001.Text)
        TB19_46110001.Text = Val(TB3_46110001.Text) * Val(TB1_46110001.Text)
        TB20_46110001.Text = Val(TB4_46110001.Text) * Val(TB4_46110001.Text)
        TB21_46110001.Text = Val(TB1_46110001.Text) * Val(TB1_46110001.Text)
        TB22_46110001.Text = Val(TB2_46110001.Text) * Val(TB2_46110001.Text)
        TB23_46110001.Text = Val(TB3_46110001.Text) * Val(TB3_46110001.Text)
        TB24_46110001.Text = Val(TB5_46110001.Text) * Val(TB5_46110001.Text)
        TB25_46110001.Text = Val(TB5_46110001.Text) * Val(TB2_46110001.Text)
        TB26_46110001.Text = Val(TB4_46110001.Text) * Val(TB5_46110001.Text)
        TB27_46110001.Text = Val(TB5_46110001.Text) * Val(TB2_46110001.Text)
        TB28_46110001.Text = Val(TB1_46110001.Text) * Val(TB2_46110001.Text)
    End Sub
    Private Sub H1_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1_46110001.Click
        TB6_46110001.Text = Val(TB5_46110001.Text) - Val(TB1_46110001.Text)
        TB7_46110001.Text = Val(TB1_46110001.Text) * Val(TB2_46110001.Text)
        TB29_46110001.Text = Val(TB2_46110001.Text) / Val(TB3_46110001.Text)
        TB30_46110001.Text = Val(TB1_46110001.Text) / Val(TB3_46110001.Text)
        Bahri()
    End Sub

    Private Sub H2_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H2_46110001.Click
        TB6_46110001.Text = Val(TB5_46110001.Text) * Val(TB1_46110001.Text)
        TB7_46110001.Text = Val(TB4_46110001.Text) * Val(TB3_46110001.Text)
        TB29_46110001.Text = Val(TB2_46110001.Text) + Val(TB3_46110001.Text)
        TB30_46110001.Text = Val(TB1_46110001.Text) + Val(TB3_46110001.Text)
        Bahri()
    End Sub

    Private Sub H3_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H3_46110001.Click
        TB6_46110001.Text = Val(TB1_46110001.Text) + Val(TB4_46110001.Text)
        TB7_46110001.Text = Val(TB4_46110001.Text) - Val(TB3_46110001.Text)
        TB29_46110001.Text = Val(TB2_46110001.Text) * Val(TB3_46110001.Text)
        TB30_46110001.Text = Val(TB1_46110001.Text) * Val(TB3_46110001.Text)
        Bahri()
    End Sub
End Class

7. jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini

8. langkah selanjutnya adalah Isi text box yang berstatus input, sesuai dengan angka yang anda inginkan, 

9. Klik hitung1,  hitung2,  hitung3 maka akan muncul nilai pada texbox yang berstatus read only