Mper Mper Pisang: Mei 2011

Rabu, 18 Mei 2011

SMS Gratis

anak kosan..kebiasaan dech ngga punya pulsa..jangankan pulsa, buat makan sehari2 aza kadang2 susah..wkwkwkwkwk..

but HARI GINI NGGA PUNYA PULSA?? APA KATA DUNIA..(hhaha..iya ane ngaku ane lebay)

teknologi masa kini dund..

coba dech buka mbah Google n tulis aza sms gratis..pasti banyak banget tuch keluarnya..di blog ane juga ada salah satu aplikasi sms gratis dari internet..ane ambil dari http://www.sms-online.web.id/..letaknya di paling kanan tampilan blog ane..keliatan lha..ngga kecil2 amat kok..

di website ntu ngga cuma bisa ngirim sms gratis aza..tapi juga bisa ngecek inbox dkk..keren kan..dan juga nie bener2 FREE lho ke semua operator di seluruh Indonesia..bisa GSM ato CDMA..

klo biasanya aplikasi sms gratis di internet lainnya cuma bisa ngirim doank, nyang nie mah laen..kebayang klo c penerima sms gratis tanpa sadar malah bales ke nomer bawaan ntu aplikasi padahal kita udah nyuruh dia buat bales ke nomer asli kita..kan kasian dia mesti sms dua kali (ngga kasian2 juga c)

makanya aplikasi sms gratis di website nie mesti dicoba dech..So buruan buat agan2/sista2 nyang ngga punya pulsa tapi lagi ada kesempatan berinternet ria, SMS aza dari nie web..^,^..

HEADLINE NEWS

Sebenarnya kabar nie ngga baru2 amat c..Baunya udah tercium jauh..tapi gpp dech..biar heboh aza..

Headline News bagi para pecinta Taman Bacaan BukaBuku (khususnya nyang sering nongktrong ngabisin tempat di sana..wkwkwkwkwk) katanya bulan ini BukaBuku akan resmi ditutup dan katanya juga tidak akan dibuka kembali dalam jarak yang dekat dengan tempat semula..hiks hiks..padahal kan udah hampir dua tahun nie minjem komik di sana, baca komik (walopun sebagian besar gratis karna sekalian nemenin yang jaga komik..hhay..tapi kadang bayar juga kok..hhehe...), terus ampe dibentuk grup Apa Aza Boleeeeeeeeeeee di facebook..TERUS SEKARANG MAU UDAHAN AZA GITU?? Cici TEGA (zoom kamera nyang keliatan idung doang)

nyang ane pikirin klo misalnya komik tutup adalah :
1. ngga ada tempat nongkrong lagi buat nungguin jam kosong kuliah
2. ngga ada tempat kumpul2 nyang rame lagi ama anak Apa Aza Boleeeeeeeeeeee
3. ngga ada tempat buat nyewa komik lagi
4. ngga bisa baca komik gratis lagi
5. ngga bisa jajan/makan di BukaBuku lagi

aah cici..kenapa kau berniat menutup tempat usahamu yang satu itu dan pindahnya ke tempat yang jauh nan sepi (baru cenah)..ciciiiiiiiiiiiiiiiiiiiii jangan tutup dund..

Selasa, 17 Mei 2011

Contoh Source Code Menu Pilihan Bahasa Pascal

program menu_pilihan;

uses wincrt;

var harga,tambah,menu,total,jumlah,plus,porsi,jenis:longint;

var porsi2,nama,najen:string;

begin

writeln(' SIANG MALAM MAKNYUS ');

writeln(' -----------------------------');

writeln(' Menu Yang Tersedia');

writeln(' 1. Nasi Goreng Sapi ');

writeln(' 2. Nasi Goreng Ayam ');

writeln(' 3. Mie Goreng Sapi ');

writeln(' 4. Mie Goreng Ayam ');

writeln(' 5. Soto ');

writeln(' 6. Keluar ');

writeln;

repeat;

writeln;

write(' Masukkan menu pilihan anda : ');readln(menu);

writeln;

case menu of

1: begin

harga:=6000;

nama:='Nasi Goreng Sapi';

end;

2: begin

harga:=5000;

