Program Koreksi Menggunakan Qbasic

-

Oke kali ini saya akan membuat program koreksi menggunakan Qbasic.
Disini saya akan membuat sebuah program, dimana program tersebut dapat mengkoreksi nilai dari sebuah data yang kita masukan.
Berikut programnya.

CLS
PRINT ""
COLOR 14
PRINT "                NILAI RATA-RATA QUIZ MATEMATIKA DASAR KELAS 1KA04"
COLOR 13
PRINT "         ________________________________________________________________"
PRINT "               ___________________________________________________"
PRINT ""
PRINT ""
COLOR 11
INPUT "ISI BANYAK DATA YANG DIINGINKAN : ", X
FOR i = 1 TO X
    PRINT ""
    COLOR 10
    PRINT "MASUKAN DATA ANDA"
    PRINT ""
    PRINT "DATA KE: "; i
    COLOR 3
    INPUT "  NAMA         : ", N$(i)
    INPUT "  NPM          : ", M$(i)
    INPUT "  NILAI QUIZ 1 : ", A(i)
    INPUT "  NILAI QUIZ 2 : ", B(i)
    INPUT "  NILAI QUIZ 3 : ", C(i)
    PRINT ""
NEXT i

DIM H AS STRING
CLS
COLOR 13
PRINT "                      %%% TABEL QUIZ MATEMATIKA DASAR %%%"
COLOR 14
PRINT "________________________________________________________________________________"
COLOR 3
T = 0
PRINT "________________________________________________________________________________"
PRINT ""
PRINT TAB(1); "NAMA"; TAB(9); "NPM"; TAB(19); "QUIZ KE-1"; TAB(32); "QUIZ KE-2"; TAB(44); "QUIZ KE-3"; TAB(56); "RATA-RATA"; TAB(68); "HASIL";
PRINT "________________________________________________________________________________"
FOR i = 1 TO X
    LET Y = 3
    R = (A(i) + B(i) + C(i)) / Y
    IF R > 95 THEN
        H = "SANGAT BAIK"
    ELSEIF R > 80 THEN
        H = "BAIK"
    ELSEIF R > 75 THEN
        H = "CUKUP"
    ELSEIF R > 65 THEN
        H = "KURANG"
    ELSE
        H = "TIDAK ADA"
    END IF
    T = T + R
    PRINT TAB(1); N$(i); TAB(9); M$(i); TAB(19); A(i); TAB(32); B(i); TAB(44); C(i); TAB(56); R; TAB(68); H;
    PRINT "________________________________________________________________________________"
NEXT i
PRINT ""
PRINT ""
KEL = T / X
PRINT "NILAI RATA - RATA ADALAH ", KEL
END


1
2
3

Itu adalah program dimana program tersebut akan mengkoreksi jawaban benar atau salah dari seorang mahasiswa yang mengikuti ujian praktik biologi.
Setelah membuat program seperti di atas maka saat program di jalankan akan muncul tampilan program seperti di bawah ini :

4
Itu adalah tampilan program yang dijalankan dan langsung saya isikan datanya, setelah itu tekan enter untuk melanjutkan,

5

Lalu akan muncul soal ujiannya dan kita tinggal mengisikan salah satu jawaban dari merah atau biru, pada gambar di atas saya sudah langsung mengisikan jawabannya. Setelah mengisi semua jawaban kita tinggal menekan enter untuk melihat hasilnya. dan akan muncul seperti gambar di bawah ini :

6


Nah begitu lah penjelasan singkat saya tentang langkah -langkah membuat program koreksi dengan Qbasic.
Terimakasih....







Komentar

Posting Komentar

Postingan populer dari blog ini

Membuat Program Menggunakan Qbasic

-
Gambar
Apakah kalian mahasiswa di bidang TI? atau kalian Siswa/Siswi SMA yang ingin melanjutkan perkuliahan di bidang TI?, maka tentunya kalian akan bergelut dengan yang namanya Komputer dan juga kalian akan mempelajari tentang berbagai program komputer, salah satunya yaitu Qbasic.  Apa itu Qbasic? Qbasic adalah sebuah bahasa pemograman tingkat tinggi yang merupakan salah satu versi dari bahasa BASIC (kependekan dari Beginner’s All-Purpose Symbolic Instruction Code, merupakan bahas yang biasa dipakai untuk belajar memprogram). Qbasic dibuat oleh Microsoft Corporation dan tersedia pertama kali mulai pada DOS 5.0. Nah.. kali ini saya akan membahas beberapa statement dalam membuat program menggunakan Qbasic berserta contohnya. Postingan ini saya buat juga karena tugas dari Dosen Algoritma Pemrograman yaitu Bu Ito Riris. Cekidottt.....!!! Oke hal pertama yaitu kita harus memiliki software Qbasic, tentu saja ini sangat penting karena untuk membuat sebuah program dari Qbasic ki...
Baca selengkapnya

Program mencari nilai rata - rata menggunakan Qbasic

-
Gambar
Mencari nilai rata - rata dengan Qbasic? Tentunya kita pasti tau dong apa itu nilai rata - rata dan bagaimana cara mencarinya? Nah kali ini saya akan membahas bagaimana cara mencari nilai rata - rata tersebut, etss.. tapi tunggu dulu.. yang saya maksud itu bukan akan memberikan rumusnya, tapiiii... ini berbeda, yaitu dengan membuat program rata - rata menggunakan Qbasic.  Oke kita akan langsung membahasnya..... 1. Langkah pertama yaitu menuliskan program rata - ratanya, seperti berikut : CLS PRINT "" COLOR 14 PRINT "                NILAI RATA-RATA QUIZ MATEMATIKA DASAR KELAS 1KA04" COLOR 13 PRINT "         ________________________________________________________________" PRINT "               ___________________________________________________" PRINT "" PRINT "" COLOR 11 INPUT "ISI BANYAK DATA YANG DIINGINKAN : ", X FOR i = 1 TO X     PRINT ...
Baca selengkapnya

Deret Aritmetika dengan Qbasic

-
Gambar
Deret Aritmetika adalah jumlah suku - suku barisan dari barisan Aritmatika. Lantas apa hubungannya dengan Qbasic? tentu saja ada hubungannya di postingan saya kali ini, karena saya akan membuat sebuah program deret aritmatika menggunakan Qbasic. Disini saya sudah punya satu contoh program yang saya buat : 1 2 3 4 Setelah menuliskan semua program beserta statement-statementnya lalu kita Run dengan menekan F5, kemudian akan muncul perintah untuk memasukan data sesuai keinginan kita. berikut contohnya. 5 Setelah mengisikan data tekan enter untuk melanjutkan dan kemudian akan muncul pilihan menu sebagai berikut : 6 Kemudian jika kita ingin mencari hasil penjulan kita cukup memilih no 2 kemudian enter. setelah itu isikan banyak tahun yang ingin kita cari, makan akan muncul hasilnya seperti gambar di bawah ini. 7 Dan jika kita ingin mencari lagi tekan Y kemudian enter, namun jika ingin kembali kemenu awal cukup tekan N dan enter. Maka...
Baca selengkapnya