Latihan_07_46110045

Deskripsi :

Form 7 ada  3 object yaitu label, textbox, dan button.

Object label :

Terdapat 2 label bertuliskan masukkan angka, dan hasil perhitungan.

Object textbox : 

Ada 30 textbox. Status input digunakan untuk menginput nilai. Status Read Only digunakan untuk menampilkan hasilnya.

Object button :

Terdapat 3 buah button yaitu hitung 1, hitung 2 dan hitung 3.

Cara membuat form 7 :

Masukkan rumus seperti ini

Public Class Latihan_07_46110045

    Private Sub dina()
        tbg846110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text)
        tbg946110045.Text = Val(tbt146110045.Text) + Val(tbt346110045.Text)
        tbg1046110045.Text = Val(tbt146110045.Text) + Val(tbt446110045.Text)
        tbg1146110045.Text = Val(tbt146110045.Text) + Val(tbt546110045.Text)
        tbg1246110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text)
        tbg1346110045.Text = Val(tbt146110045.Text) + Val(tbt346110045.Text)
        tbg1446110045.Text = Val(tbt146110045.Text) + Val(tbt446110045.Text)
        tbg1546110045.Text = Val(tbt146110045.Text) + Val(tbt546110045.Text)
        tbg1646110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text)
        tbg1746110045.Text = Val(tbt146110045.Text) + Val(tbt346110045.Text)
        tbg1846110045.Text = Val(tbt146110045.Text) + Val(tbt446110045.Text)
        tbg1946110045.Text = Val(tbt146110045.Text) + Val(tbt546110045.Text)
        tbg2046110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text)
        tbg2146110045.Text = Val(tbt146110045.Text) + Val(tbt346110045.Text)
        tbg2246110045.Text = Val(tbt146110045.Text) + Val(tbt446110045.Text)
        tbg2346110045.Text = Val(tbt146110045.Text) + Val(tbt546110045.Text)
        tbg2446110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text)
        tbg2546110045.Text = Val(tbt146110045.Text) + Val(tbt346110045.Text)
        tbg2646110045.Text = Val(tbt146110045.Text) + Val(tbt446110045.Text)
        tbg2746110045.Text = Val(tbt146110045.Text) + Val(tbt546110045.Text)
        tbg2846110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text)

    End Sub
    Private Sub ht146110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ht146110045.Click
        tbg646110045.Text = Val(tbt146110045.Text) + Val(tbt246110045.Text)
        tbg746110045.Text = Val(tbt146110045.Text) + Val(tbt346110045.Text)
        tbg2946110045.Text = Val(tbt146110045.Text) + Val(tbt446110045.Text)
        tbg3046110045.Text = Val(tbt146110045.Text) + Val(tbt546110045.Text)
        dina()
    End Sub

    Private Sub ht246110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ht246110045.Click
        tbg646110045.Text = Val(tbt246110045.Text) + Val(tbt146110045.Text)
        tbg746110045.Text = Val(tbt346110045.Text) + Val(tbt446110045.Text)
        tbg2946110045.Text = Val(tbt446110045.Text) + Val(tbt546110045.Text)
        tbg3046110045.Text = Val(tbt546110045.Text) + Val(tbt146110045.Text)
        dina()
    End Sub

    Private Sub ht346110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ht346110045.Click
        tbg646110045.Text = Val(tbt246110045.Text) + Val(tbt146110045.Text) / 100
        tbg746110045.Text = Val(tbt346110045.Text) + Val(tbt446110045.Text) * 100
        tbg2946110045.Text = Val(tbt446110045.Text) + Val(tbt546110045.Text) / 100
        tbg3046110045.Text = Val(tbt546110045.Text) + Val(tbt146110045.Text) * 100
        dina()
    End Sub
End Class

Even :

Button click.

Script unique :

Private Sub dina()... script ini digunakan sebagai procedure yang digunakan pada setiap fungsi yang diinginkan oleh anda.

Langkah-langkah menjalankan form 7 :

1. Isilah text box sesuai dengan angka pilihan anda.

2. Untuk mengetahui hasil perhitungannya, klik hitung1 atau hitung2 atau hitung3.