Delphi – Membuat Teks Berjalan
- Pertama Tama Buad Design Form Seperti Di bawah ini
- Ubah Properties Namenya Sebagai Berikut :
Berikut Alur Logika Programnya :
- 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.
————————————————————————————————————————————
Berikut List Programnya :
1
2
3
| 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 /(^.^”).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| 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.
1
2
3
4
5
6
| 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.
1
2
3
4
5
6
| procedure Tfrm_materi10_teksberjalan.button_keluarClick(Sender: TObject);begin Close;end; |
Jika Button Keluar Di Klik Maka Keluar Dari Program.
1
2
3
4
5
6
| procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject);begin timer1.Interval:=200;end; |
1
2
3
4
5
6
| procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject);begin timer1.Interval:=50;end; |
1
2
3
4
5
6
| 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 /(^.^”).
Hasil Aplikasi teks Berjalan d(^o^)
Nah Gampang Kan (^o^) tentunya Dunk oleh
karena itu belajar delphi itu menyenangkan *hehehehe. Buat temen temen
mau liat langsung source code beserta aplikasinya tinggal download di
link berikut ya. Tinggal Temen Temen Amati Pelajari dan Modifikasi
Sesuai dengan kreatifitas temen temen semua *hehehe.
Nah Sesuai dengan Janji saya sebelumnya
saya akan memberikan juga aplikasi Teks Berjalan Yang Utuh Buatan saya
sendiri *hehehehe /(^.^”) ini aplikasi pertama yang saya buat secara
utuh dan bisa dijalankan dan dinikmati orang lain *whuhhhh temen temen
mesti coba nich. Intinya konsepnya hnya membuat teks berjalan di layar
komputer kita untuk kata kata motivasi, pengingat atau apapun itu. Fitur
sudah cukup lengkap dari setting font dan size serta kecepatan yang
beranekaragam. Ukuran Aplikasinya kecil Kok Temen temen, Berikut Screen
Shoot Menu dan hasilnya d(^o^).
Menu Setting nya /(^.^")
Tidak ada komentar:
Posting Komentar