Page 117 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

i. Penggunaan kursor (Interface dan Procedure)
Program contoh_kursor;
Uses crt, Lconvencoding;
Var
Pilih:integer;
Key:char;
Procedure ins;
Begin
Clrscr;
Gotoxy(20,3);writeln(‘INSTRUCTION PAGE’);
Gotoxy(3,5);writeln(‘1. BACALAH DAN PAHAMI SOURCECODE PADA PROCEDURE KURSOR
YANG TERSEDIA’);
Gotoxy(3,6);writeln(‘2. LATIHLAH KEMAMPUAN ANDA DENGAN MENAMBAHKAN
PROCEDURE BARU YANG DAPAT’);
Gotoxy(3,7);writeln(‘DIMASUKKAN KE DALAM SALAH SATU PILIHAN DI PROGRAM UTAMA’);
Readln;
End;

Procedure mn1;
Begin
Clrscr;
Gotoxy(20,3);writeln('MENU SATU');
Gotoxy(3,5);writeln('1. Login');
Gotoxy(3,6);writeln('2. Program Utama');
Gotoxy(3,7);writeln('3. Exit');
Readln;
End;

Procedure mn2;
Begin
Clrscr;
Gotoxy(20,3);writeln(‘MENU DUA’);
Readln;
End;

Procedure Kursor(kiri,atas,baris:integer; var pilih:integer); //NILAI kursor(18,5,4,pilih)
ditransfer ke dalam variabel procedure
Begin //ditransfer kedalam variabel procedure
Pilih:=1; //pilih baru memiliki nilai=1 //kiri=18, atas=5, baris=4, pilih=…
Key:=#0; //pemberian nilai awal untuk kode keyboard
Repeat
Gotoxy(kiri,atas+pilih);write(‘ ‘); //memasukkan karakter ‘ ‘ pada koordinat kiri=18, atas=5,
baris=4, pilih=1
If key=#72 then //#72 merupakan kode dari keyboard “UP” // penyeleksian tindakan jika
ditekan tombol “UP”
If pilih>1 then
Pilih:=pilih-1 else
Pilih:=baris;
If key=#80 then //#80 merupakan kode dari keyboard “DOWN” //penyeleksian tindakan jika
ditekan tombol “DOWN”
If pilih<baris then
Pilih:=pilih+1 else
Pilih:=1; //tindakan jika tidak ditekan tombol apapun //penyeleksian “if” sebelumnya akan
menentukan nilai dalam var “pilih”

Praktikum Dasar Komputer dan Pemrograman 2021 IV-106