Senin, 23 Juli 2012

Shaum di Bulan Ramadhan (Bagian 2)

Rukun Shaum

  1. Berniat sejak malam hari
  2. Menahan, makan, minum, menyetubuhi istri di siang hari sejak terbit fajar sampai terbenam matahari (Imsak)

Yang diberi kelonggaran untuk tidak Shaum Ramadhan

Orang Mukmin yang diberi kelonggaran diperbolehkan untuk tidak shaum Ramadhan, tetapi wajib mengqadha di bulan lain, mereka itu ialah

  • Orang sakit yang masih ada harapan sembuh
  • Orang yang berpergian jauh (Musafir). Musafir yang merasa kuat boleh meneruskan shaum dalam safarnya (perjalanan), tetapi yang merasa lemah dan berat lebih baik berbuka, dan makruh memaksakan diri untuk shaum.

Orang Mukmin yang diberi kelonggaran diperbolehkan untuk tidak shaum Ramadhan dan tidak wajib mengqadha di bulan lain, tetapi wajib fidyah (memberi makan sehari seorang fakir miskin) . Mereka itu ialah orang yang tidak lagi mampu mengerjakan shaum karena:

  • Umurnya sangat tua dan lemah
  • Wanita yang menyusui dan khawatir akan kesehatan anaknya
  • Wanita yang mengandung dan khawatir akan kesehatan dirinya
  • Sakit menahun yang tidak ada harapan sembuh
  • Orang yang sehari-hari kerjanya berat yang tidak mungkin mampu dikerjakan sambil shaum, dan tidak mendapat pekerjaan lain yang ringan.

Hal-hal yang membatalkan shaum

  • Sengaja makan dan minum di siang hari. Bila terlupa makan dan minum di siang hari, maka tidak membatalkan shaum.
  • Muntah dengan disengaja. Bila muntah secara tidak sengaja, maka tidak membatalkan shaum.
  • Dengan sengaja menyetubuhi istri di siang hari. Selain membatalkan shaum, terkena hukuman lain berupa : memerdekakan seorang hamba, bila tidak mampu maka shaum dua bulan berturut-turut, dan bila tidak mampu, maka memberi makan enam puluh orang fakir miskin..
  • Bagi wanita, datang bulan di siang hari


Minggu, 22 Juli 2012

Shaum di bulan Ramadhan (Bagian 1)

 Masyru'iyat Shaum di bulan Ramadhan
Surah Al-Baqarah ayat. 183
يَا أَيُّهَا الَّذِينَ آمَنُوا كُتِبَ عَلَيْكُمُ الصِّيَامُ كَمَا كُتِبَ عَلَى الَّذِينَ مِن قَبْلِكُمْ لَعَلَّكُمْ تَتَّقُونَ
Wahai orang-orang yang beriman diwajibkan atas kamu sekalian puasa, sebagaimana diwaibkan atas orang-orang sebelum kamu agar kamu sekalian bertaqwa. (Surah 2:183)
1. Puasa Ramadhan hukumnya Fardu'Ain.
2. Puasa Ramadhan disyariatkan bertujuan untuk menyempurnakan ketaqwaan.
Bulan Ramadhan adalah :
  • Bulan yang penuh Barakah
  • Pada bulan ini pintu surga dibuka dan pintu neraka ditutup
  • Pada bulan ini setan-setan dibelenggu
  • Pada bulan ini terdapat Lailatul Qadr, yaitu malam yang keutamaan beramal didalamnya lebih baik daripada beramal seribu bulan.
  • Pada bulan ini setiap hari ada malaikat yang menyeru menasehati siapa yang berbuat baik agar bergembira dan yang berbuat maksiat agar menahan diri.  
Keutamaan beramal di bulan Ramadhan antara lain
  • Amal itu dapat menutup dosa-dosa kecil antara setelah Ramadhan yang lewat sampai dengan Ramadhan berikutnya
  • Menjadikan bulan Ramadhan memintakan syafaat
  • Khusus bagi yang puasa disediakan pintu khusus yang bernama Rayyaan untuk memasuki surga.

Senin, 16 Juli 2012

Panduan Transportasi di Bandung dari 6 titik ke kampus ITB

