July 25, 2024

Membuat Jam Analog Dengan Delphi 2007

2 min read

Hallo pecinta pemrograman… Salam jumpa kembali. Setelah sebelumnya kita membahas cara membuat jam digital dengan Delphi 2007, kali ini kita akan membuat aplikasi jam Analog menggunakan Delphi 2007. Aplikasi jam banyak kita jumpai pada halaman web maupun aplikasi desktop. Namun agar lebih menarik dapat kita tambahkan dengan gambar atau foto kita sendiri. Berikut langkah-langkah pembuatannya :

Langkah 1

Buatlah sebuah Project baru dengan Deplhi 2007, masukkan sebuah komponen TTimer yang ada di Palette System dan Masukkan sebuah komponen TImage yang ada di Palette Additional ke dalam Form.

Pastikan letak komponen TImage berada di sudut kiri atas dari Form.

delphi analog

Langkah 2

Masukkan gambar yang anda inginkan ke dalam komponen TImage dengan cara:

Klik komponen TImage, double klik properties pictures, klik load kemudian browse file gambar yang anda inginkan kemudian klik OK.

delphi analog1

Langkah 3

Ubah properties Stretch komponen TImage menjadi true agar gambar sesuai dengan ukuran TImage.

delphi analog2

Langkah 4

Buka coding program, tambahkan unit StdCtrls pada bagian uses agar dapat menggunakan komponen TLabel tanpa harus di masukkan ke dalam form.

delphi analog3

Langkah 5

Buatlah procedure untuk menggerakkan jam:

Deklarasikan procedure pergerakanjam pada bagian deklarasi global.

[sourcecode]

type

TForm1 = class(TForm)

Timer1: TTimer;

Image1: TImage;

<strong>procedure PergerakanJam;</strong>

[/sourcecode]

Deklarasikan beberapa variable pada bagian deklarasi global:

[sourcecode]

var

Form1: TForm1;

<strong>Diameter:integer;</strong>

<strong> i:byte;</strong>

<strong> JrmJam, JrmMenit, JrmDetik, Garis, Huruf, Angka : byte;</strong>

[/sourcecode]

Buatlah procedure pergerakanjam, berikut ini coding-nya:

[sourcecode]

procedure TForm1.PergerakanJam;

var

jam,menit,detik,milidetik:word;

begin

self.Refresh;

DecodeTime(now,jam,menit,detik,milidetik);

&nbsp;

//detik

Canvas.Pen.Width:=2;

Canvas.Pen.Color:=clRed;

Canvas.MoveTo(Diameter div 2,Diameter div 2);

Canvas.LineTo((Diameter div 2)-round(jrmDetik*sin(-detik*pi/30)),

(Diameter div 2)-round(jrmDetik*cos(-detik*pi/30)));

//menit

Canvas.Pen.Width:=3;

Canvas.Pen.Color:=clBlack;

Canvas.MoveTo(Diameter div 2,Diameter div 2);

Canvas.LineTo((Diameter div 2)-round(jrmMenit*sin(-menit*pi/30-detik*pi/1800)),

(Diameter div 2)-round(jrmMenit*cos(-menit*pi/30-detik*pi/1800)));

//jam

Canvas.Pen.Width:=5;

Canvas.Pen.Color:=clBlack;

Canvas.MoveTo(Diameter div 2,Diameter div 2);

Canvas.LineTo((Diameter div 2)-round(jrmJam*sin(-jam*pi/6-menit*pi/360)),

(Diameter div 2)-round(jrmJam*cos(-jam*pi/6-menit*pi/360)));

end;

[/sourcecode]

Langkah 6

Double klik komponen Timer1, ketikkan kode berikut:

[sourcecode]

procedure TForm1.Timer1Timer(Sender: TObject);

begin

PergerakanJam; // panggil procedure pergerakanjam

end;

[/sourcecode]

Langkah 7

Klik Form, double klik event OnCreate pada Object Inspector.

delphi analog4

Langkah 8

Klik Form, double klik event OnCreate pada Object Inspector.

Ketikkan kode berikut:

[sourcecode]

procedure TForm1.FormCreate(Sender: TObject);

begin

Self.BorderStyle:=bsNone;

jrmJam := 45; <em>{panjang jarum jam}</em>

jrmMenit := 60;<em> {panjang jarum menit}</em>

jrmDetik := 70; <em>{ panjang jarum detik}</em>

ClientWidth := 150;

ClientHeight:= ClientWidth;

Diameter := ClientWidth;

position := PoScreenCenter;

&nbsp;

for i:=1 to 12 do

begin

TLabel.Create(Self).Name:=’angka’+IntToStr(i);

with TLabel(FindComponent(‘angka’+IntToStr(i))) do

begin

Height:=10;

Width:=15;

Parent:=Self;

Font.Size:=10;

Font.Color:=clLime;

Font.Style:=[fsBold];

Alignment:=taCenter;

Caption:=IntToStr(i);

Transparent:=true;

Left:=((Diameter-Width) div 2)-round((jrmDetik-6)*sin(-i*pi/6));

Top:=((Diameter-Height) div 2)-round((jrmDetik-6)*cos(-i*pi/6));

end;

end;

<em>{ membulatkan Form }</em>

SetWindowRgn(self.Handle, CreateEllipticRgn(0,0,ClientWidth,ClientHeight), true);
<p style="text-align: left;">end;</p>
<p style="text-align: left;">[/sourcecode]

Langkah 9

Jalankan program (F9).

Hasilnya:

delphi analog5Jam tersebut akan berjalan sesuai dengan waktu pada komputer anda.
Selamat Mencoba…

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.