Cara Membuat DataPenhitungan Dengan Visual Basic 2005

Buat dulu tampilan seperti gambar di bawah, yang terdiri dari beberapa perkakas antara lain sbb:

1. 5 lebel. Beri nama sperti di gambar.

2. 4 Textbox.

-   Txt box 1 beri nama txtA.

-   Txt box 2 beri nama txtB.

-   Txt box 3 beri nama txtC.

Enabel kasih False

-   Txt box 4 beri nama txtD.

Enabel kasih False

Jika sudah atur semua tampilan…!

Maka Kopas aja Coding yang tersedia di baeah ini.

Public Class Form1

    Private Sub txtA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtA.TextChanged

        txtC.Text = Val(txtA.Text) * Val(txtB.Text)

        txtD.Text = (Val(Me.txtC.Text) + Val(Me.txtA.Text)) / Val(txtB.Text)

    End Sub

    Private Sub txtB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtB.TextChanged

        Me.txtC.Text = Val(txtA.Text) * Val(txtB.Text)

        txtD.Text = (Val(txtC.Text) + Val(txtA.Text)) / Val(txtB.Text)

    End Sub

    Private Sub btnMulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMulai.Click

        txtA.Clear()

        txtB.Clear()

        txtA.Focus()

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

End Class

Nah…. Selesai dehhh….!!!!

Mudah ken……!!!!!!

TTD

     “USERHACK”