Program Ramalan Ngawur( java src)

Nie mo update share silahkan !


/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/

/**
*
* @author
*/
import java.io.*;

class InputConsole
{
/**Membaca string dari keyboard*/
public static String readString()
{
BufferedReader bfr = new BufferedReader(new InputStreamReader(System.in), 1);

// Menginisialisasi string
String teks = " ";

// Mengambil string dari keyboard
try
{
teks = bfr.readLine();
}
catch (IOException ex)
{
System.out.println(ex);
}

// Mengembalikan string hasil pembacaan dari keyboard
return teks;
}

/**Mengambil nilai int dengan parsing string input dari keyboard*/
public static int readInt()
{
return Integer.parseInt(readString());
}

//Mengambil nilai byte dengan parsing string input dari keyboard
public static byte readByte()
{
return Byte.parseByte(readString());
}

//Mengambil nilai short dengan parsing string input dari keyboard
public static short readShort()
{
return Short.parseShort(readString());
}

//Mengambil nilai long dengan parsing string input dari keyboard
public static long readLong()
{
return Long.parseLong(readString());
}

//Mengambil nilai float dengan parsing string input dari keyboard
public static float readFloat()
{
return Float.parseFloat(readString());
}

//Mengambil nilai double dengan parsing string input dari keyboard
public static double readDouble()
{
return Double.parseDouble(readString());
}
}
class Olahdata
{
private int tanggal, bulan, tahun ;
private String keuangan , zodiak, nama, keterangan, bulanAnda ;
private String asmara, kesehatan ;
private String caribulan(int bulan)
{
if(bulan==1)
return "Januari";
else if(bulan==2)
return "Febuari";
else if(bulan==3)
return "Maret";
else if(bulan==4)
return "April";
else if(bulan==5)
return "Mei";
else if(bulan==6)
return "Juni";
else if(bulan==7)
return "Juli";
else if(bulan==8)
return "Agustus";
else if(bulan==9)
return "September";
else if(bulan==10)
return "Oktober";
else if(bulan==11)
return "November";
else if(bulan==12)
return "Desember";
else return " ";
}

private String hitkeuangan(String zodiak)
{
if(zodiak.equalsIgnoreCase("Aries"))
return "Keuangan anda menipis";
else if(zodiak.equalsIgnoreCase("Taurus"))
return "Keuangan anda Jadilah dermawan";
else if(zodiak.equalsIgnoreCase("Gemini"))
return "Keuangan anda Rajin menabung";
else if(zodiak.equalsIgnoreCase("Cancer"))
return "Keuangan anda Pinjem uang temen balikin dong";
else if(zodiak.equalsIgnoreCase("Leo"))
return "Keuangan anda Biasa saja";
else if(zodiak.equalsIgnoreCase("Virgo"))
return "Keuangan boros";
else if(zodiak.equalsIgnoreCase("Libra"))
return "Keuangan anda jangan lupa amal";
else if(zodiak.equalsIgnoreCase("Scorpio"))
return "Keuangan anda coba keberuntungan d lotre";
else if(zodiak.equalsIgnoreCase("Sagitarius"))
return "Keuangan anda cari duit sendiri";
else if(zodiak.equalsIgnoreCase("Capricon"))
return "Keuangan anda jadi miskin";
else if(zodiak.equalsIgnoreCase("Aquarius"))
return "Keuangan andaKaya mendadak";
else if(zodiak.equalsIgnoreCase("Pisces"))
return "Keuangan anda ketiban rejeki";
else return "Tidak ada uang";
}
private String hitkesehatan(String zodiak)
{
if(zodiak.equalsIgnoreCase("Aries"))
return "Pilek demam berat";
else if(zodiak.equalsIgnoreCase("Taurus"))
return "Hati-hati demam berdarah";
else if(zodiak.equalsIgnoreCase("Gemini"))
return "Makan makanan bervitamin";
else if(zodiak.equalsIgnoreCase("Cancer"))
return "Medical check up segera";
else if(zodiak.equalsIgnoreCase("Leo"))
return "Sakit hati, sakit gigi, sakit kepala komplikasi";
else if(zodiak.equalsIgnoreCase("Virgo"))
return "Sehat walafiat";
else if(zodiak.equalsIgnoreCase("Libra"))
return "Sehat walafiat";
else if(zodiak.equalsIgnoreCase("Scorpio"))
return "Sehat walafiat";
else if(zodiak.equalsIgnoreCase("Sagitarius"))
return "Sehat walafiat";
else if(zodiak.equalsIgnoreCase("Capricon"))
return "Sehat walafiat";
else if(zodiak.equalsIgnoreCase("Aquarius"))
return "Sehat walafiat";
else if(zodiak.equalsIgnoreCase("Pisces"))
return "Minum obat kuat";
else return "Anda sedang demam berat";
}
private String hitasmara(String zodiak)
{
if(zodiak.equalsIgnoreCase("Aries"))
return "Asmara ada yang naksir kamu !";
else if(zodiak.equalsIgnoreCase("Taurus"))
return "Asmara hati-hati dia orang pencemburu";
else if(zodiak.equalsIgnoreCase("Gemini"))
return "Asmara hati berbunga-bunga";
else if(zodiak.equalsIgnoreCase("Cancer"))
return "Asmara skali-skali kamu yang traktir";
else if(zodiak.equalsIgnoreCase("Leo"))
return "Asmara Biasa saja";
else if(zodiak.equalsIgnoreCase("Virgo"))
return "Asmara Cari jodoh";
else if(zodiak.equalsIgnoreCase("Libra"))
return "Asmara buruan kawin";
else if(zodiak.equalsIgnoreCase("Scorpio"))
return "Asmara jangan bunuh diri dulu";
else if(zodiak.equalsIgnoreCase("Sagitarius"))
return "Asmara Kamu seorang gay";
else if(zodiak.equalsIgnoreCase("Capricon"))
return "Asmara jangan suka selingkuh";
else if(zodiak.equalsIgnoreCase("Aquarius"))
return "Asmara curi hatinya";
else if(zodiak.equalsIgnoreCase("Pisces"))
return "Asmara jangan ragu ngomong aja";
else return "Tidak ada asmara";
}
private String hitungzodiak( int hitbulan, int hittanggal)
{

if (((hitbulan==3)&&(hittanggal>=21))||(hitbulan==4))
return "Aries" ;
else if (((hitbulan==4)&&(hittanggal>=20))||(hitbulan==5))
return "Taurus" ;
else if (((hitbulan==5)&&(hittanggal>=21))||(hitbulan==6))
return "Gemini" ;
else if (((hitbulan==6)&&(hittanggal>=21))||(hitbulan==7))
return "Cancer" ;
else if (((hitbulan==7)&&(hittanggal>=24))||(hitbulan==8) )
return "Leo" ;
else if (((hitbulan==8)&&(hittanggal>=23))||(hitbulan==9))
return "Virgo" ;
else if (((hitbulan==9)&&(hittanggal>=23))||(hitbulan==10))
return "Libra" ;
else if (((hitbulan==10)&&(hittanggal>=23))||(hitbulan==11))
return "Scorpio";
else if (((hitbulan==11)&&(hittanggal>=22))||(hitbulan==12))
return "Sagitarius" ;
else if (((hitbulan==12)&&(hittanggal>=22))||(hitbulan==1))
return "Capricon" ;
else if (((hitbulan==1)&&(hittanggal>=20))||(hitbulan==2))
return "Aquarius" ;
else if (((hitbulan==2)&&(hittanggal>=19))||(hitbulan==3))
return "Pisces" ;
else return "Tidak memiliki Zodiak" ;

}
public void setdat()
{
System.out.println("Masukkan data anda") ;
System.out.print(" nama --> ");
nama = InputConsole.readString();
System.out.print(" Tanggal lahir --> ");
tanggal = InputConsole.readInt();
if ((tanggal>31)||(tanggal==0))
System.out.print("Salah Tanggal lahir --> ");
tanggal = InputConsole.readInt();
System.out.print(" Bulan(angka) --> ");
bulan = InputConsole.readInt();

switch(bulan)
{
case 1 : if (tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 2 : if (tanggal>29)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 3 : if (tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 4 : if (tanggal>30)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 5 : if (tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 6 : if (tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 7 : if (tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 8 : if (tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 9 : if (tanggal>30)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 10 : if(tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 11 : if(tanggal>30)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
case 12 : if(tanggal>31)
System.out.println("Salah tanggal, masukkan lagi tanggal : ") ;
tanggal = InputConsole.readInt(); break ;
default : ;

}

zodiak = hitungzodiak(bulan, tanggal) ;
bulanAnda = caribulan(bulan) ;
keuangan = hitkeuangan(zodiak) ;
kesehatan = hitkesehatan(zodiak) ;
asmara = hitasmara(zodiak) ;
}
public void cetak()
{
System.out.println("======================") ;
System.out.println("Nama : "+nama) ;
System.out.println("tanggal lahir : "+tanggal) ;
System.out.println("Bulan lahir : "+bulanAnda) ;
System.out.println("Maka zodiak anda "+zodiak) ;
System.out.println() ;
System.out.println("-@> "+keuangan) ;
System.out.println("-@> "+kesehatan) ;
System.out.println("-@> "+asmara) ;
System.out.println() ;
System.out.println("===TERIMA KASIH "+nama+"===") ;
}
}

public class Proyek_TA_Ramalan {
public static void main(String[] args)
{
System.out.println("======================") ;
System.out.println("===Ramalan hari ini===") ;
System.out.println("======================") ;

Olahdata orang = new Olahdata() ;
orang.setdat();
orang.cetak();
}

}

Read more »

Vegetarian it's healthy

vegetarian sebenarnya bukan berasal dari kata inggris vegetable melainkan kata vegetus yang artinya adalah manusia yang kuat, sehat, cerdas dan hidup.Bahkan leluhur kita zaman dahulu adalah pemakan vegetarian yang alami yang biasanya menkonsumsi daging hanya 1 tahun sekali selain dari alasan keterbatasan ekonomi, bahkan mereka memiliki usia yang bisa dibilang panjang sekali mencapai 120 tahun.Vegan atau orang yang biasa disebut vegetarian sampai sekarang masih diperbincangkan oleh beberapa kalangan dokter ahli gizi, banyak opini di masyarakat yang menyatakan bahwa vegen itu memiliki ciri-ciri orang kurus, lemas, tidak bergairah bahkan yang lebih lagi dapat menghambat pertumbuhan bagi balita,kemudian opini tersebut dibantah sepenuhnya oleh kalangan dokter ahli gizi menurut hasil penelitian dokter amerika yang melakukan percobaan pada bayi yang tidak diberikan ASI tapi hanya diberikan susu kedelai dan dibandingkan bayi yang diberikan susu formula atau hewani membuktikan tidak ada perbedaan yang terlalu pada perkembangan tumbuh kembangnya tidak ada penghambatan pertumbuhan pada bayi tersebut.
vegan adalah pemakan buah-buahan atau sayuran atau orang yang menkonsumsi makanan nabati tidak menkomsumsi makanan hewani dan turunannya seperti susu telur dan keju.Secara umum terdapat 3 jenis golongan vegan yaitu yang pertama adalah golongan semi vegetarian, kedua lacto ovo dan terakhir vegan murni. untuk yang pertama semi vegetarian kalangan ini masih memakan ikan, telur dan susu tidak mengharuskan memakan makanan sayuran sehari-hari jenis nabatiwan tingkat rendah, yang kedua lacto ovo ini adalah kalangan yang menkonsumsi susu dan tidak memakan makanan hewani lainnya dapat ditemukan di daerah India, merekan adalah vegetarian yang tetap meminum susu dan terakhir jenis vegan murni yang memakan makanan nabati dengan ketat.
vegetarian why not? hasil riset membuktikan orang-orang vegetarian memiliki tubuh yang lebih sehat daripada yang menkonsumsi makanan hewani. Seorang vegan dapat menurunkan resiko penyakit jantung koroner lebih dari 80%. bayangkan pemakan daging sekaligus perokok memiliki resiko penyakit jantung yang tinggi, sedangkan yang hanya memakan makanan hewani dan tidak merokok hanya menurunkan 50% kemungkinan terkena penyakit ini. Penyakit jantung adalah salah satu faktor penyebab kematian manusia di dunia. siapa bilang dengan hanya menkonsumsi sayuran buah-buahan dan biji-bijian tidak dapat berprestasi, tahukah anda bahwa Eisten dan thomas alfa edison adalah seorang vegan, bahkan seorang atlit pemenang olimpiade untuk kategori lari 100 m adalah eorang vegetarian. Bahkan segolongan ahli kesehatan seperti dokter kebanyakan vegan. Dengan komsumsi gizi yang seimbang dari sayur-sayuran dapat membuat rangsangan otak dan tubuh kita menjadi lebih maksimal tentunya. sebagai salah satu bukti dari hasil penelitian seorang dokter gizi di Amerika membuktikan bahwa tempe adalah makan yang ajaib, mengapa demikian? karena tempe memiliki kandungan protein, B12 dan kandungan gizi yang lengkap, bahkan di Jepang tempe merupakan makanan yang mewah dan dipajang di restoran-restoran mewah. penelitian ini juga diambil sebagai bahan S3 dari seorang dokter sekaligus ktua Indonesian vegetarian Society. satu fakta yang menarik lagi adalah ternyata susu bukanlah peringkat pertama yang mengandung kalsium terbanyak di peringkat pertama adalah masih dari nabati yaitu wijen

Read more »

Orang dibalik Facebook

Mark Zuckerberg
Dari Wikipedia bahasa Indonesia, ensiklopedia bebas
Perubahan tertunda ditampilkan di halaman iniBelum Diperiksa
Langsung ke: navigasi, cari
Mark Zuckerberg
Mark Zuckerberg CEO Facebook.jpg
Mark Zuckerberg di Paris tahun 2008
Lahir 14 Mei 1984 (umur 26)
White Plains, New York
Pekerjaan Pendiri, CEO & Presiden dari Facebook
Kekayaan bersih Kurang dari $1 Triliun [1]
Agama Atheis[2]

Mark Elliot Zuckerberg (lahir di White Plains, New York, 14 Mei 1984; umur 26 tahun). Anak dari Edward dan Karen Zuckerberg. Ia adalah seorang programer komputer dan pengusaha asal Amerika Serikat. Menjadi kaya di umurnya yang relatif muda karena berhasil mendirikan dan mengembangkan situs jaringan sosial Facebook di saat masih kuliah dengan bantuan teman Harvardnya Andrew McCollum dan teman sekamarnya Dustin Moskovitz dan Crish Hughes. Saat ini ia menjabat sebagai CEO Facebook.[3]. Zuckerberg terlahir sebagai Yahudi, namun ia memproklamirkan dirinya sebagai seorang Atheis

Forbes mencatatnya sebagai milyarder termuda, atas usaha sendiri dan bukan karena warisan, yang pernah tercatat dalam sejarah. Kekayaannya ditaksir sekitar satu setengah miliar dolar Amerika.[4]

Semasa Kuliah

Zuckenberg adalah anggota Alpha Epsilon Pi. Pada awalnya Mark Zuckerberg hanyalah seorang mahasiswa dari Universitas Harvard. Zuckerberg lalu membuat suatu sistem jejaring sosial untuk kelasnya. Tetapi setelah ia membuat sistem tersebut, ternyata semakin banyak saja orang yang tergabung didalamnya. Sistem itu lama-kelamaan telah menjaring universitas terdekat dari tempatnya kuliah, dan inilah awal dari Facebook yang kita kenal saat ini.

Dari situasi inilah, Zuckerberg berinisiatif untuk mengembangkan sistem jejaring tersebut. Mula-mula Zuckerberg mengembangkan sistem ini dan memberi nama Facebook. Zuckerberg dan kawan-kawannya lalu menyewa tempat di Palo Alto, California sebagai tempat untuk mengembangkan Facebook. Karena keasyikan untuk mengembangkan proyek Facebook, maka Zuckerberg lupa akan kuliahnya. Zuckerberg dihadapkan pada pilihan-pilihan yang sulit antara memilih pendidikannya atau bisnis proyek yang sedang dia kembangkan. Dengan sikap yang optimis Zuckerberg dan kawan-kawannya memilih untuk meninggalkan kuliah mereka, dan memfokuskan diri pada proyek Facebook tersebut.


29 October 2008 5 Comments
Orang Muda Paling Kaya Di Dunia

Kalau anda ditanya siapa orang terkaya di dunia saat ini, saya yakin anda semua bisa menjawabnya dengan benar. Tapi kalau ditanya siapa orang muda terkaya di dunia saat ini? saya yakin sebagian besar akan bingung menjawabnya, karena tidak tahu. Lalu siapakah orang muda terkaya di dunia saat ini? dia adalah Mark Zuckerberg, pemilik sekaligus pembuat dari sebuah situs jaringan sosial ternama yaitu Facebook.com yang kini tercatat sebagai salah satu anak perusahaan Microsoft.

Mark Zuckerberg dinobatkan sebagai orang muda terkaya di dunia versi majalah Forbes, yaitu sebuah majalah yg sering merilis daftar orang-rang terkaya di dunia. Sebagai catatan, saat ini orang terkaya di dunia tidak lagi dipegang oleh Bill Gate (pemilik Microsoft), yang telah didudukinya selama 13 tahun. Sekarang posisi pertama ditempati oleh Warren Buffett dan posisi kedua oleh Carlos Slim Helu, sedangkan Bill Gates berada di posisi ketiga daftar orang terkaya di dunia.

Saat ini Mark Zuckerberg berusia 24 tahun dengan total kekayaan sekitar $700 juta. Hal yang spesial pada Mark Zuckerberg adalah kekayaan yang dia dapat bukan dari warisan, tapi dari hasil kerja keras dia sendiri. Tidak seperti yang masuk dalam daftar orang muda terkaya di dunia lainnya yang pada umumnya mendapat kekayaannya dari warisan keluarga.

Mark Zuckerberg tercatat sebagai mahasiswa drop out dari Harvard University, karena lebih memilih untuk fokus mengelola dan mengembangkan situs jaringan social Facebok.com ciptaannya. yang sekarang telah menjadi salah satu anak perusahaan Microsoft milik Bill Gates. Kalau kita perhatikan antara Mark Zuckerberg dan Bill Gates memiliki banyak persamaan yang unik dalam membangun bisnis mereka. pertama sama-sama pernah kuliah di Harvard University, kedua sama-sama tercatat sebagai mahasiswa drop out, dan yang ketiga sama-sama pernah tercatat sebagai orang muda terkaya di dunia.

Semangat kerja keras dan pantang menyerah yang ditunjukkan oleh Mark Zuckerberg dan juga Bill Gates, telah berhasil menempatkan diri mereka di jajaran orang-orang terkaya di dunia. Semangat yang perlu ditiru di tengah berbagai krisis yang melanda bangsa kita, terutama krisis finansial atau ekonomi. Kita harus tetap semangat bekerja keras dan pantang menyerah.

Read more »

Tips optimalisasi blog

Tips cara membuat website gratis bisa menghasilkan uang:
1. Jika anda pemula daftarlah ke kumpulblogger dulu. Setelah pengunjung website anda banyak baru ikutan kliksaya.
2. Jangan hanya terpaku pada penghasilan dollar. PPC indonesia pun sanggup memberikan penghasilan tambahan lewat website anda. Pada saat ini pun saya selain ikutan google adsense saya juga ikutan kumpulblogger dan kliksaya, dan hasilnya perbulan lumayan karena hampir menyamai gaji saya satu bulan. Bahkan para senior saya ada yang bisa menghasilkan antara 6 - 8 juta perbulan dari website memalui kliksaya dan kumpulblogger.
3. Jika anda mau penghasilan dollar dari website /blog anda, sebaiknya anda coba baca blog tentang review program affliasi seperti di Xprove.blogspot.com
4. Gunakan website saja. Alasan saya karena blog agak sulit untuk di optimisasi di search engine agar bisa menang. Contohnya blog ini yang memakan waktu hampir satu tahun baru bisa menang di google. Mengenai cara membuat website anda bisa menang di search engine seperti google saya akan bahas di lain kesempatan jika saya ada waktu untuk membuat posting baru di blog tentang cara membuat website ini.
5. Ok kalau anda tertarik buruan untuk membuat website/blog anda menghasilkan uang buruan ikutan.

Read more »

Program Njowo's Calender (Pascal)

Berikut salah satu program yang menurut saya cukup unik dan mempunyai nilai luhur tinggi, setelah di edit 1-2 3 kali nah jadi deh....meskipun belum sempurna dan masih ada yang belum dihapus beberapa fungsi g guna tapi setidaknya patut dihargai, lumayan bantu-bantu yang belajar pascal dan yang membutuhkannya..

Kalender Jawa

Berikut listing dari program pascal


Program Kalender_jawa ;
Uses Wincrt ;
var
tanggal : integer ;
tahun : integer ;
Hari, pil, i, hitweton, bulan, jumlahhari : integer ;
zodiak, nama : String ;
Haribulan : array[1..12] of integer ;
hit1, hit2, hit3, totalhari, j : integer ;


Procedure Entry ;
Begin ;
Writeln ;
Writeln('Masukkan Data anda ') ;
writeln ;
Write(' Nama --> '); readln(nama) ;
Write(' Tanggal --> '); readln(tanggal) ;
if (tanggal>31) or (tanggal=0) then
Entry;

Write(' Bulan --> '); readln(bulan) ;
case bulan of
1 : if tanggal>31 then
Entry ;
2 : if tanggal>29 then
Entry ;
3 : if tanggal>31 then
Entry ;
4 : if tanggal>30 then
Entry ;
5 : if tanggal>31 then
Entry ;
6 : if tanggal>31 then
Entry ;
7 : if tanggal>31 then
Entry ;
8 : if tanggal>31 then
Entry ;
9 : if tanggal>30 then
Entry ;
10 : if tanggal>31 then
Entry ;
11 : if tanggal>30 then
Entry ;
12 : if tanggal>31 then
Entry ;

else
Entry ;
End ;
Write(' Tahun --> '); readln(tahun) ;
Writeln;
Write('Anda yakin sudah benar..(1. Inggih, 2. Mboten) ? = ') ;
readln(pil) ;
case pil of
1 : readln;
2 : Entry ;
else entry ;
End;


Writeln;
End;
Procedure proses ;
Begin
hitweton := tanggal mod 5 ;

case hitweton of
1 : Writeln('Maka weton anda Legi') ;
2 : Writeln('Maka weton anda Paing') ;
3 : Writeln('Maka weton anda Pon') ;
4 : Writeln('Maka weton anda Wage') ;
Else
Writeln('Maka weton anda Kliwon') ;
End ;

if ((bulan=3) and (tanggal>=21)) or (bulan=4) then
writeln('Zodiak Aries')
else if ((bulan=4) and (tanggal>=20)) or (bulan=5) then
writeln('Zodiak Taurus')
else if ((bulan=5) and (tanggal>=21)) or (bulan=6) then
writeln('Zodiak Gemini')
else if ((bulan=6) and (tanggal>=21)) or (bulan=7) then
writeln('Zodiak Cancer')
else if ((bulan=7) and (tanggal>=24)) or (bulan=8) then
writeln('Zodiak Leo')
else if ((bulan=8) and (tanggal>=23)) or (bulan=9) then
writeln('Zodiak Virgo')
else if ((bulan=9) and (tanggal>=23)) or (bulan=10) then
writeln('Zodiak Libra')
else if ((bulan=10) and (tanggal>=23)) or (bulan=11) then
writeln('Zodiak Scorpio')
else if ((bulan=11) and (tanggal>=22)) or (bulan=12) then
writeln('Zodiak Sagitarius')
else if ((bulan=12) and (tanggal>=22)) or (bulan=1) then
writeln('Zodiak Capricon')
else if ((bulan=1) and (tanggal>=20)) or (bulan=2) then
writeln('Zodiak Aquarius')
else if ((bulan=2) and (tanggal>=19)) or (bulan=3) then
writeln('Zodiak Pisces') ;


Haribulan[1] := 31 ;
Haribulan[2] := 28 ;
Haribulan[3] := 31 ;
Haribulan[4] := 30 ;
Haribulan[5] := 31 ;
Haribulan[6] := 30 ;
Haribulan[7] := 31 ;
Haribulan[8] := 31 ;
Haribulan[9] := 30 ;
Haribulan[10] := 31 ;
Haribulan[11] := 30 ;
Haribulan[12] := 31 ;

hit1 :=(tahun-1900) div 4;

Case bulan of

1 : if tahun mod 4=0 then hit2:=0
else hit2:=1 ;
2 : if tahun mod 4=0 then hit2:=31
else hit2:=32 ;
3 : hit2:=60 ;
4 : hit2:=91 ;
5 : hit2:=121 ;
6 : hit2:=152 ;
7 : hit2:=182 ;
8 : hit2:=213 ;
9 : hit2:=244 ;
10 : hit2:=274 ;
11 : hit2:=305 ;
12 : hit2:=335 ;

End ;

hit3:=tahun-1900;

totalhari:= hit1 +hit2 + tanggal + hit3 ;
{Writeln(totalhari);}
Hari := totalhari mod 7 ;


case hari of
1 : Writeln('Minggu');
2 : Writeln('Senin');
3 : Writeln('Selasa');
4 : Writeln('Rabu') ;
5 : Writeln('Kamis') ;
6 : Writeln('Jumat') ;
else
Writeln('Sabtu')
End;

End ;

Procedure thank ;
Begin Clrscr ;
Writeln ;
Writeln('========Terima Kasih ',nama,'==========') ;
End ;
Procedure ulang ;
Begin
Entry ;
Writeln('=========================================') ;
Proses ;
Writeln('=========================================') ;
Write('Ingin mencoba lagi..(1. Inggih, 2. Mboten) ? = ') ;
readln(pil) ;
case pil of
1 : ulang;
2 : readln;
else Clrscr ;
End;
End;
Begin
Writeln('=========================================') ;
Writeln('************NJOWO"S CALENDER*************') ;
Writeln('=========================================') ;
ulang ;
Writeln;
Writeln;
Writeln;
Writeln(' Credit by ->Fadhli R/98987');
Writeln;

Thank ;

End.

Read more »

Program deret Fibonacci Sederhana Bahasa Pemograman Pascal

Berikut Source Code Fibonacci dengan bahasa Pascal :

Program UTS_algo ;
Uses Wincrt ;
Const
n = 20 ;

Deret : array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,
15,16,17,18,19,20) ;
Var

i, x : integer ;

Begin Clrscr ;
Write('Deret fibonaci dengan n= : ');
Readln(x) ;
Writeln;

Deret[1]:= 1 ;
Deret[2]:= 1 ;

For i:=3 to x do
Begin
Deret[i]:= deret[i-1]+deret[i-2] ;

end ;

Writeln('Maka deret fibonaci anda: ') ;
For i:=1 to (x-1) Do


Begin
Write(Deret[i],', ') ;
End ;
Write(Deret[x]) ;

End.

Kalau ada yang ingin memberikan saran silahkan kontak

Read more »

Tips-tip Meningkatkan Kinerja Pada Window 7 Ultimate

Windows 7
Berikut cara-cara mengoptimalkan kinerja dari windows 7

Menambah Virtual Memory. Secara default, Windows mengalokasikan ruang kosong di harddisk sesuai dengan batas minimum. Namun Anda bisa melakukan setting secara manual untuk menambah besar memory pada komputer Anda. Virtual Memory ini digunakan Windows secara otomatis jika RAM sudah bekerja mencapai batas maksimalnya. Virtual Memory yang dimaksud disini adalah memory internal tambahan yang diambil dari ruang space harddisk. Jadi Anda tidak perlu menggunakan alat tambahan lain selain komputer sendiri, menarik bukan?

• Klik kanan pada icon “My Computer” (defaultnya), kemudian pilih “Properties”.
• Kemudian Anda akan dibawa pada jendela Informasi Dasar. Klik pada pilihan “Advanced System Settings”.
• Pada tab Advanced System Settings, klik pada “Performance > Settings”, akan muncul tabel Virtual Memory. Klik pada “Change”.
• Hilangkan tanda centang pada “Automatically manage paging file size for all drivers”. Kemudian Anda pilih “Custom Size” dan berikan angka (1000 pada Initial Size) dan angka (2000 pada Maximum Size), kemudian klik tombol “Set”.
• Restart Komputer Anda untuk mendapatkan efek dari perubahan setting tersebut.

Nonaktifkan fitur UAC (User Account Control). UAC adalah security feature default yang ada pada Windows 7 seperti Windows Vista. Fitur ini akan muncul setiap Anda mengakses suatu file atau aplikasi yang tidak dikenali ataupun baru. Cukup berguna namun beberapa memang merasa terganggu, jika Anda merasa terganggu, matikan saja.

• Anda bisa masuk fitur “Search” melalui menu Start > Klik Kanan > Search ataupun melalui tombol “Windows + R” (Run Menu). Keduanya memiliki tujuan yang sama. Ketikkan “msconfig” dan Enter.
• Pilih tab “Tools”, cari tulisan “Change UAC Settings”, kemudian klik tombol “Launch”.
• Kemudian tinggal drag & drop slice bar pada “Never Notify”. Restart komputer Anda untuk mendapatkan efeknya.

Merubah waktu Menu Show Delay. Defaultnya Windows 7 memiliki waktu loading pada Start Menu adalah 400 MiliSecond. Anda bisa merubah angka ini menjadi lebih kecil atau bahkan sesuka Anda agar loading lebih cepat.

• Masuk pada Run Menu (Windows + R) atau fitur Start > Search. Ketikkan “regedit” lalu Enter.
• Masuk pada directory Computer\HKEY_CURRENT_USER\Control Panel\Desktop. Kemudian cari key bertulikan “MenuShowDelay”. Atau (CTRL + F) kemudian ketikkan “MenuShowDelay” juga bisa agar lebih cepat.
• Klik 2x pada key tersebut, ubah nilainya menjadi 1 atau 0. Kemudian OK.
• Restart Komputer Anda untuk mendapatkan efek dari perubahan Key Registry tersebut.

Matikan Fitur PC Tablet Component. Windows 7 default menyediakan fitur PC Tablet Component. PC Tablet Component itu sendiri adalah fitur Touch Screen selain pada Keyboard atau Mouse. Jadi bila komputer Anda tidak memiliki fitur tersebut, lebih baik dimatikan saja.

• Masuk pada Control Panel Windows Anda, bisa melalui Run Menu atau Start Menu.
• Kemudian pilih menu “Programs”.
• Kemudian pada menu Programs and Features, klik pada tulisan “Turn Windows features on or off”.
• Hilangkan tanda centang pada “Tablet PC Component” kemudian OK.
• Tunggu proses uninstall hingga selesai dan Restart komputer Anda untuk mendapatkan efeknya.

Matikan fitur Telephony Service. Telephony Service merupakan fitur yang berfungsi menghubungan komputer dengan hanphone. Sebagai contoh menggunakan HP sebagai modem untuk komputer Anda, dan berbagai aplikasi lainnya. Jika Anda tidak pernah menghubungkan antara PC dengan HP, lebih baik fitur ini dimatikan saja.

• Seperti biasa, masuk pada Start Menu > Search, atau menggunakan Run Menu. Kemudian ketikkan “services.msc” dan Enter.
• Pada jendela sebelah kanan, cari tulisan “Telephony”.
• Disana terdapat table Startup Type dengan tiga pilihan (Manual, Disable, Automatic). Jika Anda ingin mematikan fitur ini, pilih pada “Disable”, atau Anda bisa sesuaikan dengan kebutuhan. Kemudian Apply dan OK.

Matikan fitur Fax Services. Seperti namanya, fitur ini berguna menghubungkan komputer Anda dengan mesin Fax atau aplikasi Fax di komputer itu sendiri. Jika tidak pernah menghubungkan Fax dengan komputer, lebih baik dimatikan saja.

• Caranya masih sama seperti diatas, ketikkan “services.msc” pada kotak Search, kemudian Enter.
• Pilih pada tulisan “Fax”, pada bagian Startup Type, pilih “Disabled”.
• Kemudian Apply dan OK, Restart komputer Anda.

Matikan fitur AutoPlay/AutoRun. Fitur default Windows yang berfungsi menjalankan atau membuka program dari Media External secara otomatis. Fitur ini memiliki kelemahan yaitu memudahkan virus masuk dan memakan resource memory secara tidak diminta. Sangat disarankan untuk mematikan fitur ini disetiap komputer OS Windows.

• Masuk menu Control Panel > Hardware and Sound.
• Kemudian pilih “AutoPlay”, hilangkan tanda centang pada “Use AutoPlay for All Media Devices”.
• Save dan Restart komputer Anda.

Disable Automatic Updates. Fitur ini sebenarnya berguna untuk Windows 7 versi Original saja. Jika Anda menggunakan Windows yang tidak original lebih baik dimatikan saja daripada cracknya kena Banned dari pihak Microsoft atau komputer Anda sedang tidak terhubung dengan Internet.

• Masuk pada Control Panel > System and Security.
• Kemudian pilih pada Windows Update. Pilih pada “Never Check for Updates (Not Recommended)”.
• Kemudian hilangkan tanda centang pada “Give me recommended updates the same way…” dan “I allow all user…”.
• Ok dan Restart komputer Anda.

Rasakan perbedaannya setelah Anda melakukan tips optimasi diatas dengan sebelum melakukan optimasi. Pasti Anda akan merasakan perbedaan kinerja Windows 7 yang cukup signifikan.

Read more »