Haii sobat bloggers, pada postingan kali ini kita akan coba membahas tentang bagaimana cara membuat tabel dengan inputan pada qbasic. Untuk kesempatan kali ini kita akan coba membuat tabel kriteria lomba catur.
Ok tidak usah lama lagi, mari kita mulai.
Yang pertama kita harus membuat alur flowchartnya itu sendiri, dan saya akan mencontohkan sebuah alur menggunakan soal cerita.
Dari contoh soal di atas, saya mengambil soal kriteria penilaian catur. Dan ini adalah program buatan saya.
REM Soal Nomor 14 //digunakan untuk mengisi judul, bisa di ganti apa saja.
CLS
DIM HASIL AS STRING
CLS
PRINT ""
COLOR 15
PRINT " ****************************************************************************** "
COLOR 19
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
COLOR 10
PRINT ""
PRINT " * KRITERIA LOMBA CATUR INTERNATIONAL * "
PRINT " * AKADEMI FAKULTAS INFORMATIKA * "
PRINT " * UNIVERSITAS GUNADARMA (GUNDAR) - INDONESIA * "
PRINT ""
COLOR 19
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
COLOR 15
PRINT " ****************************************************************************** "
PRINT ""
COLOR 10
INPUT "MASUKAN JUMLAH DATA YANG ANDA AKAN MASUKAN = ", N
FOR i = 1 TO N
PRINT ""
PRINT ""
COLOR 15
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
PRINT ""
COLOR 10
PRINT " PENILAIAN LOMBA CATUR "
PRINT " MAHASISWA GUNADARMA "
PRINT " SILAHKAN MASUKAN DATA ANDA"
PRINT " "
PRINT " "
INPUT " MASUKAN NAMA (DEPAN) : ", h$(i)
INPUT " MASUKAN JURUSAM : ", j$(i)
INPUT " MASUKAN JENIS KELAMIN (L / P) : ", k$(i)
INPUT " MASUKAN PERTANDINGAN PERIODE 1 : ", l(i)
INPUT " MASUKAN PERTANDINGAN PERIODE 2 : ", m(i)
INPUT " MASUKAN PERTANDINGAN PERIODE 3 : ", n(i)
PRINT ""
COLOR 15
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
NEXT i
CLS
PRINT ""
COLOR 15
PRINT " ****************************************************************************** "
COLOR 19
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
PRINT ""
COLOR 10
PRINT " * KRITERIA LOMBA CATUR INTERNATIONAL * "
PRINT " * AKADEMI FAKULTAS INFORMATIKA * "
PRINT " * UNIVERSITAS GUNADARMA (GUNDAR) - INDONESIA * "
PRINT ""
COLOR 19
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
COLOR 15
PRINT " ****************************************************************************** "
PRINT ""
COLOR 10
PRINT " HASIL OUTPUT CATUR GUNADARMA INTERNATIONAL"
PRINT ""
COLOR 15
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
COLOR 10
PRINT TAB(5); "NAMA"; TAB(18); "JURUSAN"; TAB(32); "JK"; TAB(40); "P.1"; TAB(50); "P.2"; TAB(60); "P.3"; TAB(68); "HASIL";
COLOR 15
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
FOR i = 1 TO N //Perulangan, N berfungsi untuk memasukan jumlah input yang diinginkan.
LET D = l(i)
LET e = m(i) * 0.5
LET f = n(i) * 0
LET g = D + e + f
LET w = l(i) + m(i) + n(i)
IF w > 24 THEN
HASIL = "MAX RONDE 24"
ELSE IF g > 18 THEN
HASIL = "GRANDMASTER "
ELSE IF g >= 12 AND g <= 18 THEN
HASIL = "MASTER "
ELSE
HASIL = "TANPA GELAR "
END IF
END IF
END IF
COLOR 10
PRINT TAB(5); h$(i); TAB(18); j$(i); TAB(32); k$(i); TAB(40); l(i); TAB(50); m(i); TAB(60); n(i); TAB(68); HASIL;
NEXT i
COLOR 15
PRINT " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|-=-|-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-="
COLOR 10
PRINT "P.1 = PERIODE 1"
PRINT "P.2 = PERIODE 2"
PRINT "P.3 = PERIODE 3"
COLOR 15
PRINT " @PANCA MUHAMMAD YUSUF "
END
========================================================================
NOTE :
Syntax umum :
- CLS = digunakan untuk menghapus seluruh output apabila di enter.
- DIM (nama variabel) AS STRING = untuk membuat deklarasi publik.
- PRINT = digunakan untuk menampilkan output.
- COLOR (nomor warna) = digunakan untuk memberikan warna.
- PRINT TAB(Jumlah Index) = digunakan untuk memberikan jarak antara satu tulisan dengan tulisan lainnya.
- LET (nama variabel) = digunakan untuk mendeklarasikan nilai variabel.
Perulangan :
Disini saya menggunakan perulangan if - else if - else then dikarenakan penggunaanya yang lebih mudah, anda juga dapat mengganti perulangan ini dengan switch case, atau for. Untuk saat ini saya mencontohkan dengan menggunakan if - else if - else then.
LET D = l(i) //Input dari variabl l.
LET e = m(i) * 0.5 //Input variabel m(i) dikali 0.5 (sesuai soal).
LET f = n(i) * 0 //Input variabel n(i) dikali 0 (sesuai soal).
LET g = D + e + f //Penjumlahan untuk nilai rata rata ketiganya.
LET w = l(i) + m(i) + n(i) //penjumlahan nilai, apabila melebihi 24 ronde akan muncul "MAX RONDE 24"
IF w > 24 THEN //Jumlah ronde.
HASIL = "MAX RONDE 24" //Output.
ELSE IF g > 18 THEN //75% dari 24.
HASIL = "GRANDMASTER " //Output.
ELSE IF g >= 12 AND g <= 18 THEN //Menjalankan kondisi kedua 50% - 75% dari 24.
HASIL = "MASTER " //Output.
ELSE
HASIL = "TANPA GELAR " //Menjalankan kondisi akhir apabila tidak terpenuhi
END IF
END IF
END IF
Dan terakhir adalah perulangan yang dibutuhkan. Yaitu FOR.
INPUT "MASUKAN JUMLAH DATA YANG ANDA AKAN MASUKAN = ", N
FOR i = 1 to N
.
.
,
NEXT i
"i" digunakan untuk memberikan nama untuk fornya, dan N digunakan untuk berapa kali kita memasukan jumlah inputan datanya. dan penutup "NEXT i" untuk mengakhiri perulangan.
Dan ini Adalah Hasilnya :
Cukup mudah bukan? yups sangat mudah. apabila ada yang tidak mengerti bisa ditanyakan di dalam kolom komentar.
Sampai bertemu di post selanjutnya, byeee.
Bagikan
Cara Membuat Program Kriteria Lomba Catur Dengan Tabel Inputan Pada qbasic
4/
5
Oleh
Panca Muhammad Yusuf
