latihan_07_36110036

Deskripsi latihan_7_36110036

A.         Object label

                Terdapat dua  label (yang bertuliskan masukkan angka , dan hasil perhitungan)

B.         Object textbox

      Terdapat 30 textbox ( lima status input, 25 status read only). Status input digunakan untuk memasukkan nilai, sedangkan Status Read Only digunakan untuk menampilkan hasil perhitungan.

C.         Object button

Terdapat tiga object button (hitung1, hitung2, dan hitung3). Tombol Hitung tersebut  digunakan untuk menampilkan hasil perhitungan object TextBox ReadOnly.

D.         Script unique

                   Membuat  call prosedur:

  Private Sub anna()

        nmr8_36110036.Text = Val(nmr5_36110036.Text) / Val(nmr4_36110036.Text) * Val(nmr1_36110036.Text)

        nmr9_36110036.Text = Val(nmr4_36110036.Text) * Val(nmr3_36110036.Text) + Val(nmr2_36110036.Text) 

Untuk button hitung1:

nmr6_36110036.Text = Val(nmr4_36110036.Text) * Val(nmr2_36110036.Text) / Val(nmr1_36110036.Text)

nmr7_36110036.Text = Val(nmr5_36110036.Text) Val(nmr1_36110036.Text) ^ Val(nmr3_36110036.Text)

nmr29_36110036.Text = Val(nmr3_36110036.Text) +   Val(nmr2_36110036.Text) * Val(nmr1_36110036.Text)

nmr30_36110036.Text = Val(nmr5_36110036.Text) - Val(nmr4_36110036.Text) * Val(nmr3_36110036.Text)

anna() 

Untuk button hitung2:

nmr6_36110036.Text = Val(nmr2_36110036.Text) * Val(nmr1_36110036.Text) / Val(nmr3_36110036.Text)

nmr7_36110036.Text = Val(nmr5_36110036.Text) / Val(nmr2_36110036.Text) ^ Val(nmr1_36110036.Text)

nmr29_36110036.Text = Val(nmr4_36110036.Text) ^ Val(nmr1_36110036.Text) * Val(nmr2_36110036.Text)

nmr30_36110036.Text = Val(nmr1_36110036.Text) - Val(nmr4_36110036.Text) + Val(nmr3_36110036.Text)

anna()

Untuk button hitung3:

nmr6_36110036.Text = Val(nmr2_36110036.Text) * Val(nmr3_36110036.Text) - Val(nmr5_36110036.Text)

        nmr7_36110036.Text = Val(nmr5_36110036.Text) / Val(nmr4_36110036.Text) + Val(nmr2_36110036.Text)

        nmr29_36110036.Text = Val(nmr3_36110036.Text) - Val(nmr1_36110036.Text) * Val(nmr5_36110036.Text)

        nmr30_36110036.Text = Val(nmr5_36110036.Text) * Val(nmr2_36110036.Text) * Val(nmr3_36110036.Text)

        anna()

E.  Even

   hitung1_36110036_Click

    hitung2_36110036_Click

 hitung3_36110036_Click

F.      Property

Property TextBox ==> ReadOnly=True

 Langkah-langkah mengerjakan latihan_7_36110036

1.        Buka Ms. Visual Studio

           2.       Buka project yang telah dibuat, dan buka solution explorer

           3.          Klik  kanan nama project ==> add ==> new item

4.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form lalu klik  Add

5.          Kemudian klik file yang disimpan,  maka akan terbuka jendela pekerjaan dari Ms.  Visual Studio 

 6.       Desaign form dengan menggunakan tools pada toolbox

 7.       Buat text pada form dengan menggunakan label:

 a.       Masukkan angka

 b.      Hasil perhitungan

             8.       Buat kolom pada form dengan menggunakan textbox,  sebanyak 30  kolom

 9.    Buat  tombol button:

             a.    Button 1 berisi tulisan hitung1

             b.    Button 2 berisi tulisan hitung2

             c.     Button 3 berisi tulisan hitung3

