Selasa, 12 Maret 2013

Membuat Kalkulator Sederhana Menggunakan QBasic

Diposting oleh desty anjar di Selasa, Maret 12, 2013

Program kalkulator sederhana ini bertujuan untuk membantu pengguna dalam operasi matematika. Di dalam program yang kami buat, operasi matematika yang dapat di jalankan adalah sebanyak 8 pengoprasian, yaitu penjumlahan, pengurangan, perkalian, pembagian, pemangkatan, akar, Mod, dan Div.
Pertama pengguna akan diminta memasukkan angka pertama untuk di operasikan, setelah angka dimasukan, dan di simpan kedalam suatu variabel (numb1). Setelah itu akan ditanyakan apakah pengguna butuh angka ke 2 atau tidak, karena untuk pangkat dan akar hanya membutuhkan 1 angka. Jika pengoprasiannya berupa +,-,x,/,Mod, Div ketikanlah “y”, jika pengoprasiannya selain yang kami sebutkan, ketikan “n”.
Jika memilih “y” maka pengguna akan diminta angka ke 2 dan disimpan di variabel yang berbeda dengan variabel pertama (numb2). Jika memilih “n” maka akan langsung ke dalam menu 1-8 yaitu 1. +, 2. -, 3.x 4./ 5. 2(pangkat)  6.  (akar) 7.Mod 8. Dev.
Setelah dipilih maka akan dimulailah operasi yang sesuai dengan pilihan pengguna, dengan menggunakan variabel jwb, maka jika dipilih no.1 maka -> jwb = num1 + num2, 2: jwb = num1 - num2, 3: jwb = num1 * num2, 4: jwb = num1 / num2, 5: jwb = num1 ^ num2, 6: jwb = SQR(num1), 7: jwb = num1 MOD num2, 8: jwb = num1 \ num2. Setelah itu akan keluar “jawaban: jwb”.
Setelah itu pengguna akan mendapati kalimat “selesai (y). masukkan angka 3 (n)” ini digunakan jika akan mengoprasikan matematika yang bisa / tidak berkaitan dengan si “jwb”. Jika dipilih “n” maka, akan keluar kalimat “jawaban sebelumnya: jwb”, dan meminta angka ke 3, dan akan di simpan ke dalam variabel baru (numb3) setelah itu akan keluar menu yang sebelumnya terlihat yaitu 1. +, 2. -, 3.x 4./ 5. 2(pangkat)  6.  (akar) 7.Mod 8. Dev.
Setelah itu akan masuk lagi ke dalam pengoperasian sebagai mirip dengan yang sebelumnya yaitu 1: jwb2 = jwb + num3, 2: jwb2 = jwb - num3, 3: jwb2 = jwb * num3,4: jwb2 = jwb / num3, 5: jwb2 = jwb ^ num3, 6: jwb2 = sqr(jwb), 7: jwb2 = jwb MOD num3, 8: jwb2 = jwb \ num3.  Dan hasil dari operasi tersebut akan masuk ke variabel jwb2.
Jika saat mendapati kalimat “selesai (y). masukkan angka 3 (n)” ini dan memilih “y” maka akan selesailah program kalkulator yang telah digunakan oleh si pengguna. 

  • Design Kalkulator




  • Coding-an Program Kalkulator 


0 CLS
10 PRINT "kalkulator sederhana menggunakan qbasic"
PRINT
20 INPUT "masukkan angka 1="; num1
INPUT "masukkan angka 2? (y/n):"; masuk$
IF masuk$ = "y" GOTO 30
IF masuk$ = "n" GOTO 40
30 INPUT "masukkan angka 2="; num2
PRINT
40 PRINT "pilih operasi perhitungan:"
PRINT "1. +"
PRINT "2. -"
PRINT "3. *"
PRINT "4. /"
PRINT "5. pangkat (angka 1)"
PRINT "6. akar"
PRINT "7. mod"
PRINT "8. div"
PRINT
PRINT
INPUT "ketik nomor dari 1-8 untuk memilih:"; opNo%
SELECT CASE opNo%
CASE 1: jwb = num1 + num2
CASE 2: jwb = num1 - num2
CASE 3: jwb = num1 * num2
CASE 4: jwb = num1 / num2
CASE 5: jwb = num1 ^ num2
CASE 6: jwb = SQR(num1)
CASE 7: jwb = num1 MOD num2
CASE 8: jwb = num1 \ num2
END SELECT
PRINT "jawaban="; jwb
PRINT
INPUT "selesai (y). masukkan angka 3 (n):"; selesai$
IF selesai$ = "y" GOTO 200
IF selesai$ = "n" GOTO 50
50 CLS
PRINT
PRINT
PRINT
PRINT "jawaban sebelumnya="; jwb
INPUT "masukkan angka 3="; num3
PRINT "pilih operasi perhitungan:"
PRINT "1. +"
PRINT "2. -"
PRINT "3. *"
PRINT "4. /"
PRINT "5. pangkat"
PRINT "6. akar (jawaban 1)"
PRINT "7. mod"
PRINT "8. div"
PRINT
PRINT
PRINT
INPUT "ketik nomor dari 1-8 untuk memilih:"; opNo%
SELECT CASE opNo%
CASE 1: jwb2 = jwb + num3
CASE 2: jwb2 = jwb - num3
CASE 3: jwb2 = jwb * num3
CASE 4: jwb2 = jwb / num3
CASE 5: jwb2 = jwb ^ num3
CASE 6: jwb2 = sqr(jwb)
CASE 7: jwb2 = jwb MOD num3
CASE 8: jwb2 = jwb \ num3
END SELECT
PRINT
PRINT "jawaban 2="; jwb2
PRINT
INPUT "jika selesai tekan (y), jika ingin mengulang tekan (n):"; selesai$
IF selesai$ = "y" GOTO 200
IF selesai$ = "n" GOTO 0
200 END

  • Output Program Kalkulator Sederhana





0 komentar:

Posting Komentar

 

DESNDESTY Template by Ipietoon Blogger Template | Gift Idea