Page 97 - Modul Daskom 2020

Modul 4 – Interface, File dan Kursor 2020

Repeat
Clrscr;
Gotoxy (20,3);writeln (UTF8ToCP866 ('╔════════════════╗'));
Gotoxy (20,4);writeln (UTF8ToCP866 ('║ MAIN MENU ║'));
Gotoxy (20,5);writeln (UTF8ToCP866 ('╠════════════════╣'));
Gotoxy (20,6);writeln (UTF8ToCP866 ('║ 1. INSTRUCTION ║'));
Gotoxy (20,7);writeln (UTF8ToCP866 ('║ 2. MENU 1 ║'));
Gotoxy (20,8);writeln (UTF8ToCP866 ('║ 3. .... ║')); //NOTE:<isi prosedur bebas>
Gotoxy (20,9);writeln (UTF8ToCP866 ('║ 4. EXIT ║'));
Gotoxy (20,10);writeln (UTF8ToCP866 ('╚════════════════╝'));
Kursor (18,5,4,pilih);
if pilih=1 then ins;
if pilih=2 then mn1;
if pilih=3 then mn2;
Until pilih=4;
End.

Note: Kata-kata yang dihitamkan menyatakan kata-kata penting (keywords) yang nantinya
berpadan dengan kata penting pada bahasa komputer yang dipilih untuk mentranslasikan
algoritma tersebut. Kalimat sesudah tanda (//) ataupun kalimat dalam kurung kurawal ({
dan }) menyatakan keterangan berguna untuk memperjelas instruksi yang ditulis.

Jika programnya di running atau tekan F5 pada keyboard maka tampilan program akan seperti
berikut:

Gambar 4.10 Tampilan Menu

Note: tanda > bisa bergerak keatas dan kebawah. Jika dipilih menu INSTRUCTION maka
tampilannya akan sebagai berikut:

Gambar 4.11 Instruction Page

Praktikum Dasar Komputer & Pemrograman 2020 IV-95