Page 118 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

Gotoxy(kiri, atas+pilih);write (‘>’); //variabel “atas” akan ditambah jika nilai di dalam
variabel “pilih” //dan kemudian menunjukkan koordinat (kiri,atas+pilih) => (18,5+pilih)
//misal hasil pilih=1,
Gotoxy(1,25);
Key:=readkey;
Until key=#13; //#13 merupakan kode dari keyboard “ENTER” //karakter “>” akan menuju
koordinat (18,5+1)
End;
Begin
Textbackground(15); {Kode warna putih}
Textcolor(green);
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 dicetak tebal menyatakan kata-kata penting (keywords)
yang nantinya berpadan dengan kata penting pada bahasa komputer yang dipilih
untuk mentranslasikan algoritma tersebut. Kalimat sesudah tanda (//) dan
berwarna merah menyatakan keterangan berguna untuk memperjelas instruksi
yang ditulis.
Jika program dirunning atau tekan F5 pada keyboard maka tampilan program
akan seperti berikut:

Gambar 4.10 Tampilan Menu

Note : Tanda > bisa bergerak ke atas dan ke bawah. Jika dipilih menu
INSTRUCTION maka tampilannya akan sebagai berikut:

Praktikum Dasar Komputer dan Pemrograman 2021 IV-107