Kamis, 21 April 2016

WASIAT RASULULLAH ﷺ UNTUK KAUM WANITA..{وصية رسول الله اونتوق قوم وانيتا}
Telah bersabda Rasulullahﷺ. maksudnya:
"Kebanyakan wanita itu adalah isi Neraka dan kayu apinya." Sayidatina Aisyah bertanya, "Mengapa, wahai Rasulullah?" Jawab Rasulullah SAW: Karena kebanyakan perempuan itu tidak sabar dalam menghadapi kesusahan, kesakitan dan cobaan seperti kesakitan waktu melahirkan anak, mendidik anak-anak dan melayani suami serta melakukan kerja-kerja di rumah.

Rasulullah ﷺbersabda:
"Wanita, apabila ia sholat lima waktu, puasa sebulan Ramadhan, memelihara kehormatannya serta taat pada suaminya, maka masuklah ia dari mana saja pintu surga yang ia kehendaki."
(Riwayat Ahmad, Ibnu Hibban, Thabrani dan Anas bin Malik)

Rasulullah ﷺ bersabda:
"Pertama kali urusan yang akan ditanyakan pada hari Akhirat nanti ialah mengenai sholat dan mengenai urusan suaminya (apakah ia menjalankan kewajibannya atau tidak)."
Imam Thabrani menceritakan bahwa seorang isteri tidak dianggap menjalankan kewajibannya kepada Allah sehingga ia menjalankan kewajibannya kepada suaminya. Seandainya suaminya memintanya (untuk digauli) walaupun (dia) sedang berada di belakang unta maka ia tidak boleh menolaknya.

Nabi ﷺ bersabda:
'Apabila lari wanita dari rumah suaminya, tidak diterima sholatnya sehingga ia kembali dan mengulurkan tangannya kepada suaminya (meminta maaf)." (Riwayat dan Hassan)
Abdullah bin Amru bin Al Ash r.a. berkata: 'Bersabda Rasulullah SAW: "Dunia ini adalah perhiasan dan sebaik-baik perhiasan ialah wanita (isteri) yang solehah." (Riwayat Muslim)

Sabda Rasulullah ﷺ:
"Siapa saja perempuan yang memakai bau bauan, kemudian ia keluar melihat kaum lelaki ajnabi agar mereka mencium bau harumnya maka ia adalah perempuan zina dan tiap-tiap mata yang memandang itu adalah zina." (Riwayat Ahmad, Thabrani dan Hakim)
Sebaik-baik bagi wanita ialah tinggal di rumah, tidak keluar kecuali untuk urusan yang mustahak. Wanita yang keluar rumah akan dipesonakan oleh iblis. Sabda 

Rasulullahﷺ :
"Perempuan itu aurat, maka apabila ia keluar, mendongaklah syaitan memandangnya." (Riwayat Tarmizi)
Haram bagi wanita melihat laki-laki sebagaimana laki-laki haram melihat wanita (yang halal nikah) kecuali dalam urusan menuntut ilmu dan berjual-beli.

Diriwayatkan bahwa pada suatu hari, ketika Rasulullahﷺ bersama sama isteri-isterinya (Ummu Salamah dan Maimunah), datang seorang datang seorang sahabat yang buta matanya (Ibnu Maktum), Rasulullah menyuruh isteri-isterinya masuk ke dalam. Bertanya Ummu Salamah, 'Bukankah orang itu tidak dapat melihat kami, ya Rasulullah?"
Rasulullah menjawab, "Bukankah kamu dapat melihatnya?" (Riwayat Abu Daud dan Tarmizi)

Rasulullahﷺ bersabda:
"Perempuan yang memakai pakaian dalam keadaan berhias (bukan untuk suami dan muhramnya) adalah seumpama gelap-gulita pada han Kiamat, tidak ada nur baginya. " (Riwayat Tarmizi)

Sabda Rasulullah ﷺ:
'Dikawini wanita karena empat sebab: karena hartanya, karena keturunannya, karena kecantikannya dan karena agamanya. Maka carilah yang kuat beragama niscaya kamu bertuah (beruntung)." (Riwayat Bukhari)

