Bismillah...
Hai sobat...
Tidak hanya manusia dan hewan
yang bisa berjalan, tetapi kalimat pun bisa berjalan. Apalagi di jaman modern
seperti ini, banyak sekali program-program pembuat tulisan berjalan, tapi
karena saya disini membahas tentang Turbo Pascal,jadi yang akan saya jelaskan
adalah cara membuat kalimat berjalan ala turbo pascal.
Cara membuatnya tidak
sulit kok, hanya perlu menuliskan script dibawah ini.
Ada yang perlu
diperhatikan.
1. Merubah
tulisan/kalimat.
Ganti saja kalimat “SAYA SEDANG BELAJAR TURBO
PASCAL” dengan kalimat yang anda inginkan.
Misal, saya ingin merubahnya menjadi kalimat “AKU
CINTA INDONESIA”
Script awal:
Kalimat:=’SAYA SEDANG BELAJAR TURBO PASCAL ‘;
Script rubahan:
Kalimat:=’AKU CINTA INDONESIA ‘;
2. Menambah/mengurangi lebar sisi kanan
area teks berjalan.
Ø Menambah area teks
Tambahkanlah
spasi disebelah teks anda.
Tambah 1
spasi = tambah lebar 1 byte karakter.
Ø Mengurangi area teks
Kurangilah
spasi disebelah teks anda.
Kurangi 1
spasi = kurangi lebar 1 byte karakter.
3. Menambah/mengurangi
lebar sisi kiri area teks berjalan.
Ø Menambah area teks
Kurangilah
angka “2” pada script “GOTOXY(2,5);”
Misal:
GOTOXY(1,5);
Ø Mengurangi area teks
Tambahkanlah
angka “2” pada script “GOTOXY(2,5);”
Misal:
GOTOXY(5,5);
4. Mengatur letak tulisan
berjalan
Rubahlah angka “5” pada script “GOTOXY(2,5);”
Keterangan: angka “5” menentukan letak teks ke
baris nomor 5.
Jika ingin meletakkan tulisan ke baris no.10, maka
gantilah angka “5” dengan angka “10”.
Misal: GOTOXY(2,10);
5. Menambah/ mengurangi
kecepatan teks berjalan
Ø Menambah
Kurangilah
angka “29000” pada script “DELAY(29000);”
Misal:
DELAY(3000);
Ø Mengurangi
Tambahkanlah
angka “29000” pada script “DELAY(29000);”
Misal:
DELAY(48000);
Nah... Selamat mencoba...
Ingat!!! Baca bismillah sebelum
mencoba. ^_^
Nb: Silahkan sampaikan
kritik dan saran anda melalui kotak komentar.
gan program di atasuda saya coba tp ko hasil outputnya gax jalan.. gimanatu gan..??
ReplyDeletecoba file atau hasil program mu kirim ke email ku ( ari.famuji.88@gmail.com ), nanti tak coba cari kesalahannya. :)
Deletegan, kalo di TPW kok delay nya jadi unidentifier yah ?
ReplyDelete