kunci gitar

saat aku termenung melihat fotho fotho yang ada di album fotho ku,

matakupun tertuju pada satu fotho, fotho yang telah lama tidak pernah aku buka lagi,

mungkin hampir terhapus dari memori otakku.....

fotho itu mengingatkan aku pada satu lagu yang telah dipopulerkan D'bagindas,,,,

dengan memetik senar senar gitar, bibir membuka dan melantunkan kata demi kata

yang ada pada lirik lagu tersebut....

tersenyum dan pahit yang aku rasakan ketika menyanyikan lagu ini... :(

Intro: F#m
     F#m Bm 3x F#m

          F#m                  Bm
Hatiku berkata ingin katakan cinta
          D                  A  C#
Namun aku malu untuk mengawalinya

             F#m                 Bm
Jantungku berdebar saat kau menatapku
              D                A  C#
Jadi salah tingkah bicara sama kamu

       D                  Bm
Bibir ku terbungkam melihat senyummu
      C#
Aku tak kuasa saat di depanmu

      D                      A
Sebenarnya aku ingin mengungkapkan rasa
      Bm              F#m
Tapi mengapa aku selalu tak bisa
     D               A
Bagaimana caranya agar dirimu
     Bm             C#
bisa tahu Kalau aku suka, suka, suka
          F#m
suka sama kamu

Int: F#m Bm 3x F#m

             F#m                 Bm
Jantungku berdebar saat kau menatapku
              D                A  C#
Jadi salah tingkah bicara sama kamu

       D                  Bm
Bibir ku terbungkam melihat senyummu
      C#
Aku tak kuasa saat di depanmu

      D                      A
Sebenarnya aku ingin mengungkapkan rasa
      Bm              F#m
Tapi mengapa aku selalu tak bisa
     D               A
Bagaimana caranya agar dirimu
     Bm             C#
bisa tahu Kalau aku suka, suka, suka
          F#m
suka sama kamu

Solo: D A Bm F#m
    D A Bm C#

      D                      A
Sebenarnya aku ingin mengungkapkan rasa
      Bm              F#m
Tapi mengapa aku selalu tak bisa
     D               A
Bagaimana caranya agar dirimu
     Bm             C#
bisa tahu Kalau aku suka, suka, suka

      D                      A
Sebenarnya aku ingin mengungkapkan rasa
      Bm              F#m
Tapi mengapa aku selalu tak bisa
     D               A
Bagaimana caranya agar dirimu
     Bm             C#
bisa tahu Kalau aku suka, suka, suka
          F#m
suka sama kamu

Ending: F#m Bm 3x F#m

hari pertama

hmmmm....... 

assalamu'alaikum wr.wb.

apa kabar sahabat harianku semuanya.... 

tak ada nikmat yang lebih berharga kecuali nikmat yang telah diturunkan Dia kepada kita semua........

aku bingung apa yang harus aku tuliskan disini,,,,, cerita pribadiku atau bagaimana,,,  aku sekarang sedang menuntut ilmu di salah satu perguruan tinggi negeri yang ada di wilayah kota Palembang-Sumatera Selatan. 

awalnya aku tak menyangka bisa masuk dan menuntut ilmu disini,, aku tak yakin pada kemampuan ku sendiri ,,, apalagi jurusan yang ku ambil saat ini amat rumit... ya metematika ,, tepatnya mipa matematika namanya....... pasti kalan tahu kan,, kalian juga sudah berfikir bagaiman rumitnya matematika itu sendiri,, dari urusan integral sampe integral kurang ajar.. hehehhehehehe aku ingat kata kata itu waktu aku sedang ada mnmata kuliah di salah satu bidang statistik,, lucu lah..

aku tak tahu apakah aku sekarang telah ikhlas untuk menjalani pendidikan disini atau bagaimana,, akupun tak tahu,, apalagi sekarng sudah memasuki tahap-tahap ujian akhir, alias UAS.. huhft,, kalian pasti sudah terbayang bagaiman menghadapi uas,, buku bertumpuk didepan mata,,,, hanya di pandangi dan membayangkan bagaimana  bisa belajar dengan buku sebnayak itu dan dengan kerumitan yang tak terdefinisis,,, hahahhahahhaaa

sudah ah,,,, besok atau kapan ceritanya di lanjutin lagi.......... 

:)

salam kompak selalu dian kyootto....

DAFTAR

program loundry happy happy

program loundry_HappyHappy;

