Kalkulator merupakan alat untuk menghitung bilangan angka biasanya di gunakan di sekolahan, kantor, instansi dan lain-lain yang berfungsi mulai dari perkalian, pengurangan, pembagian, persen dan banyak lagi kegunaan kalkulator ini
Untuk tutorial sekarang kami mengambil hasil contoh belajar member dari Group Belajar Visual Basic 6, yaitu tentang Cara membuat Kalkulator sederhana dengan Visual Basic, Kalkulator ini hanya menghitung perkalian, pengurangan, pembagian, pertambahan jadi cukup sederhana untuk belajar mengenal logika dan mengembangan logika IF/then. Logika If/then ini merupakan logika untuk memperkirakan hal yang akan terjadi menurut pemahaman sederhana saya.
Untuk lebih jelasnya mari kita langsung ke materi Cara Membuat Kalkulator Sederhana dengan Visual Basic.
1. Buatlah sebuah form dengan Referensi desain form seperti di bawah ini, untuk tampilan desain pada visual basic bisa di sesuaikan dengan selera.
2. Buatlah 18 Command button untuk angka 1 sampai 10, 1 buah text box untuk memasukan angka dan tambahan lain seperti gambar desain form di atas.
3. Masukan kode program tersebut pada visual basic sesuai dengan pengaturan properti yang sudah di atur
Dim inAngka(0 To 1), Opr
Private Sub cmdAngka_Click(Index As Integer)
txtHasil.Text = txtHasil.Text + cmdAngka(Index).Caption
End Sub
Private Sub cmdClear_Click()
txtHasil.Text = ""
End Sub
Private Sub cmdKoma_Click()
If txtHasil.Text <> "" Then
txtHasil.Text = txtHasil.Text + ","
End If
End Sub
Private Sub cmdOpr_Click(Index As Integer)
If txtHasil.Text <> "" Then
inAngka(0) = CSng(txtHasil.Text)
Opr = cmdOpr(Index).Caption
txtHasil.Text = ""
Else
psn = MsgBox("Masukkan Angka Terlebih Dahulu!", vbCritical, "Warning!")
End If
End Sub
Private Sub cmdPlusMin_Click()
txtHasil.Text = txtHasil.Text * (-1)
End Sub
Private Sub cmdProses_Click()
inAngka(1) = CSng(txtHasil.Text)
Select Case Opr
Case "*"
total = inAngka(0) * inAngka(1)
Case "/"
total = inAngka(0) / inAngka(1)
Case "+"
total = inAngka(0) + inAngka(1)
Case "-"
total = inAngka(0) - inAngka(1)
End Select
txtHasil.Text = total
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :