Membuat Kalukator Sederhana Dengan Visual Basic 2010

Kali ini Saya akan membagi ilmu pertama saya "Membuat Kalkulator Sederhana Dengan Visual Basic 2010" langsung saja caranya:

1. Buat Design Form 1

• 1 Label (judul"KALKULATORKU"
• 1 Textbox (tempat muncul angka hasil kalkulator)
• 19 Button (untuk tombol-tombol)

     2.  Isi Syntax (kode program) 

• Masukkan terlebih dahulu syntax berikut ini di bawah "public class form1" 

Dim Nilai1, Nilai2, Hasil As Single
 Dim Sharedoperator As String

• Untuk Button Angka 0 s/d 9

           Untuk Button 0

If TextBox1.Text = "0 Then" Then
            TextBox1.Text = "0"
        Else : TextBox1.Text = TextBox1.Text & "0"

          Untuk Button 1

If TextBox1.Text = "0 Then" Then
            TextBox1.Text = "1"
        Else : TextBox1.Text = TextBox1.Text & "1" 

Untuk Button 2 s/d 9 anda hanya mengganti angka seperti gambar di bawah ini:

• Untuk Button (+,-,X,/)

       Nilai1 = Val(TextBox1.Text)
        Sharedoperator = "+"
        TextBox1.Text = ""

Syntax di atas adalah untuk button (+) untuk (-),(x),(/) tinggal ganti nilai "+'" seperti gambar dibawah ini:

• Untuk Button minus (MIN)

TextBox1.Text = "-" & Val(TextBox1.Text)

• Untuk Button hapus data atau clear (C)

         TextBox1.Text = ""
        Nilai1 = "0"
        Sharedoperator = ""

• Untuk Button titik (.)

        TextBox1.Text = TextBox1.Text & "."

• Untuk Button samadengan (=)

       If Sharedoperator = "+" Then
            Hasil = Nilai1 + Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf Sharedoperator = "-" Then
            Hasil = Nilai1 - Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf Sharedoperator = "*" Then
            Hasil = Nilai1 * Val(TextBox1.Text)
            TextBox1.Text = Hasil
        ElseIf Sharedoperator = "/" Then
            Hasil = Nilai1 / Val(TextBox1.Text)
            TextBox1.Text = Hasil
        End If

Sekian dulu tulisan saya tentang Visual Basic, mudah-mudahan saya dapat ilmu lagi untuk dibagi buat pembaca blog ini.