01/10/2018, 13:57

Đổi màu chữ trong pascal

Chào Mọi Người

Lần Đầu Mình Vào Group Nên Không Biết Viết Tiêu Đề Sao Cho Đúng

Tình Hình Là Mình Viết Chữ Chạy Có Màu Ở Pascal Nhưng Mình Đang Gặp 1 Vài Vấn Đề Nhỏ

Code:uses aVibrate, crt;

var
i : integer;
begin
for i := 1 to 1 do
begin
writeln(‘Hello Minh Huynh’);
vibrate(200);
delay(500);
textColor(1)
end;

for i := 1 to 1 do
begin
writeln(‘Welcome IT’);
vibrate(200);
delay(500);
textColor(3)
end;

readln;
{Stop}
cancelVibrate;
end.

Mình Muốn Chạy Chữ Có Màu
Vd:
-Hello Minh Huynh(Màu Xanh)
-Welcome IT(Màu Đỏ)
Nhiều Dòng Chữ nhưng 1 Dòng 1 màu Và Mình Muốn Các Bạn Chỉ Mình Cách Rút Code Luôn Ạ dài Quá Mình Cũng Mệt Mà Phải Sửa Số Màu Nữa

phamvandung viết 16:11 ngày 01/10/2018

https://www.freepascal.org/docs-html/rtl/crt/textcolor.html


Program Example12;
uses Crt;

{ Program to demonstrate the TextColor function. }

begin
    WriteLn('This is written in the default color');
    TextColor(Red);
    WriteLn('This is written in Red');
    TextColor(White);
    WriteLn('This is written in White');
    TextColor(LightBlue);
    WriteLn('This is written in Light Blue');
end.

markdown không có pascal thì phải

nhét code vào như này

Trần Minh Huynh viết 16:08 ngày 01/10/2018

Cảm ơn bạn,Mình sẽ Thử Ngay.Mấy Hôm Nay Tìm Hiểu Mà Không ra

HK boy viết 16:09 ngày 01/10/2018

Không cần phải viết hoa mỗi từ đâu. Trông không phù hợp với ngữ pháp tiếng Việt đâu.

Bạn đưa các màu vào 1 mảng

const color = array[1..max] of integer = (3, 2, 9, 4,...);

rồi với mỗi dòng bạn gọi màu

textcolor(color[i]);
writeln(line[i]);

Trần Minh Huynh viết 16:05 ngày 01/10/2018

chắc mình đang tim code này

Huỳnh Đặng Thùy Linh viết 17:28 ngày 28/03/2020

cho mình hỏi

cái này:

Program Example12;
uses Crt;

{ Program to demonstrate the TextColor function. }

begin
    WriteLn('This is written in the default color');
    TextColor(Red);
    WriteLn('This is written in Red');
    TextColor(White);
    WriteLn('This is written in White');
    TextColor(LightBlue);
    WriteLn('This is written in Light Blue');
end.

dùng để làm gì vậy ạ

Bình luận về bài viết này

Chia sẻ tin đăng đến bạn bè

Gửi Messenger

Bài liên quan

Trần Minh Huynh

0 chủ đề

0 bài viết

Tác giả nổi bật