| Author |
Message |
wati |
| Location: |
|
Post subject: component line yg bisa muncul dalam berbagai sudut.
 Posted: 02/Jan/2012 07:11
|
|
onKnowledgeable
Joined: 27-Jan-2007
Posts: 161
Status: Offline
|
|
| tlg master delpih...gimana caranya bisa berubah posisi component Line/tshape yg bisa berubah rubah posisi sudut..posisi bisa dalam 30 derajat,45derajat,50 derajat dll...pls tlg ya..thanks |
|
|
| |
|
|
|
 |
|
mas_kofa |
| Location: New York Arto |
|
|
Post subject:
Posted: 02/Jan/2012 09:24
|
|
onElite
Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
|
|
|
|
|
|
|
wati |
| Location: |
|
|
Post subject:
Posted: 02/Jan/2012 16:03
|
|
onKnowledgeable
Joined: 27-Jan-2007
Posts: 161
Status: Offline
|
|
| kata temen aq dia pake component line di vb bisa di buat posisinya bisa tampil dalam berbagai sudut...apakah delphi ga punya component line spt di vb yg bisa buat posisi berubah rubah kah?thanks...mohon bimbingannya.. |
|
|
| |
|
|
|
|
|
mas_kofa |
| Location: New York Arto |
|
|
Post subject:
Posted: 02/Jan/2012 16:17
|
|
onElite
Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
|
|
|
|
|
|
|
wati |
| Location: |
|
|
Post subject:
Posted: 02/Jan/2012 22:34
|
|
onKnowledgeable
Joined: 27-Jan-2007
Posts: 161
Status: Offline
|
|
| mau coba belajar bikin jam..jadi jarum pake line gitu...kira kira bisa ga?thanks.... |
|
|
| |
|
|
|
|
|
singgih32 |
| Location: |
|
|
Post subject:
Posted: 09/Jan/2012 20:40
|
|
onNewBie
Joined: 09-Jan-2012
Posts: 2
Status: Offline
|
|
|
|
|
|
|
madi |
| Location: |
|
|
Post subject:
Posted: 12/Jan/2012 04:05
|
|
onProfessional
Joined: 30-Dec-2005
Posts: 527
Status: Offline
|
|
|
wati wrote:
mau coba belajar bikin jam..jadi jarum pake line gitu...kira kira bisa ga?thanks....
coba tanya mbah google, kata ajaibnya...abra kadabra...eh...analog clock delphi source.. |
_________________
"MAN BEHIND THE GUN"
Hidup ini sudah terlalu banyak masalah, Tambah satu masalah tidak jadi masalah.
Hidup ini simple, jgn dijadikan complex.
|
| |
|
|
|
|
|
musafir |
| Location: |
|
|
Post subject:
Posted: 17/Jan/2012 18:53
|
|
onConfident
Joined: 27-Dec-2011
Posts: 24
Status: Offline
|
|
Coba script ini
procedure TForm1.FormPaint(Sender: TObject);
var
i:byte;
jam,menit,detik,milidetik:word;
Diameter:integer;
JariJam, JariMenit, JariDetik, TebalGaris, UkuranHuruf : byte;
begin
Diameter := 440;
TebalGaris := 5;
UkuranHuruf := 12;
jariJam := 150;
jariMenit := 180;
JariDetik := 200;
Canvas.Ellipse(5,5,Diameter - 5 ,Diameter - 5 );
for i:=1 to 12 do
Canvas.TextOut(
(Diameter div 2)-round((jariDetik-6)*sin(-i*pi/6))-6,
(Diameter div 2)-round((jariDetik-6)*cos(-i*pi/6))-11,
inttostr(i));
DecodeTime(Now,jam,menit,detik,milidetik);
Canvas.Pen.Color:=clRed;
Canvas.Pen.Width:=2;
Canvas.MoveTo(Diameter div 2,Diameter div 2);
Canvas.LineTo(
(Diameter div 2)-round(jariDetik*sin(-detik*pi/30)),
(Diameter div 2)-round(jariDetik*cos(-detik*pi/30)));
Canvas.Pen.Color:=clGreen;
Canvas.Pen.Width:=3;
Canvas.MoveTo(Diameter div 2,Diameter div 2);
Canvas.LineTo(
(Diameter div 2)-round(
jariMenit*sin(-menit*pi/30-detik*pi/1800)),
(Diameter div 2)-round(
jariMenit*cos(-menit*pi/30-detik*pi/1800)));
Canvas.Pen.Color:=clBlue;
Canvas.Pen.Width:=4;
Canvas.MoveTo(Diameter div 2,Diameter div 2);
Canvas.LineTo(
(Diameter div 2)-round(
jariJam*sin(-jam*pi/6-menit*pi/360)),
(Diameter div 2)-round(
jariJam*cos(-jam*pi/6-menit*pi/360)));
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
onPaint(Sender);
end;
end. |
|
|
| |
|
|
|
|
|
|
