Di Pascal, untuk membuat efek loading di layar console sebenarnya susah – susah mudah. Itu tergantung dari Anda yang sudah paham benar di teknik perulangan dan gotoxy. Perulangan dan gotoxy merupakan modal dasar bagi Anda untuk bisa membuat efek loading di console Pascal. Dalam Pascal, ada 3 perulangan yang saya ketahui yakni, For do, While Do dan Repeat Until. Pada tutorial ini saya tidak akan menjelaskan bagaimana penulisan For do, While Do dan Repeat Until karena, saya anggap Anda sudah paham benar dasar – dasar dari bahasa pemrograman Pascal.
“Bagaimana sih cara membuatnya?” Sabar… Oya ada yang ketinggalan. Bahwa selain Perulangan dan gotoxy Anda juga harus tahu tentang keyword delay di Pascal. Karena, delay yang akan membuat efek loading di tutorial seolah – olah kelihatan seperti loading. Maksud dari loading di sini ialah hanya tampilannya saja yang seolah – olah program Anda sedang memproses sesuatu hal padahal itu hanyalah tampilannya doang yang kita beri efek sedikit agar kelihatan lebih enak dipandang oleh user. Sedikit catatan, bahwa loading yang akan Anda buat sebaiknya jangan terlalu lama waktunya karena, bukannya membuat program Anda cantik malah membuat si User bosan menunggu selesai loading-nya.
(*
Yudi Setiawan
*)
program efek_loading;
uses crt;
var
x, y, z :integer;
posx :integer;
begin
clrscr;
(*Mengarahkan kursor ke X = 2 dan Y = 2*)
posx := 2;
gotoxy(posx, 2);
write('[');
(*Mengarahkan kursor ke X = 103 dan Y = 2*)
gotoxy(103, 2);
write(']');
(*Perulangan*)
for x := 1 to 100 do
begin
(*Menaikkan nilai posx = posx + 1*)
(*PosX digunakan untuk memindahkan kursor X ketika Loading di mulai*)
inc(posx);
(*Mengarahkan Kursor ke X = PosX dan Y = 2*)
gotoxy(posx, 2);
write('=');
(*Waktu Tunda ketika Loading dimulai*)
(*Inilah yang membuat seolah - olah efek loading nya kelihatan*)
delay(100);
(*Mengarahkan Kursor ke X = 104 dan Y = 2*)
gotoxy(104, 2);
(*Cetak nilai persen dari Loading*)
write(x, '%');
end;
(*Menunggu Sembarang Inputan dari User*)
readln;
end.
Penjelasan Source Code:
-
gotoxy berfungsi untuk mengarahkan kursor keyboard Anda ke posisi yang Anda inginkan yakni, dengan koordinat Sumbu X dan Sumbu Y.
-
Variable PosX untuk menyimpan nilai posisi Sumbu X dari kursor agar ketika loading dimulai maka, Kursor akan bergerak secara terus menerus ke kanan karena di increment nilai sebesar 1 atau posx = posx + 1.
