Posted by : BayuBayyz Senin, 21 April 2014

        Begitulah tampilan yang saya buat saat praktikum mata kuliah Algoritma dan Pemrogramman di Semester 1, sebenarnya sih saya gagal membuat tampilan ini ketika di lab saya kurang paham waktu itu hehe, dan akhirnya saya menyelesaikannya dirumah karena rasa keiingin tauan yang tinggi akhirnya saya paham juga hehe. Seharusnya saya postingkan ini sebelum artikel artikel pemrogramman yang sudah terposting, karena ini adalah program pertama yang saya buat.:)

        Yang harus diperhatikan dalam membuat tampilan ini adalah posisi peletakkan posisi awal untuk window (jendela) dan posisi akhir windownya. Misal untuk membuat jendela yang pertama window(2,2,38,24). Angka 2,2 di sana menunjukkan posisi awal window, yaitu pada titik koordinat x=2 dan y=2 (x horizontal dan y vertikal). Sedangkan angka 38,24 di sana menunjukkan posisi akhir window, yaitu pada titik koordinat x=38 dan y=24. Untuk lebih detailnya Anda dapat melihat codingannya.
        Berikut adalah coding untuk Membuat Tampilan Keren Di Program Console Pascal yaitu tampilan ekspresi muka :

program Hello_This_is_my_Ekspression;
uses crt;
begin
  { jendela 1 }
  window(2,2,38,24);
  textbackground(brown);
  clrscr;
  { Mata }
  window(3,3,15,7);
  textbackground(white);
  clrscr;
  window(5,5,13,6);
  textbackground(black);
  clrscr;
  window(25,3,37,7);
  textbackground(white);
  clrscr;
  window(27,5,35,6);
  textbackground(black);
  clrscr;
  { hidung }
  window(19,8,21,9);
  textbackground(5);
  clrscr;
  window(18,9,22,10);
  textbackground(5);
  clrscr;//bayubayyz.blogspot.com
  window(17,10,23,13);
  textbackground(5);
  clrscr;
  window(15,13,25,15);
  textbackground(5);
  clrscr;
  window(17,14,19,15);
  textbackground(0);
  clrscr;
  window(21,14,23,15);
  textbackground(0);
  clrscr;
  { bibir }
  window(5,17,6,18);
  textbackground(4);
  clrscr;
  window(6,18,8,19);
  textbackground(4);
  clrscr;
  window(7,19,33,20);
  textbackground(4);
  clrscr;
  window(9,20,31,21);
  textbackground(4);
  clrscr;
  window(12,21,29,23);
  textbackground(4);
  clrscr;
  window(32,18,34,19);
  textbackground(4);
  clrscr;
  window(34,17,35,18);
  textbackground(4);
  clrscr;
  { gigi }
  window(11,20,29,20);
  textbackground(7);
  { jendela 2 }
  clrscr;
  window(42,2,78,24);
  textbackground(brown);
  clrscr;
  { mata }
  window(43,3,55,7);
  textbackground(white);
  clrscr;//10113218
  window(45,5,53,6);
  textbackground(black);
  clrscr;
  window(65,3,77,7);
  textbackground(white);
  clrscr;
  window(67,5,75,6);
  textbackground(black);
  clrscr;
  { hidung }
  window(59,8,61,9);
  textbackground(black);
  clrscr;
  window(58,9,62,10);
  textbackground(black);
  clrscr;
  window(57,10,63,13);
  textbackground(black);
  clrscr; //by bayuwpp
  window(55,13,65,15);
  textbackground(black);
  clrscr;
  window(57,14,59,15);
  textbackground(white);
  clrscr;
  window(61,14,63,15);
  textbackground(white);
  clrscr;
  { bibir }
  window(53,17,67,19);
  textbackground(4);
  clrscr;
  window(51,19,69,20);
  textbackground(4);
  clrscr;
  window(49,20,71,21);
  textbackground(4);
  clrscr;
  window(48,21,50,22);
  textbackground(4);
  clrscr;
  window(47,22,48,23);
  textbackground(4);
  clrscr;
  window(70,21,72,22);
  textbackground(4);
  clrscr;
  window(72,22,73,23);
  textbackground(4);
  clrscr;
  readln;//alpro_praktikum1
end.

        Nah bagaimana sobat ? Cukup  mudahkan hehe, semoga bermanfaat !
Bila Anda belum mempunyai program pascalnya Anda dapat mendownloadnya secara free lengkap dengan penjelasan serta tipsnya disini !
Alhamdulillah Artikel mengenai Membuat Tampilan Keren di Program Pascal sudah selesai !







Belum updol bila temen-temen sering menjelajah di Internet tetapi Anda belum mengisi survei singkat online ini ! Klik disini untuk mengisi surveinya !
Tolong bantu ya untuk mengisi survei ini ! Semoga bantuan temen temen mendapat balasan yg berlipat ganda dari Allah SWT, Amin. Tolong yaa!






{ 3 comments... read them below or Comment }

Welcome to BIG !!!

Find BIG on Facebook

Popular Post

Copyright © 2013 Bayyz Informatics Gallery. Diberdayakan oleh Blogger.

- Copyright © Big Informatics Gallery by Bayu Wijaya Permana Putra - Powered by Blogger - Supported by Google -