Một số thủ tục, câu lệnh được sử dụng trong đồ họa: SetColor(n): Đặt màu theo chỉ số màu n. InitGraph(drive,mode,path): thiết lập môi trường đồ họa. SetColor(color): Đặt màu theo tên màu. Line(x1,y1,x2,y2): Vẽ đoạn thẳng nối hai điểm có tọa độ (x1,y1) và (x2,y2) MoveTo(x,y): định vị con trỏ tới vị trí(x,y). LineTo(x,y): vẽ đoạn thẳng từ vị trí hiện thời của con trỏ tới điểm có tọa độ (x,y). LineRel(dx,dy): vẽ đoạn thẳng từ vị trí hiện thời của con trỏ đến vị trí xác định bởi cộng thêm dx vào hoành độ,cộng thêm dy vào tung độcủa...
Bài tập thực hành số Giảng viên hướng dẫn: Thầy Trần Doãn Vinh Sinh viên thực hiện: Nguyễn Thùy Linh – K56A CNTT Một số thủ tục, câu lệnh sử dụng đồ họa: SetColor(n): Đặt màu theo số màu n InitGraph(drive,mode,path): thiết lập môi trường đồ họa SetColor(color): Đặt màu theo tên màu Line(x1,y1,x2,y2): Vẽ đoạn thẳng nối hai điểm có tọa độ (x1,y1) (x2,y2) MoveTo(x,y): định vị trỏ tới vị trí(x,y) LineTo(x,y): vẽ đoạn thẳng từ vị trí thời trỏ tới điểm có tọa độ (x,y) LineRel(dx,dy): vẽ đoạn thẳng từ vị trí thời trỏ đến vị trí xác định cộng thêm dx vào hồnh độ,cộng thêm dy vào tung độcủa điểm thời MoveRel(dx,dy): chuyển trỏ tới tọa độ có hồnh độ cộng thêm dx,tung độ cộng thêm dy CloseGraph: khôi phục kiểu hình trước khởi tạo đồ họa,giải phóng vùng nhớ đồ họa sử dụng Một số hàm quản lý hình bàn phím: Keypressed: cho giá trị True có phím gõ,hoặc False chưa có phím gõ GetMaxx: cho hoành độ lớn kiểu đồ họa thời GetMaxy: cho tung độ lớn kiểu đồ họa thời Delay(T): tạo thời gian trễ T tính theo đơn vị mili giây, T biểu thức nhận giá trị nguyên Deplay thường sử dụng để làm chậm chương trình lại cho quan sát trạng thái thời điểm Ví dụ chương trình ứng dụng đồ họa Pascal Chương trình “Thảm nhiều màu”: Chương trình: Progam ThamNhieumau; Uses Graph; Const X=300; Y=200; N=25; Var drive,mode,A,C,k:integer; Procedure VeTham(a:integer); Begin MoveTo(X+a,Y); LineTo(X,Y+a);LineTo(X-a,Y); LineTo(X,Y+a);LineTo(X-a,Y); End; BEGIN Drive:=0; InitGraph(drive,mode,’c:\TP\BGI’ ); Write(‘Cho so nguyen A’); Readln(A);C:=A div 4; For k:=1 to N Begin A:=A+C;SetColor(k); VeTham(A); End; Readln;CloseGraph; END Vẽ đường gấp khúc ngẫu nhiên nhờ thủ tục LineTo, đoạn có màu ngẫu nhiên Vị trí bắt đầu tâm hình, kết thúc việc nhấn phím Chương trình: uses crt,graph; var stop: boolean; function DetectInit(path:string):interger ; var drive,mode:integer; begin drive:=0; InitGraph(drive,mode,path); DetectInit:= GraphReSult; end; begin If DetectInit(‘C:\TP\BGI’)0 then begin Write(‘Loi hoa! Nhan phim Enter de ket thuc…’); Readln; end else begin Randomize; MoveTo(Getmaxx div 2,Getmaxy div 2); stop:=false; while not (stop) begin SetColor(Random(GetMaxColor)); {Thiet lap mau mot cach ngau nhien} LineTo(Random(GetMaxx),Random(Ge tMaxy)); Delay(200);{Tam dung} Stop:=Keypressed; end; end; closeGraph end Chương trình minh họa việc sử dụng thủ tục vẽ hình đơn giản: Progam GraphDemo; uses Graph; Var gd,gm: integer; xm,ym,xmaxD4,ymaxD4: word; begin gd:=detect; Initgraph(gd,gm,’C:\TP\BGI’ ); Xm:=GetmaxX div ; ym:=GetmaxY div 2; {Ve hinh chu nhat voi net ve mau vang} SetColor(Yellow); Rectangle(10,10,xm,ym); Readln; {Ve duong tronmau xanh la cay, tam(450;100) ban kinh 50} Setcolor(LightGreen); Circle(450,100,50); Readln; {Ve ellip mau do} SetColor(Red); Ellipse(100,200,0,360,50,120); Readln; CloseGraph end Bài tập nhà: Ôn lại thủ tục,câu lệnh đồ họa Pascal Ôn lại kiến thức viết chương trình Viết số chương trình đồ họa Pascal Làm tập sách tập Tin học 11 Ôn lại tất kiến thức học để chuẩn bị cho tiết sau ôn tập ... Ellipse(100,200,0,360,50,120); Readln; CloseGraph end Bài tập nhà: Ôn lại thủ tục,câu lệnh đồ họa Pascal Ơn lại kiến thức viết chương trình Viết số chương trình đồ họa Pascal Làm tập sách tập Tin học 11 Ôn lại tất kiến... LineRel(dx,dy): vẽ đoạn thẳng từ vị trí thời trỏ đến vị trí xác định cộng thêm dx vào hoành độ,cộng thêm dy vào tung độcủa điểm thời MoveRel(dx,dy): chuyển trỏ tới tọa độ có hồnh độ cộng thêm...Một số thủ tục, câu lệnh sử dụng đồ họa: SetColor(n): Đặt màu theo số màu n InitGraph(drive,mode,path): thiết lập môi trường đồ họa