Skip to main content

Membuat Objek Berjalan Dengan Pascal 7.0

Assalamu'alaikum Warahmatullahi Wabarakatuh

Salam hangat untuk semua pecinta blogger diseluruh dunia (gayane seluruh dunia), Alhamdulillah saya masih dikasih kesempatan untuk menulis sedikit yang saya tahu di media online ini.
Kali ini saya mau share tentang program sederhana yang dibuat dengan Pascal 7.0, dimana program ini saya buat untuk memenuhi tugas dari dosen saya.
Langsung saja saya kasih liah penampakan dari program tersebut setelah finish dijalankan adalah sebagai berikut :

Program Selesai Di Run
Nantinya ketika di RUN, program akan jalan dimulai dari titik 1,1 yaitu sudut kiri atas ke sudut kanan atas kebawah ke kiri ke atas sampai ketemu di titik 2,2 yaitu baris kedua. Begitu seterusnya sampai ke titik dimana semua di blok satu layak dengan objek yang kita tentukan.

Berikut coding yang saya buat, saya memilih menggunakan Repeat Until karena ingin sesuatu yang berbeda dari contoh yang diberikan oleh dosen saya, dimana dosen saya memberikan contoh dengan For To Do.


Program ObatNyamukKotak;
Uses Crt;
Var
   x, y : Byte;
Begin
     ClrScr;
     TextColor(15);
     TextBackground(6);
     Begin
     x:=1;
     y:=1;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('*');
           x:=x+1;
     Until(x>80);

      x:=80;
     y:=1;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('*');
           y:=y+1;
     Until(y>24);

      x:=80;
     y:=24;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('*');
           x:=x-1;
     Until(x=1);

      x:=1;
     y:=24;
     Repeat
           Delay(10);
           Gotoxy(x,y+1);Write('');
           Gotoxy(x,y);Write('*');
           y:=y-1;
     Until(y>24);
End;
Begin
     x:=2;
     y:=2;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('%');
           x:=x+1;
     Until(x>79);

      x:=79;
     y:=2;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('%');
           y:=y+1;
     Until(y>23);

      x:=78;
     y:=23;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('%');
           x:=x-1;
     Until(x=2);

      x:=2;
     y:=23;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('%');
           y:=y-1;
     Until(y=2);

 End;

 Begin
     x:=3;
     y:=3;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('-');
           x:=x+1;
     Until(x>78);

      x:=78;
     y:=3;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('-');
           y:=y+1;
     Until(y>22);

      x:=77;
     y:=22;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('-');
           x:=x-1;
     Until(x=3);

      x:=3;
     y:=22;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('-');
           y:=y-1;
     Until(y=3);

 End;

 Begin
     x:=4;
     y:=4;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('%');
           x:=x+1;
     Until(x>77);

      x:=77;
     y:=4;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('%');
           y:=y+1;
     Until(y>21);

      x:=76;
     y:=21;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('%');
           x:=x-1;
     Until(x=4);

      x:=4;
     y:=21;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('%');
           y:=y-1;
     Until(y=4);

 End;

 Begin
     x:=5;
     y:=5;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('~');
           x:=x+1;
     Until(x>76);

      x:=76;
     y:=5;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('~');
           y:=y+1;
     Until(y>20);

      x:=75;
     y:=20;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('~');
           x:=x-1;
     Until(x=5);

      x:=5;
     y:=20;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('~');
           y:=y-1;
     Until(y=5);
End;
Begin
     x:=6;
     y:=6;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('&');
           x:=x+1;
     Until(x>75);

      x:=75;
     y:=6;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('&');
           y:=y+1;
     Until(y>19);

      x:=74;
     y:=19;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('&');
           x:=x-1;
     Until(x=6);

      x:=6;
     y:=19;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('&');
           y:=y-1;
     Until(y=6);
End;

 Begin
     x:=7;
     y:=7;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('+');
           x:=x+1;
     Until(x>74);

      x:=74;
     y:=7;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('+');
           y:=y+1;
     Until(y>18);

      x:=74;
     y:=18;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('+');
           x:=x-1;
     Until(x=7);

      x:=7;
     y:=18;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('+');
           y:=y-1;
     Until(y=7);
End;
Begin
     x:=8;
     y:=8;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('0');
           x:=x+1;
     Until(x>73);

      x:=73;
     y:=8;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('0');
           y:=y+1;
     Until(y>17);

      x:=73;
     y:=17;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('0');
           x:=x-1;
     Until(x=8);

      x:=8;
     y:=17;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('0');
           y:=y-1;
     Until(y=8);
End;
Begin
     x:=9;
     y:=9;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('^');
           x:=x+1;
     Until(x>72);

      x:=72;
     y:=9;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('^');
           y:=y+1;
     Until(y>16);

      x:=72;
     y:=16;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('^');
           x:=x-1;
     Until(x=9);

      x:=9;
     y:=16;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('^');
           y:=y-1;
     Until(y=9);
End;

 Begin
     x:=10;
     y:=10;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('#');
           x:=x+1;
     Until(x>71);

      x:=71;
     y:=10;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('#');
           y:=y+1;
     Until(y>15);

      x:=71;
     y:=15;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('#');
           x:=x-1;
     Until(x=10);

      x:=10;
     y:=15;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('#');
           y:=y-1;
     Until(y=10);