nama:='Nasi Goreng Ayam';

end;

3: begin

harga:=6000;

nama:='Mie Goreng Sapi ';

end;

4: begin

harga:=5000;

nama:='Mie Goreng Ayam ';

end;

5: begin

harga:=4000;

nama:='Soto ';

end;

6: begin

end;

7: begin

write;

end;

until menu<=6;

if menu<=5 then

begin

repeat;

writeln;

write(' Porsi (kecil(1)/sedang(2)/besar(3)) : ');readln(porsi);

writeln;

case porsi of

1: begin

tambah:=1000;

porsi2:='Kecil';

end;

2: begin

tambah:=2000;

porsi2:='Sedang';

end;

3: begin

tambah:=3000;

porsi2:='Besar';

end;

4: begin

write;

end;

until porsi<=3;

repeat;

writeln;

write(' Jenis(DT(1)/TH(2)) : ');readln(jenis);

writeln;

case jenis of

1: begin

plus:=0;

najen:='Di tempat';

end;

2: begin

plus:=2000;

najen:='Take Home';

end;

3: begin

write;

end;

until jenis<=2;

end;

jumlah:=harga+tambah;

total:=jumlah+plus;

if menu<=5 then

begin

writeln;

writeln(' =============================');

writeln;

writeln(' Pesanan Anda ');

writeln;

writeln(' ',nama,' : ','Rp. ',jumlah,',-');

writeln(' Porsi : ',porsi2);

writeln(' Jenis : ',najen);

writeln(' Total Harga : Rp. ',total,',-');

readkey();

end;

end.

Contoh Source Code Jumlah Deret Bahasa Pascal

program jumlah_deret;

uses crt;

var i,p,q,n,tanda,j:longint;

var S:real;

var simbol:string;

begin

i:=1;

j:=0;

S:=0;

write('masukkan jumlah n : ');read(n);

while (i<=n) do

begin

if(i mod 2=1) then

begin

tanda:=1;

simbol:='+';

end;

if(i mod 2=0) then

begin

tanda:=-1;

simbol:='-';

end;

p:=i;

q:=i+j;

S:=S+(p / q*tanda);

write(' ',simbol,' ',p,'/',q);

i:=i+1;

j:=j+1;

end;

writeln;

writeln('s = ',S);

readkey();

end.

Contoh Source Code Menampilkan Bintang Bahasa Pascal

Program Menampilkan_Bintang;

Uses Wincrt;

Var i,j,n:integer;

Begin

Writeln('Program Menampilkan Bintang');

Writeln('===========================');

Writeln;

Write('Masukkan Jumlah Baris: ');readln(n);

For i:= 1 to n do

Begin

For j:= 1 to i do

Write('**');

Writeln;

End;

readkey();

End.

Contoh Source Code Pecahan Uang Bahasa Pascal

Program Pecahan_Uang;

Uses crt;

var uang,jumlah:longint;

begin

writeln('Masukan nominal uang !!');

writeln;

write(' Rp. ');readln(uang);

writeln;

writeln ('Jumlah pecahan yang tersedia :');

writeln;

if uang>=1000 then

begin

jumlah:=uang div 1000;

writeln(' Rp. 1000,- ada ',jumlah);

uang:=uang mod 1000;

end;

if uang>=500 then

begin

jumlah:=uang div 500;

writeln(' Rp. 500,- ada ',jumlah);

uang:=uang mod 500;

end;

if uang>=100 then

begin

jumlah:=uang div 100;

writeln(' Rp. 100,- ada ',jumlah);

uang:=uang mod 100;

end;

if uang>=50 then

begin

jumlah:=uang div 50;

writeln(' Rp. 50,- ada ',jumlah);

uang:=uang mod 50;

end;

if uang>=25 then

begin

jumlah:=uang div 25;

writeln(' Rp. 25,- ada ',jumlah);

uang:=uang mod 25;

end;

writeln;

readln;

end.

Contoh Source Code Konversi Jarak Bahasa Pascal

program konversi_jarak;

uses wincrt;

var jarak,km,m,cm,sisa:longint;

begin

write ('Masukkan jarak dalam satuan cm: ');

