KALKULATOR Dengan Visual Basic 6.0 KALKULATOR Dengan Visual Basic 6.0

Sript-scriptnya adalah sebagai berikut

Script awal, ketikan script seperti berikut pada view code :

Dim awal, nilai, nilai1 As Single

Dim abk As Byte

Dim Operator As Variant                                                                                    

Untuk  script tombol angka 1 – 9

Private Sub nol_Click()

ank = 0

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub nolnol_Click()

ank = 0

layar.Text = Val(layar.Text & ank & ank)

End Sub

Private Sub satu_Click()

ank = 1

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub dua_Click()

ank = 2

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub tiga_Click()

ank = 3

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub empat_Click()

ank = 4

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub lima_Click()

ank = 5

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub enam_Click()

ank = 6

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub tujuh_Click()

ank = 7

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub delapan_Click()

ank = 8

layar.Text = Val(layar.Text & ank)

End Sub

Private Sub sembilan_Click()

ank = 9

layar.Text = Val(layar.Text & ank)

End Sub

Untuk Sript Operator ( * , / , + , - )

Private Sub bagi_Click()

nilai = Val(layar.Text)

Call bersih

Operator = "/"

'nilai = val (layar.text)

'nilai = nilai1 + nilai

End Sub

Private Sub kali_Click()

nilai = Val(layar.Text)

Call bersih

Operator = "*"

'nilai = val (layar.text)

'nilai = nilai1 + nilai

End Sub

Private Sub kurang_Click()

nilai = Val(layar.Text)

Call bersih

Operator = "-"

'nilai = val (layar.text)

'nilai = nilai1 + nilai

End Sub

Private Sub tambah_Click()

nilai = Val(layar.Text)

Call bersih

Operator = "+"

'nilai = val (layar.text)

'nilai = nilai1 + nilai

End Sub

Untuk Script Tombol CE / reset

Private Sub reset_Click()

Call bersih

End Sub

Untuk Script tombol Off

Unload Kalkulator

End sub

Untuk  script Hasil atau tombol sama dengan ( = )

Private Sub hasil_Click()

If Operator = "+" Then

nilai = nilai + layar.Text

ElseIf Operator = "-" Then

nilai = nilai - layar.Text

ElseIf Operator = "/" Then

nilai = nilai / layar.Text

ElseIf Operator = "*" Then

nilai = nilai * layar.Text

End If

layar.Text = nilai

End Sub

Sript tambahan

Untuk membersihkan layar dan mengembalikan angka dilayar kembali menjadi Nol

Sriptnya :

Sub bersih()

layar.Text = awal

End Sub

Untuk Memunculkan angka awal yaitu angka Nol pada layar

Sriptnya :

Private Sub Form_Load()

awal = 0

layar.Text = awal

nilai1 = 0

End Sub

Untuk memfokuskan tombol yang kita klik

Scriptnya :

Private Sub hasil_LostFocus()

Call bersih

End Sub