Ini lho ramalan sederhana
Download klik disini
uses wincrt;
Var
tanggal:integer;
bulan:integer;
kembali:char;
Label awal;
Begin
awal:
WriteLn('=================================');
writeLn('Ramalan Sederhana ZoDiAk JELEK!!!');
WriteLn('=================================');
Write('Tanggal Lahir saya ');ReadLn(tanggal);
Write('Bulan Lahir saya ');ReadLn(bulan);
if bulan=1
then
begin
writeln('baik dan setia ');
end;
if bulan=2
then
begin
writeln('boros dan percaya diri ');
end;
if bulan=3
then
begin
writeln('suka dipuji ');
end;
if bulan=4
then
begin
writeln('banyak teman dan periang ');
end;
if bulan=5
then
begin
writeln('pintar membagi waktu ');
end;
if bulan=6
then
begin
writeln('santai tetapi cepat dalam berpikir ');
end;
if bulan=7
then
begin
writeln('pandai bergaul dan rajin ');
end;
if bulan=8
then
begin
writeln('suka dipuji ');
end;
if bulan=9
then
begin
writeln('banyak teman dan periang ');
end;
if bulan=10
then
begin
writeln('pintar membagi waktu ');
end;
if bulan=11
then
begin
writeln('santai tetapi cepat dalam berpikir ');
end;
if bulan=12
then
begin
writeln('pandai bergaul dan rajin ');
end;
writeLn('anda ingin lagi :');Kembali:=readkey;if kembali='y' then goto awal;
WriteLn('======================');
end.
Film Persahabatan Batukarang...
Film pendek karya anak X3 tahun 2009-2010 telah di UPLOAD. mau lihat???
Persahabatan Batukarang - The best home videos are here
Persahabatan Batukarang - The best home videos are here
Fitur SPEEDY makin Lengkap cuyy!!!
Fitus Speedy sekarang oke banget. mulai dari info bola, games, musik, pelajaran, dan antivirus. selengkapnya lihat Animasi Flash dibawah ini.....
Cover Cerpen X3 by myself
Trik mengirim Aplikasi Symbian yang terinstall

Cara ini cukup panjang dan tekun. Trik ini sudah saya lakukan berkali-kali dan berhasil. karena kurang uang untuk beli APP ato beli pulsa buat download, cara ini bisa dicoba. Langkah-langkahnya sudah aku posting diblog lama. Nggak neko-neko langsung saja ke TKP. http://hazmiarifin.blog.friendster.com/2009/02/konter-online-mengirim-aplikasi-symbian-manual
Ubuntu 10.04 hadir dengan pesona baru

Oke, sekarang kembali ke UBUNTU 10.04. Tampilan desktop awal aja udah beda dengan ubuntu versi sebelumnya. seperti ini......

Kalo versi sebelumnya seperti ini......

Kelompokan Kimia X3
Kelompok 1
Albastomi
Azwar HJP
Afrita
Ainun
Ayu
Kelompok 2
Hazmi
Infaq
Devi
Eka
Geby
Kelompok 3
Deny
Ardian
Dwi Arum
Indah
Ken
Kelompok 4
Jhovan
Roni
Lailatul
Lala
Lukma
Kelompok 5
Iqbal
Mifta
Megawati
Sayyidatin
Riska
Vicky
Kelompok 6
Misanif
Rona
Rizky
Siska
Ulul
Whilda
Pengelompokan Teman Pada Facebook

Hei friends yang suka Facebook-an ato Facebookers. Pasti diantara kalian punya teman yang sangat buuuaaanyak, ya kan.........
Manurut pengalaman penulis, teman-teman selain punya teman banyak mereka juga punya akun facebook yang banyak pula. kebanyakan mereka mengelompokkan teman dengan cara akun satu temannya bla bla bla.... and akun yang laen ble ble ble....
Itu semua tak perlu terjadi, karena di facebook sudah menyediakan fasilitas tersebut. Pertama temen-temen Login dulu, berikut cara-caranya :

1. Klik menu "Teman" pada tab Beranda
2. Klik tombol "+ Buat Daftar"
3. Ketik nama kelompok teman. contoh : Duniaku
4. Klik teman-temanmu yang menjadi anggota kelompok teman yang telah dibuat.
5. Klik tombol "Buat Daftar" yang warnanta Biru.
Selesai.........
Klik gambar untuk langkah lebih jelas.
Kesimpulanya kita nggak perlu buat akun lagi untuk mengelompokkan teman, cukup buat daftar teman kan udah selesai. Tapi keputusan ada ditangan anda, he... he... he...
Langganan:
Postingan (Atom)