HavE yOu aLreAdY KnoW ??

Rabu, 24 Juni 2009

KALENDER JAWA

Untuk membuat kalender jawa, pertama kita membuat file bernama a.txt, dengan input sebagai berikut :

Chyntia 15 1 1990
Dauz 19 1 1989
Januar 19 10 1989
Donee 20 9 1988
Lena 13 7 1989
Jeanette 12 2 1981
Denny 17 9 1987
Jono 19 5 1990
Parto 21 2 1991
Ardi 17 6 1987
Tri 12 5 1989
Mitha 17 10 1989
Susan 18 1990
Dino 22 8 1990
Hadi 14 1 1989

Kemudian buatlah satu file baru lagi, misalnya bernama b.txt, dengan isi sebagai berikut :

{
nm=$1;
tgl=$2;
bln=$3;bln1=int(bln)
tahun=$4;
if (bln1<=12&&bln1!=0)
{
thn=tahun-1;
thk=thn/4;
thb=thn-int(thk);
jumth=tahun%4;
bulan=bln-1;
if (jumth==0){
if(bulan==0)
i=31;
if(bulan==1)
i=62;
if(bulan==2)
i=91;
if(bulan==3)
i=122;
if(bulan==4)
i=152;
if(bulan==5)
i=183;
if(bulan==6)
i=213;
if(bulan==7)
i=244;
if(bulan==8)
i=275;
if(bulan==9)
i=305;
if(bulan==10)
i=336;
if(bulan==11)
i=366;
}
else

{
if(bulan==0)
i=31;
if(bulan==1)
i=62;
if(bulan==2)
i=90;
if(bulan==3)
i=121;
if(bulan==4)
i=151;
if(bulan==5)
i=182;
if(bulan==6)
i=212;
if(bulan==7)
i=243;
if(bulan==8)
i=274;
if(bulan==9)
i=304;
if(bulan==10)
i=335;
if(bulan==11)
i=365;
}
kab=366*int(thk);
br=365*thb;
tothar=(kab)+(br)+i+tgl;
hr=tothar%7;

printf(nm);
{
if(hr==0)
printf("\t\tHari = RABU\n");
else if(hr==1)
printf("\t\tHari = KAMIS\n");
else if(hr==2)
printf("\t\tHari = JUM'AT\n");
else if(hr==3)
printf("\t\tHari = SABTU\n");
else if(hr==4)
printf("\t\tHari = MINGGU\n");
else if(hr==5)
printf("\t\tHari = SENIN\n");
else
printf("\t\tHari = SELASA\n");
}
psr=tothar%5;{
if(psr==0)
printf("\t\tPasaran = KLIWON\n");
else if(psr==1)
printf("\t\tPasaran = LEGI\n");
else if(psr==2)
printf("\t\tPasaran = PAHING\n");
else if(psr==3)
printf("\t\tPasaran = PON\n");
else
printf("\t\tPasaran = WAGE\n");

}
}
}

Kemudian jalankan di terminal, instruksi di bawah ini :
$ awk -f b.txt a.txt

dengan instruksi di atas, maka akan muncul tampilan berikut :

Chyntia Hari = SENIN
Pasaran = PON
Dauz Hari = KAMIS
Pasaran = PAHING
Januar Hari = KAMIS
Pasaran = KLIWON
Donee Hari = SELASA
Pasaran = LEGI
Lena Hari = KAMIS
Pasaran = PAHING
Jeanette Hari = KAMIS
Pasaran = WAGE
Denny Hari = KAMIS
Pasaran = PAHING
Jono Hari = SABTU
Pasaran = PAHING
Parto Hari = KAMIS
Pasaran = KLIWON
Ardi Hari = RABU
Pasaran = KLIWON
Tri Hari = JUM'AT
Pasaran = KLIWON
Mitha Hari = SELASA
Pasaran = PON
Dino Hari = RABU
Pasaran = PAHING
Hadi Hari = SABTU
Pasaran = PAHING

posted by Innocentia @ 19.57

0 Comments:

Posting Komentar

<< Home

About Me

Name: Innocentia
Home: surabaya, jawa timur, Indonesia
About Me: aq tuh anagh na cute, baek hati, jujur, tidak sombong, dan rajin menabung.... opo tho yo??! www.eepis-its.edu
See my complete profile