.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Bagaimana Cara Membuat Program Animasi Teks Berjalan dengan Menggunakan Pascal

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh

Selanjutnya, Pada artikel kali ini saya akan membahas tentang program untuk menampilkan teks bergerak dengan pascal (animasi sederhana),,
Program ini saya publikasikan ulang dari rekan saya sesama blogger. yaitu Cody Coding :D

Oke Gan, Langsung Sedot Ajah Scriptnya :D

Berikut ini 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.



* * *

Maka Tampilan Output Program Akan Seperti ini :









nah,, itu dia outputnya,, sebenarnya itu teks selamat datang nya yaa aslinya sich 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..

semoga bermanfaat, terimakasihh,, ^_^
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Bagaimana Cara Membuat Program Animasi Teks Berjalan dengan Menggunakan Pascal, Diterbitkan oleh scodeaplikasi pada Minggu, 20 Januari 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to