Menyatakan cinta menggunakan coding, kelihatannya terdengar aneh tapi ini memang bisa dilakukan, coding atau semua jenis bahasa program sangatlah unik untuk dipelajari menurut saya tidaklah susah atau sesulit membaca suatu tulisan bahasa indonesia ataupun mengetik bahasa inggris,
kelihatannya kreatif, saya beri jempol kepada orang yang pertama kali membuatnya kreatif BRE . disini saya hanya mengedit / memodifikasi kata-kata dan tampilan warna lovenya .
lanjut dengan judul posting diatas ,mungkin yang lagi jatuh cinta dan ingin mengungkapkannya tetapi malu-malu kucing ^_^ mungkin saja ini bisa menjadi alternatif utama. untuk menyatakan cinta . cukup anda terapkan coding pascal ini .
"perlu anda ketahui coding ini berjalan pada software turbo pascal dan free pascal bisa juga program ini di jalankan di android nama aplikasinya Pascal N-IDE" jika anda belum mempunyai softwarenya .sihlakan bisa anda download Disini dan untuk android anda bisa download Disini . Script Github
ini adalah contoh codingnya sihlakan anda copy paste kedalam software atau aplikasi turbo pascal / free pascal atau bisa juga Pascal N-IDE : cukup panjang codingnya. pelajari cara copy paste coding dari blog saya ini kedalam Pascal N-IDE klik saja ini. COPY PASTE CODINGAN DI BAWAH
program live;Uses crt;var x : char;z : char;i : integer;beginclrscr;textcolor(01);gotoXY(35,2);writeln ('888888888888');delay (100);gotoXY(32,3);writeln ('888888822222228888');delay (200);gotoXY(31,4);writeln ('888888822222222288888');delay (200);gotoXY(30,5); writeln ('888888222222222228888822228888');delay (200);gotoXY(30,6); writeln ('888882222222222222288222222222888');delay (200);gotoXY(30,7); writeln ('88888222222222LUV22222222222222288');delay (200);gotoXY(31,8); writeln ('8888822222222222222222222222222_88');delay (200);gotoXY(32,9); writeln ('88888222222222222222U22222222__888');delay (200);gotoXY(33,10); writeln ('888822222222222222222222222___888');delay (200);gotoXY(34,11); writeln ('8888222222222222222222222____888');delay (200);gotoXY(35,12); writeln ('8888222222222222222222_____888');delay (200);gotoXY(36,13); writeln ('8882222222222222222_____8888');delay(200);gotoXY(37,14); writeln ('888822222222222______888888');delay(200);gotoXY(38,15); writeln ('8888882222______88888888');delay(200);gotoXY(39,16); writeln ('888888_____888888888');delay(200);gotoXY(40,17); writeln ('88888888888888');delay(200);gotoXY(41,18); writeln ('888888888');delay(200);gotoXY(42,19); writeln ('888888');delay(200);gotoXY(43,20); writeln ('8888');delay(200);gotoXY(44,21); writeln ('88');delay(200);gotoXY(45,22); writeln ('8');delay (200);textcolor(05);gotoXY(35,2);writeln ('888888888888');delay (200);gotoXY(32,3);writeln ('888888822222228888');delay (200);gotoXY(31,4);writeln ('888888822222222288888');delay (200);gotoXY(30,5); writeln ('888888222222222228888822228888');delay (200);gotoXY(30,6); writeln ('888882222222222222288222222222888');delay (200);gotoXY(30,7); writeln ('88888222222222LUV22222222222222288');delay (200);gotoXY(31,8); writeln ('8888822222222222222222222222222_88');delay (200);gotoXY(32,9); writeln ('88888222222222222222U22222222__888');delay (200);gotoXY(33,10); writeln ('888822222222222222222222222___888');delay (200);gotoXY(34,11); writeln ('8888222222222222222222222____888');delay (200);gotoXY(35,12); writeln ('8888222222222222222222_____888');delay (200);gotoXY(36,13); writeln ('8882222222222222222_____8888');delay(200);gotoXY(37,14); writeln ('888822222222222______888888');delay(200);gotoXY(38,15); writeln ('8888882222______88888888');delay(200);gotoXY(39,16); writeln ('888888_____888888888');delay(200);gotoXY(40,17); writeln ('88888888888888');delay(200);gotoXY(41,18); writeln ('888888888');delay(200);gotoXY(42,19); writeln ('888888');delay(200);gotoXY(43,20); writeln ('8888');delay(200);gotoXY(44,21); writeln ('88');delay(200);gotoXY(45,22); writeln ('8');gotoXY(05,13); writeln ('I Luv U');delay (200);gotoXY(27,91); writeln ('by. igal');delay(200);textcolor(02);gotoXY(01,23); writeln ('hmm, selama ini sebenarnya aku sayang kamu');gotoXY(01,24); writeln ('mau gak kamu menjadi pacar aku ?');writeln ('jawab dengan Y untuk jadian, atau N untuk Menolak');z := readkey;delay(1000);case z of'Y' : writeln('i love you :”>');'N' : writeln('yaah yaudah deh aku akan semangat dapetin kamu ');else writeln('jawab dhe, tekan Y atau N di keyboard');z :=readkey;delay(1000);case z of'y' : writeln ('i love you : ^_^ >');'n' : writeln ('walaupun ditolak, aku tetep cinta dede gemes :( *hikz');else writeln(' ');end;end;read(z);end.
langsung saja jika anda sudah copy ke dalam turbo pascal atau Pascal N-IDE, klik RUN / tekan pada keyboard secara bersamaan CTRL+F9. maka akan muncul sebuah output seperti ini :
Nahh bagaimana unik dan menarik bukan ! , tapi jangan galau ataupun sedih, jika anda ditolak sang pujaan hati.cukup cari target yang lain .ayolah bangkit JOMBLO hehehhe ^_^ .
Demikian posting kali ini semoga bermanfaat , thanks Assalamualaikum✋
