Cara Membuat Kalkulator Dengan Visual Basic

Buka Visual Basic 6, dan pilih "Standard EXE" dari menu proyek baru. Anda akan melihat formulir kosong muncul di layar.

Ganti nama proyek Anda dan formulir Anda dengan mengklik "Project1" di sisi kanan layar, di daftar proyek, dan memasukkan nama baru di baris "Nama" pada kotak Properti, yang akan muncul di bawah daftar proyek dengan bawaan. Tekan "Enter" untuk menerima nama baru. Lakukan hal yang sama untuk formulir Anda (nama formulir yang disarankan adalah "CalculatorUI"), pastikan untuk memasukkan nama yang serupa di properti "Caption", yang akan mengubah teks di bilah atas formulir. Simpan proyek di folder baru di komputer Anda.

Tambahkan tombol dan kotak teks ke formulir. Pertama, tambahkan kotak teks, yang akan menjadi tempat munculnya angka-angka yang dimasukkan dalam kalkulator, serta hasil perhitungan. Lakukan ini dengan memilih tombol TextBox dari toolbar di sisi kiri layar, dan kemudian menyeret dengan mouse Anda ukuran dan lokasi yang Anda inginkan untuk TextBox. Setelah Anda menempatkan TextBox, Anda dapat mengubah ukuran dan lokasi dengan menyeretnya ke lokasi lain dari formulir atau dengan menyeret gagang (kotak kecil) di sepanjang batas TextBox. Pastikan untuk mengubah baris berikut di jendela Properties, dengan TextBox yang dipilih: "(Name)" = tbResult, "Alignment" = 1- Right Justify, "Data Format" = (klik tombol "..." untuk memilih) Number, "Locked" = True, dan "Teks" = 0.

Pilih ikon CommandButton pada toolbar dan buat tombol pertama dengan cara yang sama seperti Anda membuat TextBox untuk menambahkan tombol. Untuk referensi, gunakan kalkulator Windows dalam tampilan Standar (Program > Aksesori > Kalkulator) sebagai dasar untuk tata letak kalkulator Anda, tanpa menyertakan tombol "MC", "MR", "MS", dan "M+". Pada setiap tombol, ubah properti berikut (menggunakan tombol "+" sebagai contoh): "(Nama)" = btnPlus, "Caption" = +. Lakukan hal yang sama untuk tombol kalkulator lainnya, lalu simpan pekerjaan Anda. Formulir Anda sekarang harus menyerupai contoh yang ditunjukkan di sini.

Tambahkan kode. Perhatikan bahwa jika tombol dan kotak teks Anda tidak diberi nama yang sama dengan kode yang tercantum di sini, Anda perlu untuk mengubah nama agar sesuai dengan tombol dan kotak teks Anda, atau ubah tombol dan kotak teks Anda agar sesuai dengan ini kode. Pertama kita perlu membuat beberapa variabel untuk memproses input kalkulator:

Redup sLeft As String, sRight As String, sOperator As String Redupkan iLeft As Double, iRight As Double, iResult As Double Dim bLeft As Boolean

Setiap perhitungan terdiri dari empat bagian: angka di sebelah kiri operator (sLeft, iLeft), operator (sOperator), angka di sebelah kanan operator (sRight, iRight), dan hasil (iResult). Untuk melacak apakah pengguna memasukkan angka kiri atau kanan, kita perlu membuat variabel boolean, bLeft. Jika bLeft benar, sisi kiri perhitungan sedang dimasukkan; jika bLeft salah, sisi kanan dimasukkan.

Inisialisasi variabel bLeft. Kami melakukannya dengan membuat subrutin Form_Load, yang dapat Anda ketik seperti yang tercantum di sini atau secara otomatis dibuat dengan mengklik dua kali pada bagian mana pun dari formulir yang tidak tercakup oleh tombol atau kotak teks. Di dalam fungsi, kita perlu mengatur bLeft menjadi True, karena angka pertama yang dimasukkan akan menjadi bagian kiri:

Buat subrutin yang akan menangani klik salah satu tombol angka. Kami membuat ini sebagai subrutin karena kami menggunakan kode yang sama untuk setiap tombol, dan menggunakan subrutin berarti tidak harus mengulang kode yang sama sepuluh kali. Masukkan yang berikut di bawah Sub-baris Akhir subrutin Form_Load:

Seperti yang Anda lihat, fungsi ini mengambil parameter string, sNumber, yang akan berisi nomor yang telah diklik pengguna. Jika bLeft benar, nomor ini ditambahkan ke string yang mewakili nomor yang dimasukkan, sLeft, dan kotak teks, tbResult, diperbarui untuk menampilkan nomor baru. Jika bLeft salah, operasi yang sama dilakukan menggunakan sRight sebagai gantinya.

