Contoh Program Visual Basic Kalkulator Ilmiah

Hallo Coding Maniak Sudahkah Anda Ngoding Hari Ini ??

Hari ini saya akan membagikan contoh program yang baru yaitu contoh program visual basic kalkulator ilmiah, ya kali ini kita akan belajar visual basic buat yang sudah kesal dengan tampilan full biru pascal atau tampilan putih-putih Dev C++ yang ini akan lebih berwarna.

Jujur saja dulu pas awal-awal belajar pemrograman saya diajari pascal dan Dev C++ saya kesal dengan tampilan keduanya, yang satu biru full yang satu putih rasanya mata gak bisa tahan lama-lama ngeliatinnya, agak girang juga pas pertama belajar visual basic akhirnya lebih berwarna itu yang ada di pikiran saya dulu.

Oke stop disitu saja ceritanya, saya disini menggunakan visual studio2010 tidak ada alasan khusus sih cuma emang sudah familiar aja dengan yang ini, kalau kalian menggunakan versi yang lain tidak akan jauh berbeda kok, kecuali kalau versi yang dipakainya jauh lebih tua seperti seperti vb 6.

Ini gambaran kalkulator yang akan kita buat

Untuk warna, background, jenis font, ukuran, tata letak bisa disesuaikan lah ya sesuai selera tinggal diatur saja dibagian properties disebelah kanan.

Backcolor = mengganti warna latar

Backgroundimage = untuk mengganti gambar latar

Backgroundumagelayout = untuk mengatur posisi gambar latar

Font = untuk mengatur jenis dan ukuran huruf

Forecolor = untuk mengatur warna huruf

Cari textbox dan button di toolbox sebelah kiri, seperti yang tertera gambar diatas dan mulai buat item-itemnya.

Oke bagian ini yang harus diatur sama(bisa beda tapi nanti beda lagi codingnya), salah satu saran dosen saya dulu name itemnya diganti biar ingat posisinya kita sedang ngoding yang mana, disini saya juga mengganti name dari tiap itemnya jadi nggak button1, button2, textbox1 dll lagi.

Jenis	Text	Name
Form1	Kalkulator	kalku
Textbox		layar
Button	Cos	klikcos
Button	Sin	kliksin
Button	Tan	kliktan
Button	1	A1
Button	2	A2
Button	3	A3
Button	4	A4
Button	5	A5
Button	6	A6
Button	7	A7
Button	8	A8
Button	9	A9
Button	0	A0
Button	,	klikkoma
Button	Hapus	klikhapus
Button	=	klikhasil
Button	+	kliktambah
Button	─	klikkurang
Button	%	klikpersen
Button	X	klikkali
Button	÷	klikbagi
Button	^	klikpangkat
Button	√	klikakar
Button	C	klikclear
Button	Log x	kliklog
Button	EXIT	klikexit

Setelah semua diatur kita lanjut ke codingnya tekan F7 lalu mulai masukan codingnya dibawah Public Class kalku, disini kita akan mendeklarasikan variabelnya, supaya bisa dipakai oleh semua fungsi/sub yang lain.

  Dim angka As Double

    Dim hasil As Double

    Dim operasi As String

    Const Phi As Double = 3.14159265358979

Seperti gambar dibawah ini

Double klik di button/tombol angka 1

Lalu masukan code dibawah ini.

Iflayar.Text = "0" Then

            layar.Text = "1"

        Else

            layar.Text = layar.Text & "1"

        End If

Seperti gambar dibawah ini

Double klik di button/tombol angka 2, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "2"

        Else

            layar.Text = layar.Text & "2"

        End If

Lakukan seperti di button/tombol angka 1

Double klik di button/tombol angka 3, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "3"

        Else

            layar.Text = layar.Text & "3"

        End If

Double klik di button/tombol angka 4, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "4"

        Else

            layar.Text = layar.Text & "4"

        End If

Double klik di button/tombol angka 5, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "5"

        Else

            layar.Text = layar.Text & "5"

        End If

Double klik di button/tombol angka 6, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "6"

        Else

            layar.Text = layar.Text & "6"

        End If

Double klik di button/tombol angka 7, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "7"

        Else

            layar.Text = layar.Text & "7"

        End If

Double klik di button/tombol angka 8, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "8"

        Else

            layar.Text = layar.Text & "8"

        End If

Double klik di button/tombol angka 9, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "9"

        Else

            layar.Text = layar.Text & "9"

        End If

Double klik di button/tombol angka 0, lalu masukan code dibawah ini.

 If layar.Text = "0" Then

            layar.Text = "0"

        Else

            layar.Text = layar.Text & "0"

        End If

Double klik di button/tombol koma, lalu masukan code dibawah ini.

Iflayar.Text = "0" Then

            layar.Text = layar.Text + "."

        Else

            layar.Text = layar.Text + "."

        End If

