Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
DELPHİ PROGRAMLAMA PERFORMANS ÖDEVİ ACİL YARDIM
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
noktalar rastgele mi olacak yoksa sabit mi kalacak ikincisinden bişey anlamadım
ben 6 noktalı bir örnek göstereyim devamını sen yaparsın
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
PaintBox1: TPaintBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Points: array of TPoint;
I: Integer;
çap: integer;
begin
SetLength(Points, 6);
Points[0] := Point(100, 100);
Points[1] := Point(100, 55);
Points[2] := Point(125, 100);
Points[3] := Point(165, 105);
Points[4] := Point(155, 155);
Points[5] := Point(155, 230);
canvas.Pen.Width:=3;
Canvas.Pen.Color := clblack;
Canvas.Brush.Color := clred;
Canvas.Polygon(Points);
for I := 0 to 5 do
begin
Canvas.Pen.Color := clblue;
Canvas.Brush.Color := clblue;
çap := 6;
Canvas.Ellipse(Points[I].X - çap, Points[I].Y - çap,
Points[I].X + çap, Points[I].Y + çap);
end;
end;
end.
< Bu mesaj bu kişi tarafından değiştirildi Gökşen PASLI -- 4 Ocak 2014; 9:43:58 >
-
Gökşen PASLI
G
kullanıcısına yanıt
teşekkür ederim hocam bunun üzerinde bakayım biraz .rasgele atılacak tı noktalar -
Gökşen PASLI
G
kullanıcısına yanıt
slm.ben bilgisayar dersinde delphi kullanıyorum.bu gün saat 13:00 da sınavım var.hoca alan hesaplama soracakmış. yarıçapı bilinen dairnin alanı veya dikdörtgenin alanı. bu konuda bana yardımcı olurmusunuz.resimli ya da videolu anlatım yaparmısınız.
< Bu mesaj bu kişi tarafından değiştirildi a-şahin -- 9 Nisan 2014; 1:38:16 >
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