Terakhir, buat fungsi acara Klik untuk setiap nomor yang memanggil subrutin AddNumber kami. Anda dapat melakukannya dengan mudah dengan mengklik dua kali setiap tombol angka, yang akan membuat struktur subrutin untuk Anda. Kemudian tambahkan panggilan ke AddNumber, ganti nomor dalam tanda kutip dengan nomor yang terkait dengan tombol. Untuk tombol nol, kode Anda akan terlihat seperti ini:

Demikian juga, untuk satu tombol, kode Anda akan terlihat seperti ini:

Tangani operator: plus, minus, kali, dan bagi. Kami akan melakukan ini seperti langkah terakhir, membuat subrutin yang dipanggil dalam acara Klik untuk tombol operator. Subrutin akan terlihat seperti berikut:

Jika bLeft benar, artinya pengguna baru saja memasukkan bagian kiri perhitungan, subrutin ini menetapkan Variabel sOperator yang kita buat pada langkah 5 sama dengan operator yang dimasukkan, yang diteruskan ke AddOperator sebagai string sNewOperator. Langkah kedua adalah mengatur bLeft ke False, karena masuknya operator berarti pengguna selesai memasukkan sisi kiri persamaan. Untuk menangani entri yang menggabungkan beberapa operator, seperti 9 * 3 * 2 * 6, kita perlu periksa juga apakah bLeft salah, artinya pengguna telah memasukkan operator yang kami harapkan dan sama. Pertama kita panggil event Click for the equals button (dijelaskan pada langkah berikutnya), yang melakukan perhitungan dan menetapkan tbResult ke hasil dari apa yang telah dimasukkan. Kemudian kita hapus sRight agar pengguna dapat memasukkan angka berikutnya, dan atur bLeft ke False agar program mengetahui bahwa kita memasuki sisi kanan perhitungan selanjutnya.

Terakhir, tambahkan panggilan AddOperator ke event Click dari setiap tombol operator, menggunakan metode yang sama seperti yang kita gunakan pada langkah 7 untuk membuat event Click untuk tombol angka. Kode Anda untuk tombol plus akan terlihat seperti ini:

Buat event Click for the equals button, yang merupakan kode paling kompleks dalam program ini. Buat struktur subrutin seperti yang Anda lakukan untuk tombol lainnya, dengan mengklik dua kali tombol sama dengan pada formulir Anda. Subrutin Anda akan terlihat seperti ini saat Anda memasukkan kode:

Tiga baris kode pertama memeriksa untuk melihat apakah kedua sisi perhitungan telah dimasukkan bersama dengan operator. Jika hanya sisi kiri dan operator yang dimasukkan, nilai sisi kiri disalin ke kanan, jadi kita bisa meniru perilaku kalkulator standar untuk menangani entri seperti 9 * =, yang mengalikan 9 dengan dirinya sendiri untuk mendapatkan hasil 81. Sisa kode hanya akan berjalan jika kiri, kanan, dan operator dimasukkan, dan dimulai dengan menyalin string angka ke dalam variabel tipe ganda iLeft dan iRight kami, yang dapat melakukan yang sebenarnya perhitungan. Pernyataan Select Case memungkinkan kita untuk menjalankan kode yang berbeda tergantung pada operator mana yang dimasukkan, dan melakukan perhitungan yang sebenarnya, menempatkan hasilnya di iResult. Terakhir, kita perbarui kotak teks dengan hasilnya, salin hasilnya ke sLeft, reset sRight, dan atur bLeft = True. Baris terakhir ini memungkinkan kita untuk mengambil hasil perhitungan dan menggunakannya untuk melakukan perhitungan lain.

Tangani tiga tombol operasi terakhir: sqrt, %, dan 1/x. Untuk acara Klik tombol akar kuadrat, kode Anda akan terlihat seperti ini:

11 baris kode pertama memastikan bahwa jika kita tidak memiliki nilai yang dimasukkan untuk kedua sisi persamaan, kami mengganti nol alih-alih mencoba menyalin string kosong ke iLeft atau iRight, yang akan menghasilkan kesalahan. Garis tengah menjalankan fungsi akar kuadrat pada bagian perhitungan saat ini, baik kiri atau kanan. Akhirnya, kami membalikkan pemeriksaan yang kami lakukan di awal sehingga nol disalin sebagai string kosong kembali ke sLeft dan sRight.

Untuk tombol persen, kodenya serupa, dengan satu pengecualian: operasi persen hanya dapat dilakukan jika kedua sisi kiri dan kanan dimasukkan.

Terakhir, peristiwa 1/x, atau pecahan, Klik, yang sangat mirip dengan kode di atas:

Tambahkan kode untuk menangani tombol C dan CE. C menghapus semua input ke kalkulator, sedangkan CE hanya menghapus nomor yang sedang dimasukkan.

Jalankan program kalkulator Anda dan lakukan perhitungan apa pun yang Anda inginkan. Kalkulator ini dapat dengan mudah diperluas untuk menangani lebih banyak operasi, perhitungan yang lebih kompleks atau bahkan menjadi kalkulator ilmiah dengan sedikit kerja ekstra.

Tip