RSS

Download Rekaman Dauroh dan Ta'lim Al-Ustadz Abu Nashim Mukhtar

20.42 |

Bismillah..

Download rekaman dauroh dan ta'lim//kajian bersama Al-Ustadz Ustadz Abu Nashim Mukhtar bin Rifa’i -hafizhahullaah- (pengajar di Ma’had Darussalaf, Sukoharjo) yang didownload dari ilmoe.net.


Kisah Salman Al-Farisi Mencari Hidayat


atau


__________________________________________________________________________________

Indahnya Keluarga Salafy

IndahnyaKeluargaSalafy-Ust-Mukhtar1.zip (7.7MB)

IndahnyaKeluargaSalafy-Ust-Mukhtar2.zip (7.5MB)

IndahnyaKeluargaSalafy-Ust-Mukhtar3.zip (9.5MB)

___________________________________________________________________________________
 Guruku Abi dan Ummi

atau
___________________________________________________________________________________
Riyadhul Jannah-Penaran Orang Tua Dalam Pendidikan Anak

Al_Ustadz_Nashim_Mukhtar-Riyadhul_Jannah-Peranan_Orang_Tua_Dalam_Pendidikan_Anak_1.MP3 (6.3MB)

Al_Ustadz_Nashim_Mukhtar-Riyadhul_Jannah-Peranan_Orang_Tua_Dalam_Pendidikan_Anak_2.MP3 (5.5MB)

sumber: ilmoe.net

Baca Selengkapnya......
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments(0)
Diposting oleh climhazard

Download Dauroh Banyumas “Rahasia di Balik Nafkah yang Halal” Bersama Al-Ustadz Abu Nashim Mukhtar

20.23 |

Bismillah...

Download rekaman kajian Rahasia di Balik Nafkah yang Halal bersama Al-Ustadz Ustadz Abu Nashim Mukhtar bin Rifa’i -hafizhahullaah- (pengajar di Ma’had Darussalaf, Sukoharjo) pada hari Ahad, 06 Mei 2012 di Masjid Agung Nur Sulaiman Komplek Alun-Alun Banyumas.
Untuk download file bisa dilakukan dengan klik kanan -> Save Link As atau yang semisal. Untuk lebih mempermudah download, kami sarankan menggunakan software download manager seperti IDM, FDM, atau yang semisal.

1.Rahasia Nafkah Halal 1

2.Rahasia Nafkah Halal 2

3.Rahasia Nafkah Halal tanya-jawab

4.Tausiyah Hikmah Pelaksanaan Shalat

sumber Fataaya.Wp yang telah kami pindahkan ke iLmoe dengan sedikit perubahan format.
sumber lain: http://rizkytulus.wordpress.com/2012/05/14/download-dauroh-rahasia-nafkah-halal/

Baca Selengkapnya......
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments(0)
Diposting oleh climhazard

Download Pengajian Akbar SMA Se-Surakarta (PEKASA) Bersama Al-Ustadz Abu Nafi’ Sukadi dan Al-Ustadz Abu Nashim Mukhtar

20.15 |

Bismillah....
Download rekaman Pengajian Akbar SMA se-Surakarta (PEKASA) dengan Tema Jika Aku Terlanjur Maksiat bersama Al-Ustadz Abu Nafi’ Sukadi dan Al-Ustadz Abu Nashim Mukhtar bin Rifa’i -hafizhahumallaah- pada hari Rabu, 20 Juni 2012 di Masjid An-Nur SMA Negeri 1 Surakarta.
Untuk download file bisa dilakukan dengan klik kanan -> Save Link As atau yang semisal. Untuk lebih mempermudah download, kami sarankan menggunakan software download manager seperti IDM, FDM, atau yang semisal.

1. Terlanjur Maksiat oleh Ustadz Sukadi    

2. Pangeran yang Rendah Hati oleh Ustadz Mukhtar    

3. Sesi tanya-jawab oleh ustadz Mukhtar    

File  kami peroleh dari panitia (Akh Faris Damar) dan Akh Rizky Tulus Al-Magetany.
berkerjasama dengan :
ilmoe.com

Baca Selengkapnya......
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments(0)
Diposting oleh climhazard

Tugas Prokom 2, Rombel 3

11.25 |


