√ Membuat Kalukator Sederhana Dengan Visual Basic 2010

Membuat Kalukator Sederhana Dengan Visual Basic 2010

January 23, 2014

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

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.

Jhonni Saputra