uses wincrt;

type recPlngn=record

     nama:string[25];

     almt:string[100];

     tlpn:string[15];

end;

var

   X:recPlngn;

   pilihan,memilih:byte;

   a,b,c,d,e,f,p,h,kg,harga,dis:real;

   cov1, cov2, cov3,data,jawab,as:byte;

   i,das:string;

   s : char;

   label ulang,kembali,back,home;

  

procedure cover1 (var cov1:byte);

          begin

               clrscr;

               gotoxy(20,3); writeln('                 P R O G R A M                  ');

               gotoxy(20,4); writeln('       L O U N D R Y  H A P P Y - H A P P Y     ');

               gotoxy(20,5); writeln('________________________________________________');

               gotoxy(20,10);writeln('         * O L E H  K E L O M P O K  IX *       ');

               gotoxy(20,11);writeln('     ________________________________________   ');

               gotoxy(20,12);writeln('    |##                                     ##|  ');

               gotoxy(20,13);writeln('    |## SEFTY KURNIA UTAMI  :  08101001044  ##|  ');

               gotoxy(20,14);writeln('    |## DIAN PRATAMAWATI    :  08101001047  ##|  ');

               gotoxy(20,15);writeln('    |## FANI MAULIA RAHMAH  :  08101001054  ##|  ');

               gotoxy(20,16);writeln('    |##                                     ##|  ');

               gotoxy(20,17);writeln('    |_________________________________________|  ');

               gotoxy(20,18);writeln('      Press Any Buttom to Continue: '); readkey;

               clrscr;

           end;

procedure cover2 (var cov2:byte);

    begin

    gotoxy(5,6);writeln('***************SELAMAT DATANG DI PROGRAM LOUNDRY HAPPY-HAPPY***********');

    gotoxy(5,7);writeln('Disini anda dapat memilih program loundry sesuai dengan yang anda inginkan');

    gotoxy(5,8);writeln('                              SELAMAT MENCOBA                             ');

    gotoxy(7,13);writeln(' press any buttom to continue, jenis loundry beserta harga : ');readkey;

     clrscr;

    end;

procedure cover3 (var cov3:byte);

     begin

     gotoxy(17,3) ;writeln('               TABEL LOUNDRY           ');

     gotoxy(13,4) ;writeln('_______________________________________________');

     gotoxy(13,5) ;writeln('|  jenis loundry   |   jenis satuan  |  harga  |');

     gotoxy(13,6) ;writeln('_______________________________________________');

     gotoxy(13,7) ;writeln('|  pakaian atas    |     potongan    |  2000   |');

     gotoxy(13,8) ;writeln('|  pakaian bawah   |     potongan    |  3000   |');

     gotoxy(13,9) ;writeln('|pakaian atas bawah|     potongan    |  5000   |');

     gotoxy(13,10);writeln('|      dress       |     potongan    |  4500   |');

     gotoxy(13,11);writeln('|     selimut      |     kilogram    | 12000   |');

     gotoxy(13,12);writeln('|      spray       |     kilogram    | 12000   |');

     gotoxy(13,13);writeln('|     handuk       |     kilogram    | 12000   |');

     gotoxy(13,14);writeln('|     gorden       |     kilogram    | 12000   |');

     gotoxy(13,15);writeln('|     jilbab       |     kilogram    | 12000   |');

     gotoxy(13,16);writeln('________________________________________________');

     gotoxy(13,17);writeln('                                                ');

     gotoxy(14,19);writeln(' KAMI TIDAK MENERIMA LOUNDRY SELAIN JENIS-JENIS DI ATAS');

     gotoxy(14,20);writeln('                  < TERIMA KASIH  >                    ');  

     writeln('                                                                           ');

     writeln('                                                                           ');

     writeln('                                                                           ');

     writeln('  press any buttom to continue, identitas pelanggan : ');readkey;

     clrscr;

     end;

procedure identitas (var data:byte);

label

     a,b,c;

