Sebenarnya tugas ini sudah sangat lama saya kerjakan. seusai pak Syahiduz menjelaskan tentang bab ini saya langsung mengerjakannya dan sekalian menyelesaikannya. namun sayang sekali saya tidak segera mempostingnya karena tuntutan yang lain - lain dan akhirnya baru hari ini saya mem postingnya.. mohon maaf ya Pak .. hehe :)
dibawah ini sedikit saya tampilkan hasil jadi aplikasi saya :)
pertama - tama saya buat tampilan untuk background aplikasinya.
ini tampilan design aplikasi backgound nya :)
kemudian tuliskan source code pada form seperti ini ,
lanjut dengan source code yang ini ,
dan ini source code yang terakhir
:)
namun jika tulisan source code pada gambar diatas kurang jelas, anda bisa melihat seperti ini source code nya :
unit materi10_teksberjalan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
type
Tfrm_materi10_teksberjalan = class(TForm)
Panel1: TPanel;
Label1: TLabel;
button_keluar: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Timer1: TTimer;
Image1: TImage;
Label3: TLabel;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure button_keluarClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_materi10_teksberjalan: Tfrm_materi10_teksberjalan;
batas_kiri,batas_kanan:integer;
implementation
{$R *.dfm}
procedure Tfrm_materi10_teksberjalan.FormCreate(Sender: TObject);
begin
radiobutton1.Checked:=true;
end;
procedure Tfrm_materi10_teksberjalan.button_keluarClick(Sender: TObject);
begin
Close;
end;
procedure Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject);
begin
Label3.Caption:=timetostr(time);
Label4.Caption:=datetostr(now);
batas_kiri:=panel1.Left-label1.Width;
batas_kanan:=panel1.Left+panel1.Width;
if label1.Left=batas_kiri then
begin
label1.Left:=batas_kanan
end
else
begin
label1.Left:=label1.Left-1;
end;
end;
procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject);
begin
timer1.Interval:=100;
end;
procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject);
begin
timer1.Interval:=25;
end;
procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject);
begin
timer1.Interval:=10;
end;
end.
oke, tidak usah ber lama - lama. langsung klik disini untuk download aplikasi teks berjalan ;)
selamat mencobaaa
