Cara Membuat Kalkulator Dengan VB6

    Share

    CYBER
    CO - Admin
    CO - Admin

    Male
    Thread & Post : 215
    Point Forum : 293937
    Thanks Given : 4034
    Join date : 05.08.11
    Age : 26
    Lokasi : S-N-U-T-Z-E-R

    default Cara Membuat Kalkulator Dengan VB6

    Post by CYBER on Thu Aug 11, 2011 5:57 am

    Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
    Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
    kalkulator standar Windows, seperti ini:

    Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, .

    Spoiler:
    Textbox 1:
    (Name) : txtDisplay
    Alignment: 1-Right Justify
    Text : (kosongkan)
    Maxlength : 12

    Command Button 1:
    (Name) : cmdAngka
    Index : 1
    Caption : 1

    Command Button 2:
    (Name) : cmdAngka
    Index : 2
    Caption : 2

    Command Button 3:
    (Name) : cmdAngka
    Index : 3
    Caption : 3

    Command Button 4:
    (Name) : cmdAngka
    Index : 4
    Caption : 4

    Command Button 5:
    (Name) : cmdAngka
    Index : 5
    Caption : 5

    Command Button 6:
    (Name) : cmdAngka
    Index : 6
    Caption : 6

    Command Button 7:
    (Name) : cmdAngka
    Index : 7
    Caption : 7

    Command Button 8:
    (Name) : cmdAngka
    Index : 8
    Caption : 8

    Command Button 9:
    (Name) : cmdAngka
    Index : 9
    Caption : 9

    Command Button 10:
    (Name) : cmdAngka
    Index : 0
    Caption : 0

    Command Button 11:
    (Name) : cmdPlusMinus
    Caption : +/-

    Command Button 12:
    (Name) : cmdKoma
    Caption : .

    Command Button 13:
    (Name) : cmdOperator
    Index : 1
    Caption : +

    Command Button 14:
    (Name) : cmdOperator
    Index : 2
    Caption : -

    Command Button 15:
    (Name) : cmdOperator
    Index : 3
    Caption : x

    Command Button 16:
    (Name) : cmdOperator
    Index : 4
    Caption : /

    Command Button 17:
    (Name) : cmdClearEntry
    Caption : CE

    Command Button 18:
    (Name) : cmdClear
    Caption : C

    Command Button 19:
    (Name) : cmdSamaDengan
    Caption : =

    Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
    setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

    Spoiler: Coding(Hide)
    Option Explicit
    Private Hasil As Double
    Private Const opNol = 0
    Private Const opTambah = 1
    Private Const opKurang = 2
    Private Const opKali = 3
    Private Const opBagi = 4
    Private Operator As Integer
    Private NilaiBaru As Boolean

    ' untuk menghapus karakter terakhir
    Private Sub Hapus()
    Dim txt As String
    Dim min_len As Integer
    txt = txtDisplay.Text
    If Left$(txt, 1) = "-" Then
    min_len = 2
    Else
    min_len = 1
    End If
    If Len(txt) > min_len Then
    txtDisplay.Text = Left$(txt, Len(txt) - 1)
    Else
    txtDisplay.Text = "0"
    End If
    End Sub

    ' hapus angka, hasil terakhir dan operator
    Private Sub cmdClear_Click()
    cmdClearEntry_Click
    Hasil = 0
    Operator = opNol
    End Sub
    ' hapus angka
    Private Sub cmdClearEntry_Click()
    txtDisplay.Text = ""
    End Sub
    ' menambahkan koma (desimal)
    Private Sub cmdKoma_Click()
    If InStr(txtDisplay.Text, ".") Then
    Beep
    Else
    If NilaiBaru Then
    txtDisplay.Text = "."
    NilaiBaru = False
    Else
    txtDisplay.Text = txtDisplay.Text & "."
    End If
    End If
    End Sub

    ' Menghitung
    Private Sub cmdSamaDengan_Click()
    Dim HasilBaru As Double
    If txtDisplay.Text = "" Then
    HasilBaru = 0
    Else
    HasilBaru = CDbl(txtDisplay.Text)
    End If
    Select Case Operator
    Case opNol
    Hasil = HasilBaru
    Case opTambah
    Hasil = Hasil + HasilBaru
    Case opKurang
    Hasil = Hasil - HasilBaru
    Case opKali
    Hasil = Hasil * HasilBaru
    Case opBagi
    'Tidak bisa dibagi nol
    If HasilBaru = 0 Then
    MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
    Call cmdClear_Click
    Else
    Hasil = Hasil / HasilBaru
    End If
    End Select
    Operator = opNol
    NilaiBaru = True
    txtDisplay.Text = Format$(Hasil)
    End Sub

    ' menuliskan angka
    Private Sub cmdAngka_Click(Index As Integer)
    If NilaiBaru Then
    txtDisplay.Text = Format$(Index)
    NilaiBaru = False
    Else
    txtDisplay.Text = _
    txtDisplay.Text & Format$(Index)
    End If
    End Sub
    ' tombol tambah/kurang/bagi/kali
    Private Sub cmdOperator_Click(Index As Integer)
    cmdSamaDengan_Click
    Operator = Index
    NilaiBaru = True
    End Sub

    ' merubah tanda +/-
    Private Sub cmdPlusMinus_Click()
    If NilaiBaru Then
    txtDisplay.Text = "-"
    ElseIf Left$(txtDisplay.Text, 1) = "-" Then
    txtDisplay.Text = Right$(txtDisplay.Text, 2)
    Else
    txtDisplay.Text = "-" & txtDisplay.Text
    End If
    End Sub

    ' filter untuk angka saja yg dapat diketikkan
    Private Sub Form_KeyPress(KeyAscii As Integer)
    txtDisplay_KeyPress KeyAscii
    End Sub
    Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    txtDisplay_KeyUp KeyCode, Shift
    End Sub
    ' supaya kursor tetap di kanan
    Private Sub txtDisplay_Change()
    txtDisplay.SelStart = Len(txtDisplay.Text)
    End Sub
    Private Sub txtDisplay_GotFocus()
    txtDisplay_Change
    End Sub

    ' untuk mengetikkan angka di keyboard
    Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
    Dim ch As String
    ch = Chr$(KeyAscii)
    Select Case ch
    Case "0"
    cmdAngka_Click 0
    Case "1"
    cmdAngka_Click 1
    Case "2"
    cmdAngka_Click 2
    Case "3"
    cmdAngka_Click 3
    Case "4"
    cmdAngka_Click 4
    Case "5"
    cmdAngka_Click 5
    Case "6"
    cmdAngka_Click 6
    Case "7"
    cmdAngka_Click 7
    Case "8"
    cmdAngka_Click 8
    Case "9"
    cmdAngka_Click 9
    Case "*", "x", "X"
    cmdOperator_Click opKali
    Case "+"
    cmdOperator_Click opTambah
    Case vbCrLf, vbCr, "="
    cmdSamaDengan_Click
    Case "-"
    cmdOperator_Click opKurang
    Case "."
    cmdKoma_Click
    Case "/"
    cmdOperator_Click opBagi
    Case "C", "c"
    cmdClearEntry_Click
    End Select
    KeyAscii = 0
    End Sub

    ' untuk ketikan angka di numpad
    Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyNumpad0
    cmdAngka_Click 0
    Case vbKeyNumpad1
    cmdAngka_Click 1
    Case vbKeyNumpad2
    cmdAngka_Click 2
    Case vbKeyNumpad3
    cmdAngka_Click 3
    Case vbKeyNumpad4
    cmdAngka_Click 4
    Case vbKeyNumpad5
    cmdAngka_Click 5
    Case vbKeyNumpad6
    cmdAngka_Click 6
    Case vbKeyNumpad7
    cmdAngka_Click 7
    Case vbKeyNumpad8
    cmdAngka_Click 8
    Case vbKeyNumpad9
    cmdAngka_Click 9
    Case vbKeyMultiply
    cmdOperator_Click opKali
    Case vbKeyAdd
    cmdOperator_Click opTambah
    Case vbKeySeparator
    cmdSamaDengan_Click
    Case vbKeySubtract
    cmdOperator_Click opKurang
    Case vbKeyDivide
    cmdOperator_Click opBagi
    Case vbKeyDecimal
    cmdKoma_Click
    Case vbKeyBack, vbKeyDelete
    Hapus
    End Select
    KeyCode = 0
    End Sub


    Credit : Pakdhe Google

    Tidak Mau Kena Warn/Banned? Baca dibawah ini
    ≈≈Rules≈≈

    Cukup Tekan ++ Posted Untuk Berterima Kasih

    - No Double Posting
    - No Junk
    - No OOT
    - No Sara
    - No Flaming



    ™Credit By Cyber ™

      Waktu sekarang Thu Dec 08, 2016 10:46 am