Kalkulator Sederhana Dengan Visual Basic 2010


Dapet tugas dari Dosen?

Chalenge Accepted

Challenge Accepted!

Posting saya kali ini adalah mengenai pemrograman. Program yang saya buat kali ini adalah kalkulator sederhana yang saya buat dengan menggunakan program besutan Microsoft yaitu Microsoft Visual Studio 2010, tepatnya dengan menggunakan bahasa Visual Basic.
Lansung saja inilah programnya :

Kalkulator Sederhana

Kalkulator Sederhana

Saat kita menjalankan program, akan muncul menu utama yang di dalamnya terdapat dua buah textbox masukan yaitu :

  1. Angka Pertama (txtangkapertama)
  2. Angka Kedua (txtangkakedua)

Beberapa tombol antara lain :

  1. Tambah [+] (bttambah)
  2. Kurang [-] (btkurang)
  3. Kali [*] (btkali)
  4. Bagi [/] (btbagi)
  5. Pangkat [^] (btpangkat)
  6. Bersihkan (btbersih)
  7. Keluar (btkeluar)

Anda hanya tinggal memasukan nilai kedalam masing-masing textbox yang sudah tersedia yaitu “Angka Pertama” dan “Angka Kedua”, kemudian menekan tombol yang anda inginkan, apakah “Tambah”, “Kurang”, “Kali”, “Bagi” ataupun “Pangkat”, kemudian program akan menampilkan hasilnya dalam bentuk MessegeBox.
Contoh :

Hasil Keluar Dalam Bentuk Messege Box

Hasil Keluar Dalam Bentuk Messege Box

Tombol “Bersihkan” berfungsi untuk membersihkan kotak isian yang telah terisi dan tombol “Keluar” berfungsi untuk keluar dari program. Saat ingin keluar, anda akan diberi konfirmasi terlebih dahulu, “Anda yakin ingin keluar?” Jika anda menjawab “No”, maka program akan tetap berjalan, jika anda menjawab “Yes” maka program akan ditutup.

Listing Method :

  1. Method pada tombol “Tambah” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a + b
    MsgBox(“Hasil dari ” & a & ” + ” & b & ” adalah ” & c)
  2. Method pada tombol “Kurang” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a – b
    MsgBox(“Hasil dari ” & a & ” – ” & b & ” adalah ” & c)
  3. Method pada tombol “Kali” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a * b
    MsgBox(“Hasil dari ” & a & ” * ” & b & ” adalah ” & c)
  4. Method pada tombol “Bagi” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a / b
    MsgBox(“Hasil dari ” & a & ” / ” & b & ” adalah ” & c)
  5. Method pada tombol “Pangkat” :
    a = txtangkapertama.Text()
    b = txtangkakedua.Text()
    c = a ^ b
    MsgBox(“Hasil dari ” & a & ” ^ ” & b & ” adalah ” & c)
  6. Method pada tombol “Bersihkan” :
    txtangkapertama.Clear()
    txtangkakedua.Clear()
    txtangkapertama.Focus()
  7. Method pada tombol “Keluar” :
    If MsgBox(“Anda yakin ingin keluar?”, vbYesNo + vbQuestion + vbDefaultButton2, “Keluar”) = vbYes Then
    Me.Close()
    End If

Keterangan :
a adalah variabel dari data yang dimasukan pada textbox “Angka Pertama”.
b adalah variabel dari data yang dimasukan pada textbox “Angka Kedua”.
c adalah variabel dari data yang muncul sebagi hasil operasi perhitungan.
Ketiga variabel diatas bertipe Double.

Listing Full Program :
Public Class Form1
Dim a, b, c As Double
Private Sub bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a + b
MsgBox(“Hasil dari ” & a & ” + ” & b & ” adalah ” & c)
End Sub

Private Sub btkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkurang.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a – b
MsgBox(“Hasil dari ” & a & ” – ” & b & ” adalah ” & c)
End Sub

Private Sub btkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkali.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a * b
MsgBox(“Hasil dari ” & a & ” * ” & b & ” adalah ” & c)
End Sub

Private Sub btbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbagi.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a / b
MsgBox(“Hasil dari ” & a & ” / ” & b & ” adalah ” & c)
End Sub

Private Sub btpangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpangkat.Click
a = txtangkapertama.Text()
b = txtangkakedua.Text()
c = a ^ b
MsgBox(“Hasil dari ” & a & ” ^ ” & b & ” adalah ” & c)
End Sub

Private Sub btbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbersih.Click
txtangkapertama.Clear()
txtangkakedua.Clear()
txtangkapertama.Focus()
End Sub

Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
If MsgBox(“Anda yakin ingin keluar?”, vbYesNo + vbQuestion + vbDefaultButton2, “Keluar”) = vbYes Then
Me.Close()
End If
End Sub
End Class

mis

Mission Accomplished!

Sudah jelas? Kalo belum jelas silahkan PM saya, sekian posting saya kali ini, semoga dapat bermanfaat. Arigato 😀
Special Thanks to Mr. Nandang Hermanto http://nandanghermanto.wordpress.com/