CARA MEMBUAT TEKS BERJALAN DI DELPHI

Assalamualaikum Temen Temen Semua. Salam Semangat untk Hari ni /(^.^”) *hehehehe lama sekali kita vakum dlm pembelajaran kali ni kita mulai lagi belajar kita d(^o^). Kita bakal melanjutkan kan Pembelajaran Pemrograman Borland Delphi 7.0 yg sudah pernah kita bahas dgn materi yg berbeda tentunya /(^.^”).

Nah Untuk Kesempatan Kali ni kita akan membahas bagaimana sih membuat suatu teks Berjalan Dengan Bahasa Pemrograman Borland Delphi 7. Kita akan membuat suatu tampilan yg atraktif untk sebuat aplikasi / form dgn adanya teks berjalan. yg pastinya gampang banget *hehehehehe. untk pembahasan pertama di tahun 2012 ni jg saya akan mencoba memberikan 1 aplikasi yg saya buat untk materi kali ini. bisa temen temen pelajari dan gunakan yg pastinya keren loch *hehehehe, Monggo DiSimak ya temen temen.

Menggunakan Sebuah Komponen label yg dijadikan teks sebagai objek yg akan berjalan dan jg penggunaan panel untk batas akhir dan awal landasan label yg akan berjalan. Komponen baru yg akan kita pelajari kali ni adlh komponent Timer dimakan ialah yg akan membantu dlm proses jalannya teks yg ingin kita jalankan. komponen TIMER ni bisa temen temen lihat pd tab System /(^.^”).

• 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 pd 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

varfrm_materi10_teksberjalan: Tfrm_materi10_teksberjalan;batas_kiri,batas_kanan:integer;

Kita Buat variable untk 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);beginbatas_kiri:=panel1.Left-label1.Width;batas_kanan:=panel1.Left+panel1.Width;if label1.Left=batas_kiri thenbeginlabel1.Left:=batas_kananendelsebeginlabel1.Left:=label1.Left-1;end;end;

Ini Code yg digunakan untk menjalankan teks label yg ada. dimana dlm 1 interval yg dtentukan maka akan menjalankan code berkurangnya posisi left dari label 1 sehingga membuatnya seakan berjalan kedepan :D. jangan lupa kita membatasi perjalanannya agar tak terus berjalan dan tak 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 yg sudah disediakan.

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.FormCreate(Sender: TObject);beginradiobutton1.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);beginClose;end;

Jika Button Keluar Di Klik Maka Keluar Dari Program.

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject);begintimer1.Interval:=200;end;

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject);begintimer1.Interval:=50;end;

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject);begintimer1.Interval:=10;end;

Merubah Interval Pengerjaan Koding Pada Timer, melalui setting Interval Timer.

Berikut ni adlh 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 dgn kreatifitas temen temen semua *hehehe.

Nah Sesuai dgn Janji saya sebelumnya saya akan memberikan jg aplikasi Teks Berjalan Yang Utuh Buatan saya sendiri *hehehehe /(^.^”) ni aplikasi pertama yg 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 untk kata kata motivasi, pengingat / apapun itu. Fitur sudah cukup lengkap dari setting font dan size serta kecepatan yg beranekaragam. Ukuran Aplikasinya kecil Kok Temen temen, Berikut Screen Shoot Menu dan hasilnya d(^o^).

Menu Setting nya /(^.^") Hasil Aplikasi Saat Sudah Di Aktifkan d(^o^) Untuk Link Downloadnya di Sini :Download Aplikasi Running Text

Nah Akhirnya Selesai jg materi delphi pertama kita di tahun 2012 ni *hehehehe maaf ya untk vakumnya diriku terlalu lama. Insya Allah kedepan bisa lebih inten dan aktif lagi nih untk sharing materi yg saya pelajari. Nah See You Next Post temen temen semua, salam semangat.

Thanks Semoga bermanfaat..

Posted by Tutik W