Ramadhan Telah Tiba

Marhaban Ya Ramadhan ….. Mohon maaf lahir dan batin atas segala kesalahan baik yang disengaja ataupun tidak. Semoga kita dapat menjalani ibadah dibulan Ramadhan ini dengan khusyuk, diberkahi dan dirahmati Allah S.W.T. Amien

Alhamdulilah…kata yang terucap dari lubuk hati yang paling dalam…

Puja dan Puji syukur kehadirat ALLAH SWT atas segala rahmat nikmatnya dalam satu tahun ini..

Bulan yang dinanti-nanti telah tiba, bulan nan Suci, Bulan penuh rahmat dan barokah telah datang. Bulan dimana semua dosa akan dihapuskan dan bulan dimana pintu neraka ditutup dan pintu surga dibuka selebar-lebarnya.

Oleh karena itu maka diwajibkan bagi setiap muslimin untuk meningkatkan amal ibadahnya serta taqwa kepada Allah SWT dan menahan diri dari setiap perbuatan tercela. Di bulan Ramadhan ini kaum muslimin diwajibkan untuk berpuasa sebagaimana di difirmankan dalam Al’Qur-an dalam surah Al baqarah,183 yang berbunyi :.
“Hai orang yang beriman, diwajibkan atas kamu berpuasa sebagaimana telah diwajibkan atas orang-orang sebelum kamu agar kamu bertaqwa”


RENUNGAN RAMADHAN
“Wahai manusia, sungguh telah datang pada kalian bulan Allah dengan membawa berkah rahmat dan maghfirah. Bulan yang paling mulia di sisi Allah. Hari-harinya adalah hari-hari yang paling utama. Malam-malamnya adalah malam-malam yang paling utama. Jam demi jamnya adalah jam-jam yg paling utama.Inilah bulan ketika kamu diundang menjadi tetamu Allah dan dimuliakan oleh-Nya. Di bulan ini nafas-nafasmu menjadi tasbih, tidurmu ibadah, amal-amalmu diterima dan doa-doamu diijabah. Bermohonlah kepada Allah Rabbmu dengan niat yang tulus dan hati yang suci agar Allah membimbingmu untuk melakukan shiyam dan membaca Kitab-Nya.”

Celakalah orang yang tidak mendapat ampunan Allah di bulan yang agung ini. Kenanglah dengan rasa lapar dan hausmu, kelaparan dan kehausan di hari kiamat. Bersedekahlah kepada kaum fuqara dan masakin. Muliakanlah orang tuamu, sayangilah yang muda, sambungkanlah tali persaudaraanmu, jaga lidahmu, tahan pandanganmu dari apa yang tidak halal kamu memandangnya dan pendengaranmu dari apa yang tidak halal kamu mendengarnya. Kasihilah anak-anak yatim, niscaya dikasihi manusia anak-anak yatimmu.

Bertaubatlah kepada Allah dari dosa-dosamu. Angkatlah tangan-tanganmu untuk berdoa pada waktu solatmu karena itulah saat-saat yang paling utama ketika Allah Azza wa Jalla memandang hamba-hamba-Nya dengan penuh kasih; Dia menjawab mereka ketika mereka menyeru-Nya, menyambut mereka ketika mereka memanggil-Nya dan mengabulkan doa mereka ketika mereka berdoa kepada-Nya.

Wahai manusia! Sesungguhnya diri-dirimu tergadai karena amal-amalmu, maka bebaskanlah dengan istighfar. Punggung-punggungmu berat karena beban (dosa)-mu, maka ringankanlah dengan memperpanjang sujudmu.

Read More

Ujian Prog Tur

Alhamdulilah....
Ujian Semester Genap telah usai, tapi jagan suka-suka dulu bagaimana hasil ujiannya masih belum tau kan?? Apakah nilainya baik atau jelek, kalau baik alhamdulilah tapi kalau belum baik, wah perlu introspeksi tuh.. berarti masih kurang paham & harus belajar lebih giat lagi.
Untuk mahasiswa TI/2 Pararel, bagaimana ujiannya bisa kan??? Kalau pusing wajarlah namanya juga ujian, lo g' pusing malah kacau tu orang.. Btw, bagaimana berhasil g' buat programnya, g'begitu susah kan..karena ujiannya cuman mengulang beberapa materi yang lalu plus saya bolak balik aj output nya..asal logika sudah jalan insyaalah pasti bisa. Bagi yang masih pusing bisa dicoba script dibawah ini.

program ujian;
uses wincrt;

var
kom1,kom2,mon,mon1:char;
jk2,bonus:string;
jk,mn:longint;
dis1,dis2,bayar:real;

begin
writeln('================= TOKO BIPAS COMPUTER ==============');

writeln('PILIH JENIS KOMPUTER');
writeln(' A = Pentium 3 New');
writeln(' a = Pentium 3 Second');
writeln(' B = Pentium 4 New');
writeln(' b = Pentium 4 Second');
write(' MASUKKAN KODE PILIHAN ANDA = '); readln(kom1);


writeln('PILIH JENIS MONITOR');
writeln(' S = Samsung 15 New');
writeln(' s = Samsung 15 Second');
writeln(' T = Toshiba 15 New');
writeln(' t = Toshiba 15 Second');
writeln(' L = LG 15 New');
writeln(' l = LG 15 Second');
write(' MASUKKAN KODE PILIHAN ANDA = '); readln(mon);
writeln;

{proses untuk komputer}
case kom1 of
'A':jk:=1250000;
'a':jk:=1000000;
'B':jk:=1750000;
'b':jk:=1500000;
end;
write('KOMPUTER YANG ANDA BELI ADALAH = ');
if kom1='A' then
writeln('Pentium 3 New')
else
if kom1='a' then
writeln('Pentium 3 Second')
else
if kom1='B' then
writeln('Pentium 4 New')
else
if kom1='b' then
writeln('Pentium 4 Second');
writeln('DENGAN HARGA = ',jk);
{proses untuk monitor}
case mon of
'S':mn:=900000;
's':mn:=350000;
'T':mn:=700000;
't':mn:=300000;
'L':mn:=800000;
'l':mn:=325000;
end;
write('MONITOR YANG ANDA BELI ADALAH = ');
if mon='S' then
writeln('Samsung 15 New')
else
if mon='s' then
writeln('Samsung 15 Second')
else
if mon='T' then
writeln('Toshiba 15 New')
else
if mon='t' then
writeln('Toshiba 15 Second')
else
if mon='L' then
writeln('LG 15 New')
else
if mon='l' then
writeln('LG 15 Second');
writeln('DENGAN HARGA = ',mn);
{proses potongan komputer}
if kom1='A' then
dis1:=(2/100)*jk
else
if kom1='B' then
dis1:=(3/100)*jk
else
dis1:=0;
writeln('POTONGAN KOMPUTER = ',dis1:4:2);
if mon='S' then
dis2:=(5/100)*mn
else
if mon='T' then
dis2:=(5/100)*mn
else
if mon='L' then
dis2:=(5/100)*mn
else
dis2:=0;
writeln('POTONGAN MONITOR = ',dis2:4:2);
bayar:=jk+mn-dis1-dis2;
writeln('Jumlah Yang Harus Dibayar = ',bayar:4:2);
write('Bonus = ');
if bayar>2000000 then
writeln('Satu Pak CD Blank Isi 50')
else
if bayar>1500000 then
writeln('Head Set')
else
writeln(' - ');
end.

Read More