End;

 Begin
     x:=11;
     y:=11;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('`');
           x:=x+1;
     Until(x>70);

      x:=70;
     y:=11;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('`');
           y:=y+1;
     Until(y>14);

      x:=70;
     y:=14;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('`');
           x:=x-1;
     Until(x=11);

      x:=11;
     y:=14;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('`');
           y:=y-1;
     Until(y=11);
End;

 Begin
     x:=12;
     y:=12;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('0');
           x:=x+1;
     Until(x>69);

      x:=69;
     y:=12;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('0');
           y:=y+1;
     Until(y>13);

      x:=69;
     y:=13;
     Repeat
           Delay(10);
           Gotoxy(x-1,y);Write('');
           Gotoxy(x,y);Write('0');
           x:=x-1;
     Until(x=12);

      x:=12;
     y:=13;
     Repeat
           Delay(10);
           Gotoxy(x,y-1);Write('');
           Gotoxy(x,y);Write('0');
           y:=y-1;
     Until(y=12);
     ReadLn;
End;
End.

 Baiklah kalau begitu sepertinya udah selesai saya nulisnya untuk artikel ini. Insya Allah di artikel yang berikutnya bisa lebih menarik lagi dan semoga artikel ini bisa membantu teman-teman semua, Amin....

Wassalamu'alaikum Warahmatullahi Wabarakatuh
Labels:

Comments

Post a Comment

Komentar spam, menyertakan link aktif dan alamat blog tidak akan muncul. Tidak semua pertanyaan sempat atau bisa dijawab. Thanks for visiting and the comment :)

Popular posts from this blog

Download Crystal Report For Visual Studio 2013

A ssalamu'alaikum ...... Mengawali hari pertama berpuasa di bulan ramadhan, saya ingin berbagi sedikit cerita kepada teman- teman pembaca setia blog saya. Cerita ini bermula dari saya yang mencoba untuk menggunakan VS2013 dan seperti yang diketahui banyak programmer bahwa VS2010-2013 sudah tidak include Crystal Report seperti pendahulunya , alhasil saya pun kerepotan karena tidak bisa design report di VS2013 ini. Sebelumnya saya menggunakan VS2010 dan dapat Crystal Report untuk VS2010 dengan download executable file nya dahulu kemudian install dan beres semua. Namun, sayang nya di VS2013 tidak berjalan mulus seperti di VS2010 . Tapi Alhamdulillah setelah berselancar cukup lama (lebay dikit lah), ketemu juga salah satu blog yang cukup terkenal milik Mas Pandjie dari blog tersebut saya download executable file untuk VS2013 tapi entah kenapa setelah selesai di install belum ada perubahan pada VS2013 saya. Saya pun kembali berselancar dan Alhamdulillah ketemu juga. Bagi temen-tem
Post a Comment
Read more

Program Sederhana Enkripsi dan Dekripsi Dengan VB.NET 2008

Assalamu'alaikum...... Marhaban ya Ramadhan, puasa hari ini sudah memasuki hari ke-4, Alhamdulillah...... sejauh ini masih lancar jaya. Sehabis saur pagi ini saya jadi kangen sama blog saya ini, mau nulis2 di blog....tapi bingung mau nulis apaan. Hemb......tiba2 aja saya teringat dengan materi kuliah "Keamanan Komputer" yang ngebahas masalah kriptografi, tapi saya tidak akan membahasnya disini. N ah hlo....terus apa dong yang mau dibahas di sini? Hemb.....sesuai judul tulisan saya kali ini, saya mau mencoba membuat program Enkripsi & Dekripsi dengan Visual Basic NET 2008, kali aja banyak diantara kalian yang lagi butuh kodingan ini. Yup langsung saja ke TKP. Pertama , kita desain dulu form aplikasinya, sebagai contoh bisa di lihat pada gambar dibawah ini : Gbr 1 Sumber Koleksi Pribadi  Properti yang saya setting pada form diatas adalah Label1 : Ganti properti TEXT dengan Password Label2 : Ganti properti TEXT dengan Enkripsi Label3 : Ganti properti TEXT
2 comments
Read more

Mensimulasikan Router Juniper Dengan GNS3 dan VirtualBox

Assalamu'alaikum Warahmatullahi Wabarakatuh Juniper Networks adalah salah satu dari perusahaan produsen router di dunia seperti Cisco, Mikrotik dan Alcatel. Juniper sendiri mempunyai produk yaitu switch, router dan perangkat security seperti firewall. Juniper biasanya digunakan dibagian core network. Karena juniper sudah terbukti dan terkenal kehandalannya dalam jaringan telekomunikasi. Sesuai dengan judul artikel ini, kali ini saya akan mencontohkan bagaimana supaya kita bisa mensimulasikan Juniper dengan bantuan GNS3 dan VirtualBox. Sebelum memulai, baiknya kita persiapkan terlebih dahulu semua tool yang dibutuhkan, berikut saya berikan link untuk download file-file yang perlu kalian persiapkan. Juniper JunOS Olive12.1R1.9 unduh disini . GNS3 unduh disini . VirtualBox unduh disini . Setelah semua sudah siap, dan tentunya GNS3 dan VirtualBox sudah terinstall di komputer kita ya, langkah selanjutnya bisa kita lihat di capture berikut. Buka VirtualBox, lalu masu
Post a Comment
Read more