MEMBUAT PROGRAM CALCULATOR DENGAN VISUAL BASIC

Bagi anda yang sering memanfaatkan kalkulator yang merupakan bagian adri aksesoris Windows, mungkin pernah berkeinginan untuk membuat kalkulator sendiri dan mungkin pula keinginan anda tersebut belum terwujud, karena anda belum tahu cara membuatnya. Dengan Tip berikut ini, anda akan dapat mewujudkan keinginan tersebut, karena membuat kalkulator dengan visual basic tidak sesulit bayangan anda. 

1. Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

2. Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1

(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1

(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

 3. Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.

4. Kemudian atur properti caption untuk commandButton sehingga tampilannya menjadi seperti berikut.

5. Agar kalkulator dapat dioperasikan, tambahkan sepuluh buah commanButton baru.

6. Atur properti kontrol TextBox dan CommandButton baru seperti berikut. Untuk Textbox1 diberi nama Angka Untuk Command Button 0-9 di beri nama BTN (sehingga membentuk index array) 

 Untuk Command Button C di beri nama BtnC Untuk Command Button +/- di beri nama BtnMinus

 Untuk Command Button . di beri nama BtnKoma Untuk Command Button = di beri nama BtnHasil

 Untuk Command Button Backspace di beri nama BtnBack 

 Untuk Command Button +,/,*,- di beri nama BtnProses 

 7. Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

8. Buka jendela kode, lalu ketikkan kode berikut ini:
 Berikut listing program VB untuk membuat calculator pada Visual Basic

Dim OPnya As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim bil As String

Function Proseskan(op As String)
Dim xhasil As Double
Select Case op
Case "+": xhasil = a + b
Case "-": xhasil = a - b
Case "/": xhasil = a / b
Case "*": xhasil = a * b
End Select
Proseskan = xhasil
End Function

Sub Normalkan( )
operatornya = ""
 bil = ""
 a = 0
 b = 0
 c = 0
Angka = "0"
End Sub

Private Sub btn_Click(Index As Integer)
Dim x As String x
= btn(Index).Caption If
 bil <> "0" Or OPnya = "" Then
 bil = bil + x
 Else
 bil = x
 End If
 Angka = bil
End Sub

Private Sub btnback_Click()
 Dim jml As Byte
 jml = Len(bil)
 If jml > 0 Then
 bil = Left(bil, jml - 1)
 Angka = bil
 End If
End Sub

Private Sub btnC_Click()
Call Normalkan
 End Sub

Private Sub btnhasil_Click()
b = CCur(bil)
 Angka = Proseskan(OPnya)
 bil = "0"
 a = 0
 b = 0
End Sub

 Private Sub btnkoma_Click()
If bil <> "" Then
 bil = bil + ","
 Else bil = "0"
 End If
 Angka = bil
End Sub 

Private Sub btnminus_Click()
 bil = CCur(bil) * -1
 Angka = bil
End Sub

Private Sub btnProses_Click(Index As Integer)
 OPnya = btnProses(Index).Caption
 If bil <> "" Then
 If a = 0 Then
 a = CCur(bil)
 Else
 b = CCur(bil)
 a = Proseskan(OPnya)
 End If
 bil = ""
 End If
End Sub

Private Sub Form_Load()
Call Normalkan
End Sub


SELAMAT MENCOBA !!!!!!