Cara Membuat Kalkulator dengan VB.0.6

Selamat Datang kembali, kali ini saya mau berbagi ilmu tentang visual basic.

khususnya teknik atau cara membuat kalkulator sederhana; berikut contohya

untuk langkah dan kodenya ikuti perintah berikut.

*Yang warna merah tergantung nama comang yang anda buat

Option Explicit

Dim a1, a2, hapus As Double

Dim op As String

Private Sub cmdangka_Click(Index As Integer)

    'menghapus tampilan setelah memilih operator

    If hapus > 0 Then

        lbltampil.Caption = ""

        hapus = 0

    End If

    'membatasi jumlah digit angka

    If Len(lbltampil.Caption) >= 12 Then Exit Sub

    'menampilkan angka pada label tampil

    lbltampil.Caption = lbltampil.Caption + cmdangka(Index).Caption

    'index=nilai index dari angka yangkita tekan

End Sub

Private Sub cmdbagi_Click()

     a1 = Val(lbltampil.Caption)

    hapus = hapus + 1

    op = "/"

End Sub

Private Sub cmddesimal_Click()

    'mengontrol pemunculan titik

    If InStr(lbltampil.Caption, ".") Then Exit Sub

    'menampilkan desimal

    lbltampil.Caption = lbltampil.Caption + "."

End Sub

Private Sub cmdhapus_Click()

    lbltampil.Caption = ""

    hapus = 0

    a1 = 0

    a2 = 0

   

End Sub

Private Sub cmdkali_Click()

    a1 = Val(lbltampil.Caption)

    hapus = hapus + 1

    op = "*"

End Sub

Private Sub cmdkurang_Click()

    a1 = Val(lbltampil.Caption)

    hapus = hapus + 1

    op = "-"

End Sub

Private Sub cmdpersen_Click()

    lbltampil.Caption = lbltampil.Caption / 100

   

End Sub

Private Sub cmdsamadengan_Click()

    a2 = Val(lbltampil.Caption)

    hapus = hapus + 1

    If op = "+" Then lbltampil.Caption = a1 + a2

    If op = "-" Then lbltampil.Caption = a1 - a2

    If op = "*" Then lbltampil.Caption = a1 * a2

    If op = "/" Then lbltampil.Caption = a1 / a2

   

End Sub

Private Sub cmdtambah_Click()

    a1 = Val(lbltampil.Caption)

    hapus = hapus + 1

    op = "+"

End Sub

Private Sub cmdtambahkurang_Click()

    If lbltampil.Caption = "" Then Exit Sub

    If Sgn(Val(lbltampil.Caption)) = 1 Then 'sgn untuk tanda kalau bil positif tandanya 1

        lbltampil.Caption = "-" + lbltampil.Caption

    Else

        lbltampil.Caption = Abs(lbltampil.Caption)

    End If

End Sub