CONTOH OPERATOR PADA VB.NET 2008

1. Buat project baru
2. Desain tampilan form seperti gambar dibawah ini :

3.  Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form3	Name Text	Form3 Operator
Label1	Text	Nilai1
Label2	Text	Operator
Label3	Text	Nilai2
Label4	Text	Hasil
TextBox1	Name	TxtNilai1
ComboBox1	Name	CmbOperator
TextBox2	Name	TxtNilai2
TextBox3	Name	TxtHasil
Button1	Name Text	BtnProses Proses

 4.  Klik ganda pada Form3, kemudian ketikkan kode program berikut ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

              CmbOperator.Items.Add("+")

              CmbOperator.Items.Add("-")

              CmbOperator.Items.Add("x")

              CmbOperator.Items.Add("/")

       CmbOperator.Items.Add("Sisa")

CmbOperator.Items.Add("Pangkat")

CmbOperator.Items.Add("<>")

CmbOperator.Items.Add("<")

CmbOperator.Items.Add(">")

CmbOperator.Items.Add("<=")

CmbOperator.Items.Add(">=")

CmbOperator.Items.Add("Like")

CmbOperator.Items.Add("Not")

CmbOperator.Items.Add("And")

CmbOperator.Items.Add("Or")

CmbOperator.Items.Add("Xor")

CmbOperator.Items.Add("+p")

CmbOperator.Items.Add("&")

End Sub

5.  Klik ganda pada tombol Proses, lalu ketikkan kode program berikut ini :

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Select Case CmbOperator.Text

            Case "+"

                TxtHasil.Text = Val(TxtNilai1.Text) + Val(TxtNilai2.Text)

            Case "-"

                TxtHasil.Text = Val(TxtNilai1.Text) - Val(TxtNilai2.Text)

            Case "x"

                TxtHasil.Text = Val(TxtNilai1.Text) * Val(TxtNilai2.Text)

            Case "/"

                TxtHasil.Text = Val(TxtNilai1.Text) / Val(TxtNilai2.Text)

    Case "Sisa"

                TxtHasil.Text = Val(TxtNilai1.Text) mod Val(TxtNilai2.Text)

           Case "Pangkat"

                TxtHasil.Text = Val(TxtNilai1.Text) ^ Val(TxtNilai2.Text)

            Case "<>"

                TxtHasil.Text = TxtNilai1.Text <> TxtNilai2.Text

            Case "<"

                TxtHasil.Text = TxtNilai1.Text < TxtNilai2.Text

            Case ">"

                TxtHasil.Text = TxtNilai1.Text > TxtNilai2.Text

            Case "<="

                TxtHasil.Text = TxtNilai1.Text <= TxtNilai2.Text

            Case ">="

                TxtHasil.Text = TxtNilai1.Text >= TxtNilai2.Text

            Case "Like"

                TxtHasil.Text = TxtNilai1.Text Like TxtNilai2.Text

            Case "Not"

                TxtHasil.Text = Not TxtNilai1.Text = TxtNilai2.Text

            Case "And"

                TxtHasil.Text = TxtNilai1.Text = "STIKOM" And TxtNilai2.Text = "STIKOM"

            Case "Or"

                TxtHasil.Text = TxtNilai1.Text = "STIKOM" Or TxtNilai2.Text = "STIKOM"

            Case "Xor"

                TxtHasil.Text = TxtNilai1.Text = "STIKOM" Xor TxtNilai2.Text = "STIKOM"

            Case "+P"

                TxtHasil.Text = TxtNilai1.Text + TxtNilai2.Text

            Case "&"

                TxtHasil.Text = TxtNilai1.Text & TxtNilai2.Text

            End Select

End Sub

6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
    toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi anda

hasilnya dapat di lihat pada gambar di bawah ini :

untuk mendownload projectnya klik disini