Membuat Clear Screen di Aplikasi Console Delphi 7

Sangat sederhana Bagaimana Cara membuat Clear Screen pada Aplikasi Console Delphi 7 seperti layaknya fungsi ClrScr di Turbo Pascal. kebutulan saya menerapkan clear screen ini pada pembuatan Menu Utama, agar ketika kita memilih no yang kita tujuh Layar menghapus tulisan yang berada di menu Utama dan melanjuttkan ke Proses piihan yang baru, awalnya saya merasa bingung untuk membuat Clear Screen tersebut, setelah saya mencarinya akhirnya saya menemukan solusinya :)

Berbeda dengan perintah Clrscr di Pascal, di Delphi clrscr menggunakan Procedure, jadi kita harus buat procedure untuk penghapusan layar. Langsung aja saya terapkan di Delphi :

SCRIPT CODE PROCEDURE CLEAR SCREEN

procedure Clearscr;
var
  hStdOut: HWND;
  ScreenBufInfo: TConsoleScreenBufferInfo;
  Coord1: TCoord;
  z: Integer;
begin
  hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
  GetConsoleScreenBufferInfo(hStdOut, ScreenBufInfo);
  for z := 1 to ScreenBufInfo.dwSize.Y do WriteLn;
  Coord1.X := 0;
  Coord1.Y := 0;
  SetConsoleCursorPosition(hStdOut, Coord1);
end;

NB : Letakkan Prosedure tersebut Di Bawah Var dan Sebelum Begin
Sebelumnya perlu di ingat bahwa penggunaan usesnya : lihat gambar

Uses = Windows;

Maka jika diterapkan

begin
writeln('*** MENU UTAMA ***');
writeln('1. Nilai Kelulusan');
writeln('2. Keterangan Kelulusan');
writeln('3. Predikat Nilai');
write('Pilih Menu : '); readln(pil);

Case pil of
1 : BeginClearscr;
write('Masukkan Nilai = ');readln(nilai);
 if nilai > 60 then
  write('LULUS')
 else
  write('TIDAK LULUS');
 readln;
end;

2 : Begin
Clearscr;
write('Masukkan Nilai: ');readln(nilai);
  If nilai > 70 then
  begin
  ket1:='LULUS';
  ket2:='ANDA DITERIMA'
  end else
  begin
  ket1:='TIDAK LULUS';
  ket2:='SILAKAN COBA LAGI';
  end;
  write('Hasil = ');writeln(ket1);
  write('Keterangan = ');write(ket2);
  readln;
end;

3 : Begin
Clearscr;
write ('Massukkan Nilai : ');readln(nilai);
 begin
 if nilai > 85 then
  grade:='A' else
 if nilai > 75 then
  gradd:='B' else
 if nilai > 65 then
  grade:='C' else
 if nilai > 55 then
  grade:='D' else
  grade:='E'
 end;
 write('Nilai Anda Adalah : ');writeln(nilai);
 write('Masuk Kategori : ');Write(grade);
 readln;
end;
end;
end.

Karena Merupakan Procedure, jadi Text Warna Merah di Procedure dapat di ubah nama sesuai keinginan, tapi juga jangan lupa dalam penerapannya di Program nama harus sama seperti Procedurenya.

Sekian dari saya Semoga Tutorial Cara Membuat Clear Screen di Aplikasi Console Delphi 7 bisa bermanfaat bagi kalian. Selamat Mencoba :)

Jika tutorial ini bermanfaat silahkan beri +1 Google ya, karena +1 kamu sangat berarti sekali untuk situs kami ini. Terimakasih :)