CARA MEMBUAT KODINGAN SEDERHANA KALKULATOR DALAM VISUAL BASIC
- pertama bukalah MS.Visual Basic, lalu siapkan desain kalkulator seperti dibawah ini :
- lalu masukan subscribe codingan , berikut adalah codingannya :
Private pilihan As String
Private x As Double
Private y As Double
Private Sub AC_Click()
Text1.Text = ""
y = x = 0
Tanda.Enabled = False
End Sub
Private Sub Akar_Click()
If x < 0 Then
Text1.Text = "Angka Tidak Boleh Negatif"
Else
Text1.Text = Sqr(x)
End If
End Sub
Private Sub Bagi_Click()
Text1.Text = ""
pilihan = "bagi"
y = x
x = 0
Tanda.Enabled = False
End Sub
Private Sub From_Load()
Tanda.Enabled = False
End Sub
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
x = Text1.Text
Tanda.Enabled = True
End Sub
Private Sub Hasil_Click()
If pilihan = "tambah" Then
x = y + x
Text1.Text = x
ElseIf pilihan = "kurang" Then
x = y - x
Text1.Text = x
ElseIf pilihan = "kali" Then
x = y * x
Text1.Text = x
ElseIf pilihan = "bagi" And x <> 0 Then
x = y / x
Text1.Text = x
Else
Text1.Text = "Tidak Terdefinisi"
End If
End Sub
Private Sub Kali_Click()
Text1.Text = ""
pilihan = "kali"
y = x
x = 0
Tanda.Enabled = False
End Sub
Private Sub Koma_Click()
If Text1.Text = "" Then
Text1.Text = "0."
Else
Text1.Text = Text1.Text & "."
End If
End Sub
Private Sub Kuadrat_Click()
Text1.Text = x ^ 2
End Sub
Private Sub Kurang_Click()
Text1.Text = ""
pilihan = "kurang"
y = x
x = 0
Tanda.Enabled = False
End Sub
Private Sub Tambah_Click()
Text1.Text = ""
pilihan = "tambah"
y = x
x = 0
Tanda.Enabled = False
End Sub
Private Sub Tanda_Click()
If x < 0 Then
Text1.Text = -x
x = -x
Else
Text1.Text = "." & Text1.Text
x = -x
End If
End Sub
Private Sub Text1_Change()
End Sub
- lalu setelah di desain dan di coding, jalan kan dengan mengklik tanda panah, seperti pada gambar berikut :
- dan hasil nya bisa dijalan. :) selamat mencoba dan semoga bermanfaat yah teman :)