readln (jarak);

km:=jarak div 100000;

sisa:=jarak mod 100000;

m:=sisa div 100;

cm:=sisa mod 100;

writeln;

writeln ('hasil konversi jarak');

writeln;

write (km,' km + ',m,' m + ',cm,' cm');

read (km,m,cm);

end.

Contoh Source Code Tukar X,Y,Z Bahasa Pascal

program tukar_bilangan;

uses wincrt;

var x,y,z,w:longint;

begin

write ('masukkan nilai x: ');

read (x);

writeln;

write ('masukkan nilai y: ');

read (y);

writeln;

write ('masukkan nilai z: ');

read (z);

w:=x;

x:=y;

y:=z;

z:=w;

writeln;

writeln ('hasil tukar (x,y,z) menjadi (y,z,x)');

writeln;

writeln ('nilai x sekarang: ',x);

writeln;

writeln ('nilai y sekarang: ',y);

writeln;

writeln ('nilai z sekarang: ',z);

read (x,y,z);

end.

Contoh Source Code Selisih Tanggal Bahasa Pascal

program beda_tanggal;

uses wincrt;

var dd1,mm1,yy1,dd2,mm2,yy2,dd,mm,yy:longint;

begin

writeln('Hitung Selisih Tanggal');

writeln;

writeln('tanggal 1 = ');

writeln;

write(' tanggal ');read(dd1);

write(' bulan ');read(mm1);

write(' tahun ');read(yy1);

writeln;

writeln('tanggal 2 = ');

writeln;

write(' tanggal ');read(dd2);

write(' bulan ');read(mm2);

write(' tahun ');read(yy2);

if dd1>dd2 then

begin

dd:=dd1-dd2;

end;

if dd2>dd1 then

begin

dd:=dd2-dd1;

end;

if mm1>mm2 then

begin

mm:=mm1-mm2;

end;

if mm2>mm1 then

begin

mm:=mm2-mm1;

end;

if yy1>yy2 then

begin

yy:=yy1-yy2;

end;

if yy2>yy1 then

begin

yy:=yy2-yy1;

end;

writeln;

writeln('hasil selisih tanggal : ');

writeln;

writeln(yy,' tahun ',mm,' bulan ',dd,' hari ');

readln(yy,mm,dd);

end.

Contoh Source Code Konversi Hari Bahasa Pascal

program konversi_hari;

uses wincrt;

var yy,mm,dd,hari,sisa:longint;

begin

write ('Masukkan nilai hari: ');

readln (hari);

yy:=hari div 365;

sisa:=hari mod 365;

mm:=sisa div 30;

dd:=sisa mod 30;

writeln;

writeln ('hasil konversi hari');

writeln;

write (yy,' tahun ',mm,' bulan ',dd,' hari');

read (yy,mm,dd);

end.

Contoh Source Code Konversi Detik Bahasa Pascal

program konversi_detik;

uses wincrt;

var dd,hh,mm,ss,detik,sisa:longint;

begin

write ('Masukkan nilai detik : ');

readln (detik);

dd:=detik div 86400;

sisa:=detik mod 86400;

hh:=sisa div 3600;

sisa:=sisa mod 3600;

mm:=sisa div 60;

ss:=sisa mod 60;

writeln;

writeln ('hasil konversi detik');

writeln;

write (dd,' hari ',hh,' jam ',mm,' menit ',ss,' detik');

read (dd,hh,mm,ss);

end.

Brown Eyed Girls - Sign

sumi gapa Mayday, dot dot dot dot dot
mami apa Mayday, dot dot dot dot dot
siganeun tto Tic Toc heulleoman ga Tic Toc
deullini nae Sign, Sign, dot dot dot dot dot

dot dot dot dot dot majimotaeseorado
dot dot dot dot dot nareul han beon bwa bwa
hwanhaetdeon nareul bwa ireoke na byeonhaega
amu mal motago dot dot dot dot dot

