Tutorial Membuat Operator Perhitungan Sederhana Pada Visual Basic 2010

Tutorial selanjutnya mengeneai Visual Basic 2010 pada hari ini yaitu membuat operator perhitungan sederhana, admin akan langsung memberikan caranya berupa implementasi langsung membuat form tersebut, siapa tahu kelak tutorial ini bisa jadi referensi permirsa semua karena belajar apalagi pemirsa yang kuliah di jurusan Teknik Infomatika (TI) coding adalah makanan sehari-hari, mencoba program itu kapanpun selagi ada keinginan untuk bisa, terus berlatih dan tertatih-tatih sampai sukses, sekarang buka VB nya dengan lembaran project baru dan lihat turorialnya.

1. Buat form seperti gambar ini.

2. Tambahkan kontrol ke form seperti gambar diatas dan atir propertiesnya sebagai berikut.

Object	Properties	Nilai
Form1	Nama Text	Form1 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

3, Klik ganda pada form1 dan masukan coding dibawah ini.

        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("&")

4. Klik dua kali tombol proses lalu masukan coding dibawah ini.

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 = "WARNET" And TxtNilai2.Text = "WARNET"
            Case "Or"
                TxtHasil.Text = TxtNilai1.Text = "WARNET" Or TxtNilai2.Text = "WARNET"
            Case "Xor"
                TxtHasil.Text = TxtNilai1.Text = "WARNET" Xor TxtNilai2.Text = "WARNET"
            Case "+p"
                TxtHasil.Text = TxtNilai1.Text + TxtNilai2.Text
            Case "&"
                TxtHasil.Text = TxtNilai1.Text & TxtNilai2.Text
        End Select

5. Jalankan aplikasi dengan menekan tomnol F5 atau melalui icon start debugging di sekitar toolbar atas bisa pula melalu.i Debug > Start Debugging.

 

6. Jika perlu bisa simpan projectnya.