Trong bài lần trước, mình đã chia sẻ với các bạn về cách tạo dòng chữ nhấp nháy trong Pascal. Bài viết này, mình sẽ hướng dẫn các bạn viết một chương trình có cách hoạt động gần như tương tự, đó là chương trình in ra dòng chữ chạy ngang màn hình. Toàn bộ chương trình như sau:
program chuchay;
uses crt,graph;
var gd,gm,x,y:Integer;
begin
gd:=detect;
x := 0;
y:= 0;
initGraph(gd,gm,”);
setTextStyle(defaultfont,0,10);
repeat
outTextXY(x,y,’Hello’);
x := x + 2;
clearDevice();
outTextXY(x,y,’Hello’);
delay(10);
clearDevice();
until keyPressed();
readln;
closeGraph();
end.
Cơ chế hoạt động của chương trình này cũng gần tương tự với chương trình tạo chữ nhấp nháy. Đó là in kí tự, xoá kí tự, in lại kí tự,… và rồi cứ tiếp diễn như vậy. Chỉ có cái khác là chữ sẽ được in ra ở toạ độ khác (cụ thể là thay đổi chỉ số toạ độ phương ngang x).
Nói chung, chương trình này cũng không quá phức tạp. Nếu các bạn thấy bài viết hữu ích, đừng quên like bài viết và follow mình nha.
Hẹn gặp lại!
Lanus Coder 