Rasulullahﷺ bersabda:
"Salah satu tanda keberkatan wanita itu ialah cepat perkawinannya, cepat pula kehamilannya dan ringan pula maharnya (mas kawinnya)."

Nabi ﷺ pemah bersabda:
"Wanita yang taat akan suaminya, semua burung-burung di udara, ikan di air, malaikat di langit, matahari dan bulan semuanya beristighfar baginya selama dia masih taat pada suaminya dan diredhainya (serta menjaga sholat dan puasanya).

Sabda Rasulullah ﷺ yang bermaksud:
"Wanita yang taat berkhidmat pada suaminya akan tertutup tujuh pintu Neraka dan akan terbuka pintu-pintu Surga. Masuklah dan mana saja pintu yang disukainya dengan tidak dihisab."

Sabtu, 26 Juli 2014

TUTORIAL MEMBUAT FORM LOGIN

Asalamualaikum Wr.Wb
Menjelang idul fitri besok,,,saya pengen berbagi nih sekalian  belajar hehehe...
Buat teman-teman yang lagi asiiik membuat program khususnya yang berhubungan dengan Sistem Informasi Administrasi untuk sebuah instansi atau perusahaan dengan menggunakan soft Delphi rasanya  kurang  lengkap kalau tidak ada halaman login. (itu menurut siihmeenurut saya hehehi).
Untuk keamanan data yang kita miliki dalam sistem, halaman login ini sangat penting untuk sebuah sistem Administrasi yang  kita buat, karena SI sifatnya sangat rahasia. Halaman login yang aku buat ini berisi Nama Pemakai  dan Password.
Buat teman-teman yang lagi belajar atau lagi nyari – nyari tutorial tentang pemrograman Delphi, mungkin postingan ini bisa bermanfaat buat kalian, ya meskipun hanya program sederhana.



Langsung aja yuk temen2 kita buat programnya...

1. Bukalah aplikasi Dhelpi yang anda gunakan.(kalau saya sih pake Dhelpi XE2) kemudian buat lembar
     lembar kerja baru dengan mengklik pada menu FILE-NEW-VCL Form Application.

2. Setelah muncul lembar kerja baru,lakukan perubahan pada dua propertis yang ada pada object
     inpector sebagai berikut:
     *Propertis Caption diisi dengan Login Admin
     *Propertis Name diisi dengan FormAwal
     lalu simpan dengan memilih File-Save dan berikan nama FAwal.

3. Setelah FAwal disimpan,selanjutnya kita tinggal menambahkan beberapa komponen pada Form yaitu:
     * masukan dua buah komponen Label kedalam form baru anda.
        kemudian ubah Label tersebut sesuai dengan keinginan anda.
        untuk menggubahnya,kita ubah pada proertis caaption kemudian ubah nama Label terrsebut
        misalnya kita rubah dengan (label1: Nama Pemakai dan Label2:Password).
    * masukan dua buah komponen Edit dan letakan disamping Laabel yang kita buat tadi.
       kemudian yang harus kita atur pada propertisnya yaitu propertis name,text dan password char.
     Edit1
       Name diganti EdName
       Text dikosongkan
       Password char tetap dengan #0
    Edit2
       Name diganti dengan EdPass
       Text dikosongkan
       PasswordChar dirubah dengan *
   * kemudian tambahkan lagi satu buah button,dan letakan dibawah Form Edit.
      rubah propertis name dan captionnya.
         Name dirubah BtnLogin
         Caption dirubah dengan Login

    Berikut contoh peletakan pada Form Login


4. Setelah Form jadi,double klik pada tombol login kemudian tambahkan kode
    seperti dibawah ini:

   procedure TFormAwal.Button1click(Sender: TObject);
  begin
  if (EdNama.Text = 'Roy') and (EdPass.Text= 'senyum') then
  formAwal.ShowModal;

  application.MessageBox
  ('Maaf anda tidak bisa Login. . .! !','warning',0);

  exit;

  end;

  end.



selesai deh,,
oh iya kode diatas mengasumsikan bahwa nama pemakai adalah Roy dan password-nya adalah senyum.
jika terjadi tidak kecocokan,kotak dialog yang berisi pesan "Maaf anda tidak bisa Login" akan tampil.

