Cara Membuat Kalkulator Sederhana Menggunakan Microsoft Visual Basic 6.0
Bosan dengan program yang sering anda buat? tidak punya ide? cobalah untuk membuat kalkulator sederhana menggunakan Visual Basic 6.0.
Mau tahu cara untuk membuatnya? Berikut saya beri coding serta hasilnya.
Berikut adalah hasil dari Kalkulator Sederhana :
1. Buka atau Open Microsorft visual basic dengan cara : star -> all progran -> Microsoft visual basic 6.0
![]() |
| Buka Microsoft Visual Basic 6.0 |
2. Membuat project baru dengan cara : pilih standar.exe -> pilih open
![]() |
| Project baru |
3. Begini tampilan project barunya
![]() |
| Tampilan project baru |
4. Membuat desain formnya utuk kalkulatornya sebagi berikut :
keterangan :
No | Control | Propertinya | |||
1 | Nama | Caption | Font | Text | |
2 | Form1 | Form1 | Kalkulator sederhana | 12 | tidak dirubah |
3 | Label1 | Label1 | Bilangan 1 | 14 | tidak dirubah |
4 | Label2 | Label2 | Bilangan 2 | 14 | tidak dirubah |
5 | Label4 | Label4 | Kalkulator sederhana | 14 | tidak dirubah |
6 | Label3 | Hasil | Label3 | 14 | tidak dirubah |
7 | Text1 | Tidak dirubah | tidak dirubah | tidak dirubah | Kosongkan |
8 | Text2 | Tidak dirubah | tidak dirubah | tidak dirubah | Kosongkan |
9 | Text3 | Tidak dirubah | tidak dirubah | tidak dirubah | Kosongkan |
10 | Command1 | Cmdkali | X | 14 | (-) |
11 | Command2 | Cmdbagi | / | 14 | (-) |
12 | Command3 | Cmdtambah | (+) | 14 | (-) |
13 | Command4 | Cmdkurang | (-) | 14 | (-) |
14 | Command5 | Cmdkeluar | Exit | 14 | (-) |
15 | Commad6 | Cmdapus | C | 14 | (-) |
5.Masukan codinganya kedalam program codinganya adalah sebagai berikut :
Caranya dobel klik pada salah satu tombol atau Command -->> hapus semua script yang ada -->> copy paste script dibawah ini :
Caranya dobel klik pada salah satu tombol atau Command -->> hapus semua script yang ada -->> copy paste script dibawah ini :
Private Sub Cmdkali_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Cmdbagi_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Cmdtambah_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Cmdkurang_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdapus_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
6. Kemudian tombol star pada toolbar atau tekan F5 pada keyboard untuk menjalankan program kalkulator sederhana ini yang sudah kita buat .
![]() |
| star pada toolbar |
7. beginilah program setelah dijalankan
| program saat dijalankan |
8. Membuat program kalkulator sederhana sudah selesai.
Semoga bermanfaat dan selamat mencoba ya :)
Semoga bermanfaat dan selamat mencoba ya :)




Komentar
Posting Komentar