yo It`s me- babogachi nunmulman peongpeongpeong heullineun naya
all day and all night
nan all day and all night
eoduun bangane itgiman hae not all right
amuri malhaedo naemameul wae molla
ilbun ilchouige sungani sungani naui gaseumeul joyeowa

seureureuk gamgineun naui du nuni
jureureuk heullineun naui nunmuriidaero
kkeuchirange duryeowo nan modeunge
ireon nal guhaejwo jebal

sumi gapa Mayday, dot dot dot dot dot
mami apa Mayday, dot dot dot dot dot
siganeun tto Tic Toc heulleoman ga Tic Toc
deullini nae Sign, Sign, dot dot dot dot dot

dot dot dot dot dot motan mareun manheunde
dot dot dot dot dot jebal deureo bwa bwa
ireoke nareul bwa moreuneun cheok hajima
modeungeol irheun nal dot dot dot dot dot

geudae ijeneun anayo nae mam
sucheonbeon gobaekhaenne nanneoreul hyanghan sarangui ssain
Did you get my sign? sign?
niga isseoya ireo ireo na na
niga eobseo sireumsireum arhaoemyeonhaji mayo nal
want you by my side, side

pareureu tteollineun naui ipsuri
harureul beotiji motal simjangi
idaero meomchuneunge duryeowo na modeunge
ireon nal guhaejwo jebal

sumi gapa Mayday, dot dot dot dot dot
mami apa Mayday, dot dot dot dot dot
siganeun tto Tic Toc heulleoman ga Tic Toc
deullini nae Sign, Sign, dot dot dot

sumeul kkok chamgo neol chamabonda
neol bonaemyeon muneojil nal aljanha jebal

sumi gapa Mayday, dot dot dot dot dot
mami apa Mayday, dot dot dot dot dot
siganeun tto Tic Toc heulleoman ga Tic Toc
deullini nae Sign, Sign, dot dot dot dot dot (jebal)

sumi gapa Mayday, dot dot dot dot dot
mami apa Mayday, dot dot dot dot dot
siganeun tto Tic Toc heulleoman ga Tic Toc
deullini nae Sign, Sign, dot dot dot dot dot

Rating Blog Ane

yang punya blog sapa c yang ngga pengen blognya laris manis beserta isi postingan atau dagangannya..hhehe..ane iseng2 nyari blog ane di mbah google..ane ketik aza salah satu jualan ane 'Jual Obat Gemuk Samyun Wan'..eeh ternyata pas di cek, ada di urutan ke tujuh..hhay..

ane bakal berusaha buat ningkatin postingan ane aah..abis ane ngga terlalu ngerti c cara2 buat ngebikin blogspot lebih populer lagi..mending ane tingkatkan aje postingan ane..posting laris dibaca..dagangan laris dibeli..AMIEN YA ALLAH..

Senin, 16 Mei 2011

Namie Amuro - Wonder Woman

Jakunikukyoushoku kono world to be sure

Kirinukete iku you're so independent

You never ever fear

Makezugirai no seikaku ga iikedo

Egao no sukima just one secret

Mite shimatta kiss

No no I can't let go

Chirasete yo (hey) sono SOS

I'll be your Wonder Woman itsudemo

Just call me, I'll be there

Nothing but Wonder Woman dokodemo

Tonde you can swear

Wonder, Wonder, Wonder, Wonder, Wo-Wo-Woman...(Wonder woman)

Wonder, Wonder, Wonder, Wonder, Wo-Wo-Woman...

Plus 2Passion koso watashi no ecstasy

Iikiru tsuyoki no urahara ni afureteku stress (down)

Handou ni oborete

Collabostory

Soko ni mirai nado nainoni nugisuteru dress

No no I can't let go

Chirasete yo (hey) sono SOS

I'll be your Wonder Woman itsudemo

Just call me, I'll be there

Nothing but Wonder Woman dokodemo

Tonde you can swear

I'll be your Wonder Woman, believe in me

And I never let you down

Nothing but Wonder Woman

Can't you see I'll be around

You don't need to be perfect

Dare ni datte nakitai hi ga aru

Do you shine one day?

Repeat *

Repeat **

(I'll be your Wonder Woman)

Wonder, Wonder, Wonder, Wonder, Wo-Wo-Woman...

Say it Ladies

(I'll be your Wonder Woman)

Wonder, Wonder, Wonder, Wonder, Wo-Wo-Woman...