Program Statistika Dasar
Buatlah form seperti berikut ini:



Isikan kode program berikut ini pada jendela kode:

Option Base 1

Private Sub cmdhasil_Click()
Dim datastat(100) As Double
Dim stat() As Double
List1.Clear
For i = 1 To 100
datastat(i) = Int(Rnd() * 100000) + 1
List1.AddItem datastat(i)
Next
stat() = arraystat(datastat())
For i = 1 To 4
lblstatistik(i - 1).Caption = stat(i)
Next
End Sub

Function arraystat(dataArray() As Double) As Double()
Dim sumber(4) As Double
jumlah = 0
jmlhkuadrat = 0
jmlhdata = 0
datamin = 999999
datamax = -999999

For i = LBound(dataArray) To UBound(dataArray)
jumlah = jumlah + dataArray(i)
jmlhkuadrat = jmlhkuadrat + dataArray(i) ^ 2
If dataArray(i) > datamax Then datamax = dataArray(i)
If dataArray(i) < datamin Then datamin = dataArray(i)
jmlhdata = jmlhdata + 1
Next
ratarata = jumlah / jmlhdata
stdDev = Sqr(jmlhkuadrat / jmlhdata - ratarata ^ 2)
sumber(1) = ratarata
sumber(2) = stdDev
sumber(3) = datamin
sumber(4) = datamax
arraystat = sumber
End Function

Private Sub Form_Load()
Randomize
End Sub

Program Penjumlahan Matriks
Buatlah form seperti berikut ini.


Option Explicit
Dim baris, kolom
Dim A() As Integer
Dim B() As Integer
Dim C() As Integer

Sub dimensiA()
    baris = Left(TXTMATRIKS(0).Text, 1)
    kolom = Right(TXTMATRIKS(0).Text, 1)
End Sub

Sub dimensiB()
    baris = Left(TXTMATRIKS(1).Text, 1)
    kolom = Right(TXTMATRIKS(1).Text, 1)
End Sub

Sub InputmatrikA(ByVal baris As Integer, ByVal kolom As Integer)
    Dim i As Integer, j As Integer
        ReDim A(baris, kolom)
       
        For i = 1 To baris
            For j = 1 To kolom
                A(i, j) = InputBox(" Masukan elemen ke (" & i & "," & j & ")", " Input Matriks A")
            Next j
        Next i
       
        For i = 1 To baris
           For j = 1 To kolom
              List1(0).AddItem "elemen (" & i & "," & j & ")" & " = " & A(i, j)
            Next j
       Next
End Sub

Sub InputmatrikB(ByVal baris As Integer, ByVal kolom As Integer)
    Dim i As Integer, j As Integer
        ReDim B(baris, kolom)
       
        For i = 1 To baris
            For j = 1 To kolom
                B(i, j) = InputBox(" Masukan elemen ke (" & i & "," & j & ")", " Input Matriks B")
            Next j
        Next i
       
        For i = 1 To baris
           For j = 1 To kolom
              List1(1).AddItem "elemen (" & i & "," & j & ")" & " = " & B(i, j)
            Next j
       Next   
End Sub

Private Sub CMDINPUT_Click(Index As Integer)
    Select Case Index
        Case 0
            Call dimensiA
            Call InputmatrikA(baris, kolom)
        Case 1
            Call dimensiB
            Call InputmatrikB(baris, kolom)
        End Select
End Sub

Sub penjumlahan()
    Dim i As Integer
    Dim j As Integer
    ReDim C(baris, kolom)
    For i = 1 To baris
      For j = 1 To kolom
         C(i, j) = A(i, j) + B(i, j)
       Next j
    Next i
    For i = 1 To baris
      For j = 1 To kolom
         List1(2).AddItem "elemen(" & i & ", " & j & ")" & " = " & C(i, j)
       Next j
    Next
End Sub

Private Sub CMDPENJUMLAHAN_Click()
    Call penjumlahan
End Sub


TUGAS
1.      Buatlah program untuk mencari standar deviasi dari sekelompok data.
2.      Buatlah program untuk mencari persamaan regresi dan korelasi dari dua kelompok data.
3.      Buatlah program perkalian matriks.

Baca Selengkapnya......
  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments(0)
Diposting oleh climhazard
Langganan: Postingan (Atom)