Sunday, April 23, 2017

Program Perpustakaan Pascal Versi 1


Program Perpustakaan Pascal Versi 1.


 
Post kali ini merupakan lanjutan dari post yang sebelumnya gan ...
Kali ini saya akan berikan source code Program Pascal. source code buku perpustakaan
didalam source ini juga dilengkapi sedikit keterangan sebagai penjelasnya

program ini saya kerjakan pada saat saya bersekolah jurusan tkj ( teknik komputer dan jaringan )
dengan studi kasus di program itu , ada report , searching , dan lain sebagainya .
bisa sobat analyze sendiri nih , open source mudah kok .. source code ini bisa kalian
pelajari setengahnya karena setengahnya hanyalah looping / perulangan dari script sebelumnya
( maksudnya adalah untuk view / hasil misalkan buku matematika kelas 1 atau 2 atau 3 )
jadi kalian yang ingin mempelajarinya bisa mengerjakan untuk kelas 1 dan tidak perlu mengikuti
semuanya .



program-perpustakaan-pascal-versi-1
Spoiler Menu Utama

Ingat sob saat mengikuti harap pahami alur nya , fungsinya , jadi bukan hanya menyalin saja , tapi kita dapat memahaminya dengan mudah . jangan lupa setelah paham dibuat sendiri tanpa selalu melihat terus ..
fungsi program ini memudahkan dalam menemukan ( pencarian ) buku index dan report ( menggunakan procedure ) .
items requiretment
  • Install ini gan DOSBox  
  • Kalau sudah lanjut kebawah
  • Agar sobat tidak bingung saya jelaskan secara singkat tentang tutorial iniPertama saya buat program pilihan dengan nama save as PILIHAN.PAS
    Kedua saya buat program searching dengan nama save as SEARCH.PAS
    Ketiga saya buat program gabungan dari program di atas tersebut gan save as PERPUS.PAS
  • Untuk tutorial kali ini kita bahas yang pertama 
  • Di akhir kalimat ada [UPDATE POST]  dan Pastebin to raw embed etc .
    update post dimaksudkan lanjutan dari post sebelumnya

lets play . . .


  1. Open DOSBox nya
  2. Ketik " mount c: c:\tp7 " ( sesuaikan lokasi tp7 nya kalau saya simpanya di c )
  3. Ketik " c: "
  4. Ketik " cd BIN "
  5. Ketik " TURBO.EXE "
  6. Setelah itu write code nya
  7. Compile code nya (alt+f9)
  8. Run (ctrl+f9)

  9. Jangan lupa nih ... gan , jangan langsung copy paste source code tersebut . Carilah referensi mengenai alur dan maksud dari masing-masing script agar kita paham . Mungkin di lain waktu akan saya bahas untuk penjelasan atas script yang di inputkan :)
Karena ini adalah migrasi dari blog lama ke baru, jadi beberapa code terhambur. Alternatif silahkan pakai full source dari pastebin di bawah - thanks before

Menu Pertama ( source code untuk pilihan )

 
Program buku_perpus;
          uses crt;
 Var    T,GT,P:real;
    yogiback,yogi:char;
    yogi25,pill:integer;
 procedure yogi1;
 begin
      writeln('l===========================================================================l');      writeln('l        PROGRAM BUKU PERPUSTAKAAN YOGITHESYMBIAN.BLOGSPOT.COM              I');      writeln('l===========================================================================l');
      writeln;      
writeln;      
writeln;      
writeln;      
writeln; 
end; 
procedure 
yogi_blackhat; 
begin      
textcolor(10);      
writeln('                        :---LIST OF INDEX/PERPUSTAKAAN---:  ');      
writeln('                        : [1] BUKU PAKET                 :  ');      
writeln('                        : [2] BUKU UMUM                  :  ');      
writeln('                        : [0] EXIT                       :  ');      
writeln('                        :--------------------------------:  ');      
writeln;      
writeln;      
writeln;      
writeln;      
writeln('l===========================================================================l');      writeln('l                     SCRIPT (C) 2016 BY YOGI ARIF WIDODO                   I');      writeln('l===========================================================================l'); end;


