Sob gak usah bingung untuk buat program kalkulator ni gua kasih contoh program..
plus code (syntaxnya)...
good luck n selamat mencoba dan bereksperimen..
kalo programnya gak jalan,download aja langsung punya gua kalkulatorx dijamin pasti jalan...
Dalam, Visual basic Kita Bisa buat suatu Program kalkulator Sederhana, disini menggunakan VB 6.0
Buat bentuk seperti ini:
Option Explicit
Dim As Integer Num_of_digit
kunci Dim As Integer
Dim displayValue Variant
Dim a, b, c, d, e, f, g Sebagai Variant
Dim memo Variant
Dim newNumber Sebagai Boolean
Private Sub BZero_Click (Indeks As Integer)
Jika Num_of_digit> 0 Then
panel.Caption = panel.Caption + "0"
Lain
panel.Caption = "0"
Num_of_digit = Num_of_digit + 1
End If
CheckValue
End Sub
Private Sub Form_Load ()
Kiri = (Screen.Width - Lebar) \ 2
Atas = (Screen.Height - Tinggi) \ 2
End Sub
Sub CheckValue ()
displayValue = Val (panel.Caption)
End Sub
Private Sub ButtonNum_Click (Indeks As Integer)
Jika Num_of_digit> 0 Then
Jika Num_of_digit <30 Kemudian panel.Caption panel.Caption + Kanan = $ (Str $ (Index), 1)
Num_of_digit = Num_of_digit + 1 End If Lain panel.Caption = Kanan $ (Str $ (Index), 1)
Num_of_digit = 1 End If CheckValue End Sub Private Sub Clear_Click () panel.Caption = "0"
displayValue = "0" Num_of_digit = 0 End Sub Private Sub ClearAll_Click () panel.Caption =
"0" displayValue = "0" memo = 0 End Sub Private Sub Equal_Click () CheckValue Jika newNumber
= Benar Kemudian Jika kunci = 1 Lalu e = displayValue + a = 2 ElseIf kunci Lalu e = b -
displayValue ElseIf kunci = 3 Lalu e = displayValue * c ElseIf kunci = 5 Lalu e = (f * displayValue) /
100 ElseIf kunci = 4 Dan displayValue <> 0 Then
e = d / displayValue
Lain
GoTo kesalahan
End If
Jika Abs (e) <1 Kemudian panel.Caption = Format (e, "Nomor Umum") Lain panel.Caption =
Str (e) End If End panel.Caption Lain = displayValue Jika GoTo selesai kesalahan: panel
.Caption = "E" selesai: Num_of_digit = 0 newNumber = False End Sub Private Sub MemoCancel_Click
() memo = 0 End Sub Private Sub Memory_Click () memo CheckValue = displayValue Num_of_digit
= 0 End Sub Private Sub Operator_Click (Indeks As Integer) CheckValue Jika Index =
11 Kemudian = displayValue kunci = 1 ElseIf Indeks = 12 Lalu b = displayValue kunci =
2 ElseIf Indeks = c = 13 Kemudian displayValue kunci = 3 ElseIf Indeks = 14 Lalu d = displayValu
e kunci = 4 ElseIf Indeks = 15 Maka f = displayValue kunci = 5 End If Num_of_digit = 0 newNumber
= End Sub Private Sub Benar Percent_Click (Indeks As Integer) End Sub Private Sub Plus_
minus_Click () CheckValue g = -1 * displayValue displayValue = g = Str $ panel.Caption
(displayValue) CheckValue End Sub End Sub Private Sub Poin_Click () point_lock Statis As I
nteger = 0 Jika point_lock Dan Num_of_digit <20 Lalu panel.Caption = panel.Caption +
Num_of_digit = Num_of_digit "." + 1 End If End CheckValue Private Sub Sub Recall_Click ()
panel.Caption = Str $ (memo) End Sub Private Sub SqRoot_Click () CheckValue Jika display
Value> = 0 Then
panel.Caption = Str $ (Sqr (displayValue))
Lain
panel.Caption = "E"
End If
Num_of_digit = 0
End Sub
Private Sub Summation_Click ()
CheckValue
Memo = memo + displayValue
Num_of_digit = 0
End Sub
semoga bermanfaat
oia kelupaan..
ne link buat download..
<ahref="http://www.4shared.com/file/p9IVfzwc/MEMBUAT_PROGRAM_KALKULATOR_DEN.html" target=_blank>MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC.rar</a>
<a href="http://www.4shared.com/file/OApYjaxZ/Calculator_2.html" target=_blank>Calculator_2.zip</a>
<a href="http://www.4shared.com/file/puFZhu3Y/Calculator.html" target=_blank>Calculator.zip</a>
kalo gk bisa COPAS link yang dibawah ini juga..
http://www.4shared.com/file/p9IVfzwc/MEMBUAT_PROGRAM_KALKULATOR_DEN.html
http://www.4shared.com/file/OApYjaxZ/Calculator_2.html
http://www.4shared.com/file/puFZhu3Y/Calculator.html
Posted in: Belajar Visual Basic,Download
0 komentar:
Posting Komentar