GINANJAR UDIARERA KRESNANANTA

Berpacu menjadi yang terbaik

komputasi Kartesius
diposting oleh diarera21-fst10 - 27 May 2013
kategori : Umum - 0 komentar

                        Pada pertemuan kali ini kita akan membahas tentang komputasi biomedis yang berkaitan dengan diagram kartesius. Pada pertemuan ini akan menggunakan program Delphi. Terdapat beberapa bagian antara lain button dan scrollbar. Pada bagian image akan muncul garis sumbu x dan sumbu y. berikut ini adalah listing program Delphi. Guna dari scroll adalah untuk “ngezoom” sumbu

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TForm1 = class(TForm)

    ScrollBar1: TScrollBar;

    Button1: TButton;

    Image1: TImage;

    procedure button(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.button(Sender: TObject);

var gbr:TBitmap;

tinggi,lebar,sumbux,sumbuy,i,delta,jumlahkoordinat: integer;

begin

delta := scrollbar1.position+1;

tinggi:=gbr.height;

Lebar:=gbr.width;

Sumbux:=round(tinggi/2);

Sumbuy:=round(lebar/2);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

 

var gbr:TBitmap;

tinggi,lebar,sumbux,sumbuy,i,delta,jumlahkoordinat: integer;

 

begin

//Penampilan gambar pada image digunakan untuk pembuatan koordinat cartesius

gbr:=TBitmap.Create;

gbr.Width:= image1.Width;//Lebar gambar

gbr.Height:= image1.Height;//Tinggi Gambar

delta:=10;

//delta:=ScrollBar1.Position;

tinggi:=gbr.Height;

lebar:=gbr.Width;

sumbux :=round(tinggi/2);// Digunakan untuk pembulatan

sumbuy :=round(lebar/2);//Digunakan untuk pembuatan koordinat sumbux

 

//Pembuatan koordinat sumbux

gbr.Canvas.MoveTo(0,sumbux);//Digunakan untuk menggeser posisi

gbr.Canvas.LineTo(lebar,sumbux);//Digunakan untuk menggambar garis

 

//Pembuatan koordinat sumbuy

gbr.Canvas.MoveTo(sumbuy,0);

gbr.Canvas.LineTo(sumbuy,tinggi);

 

//Pembuatan titik koordinat

jumlahkoordinat:=round(sumbuy/delta);

for i:=1 to jumlahkoordinat do

 

begin

gbr.Canvas.Ellipse(sumbuy+(delta*i)-1,sumbux-3,sumbuy+(delta*i)+1,sumbux+3);

gbr.Canvas.Ellipse(sumbuy-(delta*i)-1,sumbux-3,sumbuy-(delta*i)+1,sumbux+3);

 

gbr.Canvas.Ellipse(sumbuy-3,sumbux+(delta*i)-1,sumbuy+3,sumbux+(delta*i)+1);

gbr.Canvas.Ellipse(sumbuy+3,sumbux-(delta*i)-1,sumbuy-3,sumbux-(delta*i)+1);

 

end;

image1.Picture.Assign(gbr);

gbr.Free;

end;

 

end.



Tinggalkan Komentar
Nama :
E-mail :
Web : tanpa http://
Komentar :
Verification Code :   
   

Kategori

Umum (19)

Pengunjung

5473