PANDUAN TRANSPORTASI SELAMA DI BANDUNG. dari 6 titik ke kampus ITB dan sebaliknya 
1. stasiun Bandung (st. hall)–ITB
keluar stasiun di pintu selatan–> naik angkot hijau jurusan dago-stasiun dgn ongkos 2.500

2. ITB– stasiun Bandung (st. hall)

gerbang ganesha–>jalan ke arah timur ke pertigaan RS. Borrmeus–>naik angkot dago-stasiun dgn ongkos 2500

3. terminal caheum—ITB

keluar terminal –> naik angkot caheum-ledeng, tarif 3.000

4. ITB–terminal caheum

gerbang ganesh–>jalan kea rah kebun binatang –> naik angkot caheum-ledeng warna hijau kea rah caheum, tarif 3.000

5. terminal leuwi panjang—ITB

> Dengan Bus Damri : naik damri leuwi panjang-dago, turun di jalan ganesha (tarif 2 rb)
> Dengan Angkot : terminal leuwi panjang –> terminal kalapa (*naik nagkot soreang – kalapa | warna : kuning hijau | tarif 3000) –> dago, turun di jalan ganeca (*naik angkot kalapa – dago | warna : hijau orange | tarif 3 rb)
>Dengan Taxi : tarif sktr 25-30 rb sampe ke ITB, jka diisi 4 orang. maka tarif per orang sktr 6-7,5 rb.

6. ITB–terminal leuwi panjang

>Dengan bus Damri : jalan ke DU, naik damri ke arah leuwi panjang. turun di terminal (tarif 2 rb)
>Dengan Angkot : ke simpang dago (naik angkot sadang serang | warna biru | tarif 1000) –> terminal kalapa (*naik angkot kalapa – dago | warna : hijau orange | tarif 3 rb) –> terminal leuwi panjang (*naik nagkot soreang – kalapa | warna : kuning hijau | tarif 3000)
>Dengan Taxi : tarif sktr 25-30 rb sampe ke ITB, jka diisi 4 orang. maka tarif per orang sktr 6-7,5 rb

——————————
——————————————————

*naik taksi memang sdkt lbh mahal, tapi jauh lbh cepat. angkot dan damri sktr 1 jam, taxi bisa < 30 menit


7. st. kiara condong—ITB

keluar stasiun–>naik angkot ruing-dago warna putih kea rah dago, tarif 3000–>turun di pasar simpang dago (McD) –>naik angkot kalapa-dago warna hijau ke arah dago, tariff 1000–>turun RS. Borromeus–>jalan ke ITB

8. ITB–st. kiara condong

gerbang ganesha–>jalan ke kebun binatang –> naik angkot caheum-ledeng warna hijau arah caheum–> turun pusdai, tarif 1.500 –> naik angkot warna cokelat, ciwastra –> turun stasiun, tarif 2.000
Gerbang ganesha–>jalan kea rah RS. Borromeus–>naik angkot kalapa-dago warna hijau ke arah dago, tarif 1000–> naik angkot warna putih, riung-dago ke arah riung –> turun stasiun, tarif 3.000

9. bd. husein—ITB

Pintu keluar bandara–>jalan–>naik angkot biru muda, sd serang-caringin, arah sadang serang–>tururn ITB, tarif 3000

10. ITB–bd. husein

gerbang ganesha–>jalan ke arah kebun binatang –> naik angkot warna biru muda, sd serang-caringin, arah caringin –> turun di pertigaan pintu gerbang masuk bandara, tarif 2.000/2.500 –> jalan

11. bd. soetta—ITB

Esit tol pasteur –> jalan pasteur –> belok kiri ke jalan kebon bibit –> jalan taman sari –> ITB

12. ITB–bd. soetta

ITB –> jalan Ir H Djuanda –> jalan layang pasupati –> jalan pasteur –> tol pasteur

Rabu, 14 Maret 2012

The Power of Online Community

Jaman sekarang, teknologi berkembang dengan pesat. Khususnya teknologi informasi dan komunikasi. Tidak dapat dipungkiri bahwa komunitas online yang berkembang di dunia maya menjadi suatu fenomena tersendiri yang menarik untuk dibahas.
 
Untuk membangun komunitas online di dunia maya, tentunya tidak mudah. Ada beberapa prinsip dasar yang diperlukan untuk membangun komunitas di Internet:
      1.       Sharing (Saling Berbagi dan tidak ada yang dirugikan)
      2.       Bermanfaat bagi user(pengguna)
      3.       Kesalingtergantungan
      4.       Dari ‘mulut ke mulut’