10.    setelah desaign selesai  dibuatlah rumusnya

               11.    Berikut adalah rumus untuk menjalankan latihan_7_36110036

            Public Class latihan_07_36110036

    Private Sub anna()

        nmr8_36110036.Text = Val(nmr5_36110036.Text) / Val(nmr4_36110036.Text) * Val(nmr1_36110036.Text)

        nmr9_36110036.Text = Val(nmr4_36110036.Text) * Val(nmr3_36110036.Text) + Val(nmr2_36110036.Text)

        nmr10_36110036.Text = Val(nmr2_36110036.Text) + Val(nmr1_36110036.Text) / Val(nmr3_36110036.Text)

        nmr11_36110036.Text = Val(nmr3_36110036.Text) / Val(nmr2_36110036.Text) ^ Val(nmr1_36110036.Text)

        nmr12_36110036.Text = Val(nmr1_36110036.Text) ^ Val(nmr5_36110036.Text) * Val(nmr2_36110036.Text)

        nmr13_36110036.Text = Val(nmr1_36110036.Text) - Val(nmr2_36110036.Text) * Val(nmr4_36110036.Text)

        nmr14_36110036.Text = Val(nmr4_36110036.Text) / Val(nmr1_36110036.Text) + Val(nmr5_36110036.Text)

        nmr15_36110036.Text = Val(nmr3_36110036.Text) ^ Val(nmr1_36110036.Text) * Val(nmr2_36110036.Text)

        nmr16_36110036.Text = Val(nmr2_36110036.Text) / Val(nmr4_36110036.Text) - Val(nmr5_36110036.Text)

        nmr17_36110036.Text = Val(nmr3_36110036.Text) - Val(nmr2_36110036.Text) * Val(nmr4_36110036.Text)

        nmr18_36110036.Text = Val(nmr5_36110036.Text) * Val(nmr3_36110036.Text) / Val(nmr2_36110036.Text)

        nmr19_36110036.Text = Val(nmr1_36110036.Text) + Val(nmr4_36110036.Text) * Val(nmr1_36110036.Text)

        nmr20_36110036.Text = Val(nmr4_36110036.Text) / Val(nmr1_36110036.Text) ^ Val(nmr3_36110036.Text)

        nmr21_36110036.Text = Val(nmr2_36110036.Text) * Val(nmr3_36110036.Text) / Val(nmr5_36110036.Text)

        nmr22_36110036.Text = Val(nmr3_36110036.Text) + Val(nmr4_36110036.Text) * Val(nmr1_36110036.Text)

        nmr23_36110036.Text = Val(nmr5_36110036.Text) * Val(nmr4_36110036.Text) - Val(nmr2_36110036.Text)

        nmr24_36110036.Text = Val(nmr1_36110036.Text) - Val(nmr2_36110036.Text) ^ Val(nmr3_36110036.Text)

        nmr25_36110036.Text = Val(nmr4_36110036.Text) ^ Val(nmr5_36110036.Text) * Val(nmr2_36110036.Text)

        nmr26_36110036.Text = Val(nmr3_36110036.Text) / Val(nmr4_36110036.Text) + Val(nmr2_36110036.Text)

        nmr27_36110036.Text = Val(nmr1_36110036.Text) / Val(nmr4_36110036.Text) ^ Val(nmr5_36110036.Text)

        nmr28_36110036.Text = Val(nmr2_36110036.Text) - Val(nmr1_36110036.Text) * Val(nmr5_36110036.Text)

      

    End Sub

    Private Sub hitung1_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung1_36110036.Click

        nmr6_36110036.Text = Val(nmr4_36110036.Text) * Val(nmr2_36110036.Text) / Val(nmr1_36110036.Text)

        nmr7_36110036.Text = Val(nmr5_36110036.Text) + Val(nmr1_36110036.Text) ^ Val(nmr3_36110036.Text)

        nmr29_36110036.Text = Val(nmr3_36110036.Text) + Val(nmr2_36110036.Text) * Val(nmr1_36110036.Text)

        nmr30_36110036.Text = Val(nmr5_36110036.Text) - Val(nmr4_36110036.Text) * Val(nmr3_36110036.Text)

        anna()

    End Sub

    Private Sub hitung2_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung2_36110036.Click

        nmr6_36110036.Text = Val(nmr2_36110036.Text) * Val(nmr1_36110036.Text) / Val(nmr3_36110036.Text)

        nmr7_36110036.Text = Val(nmr5_36110036.Text) / Val(nmr2_36110036.Text) ^ Val(nmr1_36110036.Text)

        nmr29_36110036.Text = Val(nmr4_36110036.Text) ^ Val(nmr1_36110036.Text) * Val(nmr2_36110036.Text)

        nmr30_36110036.Text = Val(nmr1_36110036.Text) - Val(nmr4_36110036.Text) + Val(nmr3_36110036.Text)

        anna()

    End Sub

    Private Sub hitung3_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung3_36110036.Click

        nmr6_36110036.Text = Val(nmr2_36110036.Text) * Val(nmr3_36110036.Text) - Val(nmr5_36110036.Text)

        nmr7_36110036.Text = Val(nmr5_36110036.Text) / Val(nmr4_36110036.Text) + Val(nmr2_36110036.Text)

        nmr29_36110036.Text = Val(nmr3_36110036.Text) - Val(nmr1_36110036.Text) * Val(nmr5_36110036.Text)

        nmr30_36110036.Text = Val(nmr5_36110036.Text) * Val(nmr2_36110036.Text) * Val(nmr3_36110036.Text)

        anna()

    End Sub

End Class

12.      setelah rumus selesai,  program dijalankan dengan menggunakan start debugging

13.      setelah program jalan maka file disave.