sekarang tinggal di run ...good luck yah?






Minggu, 20 Juli 2014

TUTORIAL MEMBUAT WINAMP

Asalamualaikum Wr.Wb

selamat pagi teman semua,apa kabar,,???
sehabis sahur langsung ngtik nih.Gak sabar pengen berbagi ilmu"TUTORIAL MEMBUAT WINAMP MENGGUNAKAN DELPHI"
posting ini ditunjukan untuk para calon programer yang baru belajar delphi,jika ada yang udah master jangan komplain yah,,,heheh

langsung saja tidak panjang lebar kita buat aplikasinya:
buka aplikasi delphi (kalau saya pake delphi XE2),kemudian klik file,new,vcl forms aplicatiopns



CARA MEMBUAT WINAMP MENGGUNAKAN Delphi


Gambar 1
1.     Tambahkan 2 komponen panel (Panel1, Panel2) dari Tab Standart kedalam form.
2.     Komponen label (Label1, Label2) dari Tab Standart diletakkan diatas panel2.
3.     Komponen speedbutton (speedbutton1) dari Tab Additional diletakkan diatas Panel1. Desain dapat anda sesuaikan dengan gambar1 tersebut.


Gambar 2

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :
KOMPONEN
PROPERTY
Panel 1
Align = Altop
Caption = kosong
Panel 2
Align = Altop
Caption = kosong
Name = Paudio
Label1
Caption = Audio Players
Label2
Caption = kosong
Form1
Caption = Winamp Roy Surya Santika
Autosize = True
Speedbutton1
Caption = Audio Players
Groupindex = 1
Down = True
AllowAllUp = True

   4.      Double klik komponen Speedbutton1, Kemudian ketikkan Prosedurnya seperti dibawah ini:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Paudio.Visible:=SpeedButton1.Down;
end;
   5.     Dari aplikasi sebelumnya, tambahkan komponen MediaPlayers1 dari Tab Sistem.
   6.     Komponen Progressbar1 dari Tab Additional kedalam Panel2.
   7.     Dan kompnen Timer1 dari Tab System kedalam Panel2.


Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :
KOMPONEN
PROPERTY
MediaPlayers1
Name = AudioPlayer
Progressbar1
Name = Audiobar
Timer1
Interval = 10

  8.     Tambahkan komponen DrivecomboboxDirectorylistboxfilelesbox dan filtercombobok dari Tab Win 3.1.

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :
KOMPONEN
PROPERTY
Drivecombobox
Dirrlis = Directorylistbox1
Directorylistbox
Filelist = Filelisbox1
filtercombobox
Filelisbox1


  9.     Aktifkan komponen filtercombobok dan Klik tanda () disebelah kanan kolom Filte pada Tab Property, sehingga muncul Editor file editor seperti gambar berikut.



Gambar 3

  10.   Double klik pada komponen Timer1, kemudian ubah prosedurnnya seperti berikut:
Procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Left<-label2 .width="" font="" then="">
Label2.Left:=label2.Width
Else
Label2.Left:=Label1.Left - 1;
AudioBar.Position:=AudioPlayer.Position;
end;
  11.   Klik komponen filelesbox1, kemudian klik Tab Even pada Objek Inspektor. Double klikpada kolomOnKlik, kemudian lengkapi Prosedurnya seperti berikut:
Procedure TForm1.FileListBox1Click(Sender: TObject);
Begin
AudioPlayer.FileName:=FileListBox1.FileName;
AudioPlayer.Open;
Label2.Caption:=FileListBox1.FileName;
AudioBar.Max:=AudioPlayer.Length;
end;
  12.    Masih dengan kompoen FileListBox1, pada Tab Even double klik pada pada kolom OnDblClick, kemudian lengkapi Prosedurnya seperti berikut:
Procedure TForm1.FileListBox1DblClick(Sender: TObject);
Begin
AudioPlayer.FileName:=FileListBox1.FileName;
AudioPlayer.Open;
Label2.Caption:=FileListBox1.FileName;
AudioBar.Max:=AudioPlayer.Length;
AudioPlayer.Play;
end;
  13.   Masukkan Prosedure dibawah ini:
Procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.