begin

      gotoxy(10,5);writeln('_______________________________________________________________');

      gotoxy(10,9);writeln('_______________________________________________________________');

      a:

      gotoxy(10,6);write('Masukkan Nama               :');readln(X.nama);

      repeat

      if (X.nama='') then

      begin

      gotoxy(10,15);write ('Maaf, Data tidak boleh kosong');readkey;

      clrscr;

      gotoxy(10,5);writeln('_______________________________________________________________');

      gotoxy(10,9);writeln('_______________________________________________________________');

      goto a;

      end;

      until (X.nama<>'');

     

      b:

        gotoxy(10,6);write('Masukkan Nama               :',X.nama);

      gotoxy(10,7);write('Masukkan Alamat             :');readln(X.almt);

      repeat

      if (x.almt='') then

       begin

      gotoxy(10,15);write ('maaf data tidak boleh kosong');readkey;

      clrscr;

       gotoxy(10,5);writeln('_______________________________________________________________');

      gotoxy(10,9);writeln('_______________________________________________________________');

      goto b;

      end;

      until (X.almt<>'');   

      c:

      gotoxy(10,6);write('Masukkan Nama               :',X.nama);

      gotoxy(10,7);write('Masukkan Alamat             :',X.almt);

      gotoxy(10,8);write('Masukkan Nomor telephone    :');readln(X.tlpn);

       repeat

      if (x.tlpn='') then

       begin

      gotoxy(10,15);write ('maaf data tidak boleh kosong');readkey;

      clrscr;

       gotoxy(10,5);writeln('_______________________________________________________________');

      gotoxy(10,9);writeln('_______________________________________________________________');

      goto c;

      end;

      until (X.tlpn<>'');

      gotoxy(5,13);writeln('  press any buttom to continue, program pilihan : ');readkey;

end;

procedure mulai (var jawab:byte); 

    begin

    clrscr;

    writeln('PILIHAN');

    writeln('1.Mencuci perPotong');

    writeln('2.Mencuci perKg');

    writeln('pilih(1/2)?');readln(pilihan);

    clrscr;

    case pilihan of

    1:begin

           clrscr;

           writeln('MEMILIH');

           writeln('1.pakaian atas');

           writeln('2.pakaian bawah');

           writeln('3.pakaian atas dan bawah');

           writeln('4.dress');

           writeln('pilih(1/2/3/4)/');readln(memilih);

           clrscr;

           case memilih of

           1:begin

           write  ('masukkan banyak potongan      :');readln(p);

           writeln('Harga perPotong               :2000');

           harga:=p*2000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           2:begin

           write  ('masukkan banyak ptongan       :');readln(p);

           writeln('Harga perPotong               :3000');

           harga:=p*3000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           3:begin

           write  ('masukkan banyak potongan      :');readln(p);

           writeln('Harga perPotongan             :5000');

           harga:=p*5000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           4:begin

           write  ('masukkan banyak potongan      :');readln(p);

           writeln('harga perPotongan             :4500');

           harga:=p*4500;writeln;

           write  ('Harga yang harus dibayar      =Rp',harga:0:2);

           end;

           else

           begin

           writeln('pilihan yang tersedia hanya 1,2,3, atau 4');

           writeln('anda tidak dapat memilih selain nomor di atas?');readkey;

           writeln('press to any buttom, kembali ke pilihan');readkey;

          

           end;

           end;

      end;

    2:begin

      clrscr;

       writeln;

       writeln('_________________________________________');

       writeln('|  jumlah kilogram   |  harga kilogram  |');

       writeln('_________________________________________');

       writeln('|  1  kg - 20  kg    |      12000       |');

       writeln('|  21 kg - 40  kg    |      10000       |');

       writeln('|  41 kg - 60  kg    |       9500       |');

       writeln('|  61 kg - 80  kg    |       8500       |');

       writeln('|  81 kg - 100 kg    |       8000       |');

       writeln('|     >100 kg        |       7500       |');

       writeln('_________________________________________');

       writeln('                                         ');

     

      writeln('press any continue');readkey;

      clrscr;

           writeln('MEMILIH');

           writeln('1.cucian 1  kg - 20  kg');

           writeln('2.cucian 21 kg - 40  kg');

           writeln('3.cucian 41 kg - 60  kg');

           writeln('4.cucian 61 kg - 80  kg');

           writeln('5.cucian 81 kg - 100 kg');

           writeln('6.cucian >100 kg');

           writeln('pilih(1/2/3/4)/5/6');readln(memilih);

           clrscr;

           case pilihan of

           1:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('Harga perkilogram           :12000');

           harga:=a*12000;writeln;

           write  ('harga yang harus dibayar    =Rp',harga:0:2);

           end;

           2:begin

           write  ('masukkan banyak cucian       :');readln(a);

           writeln('Harga perkilogram               :10000');

           harga:=a*10000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           3:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('Harga perkilogram             :9500');

           harga:=a*9500;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           4:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('harga perkilogram             :8500');

           harga:=a*8500;writeln;

           write  ('Harga yang harus dibayar      =Rp',harga:0:2);

           end;

           5:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('Harga perkilogram             :8000');

           harga:=a*8000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           6:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('harga perkilogram             :7500');

           harga:=a*7500;writeln;

           write  ('Harga yang harus dibayar      =Rp',harga:0:2);

           end;

           else

           begin

           writeln('pilihan yang tersedia hanya 1,2,3, atau 4');

           writeln('anda tidak dapat memilih selain nomor di atas?');readkey;

           writeln('press to any buttom, kembali ke pilihan');readkey;

           end;

           end;

           end;

      else

      begin

      write ('Maaf, Pilihan yang Anda Masukkan Tidak Sesuai Dengan Pilihan Diatas');

      end;

      end;

      end;

