Select Language



Followers

IT Programmer. Powered by Blogger.

26 December 2012

Kalkulator Sederhana Dengan Visual Basic

"Om Swastiastu"

kalkulator sederhana dengan visual basic
Sedikit bingung mau share apa hari ini, iseng-iseng buka Facebook page ITProgrammer ternyata banyak ada yang request tutorial bikin program aplikasi sederhana. Cara membuat Kalkulator Sederhana Dengan Visual Basic ini salah satunya. :D. Sambil mengingat masa-masa kuliah dulu saat pertama belajar VB pak dosen memberikan tugas membuat kalkulator scientific tapi yang saya buat kalkulator sederhana karena saat itu yang saya dengar beliau hanya bilang membuat kalkulator dengan VB. (jangan ketawa ya).

Oke, biar ceritanya tidak panjang langsung saja ke pembuatan Program Kalkulator Sederhana dengan Visual Basic ini.
Caranya cukup gampang. Pertama siapkan VB kalian dan siapkan tangan kalian di keyboard laptop or PC :). Selanjutnya kita terlebih dahulu membuat tampilan aplikasi ini seperti gambar berikut (sesuaikan dengan selera yaa). caranya gampang, tambahkan sebuah text-box dan beberapa command button
Selanjutnya isi value dan properti dari masing-masing text-box dan command button tersebut seperti tabel dibawah ini.
object properties value
TextBox1 Name:
Text:
txthasil
(kosong)
CommandButton1 Name:
Caption:
btn1
1
CommandButton2 Name:
Caption:
btn2
2
CommandButton3 Name:
Caption:
btn3
3
CommandButton4 Name:
Caption:
btn4
4
CommandButton5 Name:
Caption:
btn5
5
CommandButton6 Name:
Caption:
btn6
6
CommandButton7 Name:
Caption:
btn7
7
CommandButton8 Name:
Caption:
btn8
8
CommandButton9 Name:
Caption:
btn9
9
CommandButton10 Name:
Caption:
btn0
0
CommandButton11 Name:
Caption:
btnTambah
+
CommandButton12 Name:
Caption:
btnKurang
-
CommandButton13 Name:
Caption:
btnKali
x
CommandButton14 Name:
Caption:
btnBagi
:
CommandButton15 Name:
Caption:
btnProses
=
CommandButton16 Name:
Caption:
btnClear
C

Setelah semua textbox dan button terisi value dan name-nya. selanjutnya siapkan jari-jari kalian untuk mengetik sintak/source code dibawah ini (kalau mau cepat bisa copas langsung):p
Dim nilai1, nilai2, As Long
Dim hasil As Double
Dim operasi, txtnilai1, txtnilai2 As String

(Buat Kode diatas terlebih dahulu. Pilih “General” dan “Declarations”)

Private Sub btn1_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "1"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "1"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn2_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "2"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "2"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn3_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "3"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "3"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn4_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "4"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "4"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn5_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "5"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "5"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn6_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "6"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "6"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn7_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "7"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "7"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn8_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "8"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "8"
txthasil.Text = txtnilai2
End If
End Sub
Private Sub btn9_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "9"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "9"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn0_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "0"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "0"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btnTambah_Click(Index As Integer)
operasi = "+"
End Sub

Private Sub btnKurang_Click(Index As Integer)
operasi = "-"
End Sub

Private Sub btnKali_Click(Index As Integer)
operasi = "x"
End Sub

Private Sub btnBagi_Click(Index As Integer)
operasi = ":"
End Sub

Private Sub btnClear_Click()
operasi = ""
txthasil = ""

txtnilai1 = ""
txtnilai2 = ""
End Sub

Private Sub btnProses_Click()
nilai1 = Val(txtnilai1)
nilai2 = Val(txtnilai2)
If operasi = "+" Then
hasil = nilai1 + nilai2
txthasil.Text = hasil
Else
If operasi = "-" Then
hasil = nilai1 - nilai2
txthasil.Text = hasil
Else
If operasi = "x" Then
hasil = nilai1 * nilai2
txthasil.Text = hasil
Else
If operasi = ":" Then
hasil = nilai1 / nilai2
txthasil.Text = hasil
End If
End If
End If
End If
operasi = ""
txtnilai1 = ""
txtnilai2 = ""
txtnilai1 = Str$(hasil)
End Sub

Private Sub Form_Load()
nilai1 = 0
nilai2 = 0
operasi = ""
End Sub

Untuk melihat hasilnya tekan tombol "F5" pada keyboard. Biasakan kalau terjadi error untuk mencari letak dimana kesalahanya agar kita sering terlatih untuk menganalisa source code/sintak yg kita buat. Program Kalkulator Sederhana Dengan Visual Basic ini bisa kalian kembangkan lagi menjadi kalkulator scientific silahkan kalian kembangkan sendiri dulu nanti pasti akan saya share tutorialnya.
 Selamat mencoba. :)

"Om Santhi, Santhi, Santhi Om"



Comments:

Ada 1
Iputu Dirga said...
pada hari 

nice info bli :)

Social Media


Facebook Page

Programming Tutorial


Info


Tips
Downloads
Friends
 
This Blog is proudly powered by Blogger.com | Template by Bali Web Development | Privacy Policy | Rise Up!!