Jumat, 24 Februari 2012

Membuat Lingkaran Berarsir dengan Turbo Pascal


Untuk dapat membuat program ini, komputer yang akan digunakan harus terinstall, Turbo Pascal, atau compiler lainnya yang dapat mengcompile bahasa pemrograman Pascal,
Cara membuat Program
1. Install program pascal dapat di download 
2. Setelah proses installasi selesai, copy kan seluruh file yang ada di direktori Unit kedalam direktori Bin
3. Buka file TPX untuk memulai bermain dengan Turbo Pascal

Perhatian : Program tersebut ada yang salah, mohon jangan andalkan Copy Paste
Kalau ada kebingungan Bisa Hubungi saya : 
- no Hp. 0856 288 9626
- e-mail/ym : soleh_09061988@yahoo.co.id
- Facebook : soleh semangat-belajar
  1. Algoritma
  1. Deteksi Driver VGA gunakan Procedure InitGraph
  2. Masukan lokasi sumbu x (x)
  3. Masukan lokasi sumbu y (y)
  4. masukan jari-jari (r)
  5. masukan code warna garis lingkar (c)
  6. masukan code fill style (fs)
  7. Masukan warna fill style(fc)
  8. Gunakan Procedure SetColor (c) untuk mewarnai garis lingkar
  9. Gunakan Procedure Circle(x,y,r) untuk membuat lingkaran
  10. Gunakan Procedure SetFillStyle(fs,fc) untuk model dan warna area gambar
  11. Gunakan Procedure FlodFill(x,y,c) untuk membatasi warna area gambar
  12. Tutup Procedure graph
  13. selesai
  1. Script
Program Lingkaran;
USES Dos,Graph;
VAR
gm,gd,x,y,r,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 x : ');readln(x);
Write('Masukan lokasi sumbu y : ');readln(y);
Write('Masukan Jari-jari lingkaran) : ');readln(r);
Write('Masukan Code warna Garis Lingkar 0..15 : ');readln(c);
Write('Masukan Code fill style 0..12 : ');readln(fs);
Write('Masukan Code Warna Fill Style nya 0..15 : ');readln(fc);
SetColor(c);
Circle(x,y,r);
SetFillStyle(fs,fc);
FloodFill(x,y,r);
Readln;
CloseGraph;
END.

  1. Screen Shoot
Untuk Bisa Mengambil gambar pada file dos gunakan Software DOSBox 0.74
Cara menggunakan DOSBox 0.74


Tidak ada komentar:

Posting Komentar

Apapun Komentar anda Itulah Anda