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

Software Gratis Toko Online berbasis PHP

Assalamu'alaikum Warahmatullahi Wabarakatuh Temen-temen, kali ini saya mau share tentang programming lagi nih tapi sebetulnya ini sudah lama dibahas oleh blogger lainnya. Jadi disini saya hanya ingin membuat catatan kecil di blog saya supaya tidak kesulitan jika nanti ada butuh. Untuk temen-temen yang ingin belajar dan memiliki toko online sendiri mungkin bisa coba software ini. Software ini gratis dan mudah pemakaiannya. Memang software ini tidak selengkap joomla, ecommerce ataupun CMS lainnya. Namun menurut saya sudah cukup jika temen-temen ingin memiliki toko online sederhana. Nama software ini adalah shop-script dari webasyst . Shop-Script merupakan software shopping cart berbasis PHP dan bisa di download gratis dari sini . Cara menginstall dan mengkonfigurasinya pun sangat mudah. Claim yang didapat dari websitenya shop-script ini, setup awal bisa dilakukan tidak sampai 15 menit saja. Shop-script ini juga sudah mendukung payment menggunakan paypal. Beberapa fi...
Post a Comment
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

Internet Indonesia Paling Lambat Se-Asia, Ini Kata Menkominfo

Didik Purwanto | Reza Wahyudi | Sabtu, 5 Mei 2012 | 08:02 WIB Ilustrasi JAKARTA, KOMPAS.com — Menteri Komunikasi dan Informatika Tifatul Sembiring angkat bicara soal hasil penelitian lembaga riset dari Amerika Serikat, Akamai, yang menyebut kecepatan internet di Indonesia dinilai paling lambat se-Asia. Menurutnya, penetapan kecepatan internet itu urusan operator, bukan pemerintah. "Saya terima tuduhan (hasil riset) itu. Tapi seharusnya itu urusan operator, kan mereka yang berjualan. Penetapan kecepatan internet itu bukan urusan pemerintah," kata Tifatul selepas melantik pengurus baru Badan Regulasi Telekomunikasi Indonesia (BRTI) di Gedung Kemenkominfo, Jakarta, Rabu (2/5/2012). Menurut Tifatul, meski bukan urusan pemerintah, Kemenkominfo tidak memiliki hak untuk memaksakan operator dalam menaikkan kecepatan internet di Tanah Air. Dengan demikian, hanya operator yang bisa menentukan kecepatan internet sekaligus tarifnya. Namun, Kemenkominfo berjanji untuk selal...
3 comments
Read more