Membuat Kalkulator Sederhana Menggunakan Visual Basic

Assalamu alaikum Wr. Wb.
Syukur Alhamdulillah saya ucapkan, karena pada kesempatan kali ini saya masih di beri kesehatan dan kesempatan untuk berbagi ilmu kepada sobat sekalian. Setelah beberapa waktu lamanya saya offline dan gak mengurus blog ini, akhirnya pada kesempatan yang berharga ini saya sempatkan untuk meng-update-nya, mesti tak tahu kapan saya akan meng-update-nya lagi, maklum lagi sibuk banget sob... Baiklah kali ini saya akan share ilmu yang saya dapatkan di bangku perkuliahan, yang menurut saya penting untuk saya bagikan kepada semua sobat, meskipun sederhana tapi pasti cukup bermanfaat buat sobat, hehehehe...
Hem... sobat biasa menggunakan kalkulator untuk menghitung khan ??? Entah itu untuk mengerjakan tugas hitung-menghitung atau sekedar untuk menghitung jumlah tunggakan kita (hutang) hehehehe... Apa sobat pernah berpikir bagaimana cara membuat software Kalkulator ??? Nah,,, kali ini saya akan memaparkan cara Membuat Kalkulator Sederhana Menggunakan Visual Basic, yang cukup mudah untuk dipraktekkan. Ok dech kalau begitu sob, kita langsung saja belajarnya, cekidot...

Tampilan Kalkulator :



Step By Step membuat Kalkulator sederhana :

Step 1 :
Jalan aplikasi Visual Basic 6.0 Buat Form baru dan tambahkan 1 objek TextBox dan 22 objek CommanndButton. Untuk lebih jelasnya, perhatikan gambar dibawah ini.
Step 2 :
Atur dan sesuaikan Properties dari masing-masing objek tersebut.

Form
Caption = Kalkulator www.asis-sugianto.blogspot.com   

Text1.Text
Name = Text1.Text

Command1
Name    = Cmd_0
Caption = 1

Command2
Name    = Cmd_Sama_Dengan
Caption = =

Command3
Name    = Cmd_1
Caption = 1

Command4
Name    = Cmd_2
Caption = 2

Command5
Name    = Cmd_3
Caption = 3

Command6
Name    = Cmd_4
Caption = 4

Command7
Name    = Cmd_5
Caption = 5

Command8
Name    = Cmd_6
Caption = 6

Command9
Name    = Cmd_7
Caption = 7

Command10
Name    = Cmd_8
Caption = 8

Command11
Name    = Cmd_9
Caption = 9

Command12
Name    = Cmd_Bagi
Caption = /

Command13
Name    = Cmd_Kali
Caption = *

Command14
Name    = Cmd_Kurang
Caption = -

Command15
Name    = Cmd_Tambah
Caption = +

Command16
Name    = Cmd_Pangkat
Caption = ^

Command17
Name    = Cmd_sin
Caption = sin

Command18
Name    = Cmd_CE
Caption = CE

Command19
Name    = Cmd_Tan
Caption = tan

Command20
Name    = Cmd_Cos
Caption = cos

Command21
Name    = Cmd_C
Caption = C

Command22
Name    = Cmd_Off
Caption = Off/Keluar

Step 3 :
Double klik pada area Form dan ketikkan Listing berikut ini :
Dim Angka, Hasil As Double
Dim Operator As String

Step 4 :

Double klik pada tombol 0, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_0_Click()
If Text1.Text = "0" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text & "0"
End If
End Sub

Step 5 :

Double klik pada tombol 1, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_1_Click()
If Text1.Text = "0" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub

Step 6 :

Double klik pada tombol 2, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_2_Click()
If Text1.Text = "0" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text & "2"
End If
End Sub

Step 7 :

Double klik pada tombol 3, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_3_Click()
If Text1.Text = "0" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text & "3"
End If
End Sub

Step 8 :

Double klik pada tombol 4, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_4_Click()
If Text1.Text = "0" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text & "4"
End If
End Sub

Step 9 :

Double klik pada tombol 5, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_5_Click()
If Text1.Text = "0" Then
Text1.Text = "5"
Else
Text1.Text = Text1.Text & "5"
End If
End Sub

Step 10 :

Double klik pada tombol 6, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_6_Click()
If Text1.Text = "0" Then
Text1.Text = "6"
Else
Text1.Text = Text1.Text & "6"
End If
End Sub

Step 11 :

Double klik pada tombol 7, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_7_Click()
If Text1.Text = "0" Then
Text1.Text = "7"
Else
Text1.Text = Text1.Text & "7"
End If
End Sub

Step 12 :

Double klik pada tombol 8, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_8_Click()
If Text1.Text = "0" Then
Text1.Text = "8"
Else
Text1.Text = Text1.Text & "8"
End If
End Sub

Step 13 :

Double klik pada tombol 9, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_9_Click()
If Text1.Text = "0" Then
Text1.Text = "9"
Else
Text1.Text = Text1.Text & "9"
End If
End Sub

Step 14 :

Double klik pada tombol Bagi (/), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Bagi_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka / Val(Text1.Text)
End If
Operator = "/"
Text1.Text = 0
End Sub

Step 15 :

Double klik pada tombol Hapus (C), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_C_Click()
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Step 16 :

Double klik pada tombol Hapus (CE), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_CE_Click()
Text1.Text = "0"
Angka = 0
Hasil = 0
Operator = ""
End Sub

Step 17 :

Double klik pada tombol Kali (*), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kali_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka * Val(Text1.Text)
End If
Operator = "*"
Text1.Text = 0
End Sub

Step 18 :

Double klik pada tombol Kurang (-), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kurang_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka - Val(Text1.Text)
End If
Operator = "-"
Text1.Text = 0
End Sub

Step 19 :

Double klik pada tombol Tambah (+), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Tambah_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka + Val(Text1.Text)
End If
Operator = "+"
Text1.Text = 0
End Sub

Step 20 :

Double klik pada tombol Pangkat (^), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Pangkat_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka ^ Val(Text1.Text)
End If
Operator = "^"
Text1.Text = 0
End Sub

Step 21 :

Double klik pada tombol Sama Dengan (=), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Sama_Dengan_Click()
If Operator = "+" Then
    Hasil = Angka + Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "-" Then
    Hasil = Angka - Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "*" Then
    Hasil = Angka * Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "/" Then
    Hasil = Angka / Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "^" Then
    Hasil = Angka ^ Val(Text1.Text)
    Text1.Text = Hasil
End If
End Sub

Step 22 :

Double klik pada tombol Off/Keluar, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Off_Click()
End
End Sub

Gimana sob, cukup mudahkan membuat Kalkulator menggunakan Visual Basic ??? Jika sobat mengukuti prosedure yang saya terapkan di atas, Insyallah akan berjalan lancar tanpa ada masalah.

Semoga bermanfaat, salam .:: ashtho ::.

Wassalam . . .

Ditulis Oleh: Bli Wahyu

2 komentar: