Animasi

Program animasi sederhana (teks berjalan) dengan pascal

Posted on Updated on


Pada artikel kali ini saya akan membahas tentang program untuk menampilkan teks bergerak dengan pascal,,

Listing program:

uses crt;

var

i,j,p,q,x,y,z: integer;

procedure delay33;

begin

for x:=1 to 100 do

begin

for y:=1 to 30 do

begin

write(”);

end;

end;

end;

begin

for j:= 1 to 10 do

begin

for i := 1 to 40 do

begin

clrscr;

gotoxy(15,2);write(‘————————-‘);

gotoxy(15,4);write(‘————————-‘);

gotoxy(i,3);

writeln(‘SELAMAT DATANG’);

gotoxy(1,3);

writeln(‘             |’);

gotoxy(40,3);

writeln(‘|             ‘);

delay33;

end;

end;

readln();

end.

Output program:

nah,, itu dia outputnya,, sebenarnya itu teks selamat datang nya berjalan,, mungkin kalo ga jalan anda kurang senyum kali ya..hehee becanda..

kalo saya ga salah,, di pascal ada fungsi khusus untuk men delay program sementara, tapi di program ini saya menggunakan looping yang banyak untuk memperlambat proses program supaya terlihat berjalan,, dan untuk melatih logika kita juga..



Web development jakarta

semoga bermanfaat, terimakasihh,, ^_^ jangan lupa comment ya…

Iklan

Membuat animasi text berkedip-kedip dengan Delphi

Posted on Updated on


procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Visible then Label1.Visible:=False

else label1.Visible:=True;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

application.Terminate;
end;

Logika program        :

Program animasi timer ini akan menampilkan tulisan yang ada pada label1 menjadi berkedip – kedip dengan memanfaatkan timer pada Delphi.

procedure TForm1.Timer1Timer(Sender: TObject);

kode diatas menandakan bahwa statement – statement yang ada dalam blok program dibawahnya merupakan statement yang akan dilakukan saat TForm1 ditampilkan dengan menggunakan komponen timer.ini berarti statement – statement yang ada akan langsung dijalankan saat program running.

begin

if Label1.Visible then Label1.Visible:=False

else label1.Visible:=True;

end;

metode visible pada  kode diatas berfungsi untuk menentukan apakah suatu komponen atau objek ditampilkan atau tidak saat program dijalankan.jadi kode diatas berarti jika nilai dari label1.visible bernilai true dengan kata lain label1 ditampilkan dalam Tform, maka nilai dari label1.visible akkan dirubah menjadi false, sehingga label1 tidak ditampilkan dalam Tform.dan bila nilai label1.visible tidak bernilai true, maka nilainya akan dirubah menjadi false.statement ini akan menyebabkan nilai dari label1.visible akan berubah-rubah nilainya dari true menjadi false dan sebaliknya setiap interval waktu berganti.jadi dengan kata lain label1 akan ditampilkan kemudian akan tidak terlihat selama interval waktu yang telah ditentukan pada timer



Web development jakarta

procedure TForm1.Button1Click(Sender: TObject);

kode diatas menandakan bahwa statement – statement yang ada pada blok program dibawahnya merupakan statement yang akan dilakukan saat button1 diklik.

begin

application.Terminate;
end;

seperti telah dijelaskan sebelumnya, program ini akan menampilkan tulisan yang ada pada label1 seolah – olah berkedip – kedip sesuai dengan interval waktu yang ditentukan.tetapi, timer akan terus berjalan sampai program dikeluarkan atau di close.jadi perlu dibuat satu button untuk membuat efek animasi berhenti.kode diatas berfungsi untuk menghentikan aplikasi yang sedang berjalan.jadi, saat button1 diklik timer akan dihentikan dan keluar dari program.

Output program: