Pascal’da Cursor Yok Etme…
Merhabalar,
Veri Yapıları Ve Programlama dersinin vize notu olarak geçecek olan aldığımız proje teslim süresi giderek yaklaşıyor.(13 Mayıs)
İşe yarar diye düşündüğüm, görselliği bir nebzede olsa artırmak için cursor yok etme kodu:
-
uses crt;
-
Procedure cursorgizle; assembler;
-
asm
-
mov ah,$01
-
mov ch,$20
-
mov cl,$00
-
Int $10
-
end; { cursorgizle }
-
Procedure cursorgoster; assembler;
-
asm
-
mov ah,$01
-
mov ch,$06
-
mov cl,$07
-
int $10
-
end; { cursorgoster }
-
begin
-
clrscr;
-
cursorgizle;
-
writeln(‘Kursor yok…’);
-
writeln(‘Bir tusa basiniz..’);
-
readkey;
-
clrscr;
-
cursorgoster;
-
writeln(‘Kursor var…’);
-
readln;
-
end.
Pascal burada yetersiz kaldığından, gördüğünüz gibi Assembly sayesinde kursor gösterip, gizliyebiliyoruz.
