Program VB Untuk Membuat Calculator

Senin, 8 April 2013 | 11:30 WIB | Dibaca : 5345 kali | Kategori : Prog Visual Basic
Program VB Untuk Membuat Calculator

Membuat program calculator pada bahasa pemrograman visual basic, sebenarnya sih gampang gampang susah. Yah kalau belum tahu logika awalnya sih susah, namun jika sudah mengetahui logika dasar pembuatan program nya, ternyata program vb untuk membuat calculator sangat gampang.


Program ini saya sederhanakan dari postingan saya Program Calculator Pada Visual Basic

Design program vb untuk membuat calculator berikut ini :

Program VB untuk membuat Calculator

Adapun keterangan penamaannya seperti berikut ini :

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

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


Nah, mudah mudahan program diatas dapat membuat anda bisa menyukai belajar bahasa pemrograman.

Tag : Program VB Untuk Membuat Calculator, program calculator, program vb, program visual basic, program vb calculator


Bila berita ini bermanfaat silahkan share Program VB Untuk Membuat Calculator ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Program VB Untuk Membuat Calculator

Anda berada di halaman Program VB Untuk Membuat Calculator, dan telah membaca artikel Program VB Untuk Membuat Calculator. Artikel Program VB Untuk Membuat Calculator bisa anda peroleh pada halaman http://www.mesran.web.id/berita-610-program-vb-untuk-membuat-calculator.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Program VB Untuk Membuat Calculator sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id