Ok..sob ada kesempatan lagi ni cara membuat jam, lampu led dan tex berjalan di form, sangat mudah
dan simple bahkan code.y juga lumayan sedikit tpi kalo kita ga teliti lumayan jadi reibet makanya
buat sobat yg mau coba dan belajar simak alat alat yg di perlukan di bawah hehe..
Ok biasa yang pertama harus di siapakn adalah :
1. Buka Delphi 7 sobat
Untuk jam kita buat aplikasi baru/form
- Tambahkan sLabel
- Tambahkan Timer yang ada di System.
Untuk codenya di bawah tinggal copy dan klik 2 kali di Timer masukan codenya Untuk merubah kecepatan
di Interval ubah dari 1000 jadi 100,
PENAMPAKAN
DOWNLOAD
berikut codenya :
procedure TForm1.Timer1 Timer(Sender: TObject);
begin
Label1.caption:=TimetoStr(Now);
end;
Terus untuk Tex berjalan kita tambahkan :
- 1-Timer yg ada di system
- 1-Label yang ada di menu standar
Untuk merubah kecepatan masih di Peopertis ubah Interval 1000 dengan ke inginan (kebutuhan)
masukan code di bawah ini dengan 2x klik di Timer
procedure TForm1.Timer1Timer(Sender: TObject);
var
begin
Label3.Left := Label3.Left -5;
if label3.Left <= -200 then
label1.Left := 422;
end;
end.
Sekarang ke pemasangan lampu Led, kita kembali ke menu Additional masukan 2 buah Shape
ke foem kalian,
- 2 buah Shape
- 1 buah Timer
Untuk pemasangan kta bisa nerubah tampilan Shape tersebut dengan
- stCircle
- stEllipse
- stRectangle
- stRoundRect
dan masih banyak lagi, itu tampilan bisa menjadi bulat, persegi. elip dan lain lain..sesuai kebutuhan,
dan itu bisa di atus di Propertis bagian Shape.
Untuk codenya copy di bawah ini dan masukan di Timer.
if Shape3.Brush.Color=clWhite then
Shape4.Brush.Color:=clYellow // ini bisa di ubah untuk warna'y.
else
Shape4.Brush.Color:=clWhite;
Nah...simple kan.? Ok yang mau nyoba silahkan dan pehatikan code2'y dam masukan secara
beraturan Insaallah ga bakalan eror, untuk test silahkan Run atau tekan F9.
Sikian dan semoga bermanfaat...
Bisa di dapat untuk melihat yg jadi di S O N O
dan simple bahkan code.y juga lumayan sedikit tpi kalo kita ga teliti lumayan jadi reibet makanya
buat sobat yg mau coba dan belajar simak alat alat yg di perlukan di bawah hehe..
Ok biasa yang pertama harus di siapakn adalah :
1. Buka Delphi 7 sobat
Untuk jam kita buat aplikasi baru/form
- Tambahkan sLabel
- Tambahkan Timer yang ada di System.
Untuk codenya di bawah tinggal copy dan klik 2 kali di Timer masukan codenya Untuk merubah kecepatan
di Interval ubah dari 1000 jadi 100,
PENAMPAKAN
DOWNLOAD
berikut codenya :
procedure TForm1.Timer1 Timer(Sender: TObject);
begin
Label1.caption:=TimetoStr(Now);
end;
Terus untuk Tex berjalan kita tambahkan :
- 1-Timer yg ada di system
- 1-Label yang ada di menu standar
Untuk merubah kecepatan masih di Peopertis ubah Interval 1000 dengan ke inginan (kebutuhan)
masukan code di bawah ini dengan 2x klik di Timer
procedure TForm1.Timer1Timer(Sender: TObject);
var
begin
Label3.Left := Label3.Left -5;
if label3.Left <= -200 then
label1.Left := 422;
end;
end.
Sekarang ke pemasangan lampu Led, kita kembali ke menu Additional masukan 2 buah Shape
ke foem kalian,
- 2 buah Shape
- 1 buah Timer
Untuk pemasangan kta bisa nerubah tampilan Shape tersebut dengan
- stCircle
- stEllipse
- stRectangle
- stRoundRect
dan masih banyak lagi, itu tampilan bisa menjadi bulat, persegi. elip dan lain lain..sesuai kebutuhan,
dan itu bisa di atus di Propertis bagian Shape.
Untuk codenya copy di bawah ini dan masukan di Timer.
if Shape3.Brush.Color=clWhite then
Shape4.Brush.Color:=clYellow // ini bisa di ubah untuk warna'y.
else
Shape4.Brush.Color:=clWhite;
Nah...simple kan.? Ok yang mau nyoba silahkan dan pehatikan code2'y dam masukan secara
beraturan Insaallah ga bakalan eror, untuk test silahkan Run atau tekan F9.
Sikian dan semoga bermanfaat...
Bisa di dapat untuk melihat yg jadi di S O N O
