Program Kalkulator Lengkap Dengan Visual Basic 6.0

Contoh Program Kalkulator Dengan Visual Basic 6.0 - Kali ini saya sajikan program kalkulator yang lengkap untuk sobat-sobat ;) , setelah sebelumnya mengulas tentang tutorial program kalkulator sederhana dengan visual basic 6.0 termasuk source code visual basic yg bisa di download juga.

Langsung aja ya sob..., untuk tampilan pada program visual basic seperti pada gambar 1 dan penampakan pada saat dijalankan pada gambar 2.

Program Kalkulator Dengan Visual Basic 6.0
gambar 1

Program Kalkulator Lengkap Visual Basic 6.0
gambar 2


Untuk rumus kalkulator hampir sama dengan yang kalkulator sederhana hanya dipersingkat dalam satu prosedure saja agar mudah dalam mengatasi memori penyimpanan dan errornya :D .
Kurang lebih rumusnya seperti ini :
Private Sub cmdOP_Click(Index As Integer)

On Error GoTo CheckIfOverFlowErr 

If bWasError Then
    Beep
    Exit Sub
End If

If bOp = True And bEqual = False Then 
 nOp = Index 'Remember the last operatore
 Exit Sub 'And..Exit sub
    ElseIf bEqual = True And bOp = True Then 
        If nOp = 1 Or nOp = 2 Then 
            nLastNum = 0 
                Else
                    nLastNum = 1 
        End If
End If

If nOp = 0 Then
    nResult = CDbl(lblOutput.Caption)
End If

Select Case nOp

    Case 1 '+
        nResult = nResult + nLastNum
    Case 2 '-
        nResult = nResult - nLastNum
    Case 3 '*
        nResult = nResult * nLastNum
    Case 4 '/
        
        If nLastNum = 0 Then
            lblOutput.Caption = "Cannot divide by zero."
            bWasError = True
            Exit Sub
            Else
                nResult = nResult / nLastNum
        End If
        
End Select

nOp = Index
bOp = True
bEqual = False
lblOutput.Caption = nResult

If Left$(lblOutput.Caption, 1) = "." Then
    lblOutput.Caption = "0" & nResult
End If

btnFocusEqual.SetFocus

Exit Sub
CheckIfOverFlowErr:

If Err.Number = 6 Then
    lblOutput.Caption = "Value is over max calculation limit."
    bWasError = True
End If

End Sub

Wadaw.. #:-S Sepertinya panjang juga kalau semua source codenya ditampilkan diartikel ini  ( bilang aja males ngetik lagi Xixixi.. :D )
atau...
untuk lengkapnya langsung saja sedot sob...

Download Source Code Kalkulator Lengkap dengan Visual Basic 6.0

Kira-kira demikian Contoh Program Visual Basic kali ini, next time saya share juga contoh program penjualan visual basic yang sederhana sampai yang komplek.
Jadi please... /please balik sini lagi ya sob..
n' Makasih untuk kunjungannya See U... /bye
TERIMA KASIH ATAS KUNJUNGAN SAUDARA
Program Kalkulator Lengkap Dengan Visual Basic 6.0 Judul: Program Kalkulator Lengkap Dengan Visual Basic 6.0
Published: 2013-10-19T20:59:00-07:00
By Wiwin Kartinah
Rating Blog 4.5 5 reviews
Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://contohprogram-vb.blogspot.com/2013/10/program-kalkulator-visual-basic.html. Terima kasih sudah singgah membaca artikel ini.

3 comments

Post a Comment