Download Al-Quran

Rasulullah bersabda:

"Telah kutinggalkan dua pusaka kedapamu, jika kamu berpegang teguh kepada keduanya maka selamatlah kamu selama-lamanya, yakninya Al-Quran dan Sunnah Rasul (Hadist)"

Al Quran for Ms-Word Ver. 1.3 Office version (2000,2002(XP) ,2003 version) or greather not cover versi 1997

Klik di sini untuk menuju link download

Aplikasi Mengetahui Hari Dari Tanggal

Hanya iseng-iseng saja membuat program bagaimana cara mengetahui hari dari tanggal, misalnya jika kita ingin mengetahui hari apa pada tanggal 29 April 2000, maka hanya dengan memasukkan data tanggal (29), bulan(04) dan tahun(2000), maka kita akan tahu bahwa 29 April 2000adalah hari Sabtu,

selengkapnya...

2007/10/22

Cara Menulis Arab Windows

Cara Menulis Arab Pada Windows


Bagaimana ya cara menulis tulisan Arab pada Windows XP, biasanya tu yah, fasilitasnya memeang sudah tersedia kawan?!, hanya saja kita tinggal mengaktifkan fasilitas tersebut. But…, by the way, tau apa yang aku maksudkan dengan menulis Arab pada Windows XP??? Ya maksudnya…. Ya mengetik dengan tulisan Arab, Jangan-jangan reader on-line now ada yang nggak tau nih dengan tulisan Arab?? Ya udah jangan marah lah kawan, aku tau sobat pasti tau dengan tulisan Arab, tulisan yang terdapat di dalam Al Qur-an yang jika disenikan sedemikian rupa akan bisa menjadi Kaligrafi. Ecchhh… topic kita di awal tadi apa yak ok sampai lari ke sini?? Langsung aja dech ke intinya pengendalian diri, lho kan ngaur lagi….., Baiknya langsuing lihat aja dech paragraph selanjutnya OK?!

Untuk memulai mengetik dengan tulisan Arab pada Windows XP, fasilitas yang biasanya sudah tersedia itu harus diaktifkan terlebih dahulu, bagaimana cara mengaktifkannya, cobalah kawan ikuti langkah di bawah ini.


  1. Bukalah Control Panel dan pilih item yang bernama Regional and Language Options, sehingga akan keluar jendela seperti berikut ini, emangnya rumah pakai jendela? Ya… gitu deach,




  2. Klik tab Language, ternyata di bagian itu ada tab juga ya? Yang sering kita pakai di ms Word, Sama nama atau sebutannya kali ye….Lalu...... apa ya? Oh ya klik tombol yang bertuliskan Details…





  3. Selanjutnya, klik Add… dan pilih bahasa yang ingin ditambahkan, karena tujuan kita kali ini menambahkan bahasa Arab, pilihlah bahasa tersebut, salah satu baha yang memakai tulisan Arab yang paling kita kenal adalah dari Negara Saudi Arabia, sebagai conto pilihlah Arabic (Saudi Arabia) namanya aja pakai Arabia ya jelas Arab lah fren………, (belum tentu juga), o ya ya…





  4. Lalu klik OK dan klik Apply, dah selesaikan……? ya belum lah fren, nah “now how to active it”?, kata orang Padang, caranya begini (baca aja nomor selanjutnya!)


  5. Pada taskbar windows bagian paling bawah di mana start juga terletak di situ, sudah kita lihat adanya penambahan bahasa maka klik lah bahasa tersebut, ngertikan? Bingung ??? nih lihat gambarnya di belakang computer (wah yang ada Cuma kabel-kabel nih!) JK nggak SBY kok (“Just kidding nggak Sebenarnya kok), gambarnya nih di bawah.





  6. Dah selesai dech, nah sekarang tes pada keyboard cantik anda untuk mengetik dengan tulisan Arab, coba tekan seluruh tombol, supaya kita tahu tombol-tombol apa saja yang memberikan efek tulisan Arab, dak kemudian ulangi sekali lagi, tapi kali ini menekan tombolnya diiringi oleh Shift


  7. Burung Irian Cendrawasih, Bolehlah kita berjumpa lagi, eh salah ya? Ya udah, salam untuk sobat semua…


  8. Oh ya, ada yang lupa, “Selamat Mencoba” bagi yang belum tahu, dan bagi yang sudah tau…….. ya sudah tau lah…


    dan kalau di windowsnya belum ada tulisan arab....., hmm baca artikel ini




