Tutorial - Delphi - DotMatrik Marquee

Pernahkah kalian melihat di pusat perbelanjaan seperti Alfamart,Indomart dll .,mereka mempromosikan barangnya di depan toko mereka ,dan agar hemat biaya mereka menggunakan media elektronik , dan juga agar mudah alat yang mereka gunakan adalah LED yang dirangkai hingga dapat memunculkan sebuah kata / tulisan , nah kali ini saya akan menjelaskan cara membuat DotMatrix menggunakan komponen TLCDLine , nah ! saya juga akan menjelaskan cara membuat marquee nya agar terlihat lebih bagus.

Step 1 - buat sebuah form ,masukan komponen LCDLine,Timer,EditText, 1 buah button. seperti gambar dibawah ini

Step 2 - Buat variable seperti ini , anda bisa merubahnya sesuai keinginan anda ,tapi ingat anda harus ingat fungsinya. saya tidak akan menjelaskan satu per satu karena nanti di step step berikutnya anda akan mengerti.

Step 3 - Menentukan batas batas agar marquee bisa berjalan dan berulang ulang

StartOffset : merupakan titik offset awal pada marquee ,disini saya menepatkan titik awal offset di ujung kanan LCDLine
GlobalColCount : merupakan panjang dari LCDLine , tapi disini dihitung per titik bukan kata.
vOffset : ini untuk menentukan posisi text pada titik offset
LCDLineOffset : nah ini adalah properti untuk letak mulai dari text yg akan di marquee.
NC : adalah panjang offset / titik setiap kata, karena setiap merubah ukuran LCDLine offset pun akan berubah.

Step 4 - Double Klik pada Timer

CurText : merupakan teks apa yg akan di marquee,disini yaitu text pada Edit1
LenText : panjang dari text yg akan di marquee ,disini panjang dari Edit1
EndOffset : merupakan batas akhir dari marquee, disni batas akhirnya adalah lenText dikali NC + LenText ,kenapa di kali NC karena disini offset dihitung per titik.lalu ditambah LenText lagi agar mengembalikan setelah di akhir text

vOffset := vOffset-1;
inilah yg menyebabkan marquee, text akan bergerak ke kiri karena offset akan dikurangi 1 setiap waktuan timer aktif.

if vOffset <(-EndOffset) then
vOffset := StartOffset;
LCDLine1.Offset := vOffset;
ini akan membuat offset Text LCDLine kembali ke posisi awal (ujung kanan) bila text sudah mencapai akhir.

Step 5 - Setting waktu marquee di timer ,semakin kecil nilai interval nya semakin cepat marquee karena ini dihitung millisecond (ms). Enable di false kan agar saat form muncul marquee tidak langsung berjalan.