Membuat Kalkulator Dengan Visual Basic

Membuat Kalkulator Dengan Visual Basic

Selamat Malam. . .
Pada Kesempatan Saya Kali Ini Saya Akan Berbagi Tutorial Bagi Kalian Yang Suka Sama Yang Namanya Programming. Dengan Visual Basic.

Siapa Sih Yang Nggak Tau Visual Basic ?

Di Kalangan Programmer Visual Basic Bukanlah Hal Yang Baru Melainkan Hal Yang Lama. .
Visual Basic Merupakan Aplikasi Yang Diciptakan Oleh Microsoft Corp. Yang Berguna Bagi Kalian-Kalian Yang Suka Menciptakan Sebuah Program Hasil Karya Kalian Sendiri
. 

Nah Pada Tutorial Saya Kali Ini Saya Akan Membahas Tentang Bagaimana Cara Membuat Aplikasi Calculator Hasil Kalian Sendiri.  .

Tidak Sulit Kok.  .

Langsung Aja Deh Kita Mulai. .

1. Buka Aplikasi Visual Basic Milik Kalian Masing-Masing. Jika Kalian Belum Punya Silahkan Download Di Sini

Klik "Windows Form Application"

2. Buatlah 4 Text Box Dan Beberapa Tombol Kemudian Namailah Sesuai Dengan Standar Kalkulator. .
Kalian Bisa Contoh Gambar Di Bawah Ini :

3. Copy Paste Kode Perintah Di Bawah Ini Ke Tombol Nomer Pada Kalkulator

TextBox1.Text = TextBox1.Text & 1 -->  Untuk Tombol 1

TextBox1.Text = TextBox1.Text & 2 -->  Untuk Tombol 2
TextBox1.Text = TextBox1.Text & 3 -->  Untuk Tombol 3
TextBox1.Text = TextBox1.Text & 4 -->  Untuk Tombol 4
TextBox1.Text = TextBox1.Text & 5 -->  Untuk Tombol 5
TextBox1.Text = TextBox1.Text & 6 -->  Untuk Tombol 6
TextBox1.Text = TextBox1.Text & 7 -->  Untuk Tombol 7
TextBox1.Text = TextBox1.Text & 8 -->  Untuk Tombol 8
TextBox1.Text = TextBox1.Text & 9 -->  Untuk Tombol 9

TextBox1.Text = TextBox1.Text & 0 -->  Untuk Tombol 0

Maka Hasilnya Akan :

4. Langkah Ke Empat Adalah Memasukkan Kode Perintah Pada Tombol Penjumlah (+),Pengurang (-),Pembagi (:),Pengali (X) Dan Juga Hasil (=)

Masukkan Kode Di Bawah Ini Sesuai Dengan Perinthnya Di Atas . .

Perintah Untuk Menjumlah ANGKA (+)

        TextBox4.Text = "" & TextBox1.Text
        TextBox3.Text = "+"
        TextBox1.Clear()

Perintah Untuk Mengurangi ANGKA (-)

        TextBox4.Text = "" & TextBox1.Text
        TextBox3.Text = "-"
        TextBox1.Clear()

Perintah Untuk Mengalikan ANGKA (X/*)

        TextBox4.Text = "" & TextBox1.Text
        TextBox3.Text = "I"
        TextBox1.Clear()

Perintah Untuk Membagi ANGKA (:)

        TextBox4.Text = "" & TextBox1.Text
        TextBox3.Text = ":"
        TextBox1.Clear()

Perintah Untuk Tombol Sama Dengan (=)

 TextBox2.Text = TextBox1.Text
        If TextBox3.Text = "+" Then
            TextBox1.Text = Val(TextBox4.Text) + Val(TextBox2.Text)
        End If
        If TextBox3.Text = "-" Then
            TextBox1.Text = Val(TextBox4.Text) - Val(TextBox2.Text)
        End If
        If TextBox3.Text = "I" Then
            TextBox1.Text = Val(TextBox4.Text) * Val(TextBox2.Text)
        End If
        If TextBox3.Text = ":" Then
            TextBox1.Text = Val(TextBox4.Text) / Val(TextBox2.Text)
        End If

Dan Kode Perintah Yang Terkahir Adalah Untuk Tombol "Del" Penghapus.
Ketikan Kode Di Bawah Ini :

TextBox1.Clear()

Maka Akan Seperti Ini : 

5. Dan Langkah Yang Terakhir Adalah Menge-TES Program Kalian Apakah Sudah Berhasil Atau Belum [Klik Debug --> Start Debugging]

Dan Hasilnya :