Kita lanjut ke bagian operasi perhitungannya, untuk yang pertama double klik button/tombol + seperti gambar dibawah ini.

Lalu masukan kode dibawah ini.

Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka + Val(layar.Text)

        End If

        operasi = "+"

        layar.Text = ""

seperti gambar dibawah ini

Double klik di button/tombol  ─ (kurang), lalu masukan code dibawah ini.

Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka - Val(layar.Text)

        End If

        operasi = "-"

        layar.Text = ""

lakukan seperti di butto/tombol +

Double klik di button/tombol  % (persen), lalu masukan code dibawah ini.

Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka / 100

        End If

        operasi = "%"

        layar.Text = ""

Double klik di button/tombol  X (kali), lalu masukan code dibawah ini.

Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka * Val(layar.Text)

        End If

        operasi = "X"

        layar.Text = ""

Double klik di button/tombol  ÷ (bagi), lalu masukan code dibawah ini.

Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka / Val(layar.Text)

        End If

        operasi = "÷"

        layar.Text = ""

Double klik di button/tombol  ^ (pangkat), lalu masukan code dibawah ini.

Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka ^ Val(layar.Text)

        End If

        operasi = "^"

        layar.Text = ""

Double klik di button/tombol  √ (akar), lalu masukan code dibawah ini.

Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka ^ (1 / 2)

        End If

        operasi = "√"

        layar.Text = ""

Double klik di button/tombol Cos, lalu masukan code dibawah ini.

 layar.Text = Math.Cos(layar.Text * (Phi / 180))

seperti dgambar dibawah

Double klik di button/tombol Sin, lalu masukan code dibawah ini.

 layar.Text = Math.Sin(layar.Text * (Phi / 180))

Double klik di button/tombol Tan, lalu masukan code dibawah ini.

 layar.Text = Math.Tan(layar.Text * (Phi / 180))

Double klik di button/tombol log x, lalu masukan code dibawah ini.

 layar.Text = Math.log(layar.Text)

Double klik di button/tombol = (sama dengan), lalu masukan code dibawah ini.

  Select Case operasi

            Case"+"

                hasil = angka + Val(layar.Text)

                layar.Text = hasil

            Case"-"

                hasil = angka - Val(layar.Text)

                layar.Text = hasil

            Case"%"

                hasil = angka / 100

                layar.Text = hasil

            Case"X"

                hasil = angka * Val(layar.Text)

                layar.Text = hasil

            Case"÷"

                hasil = angka / Val(layar.Text)

                layar.Text = hasil

            Case"^"

                hasil = angka ^ Val(layar.Text)

                layar.Text = hasil

            Case"√"

                hasil = angka ^ 0.5

                layar.Text = hasil

        End Select

Seperti gambar dibawah

Double klik di button/tombol hapus, lalu masukan code dibawah ini.

Iflayar.Text.Length <> 0 Then

            layar.Text = layar.Text.Remove(layar.TextLength - 1, 1)

        End If

Untuk yang belum tahu ini berfungsi untuk menghapus angka dilayar satu persatu, tidak seperti C atau clear screen yang menghapus semua sekaligus.

Double klik di button/tombol C, lalu masukan code dibawah ini.

layar.Text = "0"

angka = 0

hasil = 0

operasi = ""

Double klik di button/tombol EXIT, lalu masukan code dibawah ini.

  End

Oke semua beres tinggal kalian coba debugging kalau semuanya benar harusnya bisa jalan karena ini sudah dites dulu tadi, dibawah ini ada source code lengkapnya.

Seperti biasanya saya lebih menyarankan kalian menulis manual source code nya tidak asal copas supaya terbiasa, salah-salah sedikit wajar lah ya disitulah letak belajar dan latihannya.

