Tutorial pembuatan aplikasi kalkulator sederhana dalam Ms.Visual Basic

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 :)