VB.NET (Operator Arimetik)

بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ

 “Dengan menyebut nama Allah Yang Maha Pemurah 

lagi Maha Penyayang”

Asalamualaikum...

Perkongsian pertama, walaupun cuma yang basic je harap dapat membantu pada yang baru nak kenal VB.NET. Sebelum nak buat satu projek yang lagi mencabar kita kena lah faham dulu yang basic ok. Kena lah rajin-rajin "try and error"

Ok malas dah nak merepek merapu meraban bagai, ni contoh koding untuk sistem (Operator Arimetik).

Perlukan 8textbox, 6button dan 8label.

Koding :-

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'operasi (+)
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'operasi (-)
        TextBox4.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'operasi (*)
        TextBox5.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'operasi (/)
        TextBox6.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'operasi (\)
        TextBox7.Text = Val(TextBox1.Text) \ Val(TextBox2.Text)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'operasi (mod)
        TextBox8.Text = Val(TextBox1.Text) Mod Val(TextBox2.Text)
    End Sub

End Class

Output :-

 

p/s : Selamat mencuba...