WELCOME IN MY BLOG

MAKE A CALCULATOR

LANGKAH LANGKAH PEMBUATAN KALKULATOR :

1. Buka VB pilih new project kemudian pilih standar exe
2. Buat button dan label seperti gambar dibawah

Perhatikan keterangan berikut :

-. tulisan Kalkulator mengunakan label
-. kotak hasil mengunakan label dengan name isi dan captionnya tidak ada.
-. untuk tombol angka 0 sampai 9 mengunakan CommandButton dengan name N dan caption serta index sesuaikan dengan nilai masing masing. misal tombol angka 1 captionnya 1 dan indexnya juga 1.
-. untuk buttun yang lainnya
caption       name
.              Koma
=             Hasil
/              Bagi
–             Kurang
+             Tambah
x             Kali
AC            AC
x2           Pangkat
-/+           Tanda
V             Akar

untuk tampilan seperti warna dan jenis serta ukuran font anda bisa mengatur sendiri pada jendela properties

3. Pindah ke tab kode atau klik 2 kali pada form.
deklerasikan variabel

Private Pil As String
Private x As Double
Private y As Double
Private kom As Integer

dan kode berikut

Private Sub Form_Load()
Tanda.Enabled = False
If kom = 1 Then
Koma.Enabled = False
End If
x = 0
End Sub

4.  klik tombol antara 0 sampai 9 atau langsung ketab kode kemudian tulis kode berikut

Private Sub N_Click(Index As Integer)
Isi.Caption = Isi.Caption & N(Index).Caption
x = Isi.Caption
Tanda.Enabled = True
End Sub

5. Kemudian agar fungsi tambah, kurang, bagi dan kali berfungsi maka tambahkan kode berikut :

// pada tombol bagi tambahkan kode

Private Sub Bagi_Click()
Isi.Caption = “”
Pil = “bagi”
y = x
x = 0
Tanda.Enabled = False
Koma.Enabled = True
End Sub

// tombol kali tambahkan kode
Private Sub Kali_Click()
Isi.Caption = “”
Pil = “kali”
y = x
x = 0
Tanda.Enabled = False
Koma.Enabled = True
End Sub

// tombol kurang

Private Sub Kurang_Click()
Isi.Caption = “”
Pil = “kurang”
y = x
x = 0
Tanda.Enabled = False
Koma.Enabled = True
End Sub

// terakhir tombol tambah

Private Sub Tambah_Click()
Isi.Caption = “”
Pil = “tambah”
y = x
x = 0
Tanda.Enabled = False
Koma.Enabled = True
End Sub

6. Agar tombol sama dengan berfungsi letakkan kode berikut

Private Sub Hasil_Click()
If Pil = “tambah” Then
x = y + x
Isi.Caption = x
ElseIf Pil = “kurang” Then
x = y – x
Isi.Caption = x
ElseIf Pil = “kali” Then
x = y * x
Isi.Caption = x
ElseIf Pil = “bagi” Then
x = y / x
Isi.Caption = x
Else
Isi.Caption = x
End If
End Sub

7. sekarang tombol AC, pangkat, tanda dan akar

// tombol AC
Private Sub AC_Click(Index As Integer)
Isi.Caption = “”
y = 0
x = 0
kom = 0
If kom = 1 Then
Koma.Enabled = False
Else
Koma.Enabled = True
End If
Tanda.Enabled = False
End Sub// tombol pangkat
Private Sub Pangkat_Click(Index As Integer)
If Isi.Caption = “” Then
x = 0
Else
x = Isi.Caption
End If
Isi.Caption = x ^ 2
End Sub

//tombol tanda
Private Sub Tanda_Click()
If x <= 0 Then
x = x * -1
Isi.Caption = x

Else
x = x * -1
Isi.Caption = “-” & Isi.Caption

End If
Koma.Enabled = True
End Sub

// tombol akar
Private Sub Akar_Click()
If Isi.Caption = “” Then
x = 0
Else
x = Isi.Caption
End If
If x < 0 Then
Isi.Caption = “Tidak Boleh Negatif..!”
Else
Isi.Caption = Sqr(x)
End If
End Sub

8 penulisan kode terakhir pada tanda koma
Private Sub Koma_Click()
kom = 1
If kom = 1 Then
Koma.Enabled = False
Else
Koma.Enabled = True
End If
If x = 0 Then
Isi.Caption = “0,”
Else
Isi.Caption = Isi.Caption & “,”
End If
End Sub

9. setelah selesai coba run atau jalankan proggramnya.
jika benar maka akan terlihat seperti ini :