Tuesday, January 21, 2014

cara baru buat katakan cinta )'O_O'(

seiring berkembangnya teknologi dan komunikasi yang menyebar didunia ini memang harus diselaraskan dengan kehidupan adat dan budaya yang ada. Sorry, panjang lebar hahaha...padahal tadinya cuma mau share sebuah program buatan saya yang sangat sederhana. Namun, dapat anda gunakan buat yang lagi FIL ( jatuh-jatuh cinta gituuuu)!!!.... 
program ini di buat dari Turbo Pascal...
berikut syntaxnya
uses crt;
var
   j,y,t: string;
begin
clrscr;
textcolor(10);
write (' Mungkin lewat sebuah karya sederhana ini'); readln;
write (' Kucoba untuk mengungkapkan, apa yang aku rasakan selama ini'); readln;
write (' Aku minta maaf karena aku tak cukup punya keberanian'); readln;
write (' Untuk mengungkapkan rasa ini didepanmu, langsung dari bibirku');
readln;
writeln (' Namun, aku begitu menginginkanmu untuk mendampingiku di hari-hariku');
readln;
writeln (' Maukah Kamu jadi yang terindah untukku:');
write (' y/t :'); readln(j);
if j = 'y' then
begin
     writeln (' Terima kasih, Aku akan menjaga kepercayaan yang engkau berikan');
      delay(2000);
textcolor(10);
clrscr;
writeln ('          ***               ***               ');
writeln ('         *****            ******               ');
writeln ('         *******        ********               ');
writeln ('          *******      ********               ');
writeln ('          ********    ********               ');
writeln ('           ********* ********               ');
writeln ('            ****************               ');
writeln ('             **************               ');
writeln ('              ************               ');
writeln ('               **********               ');
writeln ('                ********               ');
writeln ('                 ******               ');
writeln ('                  ****               ');
writeln ('                   **                        ');
writeln ('                    *                           ');
end;
if j = 't' then
begin
     write (' Mungkin aku yang terlalu berharap lebih kepadamu. Aku minta maaf!!');
     end;


readln;
end.

agar mudah mengeditnya.. silahkan copy dan gunakan notepad ++ untuk membukanya dan mengkonversi jadi file (.pas)  
saya juga akan share aplikasinya download sekarang

sekian terima kasih.. semoga bermanfaat!!!!

0 komentar

Post a Comment

komentar anda sangat berharga