procedure diskon (var dis, harga:real);

begin

if harga<100000 then

write('maaf anda tidak mendapatkan diskon terima kasih') else

if harga>=100000 then

begin

write('Selamat Anda Mendapatkan Diskon Sebesar 10%');

harga:=harga-(harga*0.1);

write('maka anda harus membayar= ',harga:0:2);

end;

end;

procedure pil1(var harga : real);

          begin

          clrscr;

           gotoxy(9,1) ;writeln('-------------------------------------');

           gotoxy(13,3) ;writeln('MEMILIH');

           gotoxy(10,4) ;writeln('1.pakaian atas');

           gotoxy(10,5) ;writeln('2.pakaian bawah');

           gotoxy(10,6) ;writeln('3.pakaian atas dan bawah');

           gotoxy(10,7) ;writeln('4.dress');

           gotoxy(9,9) ;writeln('--------------------------------------');

           gotoxy(10,12) ;writeln('Silahkan Masukkan Pilihan Anda (1/2/3/4)......');readln(memilih);

         

           clrscr;

           case memilih of

           1:begin

           write  ('masukkan banyak potongan      :');readln(p);

           writeln('Harga perPotong               :2000');

           harga:=p*2000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           diskon (dis,harga);

           end;

           2:begin

           write  ('masukkan banyak ptongan       :');readln(p);

           writeln('Harga perPotong               :3000');

           harga:=p*3000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           3:begin

           write  ('masukkan banyak potongan      :');readln(p);

           writeln('Harga perPotongan             :5000');

           harga:=p*5000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           4:begin

           write  ('masukkan banyak potongan      :');readln(p);

           writeln('harga perPotongan             :4500');

           harga:=p*4500;writeln;

           write  ('Harga yang harus dibayar      =Rp',harga:0:2);

           end;

           else

           begin

           writeln('pilihan yang tersedia hanya 1,2,3, atau 4');

           writeln('anda tidak dapat memilih selain nomor di atas?');readkey;

           writeln('press to any buttom, kembali ke pilihan');readkey;     

           end;

           end;

           end;

procedure pil2;

label

     x;