setelah itu
buat pilihan untuk menu buku paket [1]
procedure paket_yogi; procedure yogi_hat; begin      clrscr;      writeln('========================');      writeln('l  Buku Yang Tersedia  l');      writeln('========================');      writeln('       []  B  []         ');      writeln('       []  O  []                            ____________________');      writeln('       []  O  []         ');      writeln('       []  K  []                             script (c) 2016   ');      writeln('________________________                     coding by yogi a.w');      writeln('                                            ____________________');      writeln('l  1. Bhs Inggris      l');      writeln('l______________________l');      writeln;      writeln('l  2. Matematika       l');      writeln('l______________________l');      writeln;      writeln('l  3. Pemrograman      l');      writeln('l______________________l');      writeln('');      writeln('NB : Masukan nomor buku yang ingin di lihat ');   end; procedure yog1; begin      clrscr;      writeln('buku bhs inggris');      writeln('~~~~~~~~~~~~~~~~');      writeln;      writeln('1. Untuk kelas X                                                SCRIPT');      writeln('2. Untuk kelas XI                                                  (C) ');      writeln('3. Untuk kelas XII                                                  2016');      writeln('____________________________________________               BY YOGI A.W');      writeln;      writeln('NB : Masukan nomor kelas di bawah lalu enter');      writeln('____________________________________________');      readln(yogi);                         if yogi='1' then      begin      clrscr;      writeln(']=========================================================================[');      writeln(']                              BHS INGRISS                                l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                          SMART ENGLISH STUDY                            l');      writeln(']                         ----------------------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /        l');      writeln(']                                                         \    /          l');      writeln(']                                                           \/            l');      writeln(']                                                          /  \           l');      writeln(']                                                        /      \         l');      writeln(']                                                      /          \       l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                          if yogi='2' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              BHS INGRISS                                l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                       PRO GOING TO ENGLISH STUDY                        l');      writeln(']                         -------be smart-------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /   l    l');      writeln(']                                                         \    /     l    l');      writeln(']                                                           \/       l    l');      writeln(']                                                          /  \      l    l');      writeln(']                                                        /      \    l    l');      writeln(']                                                      /          \  l    l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='3' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              BHS INGRISS                                l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         -----Master Tools------                         l');      writeln(']                          PREMIUM ENGLISH STUDY                          l');      writeln(']                         --------be smart-------                         l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /  l  l  l');      writeln(']                                                         \    /    l  l  l');      writeln(']                                                           \/      l  l  l');      writeln(']                                                          /  \     l  l  l');      writeln(']                                                        /      \   l  l  l');      writeln(']                                                      /          \ l  l  l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end; end; procedure yog2; begin      clrscr;      writeln('buku matematika');      writeln('~~~~~~~~~~~~~~~');      writeln;      writeln('1. Untuk kelas X                                                SCRIPT');      writeln('2. Untuk kelas XI                                                  (C) ');      writeln('3. Untuk kelas XII                                                  2016');      writeln('____________________________________________               BY YOGI A.W');      writeln;      writeln('NB : Masukan nomor kelas di bawah lalu enter');      writeln('____________________________________________');      readln(yogi);                         if yogi='1' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              MATEMATIKA                                 l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                           SMART COUNT STUDY                             l');      writeln(']                         ----------------------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /        l');      writeln(']                                                         \    /          l');      writeln(']                                                           \/            l');      writeln(']                                                          /  \           l');      writeln(']                                                        /      \         l');      writeln(']                                                      /          \       l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='2' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              MATEMATIKA                                 l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                     EXPERT TO COUNT STUDY VS EASY                       l');      writeln(']                         -------be smart-------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /   l    l');      writeln(']                                                         \    /     l    l');      writeln(']                                                           \/       l    l');      writeln(']                                                          /  \      l    l');      writeln(']                                                        /      \    l    l');      writeln(']                                                      /          \  l    l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='3' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              MATEMATIKA                                 l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         -------GM TOOLS--------                         l');      writeln(']                            PREMIUM MTK STUDY                            l');      writeln(']                         --------be smart-------                         l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /  l  l  l');      writeln(']                                                         \    /    l  l  l');      writeln(']                                                           \/      l  l  l');      writeln(']                                                          /  \     l  l  l');      writeln(']                                                        /      \   l  l  l');      writeln(']                                                      /          \ l  l  l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end; end; procedure yog3; begin      clrscr;      writeln('buku pemrograman');      writeln('~~~~~~~~~~~~~~~~');      writeln;      writeln('1. Untuk kelas 1                                                SCRIPT');      writeln('2. Untuk kelas 2                                                  (C) ');      writeln('3. Untuk kelas 3                                                  2016');      writeln('____________________________________________               BY YOGI A.W');      writeln;      writeln('NB : Masukan nomor kelas di bawah lalu enter');      writeln('____________________________________________');      readln(yogi);                         if yogi='1' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              PEMROGRAMAN                                l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                           SMART CODING STUDY                            l');      writeln(']                         ----------------------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /        l');      writeln(']                                                         \    /          l');      writeln(']                                                           \/            l');      writeln(']                                                          /  \           l');      writeln(']                                                        /      \         l');      writeln(']                                                      /          \       l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='2' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              PEMROGRAMAN                                l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                     EASY NORMAL HARD CODING BRAIN                       l');      writeln(']                         -------be cool-------                           l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /   l    l');      writeln(']                                                         \    /     l    l');      writeln(']                                                           \/       l    l');      writeln(']                                                          /  \      l    l');      writeln(']                                                        /      \    l    l');      writeln(']                                                      /          \  l    l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='3' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              PEMROGRAMAN                                l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         -------NEWBIE TOOL-----                         l');      writeln(']                           PREMIUM CODING BRAIN                          l');      writeln(']                         --------be cool--------                         l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /  l  l  l');      writeln(']                                                         \    /    l  l  l');      writeln(']                                                           \/      l  l  l');      writeln(']                                                          /  \     l  l  l');      writeln(']                                                        /      \   l  l  l');      writeln(']                                                      /          \ l  l  l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end; end; begin            clrscr;            yogi1;writeln;            yogi_hat;writeln;            write('INPUT HERE : ');readln(yogi25);            case yogi25 of            01:yog1;            02:yog2;            03:yog3;            end;writeln; end; 

ok selanjutnya kita masuk ke procedure [2]
buku umum sampai program index pilihan selesai baru lanjut ke searching and report ( gabungan )

procedure umum_yogi; procedure yogi_coder; begin      clrscr;      writeln('========================');      writeln('l  Buku Yang Tersedia  l');      writeln('========================');      writeln('       []  B  []         ');      writeln('       []  O  []                            ____________________');      writeln('       []  O  []         ');      writeln('       []  K  []                             script (c) 2016   ');      writeln('________________________                     coding by yogi a.w');      writeln('                                            ____________________');      writeln('l  1. Ensiklopedia Islam l');      writeln('l________________________l');      writeln;      writeln('l  2. Ensiklopedia Earth l');      writeln('l________________________l');      writeln;      writeln('l  3. Ensiklopedia Googlel');      writeln('l________________________l');      writeln('');      writeln('NB : Masukan nomor buku yang ingin di lihat ');   end; procedure yog4; begin      clrscr;      writeln('buku Ensiklopedia Islam');      writeln('~~~~~~~~~~~~~~~~~~~~~~~');      writeln;      writeln('1. Untuk kelas X                                                SCRIPT');      writeln('2. Untuk kelas XI                                                  (C) ');      writeln('3. Untuk kelas XII                                                  2016');      writeln('____________________________________________               BY YOGI A.W');      writeln;      writeln('NB : Masukan nomor kelas di bawah lalu enter');      writeln('____________________________________________');      readln(yogi);                         if yogi='1' then      begin      clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA ISLAM                         l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                           SHOHIH STUDY FINAL                            l');      writeln(']                         ----------------------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /        l');      writeln(']                                                         \    /          l');      writeln(']                                                           \/            l');      writeln(']                                                          /  \           l');      writeln(']                                                        /      \         l');      writeln(']                                                      /          \       l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                          if yogi='2' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA ISLAM                         l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                     SHOHIH WORD GREATZ ALL MUSLIM                       l');      writeln(']                         -------be smart-------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /   l    l');      writeln(']                                                         \    /     l    l');      writeln(']                                                           \/       l    l');      writeln(']                                                          /  \      l    l');      writeln(']                                                        /      \    l    l');      writeln(']                                                      /          \  l    l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='3' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA ISLAM                         l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         -----UMAR BIN KHATAB---                         l');      writeln(']                                  SHOHIH                                 l');      writeln(']                         ---------SHOHIH-------                         l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /  l  l  l');      writeln(']                                                         \    /    l  l  l');      writeln(']                                                           \/      l  l  l');      writeln(']                                                          /  \     l  l  l');      writeln(']                                                        /      \   l  l  l');      writeln(']                                                      /          \ l  l  l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end; end; procedure yog5; begin      clrscr;      writeln('buku Ensiklopedia Earth');      writeln('~~~~~~~~~~~~~~~~~~~~~~~');      writeln;      writeln('1. Untuk kelas X                                                SCRIPT');      writeln('2. Untuk kelas XI                                                  (C) ');      writeln('3. Untuk kelas XII                                                  2016');      writeln('____________________________________________               BY YOGI A.W');      writeln;      writeln('NB : Masukan nomor kelas di bawah lalu enter');      writeln('____________________________________________');      readln(yogi);                         if yogi='1' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA EARTH                         l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                           SMART KNOW EARTH                              l');      writeln(']                         ----------------------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /        l');      writeln(']                                                         \    /          l');      writeln(']                                                           \/            l');      writeln(']                                                          /  \           l');      writeln(']                                                        /      \         l');      writeln(']                                                      /          \       l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='2' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA EARTH                         l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                     EXPERT TO COUNT STUDY VS EASY                       l');      writeln(']                         -------be smart-------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /   l    l');      writeln(']                                                         \    /     l    l');      writeln(']                                                           \/       l    l');      writeln(']                                                          /  \      l    l');      writeln(']                                                        /      \    l    l');      writeln(']                                                      /          \  l    l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='3' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              MATEMATIKA                                 l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         -------GM TOOLS--------                         l');      writeln(']                            PREMIUM MTK STUDY                            l');      writeln(']                         --------be smart-------                         l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /  l  l  l');      writeln(']                                                         \    /    l  l  l');      writeln(']                                                           \/      l  l  l');      writeln(']                                                          /  \     l  l  l');      writeln(']                                                        /      \   l  l  l');      writeln(']                                                      /          \ l  l  l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end; end; procedure yog6; begin      clrscr;      writeln('buku Ensiklopedia Google');      writeln('~~~~~~~~~~~~~~~~~~~~~~~~');      writeln;      writeln('1. Untuk kelas 1                                                SCRIPT');      writeln('2. Untuk kelas 2                                                  (C) ');      writeln('3. Untuk kelas 3                                                  2016');      writeln('____________________________________________               BY YOGI A.W');      writeln;      writeln('NB : Masukan nomor kelas di bawah lalu enter');      writeln('____________________________________________');      readln(yogi);                         if yogi='1' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA GOOGLE                        l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         --------KAMUS---------                          l');      writeln(']                         GOOGLE KAPAN AKU KERJA                          l');      writeln(']                         ----------------------                          l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /        l');      writeln(']                                                         \    /          l');      writeln(']                                                           \/            l');      writeln(']                                                          /  \           l');      writeln(']                                                        /      \         l');      writeln(']                                                      /          \       l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='2' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA GOOGLE                        l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         ----------------------                          l');      writeln(']                      GOOGLE BAGAIMANA DUNIA KERJA                       l');      writeln(']                         -----KAMUS GOOGLE----                           l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /   l    l');      writeln(']                                                         \    /     l    l');      writeln(']                                                           \/       l    l');      writeln(']                                                          /  \      l    l');      writeln(']                                                        /      \    l    l');      writeln(']                                                      /          \  l    l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end;                         if yogi='3' then      begin clrscr;      writeln(']=========================================================================[');      writeln(']                              ENSIKLOPEDIA GOOGLE                        l');      writeln(']==========================================================================');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                         -------GOOGLE TOOL-----                         l');      writeln(']                     GOOGLE APAKAH AKU BISA TANPAMU                      l');      writeln(']                         ------KAMUS GOOGLE-----                         l');      writeln(']                              (C) 2016                                   l');      writeln(']                                                                         l');      writeln(']                                                                         l');      writeln(']                                                       \        /  l  l  l');      writeln(']                                                         \    /    l  l  l');      writeln(']                                                           \/      l  l  l');      writeln(']                                                          /  \     l  l  l');      writeln(']                                                        /      \   l  l  l');      writeln(']                                                      /          \ l  l  l');      writeln(']  DITERBITKAN OLEH                                                       l');      writeln(']  PT. BOOK OF FUTURE                                                     l');      writeln(']=========================================================================='); end; end; begin            clrscr;            yogi1;writeln;            yogi_coder;writeln;            write('INPUT HERE : ');readln(yogi25);            case yogi25 of            01:yog4;            02:yog5;            03:yog6;            end;writeln; end;  begin      yogiback:='y';      while (yogiback='y') do begin            clrscr;            yogi1;writeln;            yogi_blackhat;writeln;            write('Pilih Nomor Dari List of index for view it: ');            readln(yogi25);            case yogi25 of            1:paket_yogi;            2:umum_yogi            end;            writeln;            writeln('_____________THANKS FOR USING MY SCRIPT_______________Y09!');            writeln;            write ('PLEASE CAPSLOCK OFF ! masukan (y)-> menu utama ->(n) untuk EXIT : ');            readln(yogiback);  end; end. 


sampai disini program pemilihan sudah selesai dan bisa di coba compile lalu jalankan programnya
jika tidak ada kendala lanjut simak membuat program searchingnya.
[ UPDATE ] Post Program Pilihan click disini
[ UPDATE ] Post Program Search  click disini
[ UPDATE ] Post Program Gabunganya click disini
Full Source :


ok sekian sob

semoga bermanfaat








1 komentar so far

Weh dicoba ah gan :D biasanya html nyoba pascal ah :D


EmoticonEmoticon