Page 96 - Modul Daskom 2020

Modul 4 – Interface, File dan Kursor 2020

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”
Gotoxy(kiri, atas+pilih);write(‘>’); //variabel “atas” akan ditambah jika nilai didalam 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);

Praktikum Dasar Komputer & Pemrograman 2020 IV-94