Posted by : Bayu Wijaya Permana Putra 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!






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

  1. tengs ...bermanfaat bgt gan buat ane yg baru kenalan ama si pascal..hehehe

    BalasHapus

Welcome to BIG !!!

Butuh Solusi IT ?

Service Komputer/ Laptop ? atau Installasi Jaringan Komputer ? atau Solusi Algoritma dan Pemrogramman ? atau Pembuatan Aplikasi Android/ Web/ Dekstop ?

Contact Me
Call or Message
+6285 8715 000 98

Find BIG on Facebook

You Can Support BIG !

BIG adalah media informasi berbasis web dalam blog yang memberikan berbagai macam informasi, tutorial, dan ilmu pengetahuan, terutama dalam bidang IT dan Pemrogramman

Anda bisa memberikan donasi melalui transfer langsung ke rekening dibawah ini! Berapapun jumlah donasi yang Anda kirim saya ucapkan terima kasih banyak dan akan sangat bermanfaat agar blog ini semakin berkembang.

Bank :
No. Rekening : 0307429851
A/N : Bayu Wijaya Permana Putra

Popular Post

Copyright © 2013 Bayyz Informatics Gallery. Diberdayakan oleh Blogger.

Followers

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