kord lagu Letto

Judul Lagu:
Sebelum Cahaya

2007/10/12

mencari arcus trigonometri dengan pascal

uses crt;
label rypro,b,c,e,f,g;
var a,arcsin,arccos,as,ac:real;
d:char;
begin
clrscr ;
rypro:
writeln; writeln;
write('masukkan nilai a: '); readln(a);
if a= 1 then goto e else
if a= 0 then goto g else
arcsin := ArcTan(a/sqrt (1-sqr (a)))*57.2958;
arccos := ArcTan(sqrt (1-sqr (a)) /a)*57.2958;
as:= 180-arcsin;
ac:= 360-arccos;
if a < 1 then
writeln('arcsin ',a:0:4,' = ',arcsin:0:4,' derajat atau ',as:0:4);
b:
if a < 1 then
writeln('arccos ',a:0:4,' = ',arccos:0:4,' atau ',ac:0:4);
c: readln; writeln;
write('Mau Mencoba Lagi? ');
writeln('tekan Y jika iya atau tekan selain Y jika tidak');
readln(d);
if (d ='Y') or (d = 'y') then goto rypro else goto f;
e:
writeln('arcsin ',a:0:4,'= 90 ');
writeln('arccos ',a:0:4,'= 0 '); writeln; goto c;
g:
writeln('arcsin ',a:0:4,'= 0 atau 180');
writeln('arccos ',a:0:4,'= 90 atau 270'); writeln; goto c;
f:
writeln; writeln; writeln; writeln;
writeln(' TERIMA KASIH TELAH MENGGUNAKAN LAYANAN INI');
writeln;
writeln(' T H A N K');
readln end.


Download Turbo Pascal di sini

2007/10/05

2007/10/02

kord lagu Matta ketahuan

Ketahuan



Intro : Am Am G E (2x)

Am
Dari awal aku tak pernah

F
Percaya kata - katamu

G
Karena ku hanya melihat

E
Semua dari parasmu

Am
Terakhir kau bilang padaku

F
Kau tak ‘kan pernah selingkuh

G
Tetapi ternyata dirimu...

E
Bermain di belakangku

F
(*) Saat ku melihatmu

C
Kau sedang bermesraan

Dm E
Dengan seorang yang ku kenal


Am G
Reff: O oo... kamu ketahuan

E Am
Pacaran lagi

G E Am
Dengan dirinya... teman baikku...

Am G
O oo... kamu ketahuan

E Am
Pacaran lagi

G E Am
Dengan dirinya… teman baikku

Int: Am F G E (2x)

Kembali ke: (*), Reff

Am G
Tapi tak mengapa

E Am G
Aku tak heran... kar’na dirimu

E Am
Cinta sesaatku

Am G E Am
Ta ra ram… ta ra ram… ta ra ram… ta ra ram…

Am G E Am
Ta ra ram… ta ra ram… ta ra ram… ta ra ram…

Am G
O ow... aku ketahuan

E Am G
Pacaran lagi... dengan dirinya

E Am
Teman baikmu...

Am G
O ow,,, aku ketahuan

E Am G
Pacaran lagi... dengan dirinya

E Am
Teman baikmu...

Coda : Am

By: Matta

kord lagu Matta

Pilih dulu judul lagu Matta di bawah ini:
Ketahuan