begin

           clrscr;

      gotoxy(19,2) ;writeln('Pemberitahuan Tentang Loundry          ');

      gotoxy(14,4) ;writeln('_________________________________________');

      gotoxy(14,5) ;writeln('|  jumlah kilogram   |  harga kilogram  |');

      gotoxy(14,6) ;writeln('_________________________________________');

      gotoxy(14,7) ;writeln('|  1  kg - 20  kg    |      12000       |');

      gotoxy(14,8) ;writeln('|  21 kg - 40  kg    |      10000       |');

      gotoxy(14,9) ;writeln('|  41 kg - 60  kg    |       9500       |');

      gotoxy(14,10);writeln('|  61 kg - 80  kg    |       8500       |');

      gotoxy(14,11);writeln('|  81 kg - 100 kg    |       8000       |');

      gotoxy(14,12);writeln('|     >100 kg        |       7500       |');

      gotoxy(14,13);writeln('_________________________________________');

      gotoxy(14,14);writeln('                                         ');

      gotoxy(12,17);writeln('press any continue');readkey;

      clrscr;

           gotoxy(24,2) ;writeln('MEMILIH');

           gotoxy(17,3) ;writeln('___________________________');

           gotoxy(17,5) ;writeln('# 1.cucian 1  kg - 20  kg #');

           gotoxy(17,6) ;writeln('# 2.cucian 21 kg - 40  kg #');

           gotoxy(17,7) ;writeln('# 3.cucian 41 kg - 60  kg #');

           gotoxy(17,8) ;writeln('# 4.cucian 61 kg - 80  kg #');

           gotoxy(17,9) ;writeln('# 5.cucian 81 kg - 100 kg #');

           gotoxy(17,10);writeln('# 6.cucian   >100 kg      #');

           gotoxy(17,11);writeln('___________________________');

           gotoxy(17,13);writeln('Masukkan Pilihan Anda (1/2/3/4/5/6):.......');readln(memilih);

           clrscr;

           case  memilih of

           1:begin

           x:

           write  ('masukkan banyak cucian      :');readln(a);

           repeat

           if (a>20) then

           write('maaf anda melebihi target loundry');readkey;

           clrscr;

           goto x;

           until (a<=20);

           writeln('Harga perkilogram           :12000');

           harga:=a*12000;writeln;

           write  ('harga yang harus dibayar    =Rp',harga:0:2);

           end;

           2:begin

           write  ('masukkan banyak cucian       :');readln(a);

           writeln('Harga perkilogram               :1000');

           harga:=a*1000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           3:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('Harga perkilogram             :9500');

           harga:=a*9500;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           4:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('harga perkilogram             :8500');

           harga:=a*8500;writeln;

           write  ('Harga yang harus dibayar      =Rp',harga:0:2);

           end;

           5:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('Harga perkilogram             :8000');

           harga:=a*8000;writeln;

           write  ('harga yang harus dibayar      =Rp',harga:0:2);

           end;

           6:begin

           write  ('masukkan banyak cucian      :');readln(a);

           writeln('harga perkilogram             :7500');

           harga:=a*7500;writeln;

           write  ('Harga yang harus dibayar      =Rp',harga:0:2);

           end;

           else

           begin

           writeln('pilihan yang tersedia hanya 1,2,3, atau 4');

           writeln('anda tidak dapat memilih selain nomor di atas?');

           writeln('press to any buttom, kembali ke pilihan');readkey;

           end;

           end;

           end;

procedure hasil1;

          begin

          gotoxy(8,3);writeln('D A T A  P E L A N G G A N ');

          gotoxy(8,5);writeln(x.nama);

          gotoxy(8,6);writeln(x.almt);

          gotoxy(8,7);writeln(x.tlpn);

             if memilih = 1 then

             begin  das := 'Pakaian Atas';  end;

             if memilih = 2 then

             begin das := 'Pakaian Bawah'; end;

             if memilih = 3 then

             begin das := 'Pakaian Atas dan Bawah'; end;

             if memilih = 4 then

             begin das := 'Dress'; end;

         writeln(das);

         writeln(harga:0:2);

         diskon(dis,harga);

         end;

    BEGIN

   

    cover1(cov1);

    cover2(cov2);

    ulang:

    cover3(cov3);

    identitas(data);

    clrscr;

    home :

    writeln('PILIHAN');

    writeln('1.Mencuci perPotong');

    writeln('2.Mencuci perKg');

    writeln('pilih(1/2)?');readln(pilihan);

    clrscr;

    case pilihan of

    1:begin

    kembali :

    pil1(harga);

      if (memilih >4) then goto kembali;

      end;

    2:begin

    back :

    pil2;

     if (memilih >6) then goto back;

           end;

          

 else

 begin

 writeln('Maaf, Pilihan yang Anda Masukkan Tidak Sesuai Dengan Pilihan Diatas');

 readkey;

 clrscr;

 goto home;

 end;end;clrscr;

 hasil1;

    repeat

    begin

          gotoxy(19,14);writeln  ('========================================================');

          gotoxy(19,19);writeln ('========================================================');

          gotoxy(19,16);writeln  ('  Apakah Anda Ingin Kembali ke Menu Awal?    ');

          gotoxy(19,17);write   ('     Jika Ya tekan "Y",Jika Tidak "T" = '); readln(s);

    end;

    until

         (s='Y')or(s='y')or(s='T')or(s='t');

    clrscr;

    if (s='y')or(s='Y')then

       goto ulang;      

    if (s='T')or(s='t')then

        gotoxy(16,10) ;writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

        gotoxy(16,12) ;writeln('  Terima Kasih telah berkunjung ke Loundry Happy Happy');

        gotoxy(16,13) ;writeln('                Anda Puas Kami Senang');

        gotoxy(16,14) ;writeln('                                        ');

        gotoxy(16,16);writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

    END.

            

     

program pascal tpw