Public Class kalku

    Dim angka As Double

    Dim hasil As Double

    Dim operasi As String

    Const Phi As Double = 3.14159265358979

    Private Sub A1_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA1.Click

        Iflayar.Text = "0" Then

            layar.Text = "1"

        Else

            layar.Text = layar.Text & "1"

        End If

    End Sub

    Private Sub A2_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA2.Click

        Iflayar.Text = "0" Then

            layar.Text = "2"

        Else

            layar.Text = layar.Text & "2"

        End If

    End Sub

    Private Sub A3_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA3.Click

        Iflayar.Text = "0" Then

            layar.Text = "3"

        Else

            layar.Text = layar.Text & "3"

        End If

    End Sub

    Private Sub A4_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA4.Click

        Iflayar.Text = "0" Then

            layar.Text = "4"

        Else

            layar.Text = layar.Text & "4"

        End If

    End Sub

    Private Sub A5_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA5.Click

        Iflayar.Text = "0" Then

            layar.Text = "5"

        Else

            layar.Text = layar.Text & "5"

        End If

    End Sub

    Private Sub A6_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA6.Click

        Iflayar.Text = "0" Then

            layar.Text = "6"

        Else

            layar.Text = layar.Text & "6"

        End If

    End Sub

    Private Sub A7_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA7.Click

        Iflayar.Text = "0" Then

            layar.Text = "7"

        Else

            layar.Text = layar.Text & "7"

        End If

    End Sub

    Private Sub A8_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA8.Click

        Iflayar.Text = "0" Then

            layar.Text = "8"

        Else

            layar.Text = layar.Text & "8"

        End If

    End Sub

    Private Sub A9_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA9.Click

        Iflayar.Text = "0" Then

            layar.Text = "9"

        Else

            layar.Text = layar.Text & "9"

        End If

    End Sub

    Private Sub A0_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesA0.Click

        Iflayar.Text = "0" Then

            layar.Text = "0"

        Else

            layar.Text = layar.Text & "0"

        End If

    End Sub

    Private Sub klikkoma_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikkoma.Click

        Iflayar.Text = "0" Then

            layar.Text = layar.Text + "."

        Else

            layar.Text = layar.Text + "."

        End If

    End Sub

    Private Sub kliktambah_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handleskliktambah.Click

        Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka + Val(layar.Text)

        End If

        operasi = "+"

        layar.Text = ""

    End Sub

    Private Sub klikkurang_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikkurang.Click

        Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka - Val(layar.Text)

        End If

        operasi = "-"

        layar.Text = ""

    End Sub

    Private Sub klikpersen_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikpersen.Click

        Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka / 100

        End If

        operasi = "%"

        layar.Text = ""

    End Sub

    Private Sub klikkali_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikkali.Click

        Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka * Val(layar.Text)

        End If

        operasi = "X"

        layar.Text = ""

    End Sub

    Private Sub klikbagi_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikbagi.Click

        Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka / Val(layar.Text)

        End If

        operasi = "÷"

        layar.Text = ""

    End Sub

    Private Sub klikpangkat_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikpangkat.Click

        Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka ^ Val(layar.Text)

        End If

        operasi = "^"

        layar.Text = ""

    End Sub

    Private Sub klikakar_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikakar.Click

        Ifangka = "0" Then

            angka = Val(layar.Text)

        Else

            angka = angka ^ (1 / 2)

        End If

        operasi = "√"

        layar.Text = ""

    End Sub

    Private Sub klikcos_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikcos.Click

        layar.Text = Math.Cos(layar.Text * (Phi / 180))

    End Sub

    Private Sub kliksin_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handleskliksin.Click

        layar.Text = Math.Sin(layar.Text * (Phi / 180))

    End Sub

    Private Sub kilktan_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handleskilktan.Click

        layar.Text = Math.Tan(layar.Text * (Phi / 180))

    End Sub

    Private Sub kliklog_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handleskliklog.Click

        layar.Text = Math.Log(layar.Text)

    End Sub

    Private Sub klikhasil_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikhasil.Click

        Select Case operasi

            Case"+"

                hasil = angka + Val(layar.Text)

                layar.Text = hasil

            Case"-"

                hasil = angka - Val(layar.Text)

                layar.Text = hasil

            Case"%"

                hasil = angka / 100

                layar.Text = hasil

            Case"X"

                hasil = angka * Val(layar.Text)

                layar.Text = hasil

            Case "÷"

                hasil = angka / Val(layar.Text)

                layar.Text = hasil

            Case"^"

                hasil = angka ^ Val(layar.Text)

                layar.Text = hasil

            Case"√"

                hasil = angka ^ 0.5

                layar.Text = hasil

        End Select

    End Sub

    Private Sub klikhapus_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikhapus.Click

        Iflayar.Text.Length <> 0 Then

            layar.Text = layar.Text.Remove(layar.TextLength - 1, 1)

        End If

    End Sub

    Private Sub klikclear_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikclear.Click

        layar.Text = "0"

        angka = 0

        hasil = 0

        operasi = ""

    End Sub

    Private Sub klikexit_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handlesklikexit.Click

        End

    End Sub

End Class

Dan ini adalah gambar ketika program dijalankan, disini saya memilih operasi perkalian

Saya mencoba menjelaskannya sejelas-jelasnya jadi ini mungkin sedikit terlalu panjang, tapi saya harap ini akan lebih memudahkan kalian.

Semoga postingan kali ini bermanfaat silahkan tuliskan komentar kalian dibawah, disini kita sama-sama belajar jadi jangan sungkan berkomentar jika ada yang salah atau kurang jelas.

seperti motto blog ini “Dari newbie oleh newbie dan untuk newbie”


Baca Juga
Tutorial Visual Basic Program Menu Restoran
Program C++ Kalkulator Sederhana

Subscribe to receive free email updates: