Pada kesempatan kali ini, gua akan membuat program koreksi dengan Tema Kandungan Asam yang kita gunakan dalam kehidupan sehari-hari. Kalau berbicara masalah Asam pasti itu selalu terikat dengan pelajaran Kimia, yah bisa dibilang begitu. Tapi sekarang kita hanya akan membuat program sederhana dulu.
Berikut Codingannya :
CLS
COLOR 22
PRINT "________________________________________________________________________________"
COLOR 12
PRINT ""
PRINT " SELAMAT DATANG DI PROGRAM UJIAN KANDUNGAN ASAM"
COLOR 22
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 11
PRINT " =============== PERATURAN MENGIKUTI UJIAN KANDUNGAN ASAM ================ "
COLOR 22
PRINT "________________________________________________________________________________"
COLOR 14
PRINT ""
PRINT " 1. MAHASISWA DIWAJIBKAN MENGISI DATA DENGAN BENAR "
PRINT " 2. SOAL YANG DIKERJAKAN BERJUMLAH 5 SOAL, JIKA INGIN TUNTAS WAJIB BENAR 3 SOAL "
PRINT " 3. TIDAK BOLEH BEKERJASAMA DENGAN MAHASISWA LAINNYA "
COLOR 22
PRINT "________________________________________________________________________________"
COLOR 9
PRINT ""
INPUT " NAMA MAHASISWA : ", G$
INPUT " NPM : ", NPM
INPUT " KELAS : ", K$
CLS
COLOR 15
PRINT ""
PRINT " MENENTUKAN KANDUNGAN ASAM DALAM KEHIDUPAN"
PRINT ""
COLOR 14
PRINT " KERJAKAN SOAL BERIKUT! "
PRINT ""
PRINT " 1. ASAM YANG TERKANDUNG DALAM CUKA ( ASETAT / SITRAT )"
PRINT " 2. ASAM YANG TERKANDUNG DALAM ANGGUR ( TARTRAT / SITRAT )"
PRINT " 3. ASAM YANG TERKANDUNG DALAM APEL ( MALAT / SITRAT )"
PRINT " 4. ASAM YANG TERKANDUNG DALAM OBAT TETES MATA ( BORAT / ASKORBAT )"
PRINT " 5. ASAM YANG TERKANDUNG DALAM VITAMIN C ( ASKORBAT / BORAT )"
PRINT ""
COLOR 15
FOR N = 1 TO 5
PRINT " JAWABAN NOMOR"; N
INPUT " JAWABAN ANDA : ", J$(N)
NEXT N
CLS
CLS
COLOR 13
PRINT ""
PRINT " HASIL UJIAN KANDUNGAN ASAM"
COLOR 12
PRINT ""
PRINT " NAMA MAHASISWA : "; G$
PRINT " NPM : "; NPM
PRINT " KELAS : "; K$
S = 0
COLOR 4
PRINT " _______________________________________________________________"
PRINT "|"; TAB(3); "NO"; TAB(6); "|"; TAB(9); "KUNCI JAWABAN"; TAB(24); "|"; TAB(28); "JAWABAN MAHASISWA"; TAB(48); "|"; TAB(52); "KETERANGAN"; TAB(65); "|"
PRINT " _______________________________________________________________"
IF J$(1) = "SITRAT" THEN
PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "SITRAT"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(1) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "SITRAT"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(1) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(2) = "TARTRAT" THEN
PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "TARTRAT"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(2) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "TARTRAT"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(2) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(3) = "MALAT" THEN
PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MALAT"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(3) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MALAT"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(3) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(4) = "BORAT" THEN
PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BORAT"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(4) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BORAT"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(4) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(5) = "ASKORBAT" THEN
PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "ASKORBAT"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(5) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "ASKORBAT"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(5) = 0
PRINT " _______________________________________________________________"
END IF
COLOR 18
PRINT ""
B = S(1) + S(2) + S(3) + S(4) + S(5)
PRINT "JAWABAN BENAR : "; B
NILAI = (S(1) + S(2) + S(3) + S(4) + S(5)) * 20
PRINT ""
PRINT "NILAI DENGAN NAMA "; G$; " ADALAH "; NILAI
END
Berikut Codingannya :
CLS
COLOR 22
PRINT "________________________________________________________________________________"
COLOR 12
PRINT ""
PRINT " SELAMAT DATANG DI PROGRAM UJIAN KANDUNGAN ASAM"
COLOR 22
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 11
PRINT " =============== PERATURAN MENGIKUTI UJIAN KANDUNGAN ASAM ================ "
COLOR 22
PRINT "________________________________________________________________________________"
COLOR 14
PRINT ""
PRINT " 1. MAHASISWA DIWAJIBKAN MENGISI DATA DENGAN BENAR "
PRINT " 2. SOAL YANG DIKERJAKAN BERJUMLAH 5 SOAL, JIKA INGIN TUNTAS WAJIB BENAR 3 SOAL "
PRINT " 3. TIDAK BOLEH BEKERJASAMA DENGAN MAHASISWA LAINNYA "
COLOR 22
PRINT "________________________________________________________________________________"
COLOR 9
PRINT ""
INPUT " NAMA MAHASISWA : ", G$
INPUT " NPM : ", NPM
INPUT " KELAS : ", K$
CLS
COLOR 15
PRINT ""
PRINT " MENENTUKAN KANDUNGAN ASAM DALAM KEHIDUPAN"
PRINT ""
COLOR 14
PRINT " KERJAKAN SOAL BERIKUT! "
PRINT ""
PRINT " 1. ASAM YANG TERKANDUNG DALAM CUKA ( ASETAT / SITRAT )"
PRINT " 2. ASAM YANG TERKANDUNG DALAM ANGGUR ( TARTRAT / SITRAT )"
PRINT " 3. ASAM YANG TERKANDUNG DALAM APEL ( MALAT / SITRAT )"
PRINT " 4. ASAM YANG TERKANDUNG DALAM OBAT TETES MATA ( BORAT / ASKORBAT )"
PRINT " 5. ASAM YANG TERKANDUNG DALAM VITAMIN C ( ASKORBAT / BORAT )"
PRINT ""
COLOR 15
FOR N = 1 TO 5
PRINT " JAWABAN NOMOR"; N
INPUT " JAWABAN ANDA : ", J$(N)
NEXT N
CLS
CLS
COLOR 13
PRINT ""
PRINT " HASIL UJIAN KANDUNGAN ASAM"
COLOR 12
PRINT ""
PRINT " NAMA MAHASISWA : "; G$
PRINT " NPM : "; NPM
PRINT " KELAS : "; K$
S = 0
COLOR 4
PRINT " _______________________________________________________________"
PRINT "|"; TAB(3); "NO"; TAB(6); "|"; TAB(9); "KUNCI JAWABAN"; TAB(24); "|"; TAB(28); "JAWABAN MAHASISWA"; TAB(48); "|"; TAB(52); "KETERANGAN"; TAB(65); "|"
PRINT " _______________________________________________________________"
IF J$(1) = "SITRAT" THEN
PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "SITRAT"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(1) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "SITRAT"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(1) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(2) = "TARTRAT" THEN
PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "TARTRAT"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(2) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "TARTRAT"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(2) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(3) = "MALAT" THEN
PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MALAT"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(3) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MALAT"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(3) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(4) = "BORAT" THEN
PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BORAT"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(4) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BORAT"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(4) = 0
PRINT " _______________________________________________________________"
END IF
IF J$(5) = "ASKORBAT" THEN
PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "ASKORBAT"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(5) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "ASKORBAT"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(5) = 0
PRINT " _______________________________________________________________"
END IF
COLOR 18
PRINT ""
B = S(1) + S(2) + S(3) + S(4) + S(5)
PRINT "JAWABAN BENAR : "; B
NILAI = (S(1) + S(2) + S(3) + S(4) + S(5)) * 20
PRINT ""
PRINT "NILAI DENGAN NAMA "; G$; " ADALAH "; NILAI
END
Fungsi Statement yang digunakan pada program ini antara lain :
1. LET
Statement SELECT CASE digunakan untuk menyatakan suatu kondisi tertentu. SELECT CASE ini juga sama dengan IF...THEN
7. GOTO
Statement GOTO berguna untuk melompatkan proses eksekusi ke suatu baris yang diberi nomor baris tanpa harus mentest suatu kondisi, sehingga sering disebut dengan statement alih tanpa syarat. Baris yang dituju untuk dieksekusi kemudian ditandai dengan nomor baris tertentu.
8. FOR NEXT
Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.
9. IF .... THEN .... ELSE
Perintah ini menandakan bahwa dalam IF terdapat IF lagi di dalamnya. Dalam mengakhiri perintah ini harus menggunakan END IF.
10. TAB(Jarak Spasi)
Perintah ini digunakan untuk membuat tabel yang dikondisikan dengan jarak yang kita inginkan.
11. $ (String)
Fungsi STRING ($) pada QBasic adalah untuk tipe data untuk teks atau alphabetic.
1. LET
Statement LET biasanya digunakan untuk memasukan sebuah nilai/harga kedalam suatu variabel yang mana harga/nilai dari sebuah variabel tersebut boleh berubah.
Misal LET A = 3
2. PRINT
Statement PRINT digunakan untuk mencetak atau menampilkan data hasil pengolahan pada layar tampilan.
3. REM
Statement REM digunakan untuk memberikan komentar, judul, penjelasan program, keterangan mengenai variabel program tanpa merubah program tersebut.
4. CLS
Statement CLS digunakan agar tidak terjadi pengulangan program pada hasil input.
5. COLOR
Statement COLOR digunakan untuk mewarnai tulisan pada hasil codingan. Contoh COLOR 13, angka awal pada COLOR tersebut menandakan warna tulisannya sedangkan angka 3 menandakan warna Backgroundnya. Jadi kalau ingin mengubah warna background atau tulisan kalian hanya perlu mengubah angka pertama untuk tulisan atau angka kedua untuk background.
6. SELECT CASE5. COLOR
Statement COLOR digunakan untuk mewarnai tulisan pada hasil codingan. Contoh COLOR 13, angka awal pada COLOR tersebut menandakan warna tulisannya sedangkan angka 3 menandakan warna Backgroundnya. Jadi kalau ingin mengubah warna background atau tulisan kalian hanya perlu mengubah angka pertama untuk tulisan atau angka kedua untuk background.
Statement SELECT CASE digunakan untuk menyatakan suatu kondisi tertentu. SELECT CASE ini juga sama dengan IF...THEN
7. GOTO
Statement GOTO berguna untuk melompatkan proses eksekusi ke suatu baris yang diberi nomor baris tanpa harus mentest suatu kondisi, sehingga sering disebut dengan statement alih tanpa syarat. Baris yang dituju untuk dieksekusi kemudian ditandai dengan nomor baris tertentu.
8. FOR NEXT
Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.
9. IF .... THEN .... ELSE
Perintah ini menandakan bahwa dalam IF terdapat IF lagi di dalamnya. Dalam mengakhiri perintah ini harus menggunakan END IF.
10. TAB(Jarak Spasi)
Perintah ini digunakan untuk membuat tabel yang dikondisikan dengan jarak yang kita inginkan.
11. $ (String)
Fungsi STRING ($) pada QBasic adalah untuk tipe data untuk teks atau alphabetic.
Berikut codingannya :
Berikut hasil codingan/outputnya :
0 komentar:
Posting Komentar