Download Aplikasi Teks Berjalan :
==><==
Pertama Tama Buad Design Form Seperti Di bawah ini :
Klik Gambar untuk Memperbesar |
Ubah Properties Namenya Sebagai Berikut :
Klik Gambar untuk Memperbesar |
- Pada Saat Program jalan Maka Radio Button Otomatis Checked pada Speed lambat dan teks berjalan ke arah kiri, kalau sudah sampai diakhir kata di bagian kiri kemudian teks kembali ke kanan dan terus menerus seperti itu.
- Jika Radio Button Di Pilih Speed Sedang Maka kecepetan Teks Bertambah Cepat Dibanding Yang Lambat, dan Jika Di Pilih Speed Cepat Kecepatan Teks Berjalan Dengan Cepat.
- Jika Button Keluar Di Klik Maka Akan keluar dari program.
var
frm_materi10_teksberjalan: Tfrm_materi10_teksberjalan;
batas_kiri,batas_kanan:integer;
Kita Buat variable untuk menentukan batas kiri dan kanan. Dimana akan kita gunakan sebagai acuan kapan teks itu berganti posisi dan mengulangi perjalanannya.
procedure Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject);
begin
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;
Ini Code yang digunakan untuk menjalankan teks label yang ada. dimana dalam 1 interval yang dtentukan maka akan menjalankan code berkurangnya posisi left dari label 1 sehingga membuatnya seakan berjalan kedepan. jangan lupa kita membatasi perjalanannya agar tidak terus berjalan dan tidak muncul kembali karena itu dibuat batas kiri dan kanan dimana jika label1.left sudah memenuhi batas kiri maka posisi label akan berpindah ke batas kanan sehingga membuatnya mengulangi perjalanan sebatas jalur panel yang sudah disediakan.
procedure Tfrm_materi10_teksberjalan.FormCreate(Sender: TObject);
begin
radiobutton1.Checked:=true;
end;
Pada Saat Form Create Maka Radiobutton Otomatis Berada Pada Speed Lambat, Sehingga Menjalankan Label Teks.
procedure Tfrm_materi10_teksberjalan.button_keluarClick(Sender: TObject);
begin
Close;
end;
Jika Button Keluar Di Klik Maka Keluar Dari Program.
procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject);
begin
timer1.Interval:=200;
end;
procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject);
begin
timer1.Interval:=50;
end;
procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject);
begin
timer1.Interval:=10;
end;
Merubah Interval Pengerjaan Koding Pada Timer, melalui setting Interval Timer.
Berikut ini adalah Tampilan Aplikasinya Saat Sudah Dijalankan.
0 komentar:
Posting Komentar