Kemudian hal yang penting pula adalah trik teknis dan trik non-teknis dalam membangun komunitas di dunia maya. Trik Teknis dalam membangun komunitas adalah pengembangan horizontal, di mana ketika user makin bertambah banyak dan kapasitas perangkat keras sudah tidak memadai, kita tinggal menambahkan server ataupun sesuatu yang kurang tanpa harus merombak ataupun mengkoding ulang seluruh sistem sehingga tidak ada yang namanya server down ataupun harus maintenance ulang. Trik non-teknis dalam membangun komunitas adalah kumpulkan user sebanyak mungkin, agar koumnitas dapat berjalan dengan sendirinya tanpa harus dikelola secara langsung oleh admin.
Untuk memudahkan pengelolaan suatu forum/komunitas di Internet, akan lebih baik jika sistem pengelolaannya dibagi menjadi 3 tingkatan : Admin, Super Moderator, dan Moderator
Berikut ini beberapa tips dalam mengembangkan komunitas/forum online :
      1.       Konsisten berbagi
      2.       Komunitas harus dapat menerima
      3.       Komunitas terus berkontribusi
      4.       Kembangkan jaringan komunitas
      5.       Terus berinovasi dan kembangkan kreativitas
Yang terakhir dari tulisan singkat ini. Pesan sponsor : Milikilah ‘Jiwa Kepemilikan’. Maksudnya jika kita telah berhasil membangun sebuah komunitas online, teruslah kembangkan komunitas tersebut dan perbanyak user seolah-olah kita merasa tidak memiliki apapun.

Sumber : Seminar “The Power of Online Community” tanggal 24 September 2011 oleh DKA – Comlabs USDI ITB

Selasa, 06 Maret 2012

Algoritma Permainan Tebak Kartu

Sudah lama saya tidak menulis di blog, maka saya mencoba untuk menulis kembali di blog setelah sekian lama. Berikut ini adalah Algoritma Permainan Tebak Kartu yang diimplementasikan pada program pascal.

program tebak_kartu;
uses crt;

(* Kamus *)
var
 x : byte;
 jumlah : byte;
 ch : char;
 cc : char;

label ku;
label ul;
label ba;

(* Subprogram *)

procedure displayheader;
begin
    clrscr;
    textbackground(lightblue);
    textcolor(white);
    writeln;
    writeln('###############################################################################');
    writeln('########################## Program Tebak Angka ################################');
    writeln('###############################################################################');
    writeln('########################### Created by : Azka #################################');
    writeln('################### Copyright (C) 2011 All Rights Reserved ####################');
    writeln;
end;

procedure TampilkanKartu (kartu:byte);
var
 y : byte;
begin
 for y:=1 to 255 do
  begin
   if (y and (1 shl (kartu-1)) <> 0) then
    write(y:4,' ');
  end;
end;

(* Algoritma *)
begin
ul:
clrscr;
 displayheader;
 writeln('Selamat datang di program tebak angka ');
 writeln('Untuk bermain, silahkan ikuti petunjuk di bawah');
 writeln;
 writeln('Pikirkan suatu bilangan antara 1 sampai 255');
 writeln('Jika sudah, silahkan tekan sembarang tombol');
 ch:=readkey;
 jumlah :=0;
 for x:=1 to 8 do
  begin
   clrscr;
   displayheader;
   TampilkanKartu(x);
   ku:
   writeln;
   write('Apakah bilangan yang Anda pikirkan ada di atas (Y/T) ? ');
   readln(ch);
   if upcase(ch) = 'Y' then
    inc(jumlah, 1 shl (x-1))
   else
   if upcase(ch) = 'T' then
   else
    begin
     writeln('Masukan Huruf Salah');
     goto ku;
    end;
  end;
 clrscr;
 displayheader;
 writeln('Bilangan yang Anda pikirkan adalah ', jumlah);
 writeln;
 ba:
 write('Apakah Anda ingin kembali bermain (Y/T) ? ');
 readln(cc);
   if upcase(cc) = 'Y' then
    goto ul
   else
   if upcase(cc) = 'T' then
    exit
   else
    begin
     writeln('Masukan Huruf Salah');
     goto ba;
    end;
 end.