Breaking News

Sabtu, 19 Oktober 2013

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

Tidak ada komentar:

Posting Komentar

Designed By