Assalamualaikum Temen Temen Semua. Salam Semangat
untuk Hari ini /(^.^”) *hehehehe lama sekali kita vakum dalam pembelajaran kali
ini kita mulai lagi belajar kita d(^o^). Kita bakal melanjutkan kan
Pembelajaran Pemrograman Borland Delphi 7.0 yang sudah pernah kita bahas dengan
materi yang berbeda tentunya /(^.^”).
Nah Untuk Kesempatan Kali ini kita
akan membahas bagaimana sih membuat suatu teks Berjalan Dengan Bahasa
Pemrograman Borland Delphi 7. Kita akan membuat suatu tampilan yang atraktif untuk
sebuat aplikasi atau form dengan adanya teks berjalan. yang pastinya gampang
banget *hehehehehe. untuk pembahasan pertama di tahun 2012 ini juga saya akan
mencoba memberikan 1 aplikasi yang saya buat untuk materi kali ini. bisa temen
temen pelajari dan gunakan yang pastinya keren loch *hehehehe, Monggo DiSimak
ya temen temen.
Menggunakan Sebuah Komponen label yang dijadikan teks
sebagai objek yang akan berjalan dan juga penggunaan panel untuk batas akhir
dan awal landasan label yang akan berjalan. Komponen baru yang akan kita
pelajari kali ini adalah komponent Timer dimakan ialah yang akan membantu dalam
proses jalannya teks yang ingin kita jalankan. komponen TIMER ini bisa temen
temen lihat pada 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 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
|
var
|
|
2
|
frm_materi10_teksberjalan:
Tfrm_materi10_teksberjalan;
|
3
|
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 /(^.^”).
01
|
procedure
Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject);
|
|
02
|
begin
|
03
|
||
04
|
batas_kiri:=panel1.Left-label1.Width;
|
05
|
batas_kanan:=panel1.Left+panel1.Width;
|
|
06
|
07
|
if label1.Left=batas_kiri then
|
|
08
|
begin
|
09
|
label1.Left:=batas_kanan
|
|
10
|
end
|
11
|
else
|
|
12
|
begin
|
13
|
label1.Left:=label1.Left-1;
|
|
14
|
end;
|
15
|
||
16
|
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
|
procedure Tfrm_materi10_teksberjalan.FormCreate(Sender:
TObject);
|
|
2
|
begin
|
3
|
||
4
|
radiobutton1.Checked:=true;
|
5
|
||
6
|
end;
|
Pada Saat Form Create Maka Radiobutton Otomatis Berada
Pada Speed Lambat, Sehingga Menjalankan Label Teks.
1
|
procedure
Tfrm_materi10_teksberjalan.button_keluarClick(Sender: TObject);
|
|
2
|
begin
|
3
|
||
4
|
Close;
|
5
|
||
6
|
end;
|
Jika Button Keluar Di Klik Maka Keluar Dari Program.
1
|
procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender:
TObject);
|
|
2
|
begin
|
3
|
||
4
|
timer1.Interval:=200;
|
5
|
||
6
|
end;
|
1
|
procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender:
TObject);
|
|
2
|
begin
|
3
|
||
4
|
timer1.Interval:=50;
|
5
|
||
6
|
end;
|
1
|
procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender:
TObject);
|
|
2
|
begin
|
3
|
||
4
|
timer1.Interval:=10;
|
5
|
||
6
|
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