Sabtu, 25 Februari 2012

Membuat Garis Kotak dan Berarsir

program Kotak;
USES dos,Graph;
VAR
gm,gd,x2,y2,x1,y1,c,fs,fc:integer;
BEGIN
gm:=detect; gd:=0;
InitGraph(gm,gd,'h:\tp\bgi');
Writeln('Nama : Muhamad Soleh');
Writeln('NIP : 8209033');
Write('Masukan lokasi sumbu pojok kiri atas x1 : ');readln(x1);
Write('Masukan lokasi sumbu pojok kiri atas y1 : ');readln(y1);
Write('Masukan lokasi sumbu pojok kanan bawah x2 : ');readln(x2);
Write('Masukan lokasi sumbu pojok kanan bawah y2 : ');readln(y2);
Write('Masukan Code warna Garis tepi 0..15 : ');readln(c);
Write('Masukan Code fill style 0..12 : ');readln(fs);
Write('Masukan Code Warna Fill Style nya 0..15 : ');readln(fc);
SetFillStyle(fs,fc);
bar(x1,y1,x2,y2);
SetColor(c);
rectangle(x1,y1,x2,y2);
Readln;
CloseGraph;
END.


Tidak ada komentar:

Posting Komentar

Apapun Komentar anda Itulah Anda