KISAH ABDULLAH BIN UMAR DAN PENGGEMBALA DOMBA


Suatu hari,Abdullah bin Umar r.a. pergi ke Mekah. Waktu ia beristirahat di tengah perjalanan, datanglah seorang penggembala domba dengan piaraannya. Ibnu Umar berkata,

“Wahai Penggembala, saya mau membeli satu domba dari domba-domba yang engkau pelihara?”
“Saya hanyalah hamba sahaya yang tidak punya hak untuk menjual domba-domba ini. “Jawab penggembala.
“Katakan saja kepda tuanmu bahwa salah satu dombanya dimakan binatang buas. “Abdullah bin Umar r.a.memberi solusi.
Lalu Penggembala itu menjawab “Ya tuanku memang tidak tahu kalau saya berbohong, tetapi Bukankah ada ALLAH yang mengetahui segalanya?”

Mendengar perkataan penggembala tersebut Abdullah bin Umar r.a. meneteskan air mata. Keesokan harinya ia pergi ke tuan pemilik domba dengan maksud untuk memerdekakan penggembala itu. Tidak cuma itu, ia juga membeli domba-domba yang ada dan dihadiahkanlah domba-domba itu kepada si penggembala.

Barangsiapa meninggalkan keharaman karena Allah, maka Allah akan menggantikannya dengan yang halal. Penggembala tersebut tidak mau menjual satu domba karena takut kepada Allah, namun akhirnya ia mendapatkan ganti domba dengan jumlah yang lebih banyak dan halal.


Lihat artikel yang terkait :
KISAH-KISAH KEPAHLAWANAN PARA SAHABAT NABI MUHAMMAD SAW

KISAH RASULULLAH S.A.W. DAN PENGEMIS YAHUDI BUTA


Di sudut pasar Madinah Al-Munawarah seorang pengemis Yahudi buta hari demi hari apabila ada orang yang mendekatinya ia selalu berkata "Wahai saudaraku jangan dekati Muhammad, dia itu orang gila, dia itu pembohong, dia itu tukang sihir, apabila kalian mendekatinya kalian akan dipengaruhinya".

Setiap pagi Rasulullah SAW mendatanginya dengan membawa makanan, dan tanpa berkata sepatah kata pun Rasulullah SAW menyuapi makanan yang dibawanya kepada pengemis itu walaupun pengemis itu selalu berpesan agar tidak mendekati orang yang bernama Muhammad. Rasulullah SAW melakukannya hingga menjelang Beliau Rasulullah SAW wafat.

Setelah kewafatan Rasulullah tidak ada lagi orang yang membawakan makanan setiap pagi kepada pengemis Yahudi buta itu.

Suatu hari Abubakar r.a berkunjung ke rumah anaknya Aisyah r.ha. Beliau bertanya kepada anaknya,
"anakku adakah sunnah kekasihku yang belum aku kerjakan", Aisyah r.ha menjawab pertanyaan ayahnya,
 "Wahai ayah engkau adalah seorang ahli sunnah hampir tidak ada satu sunnah pun yang belum ayah
lakukan kecuali satu sunnah saja". "Apakah Itu?", tanya Abubakar r.a.

 Setiap pagi Rasulullah SAW selalu pergi ke ujung pasar dengan membawakan makanan untuk seorang pengemis Yahudi buta yang berada di sana", kata Aisyah r.ha.

Ke esokan harinya Abubakar r.a. pergi ke pasar dengan membawa makanan untuk diberikannya kepada pengemis itu. Abubakar r.a mendatangi pengemis itu dan memberikan makanan itu kepada nya.
Ketika
Abubakar r.a. mulai menyuapinya, si pengemis marah sambil berteriak, "siapakah kamu ?". Abubakar r.a
 menjawab, "aku orang yang biasa". "Bukan !, engkau bukan orang yang biasa mendatangiku",
jawab si pengemis buta itu.

Apabila ia datang kepadaku tidak susah tangan ini memegang dan tidak susah mulut ini mengunyah.
Orang yang biasa mendatangiku itu selalu menyuapiku, tapi terlebih dahulu dihaluskannya makanan tersebut dengan mulutnya setelah itu ia berikan pada ku dengan mulutnya sendiri", pengemis itu melanjutkan perkataannya.

Abubakar r.a. tidak dapat menahan air matanya, ia menangis sambil berkata kepada pengemis itu, aku memang bukan orang yang biasa datang pada mu, aku adalah salah seorang dari sahabatnya, orang yang mulia itu telah tiada. Ia adalah Muhammad Rasulullah SAW.

Setelah pengemis itu mendengar cerita Abubakar r.a. ia pun menangis dan kemudian berkata, benarkah demikian?, selama ini aku selalu menghinanya, memfitnahnya, ia tidak pernah memarahiku sedikitpun, ia mendatangiku dengan membawa makanan setiap pagi, ia begitu mulia.... Pengemis Yahudi buta tersebut akhirnya bersyahadat dihadapan Abubakar r.a.

Lihat artikel yang terkait :
KEUTAMAAN SHOLAT DHUHA

MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC


Bagi anda yang sering memanfaatkan kalkulator yang merupakan bagian adri aksesoris Windows, mungkin pernah berkeinginan untuk membuat kalkulator sendiri dan mungkin pula keinginan anda tersebut belum terwujud, karena anda belum tahu cara membuatnya.
          Dengan Tip berikut ini, anda akan dapat mewujudkan keinginan tersebut, karena membuat kalkulator dengan visual basic tidak sesulit bayangan anda.
1.     Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

kalkulator dengan vb


2.      Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.
3.     Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.


kalkulator dengan vb

4.     Kemudian atur properti caption untuk commandButton sehingga tampilannya menjadi seperti berikut.  


form kalkulator dengan vb

5.     Agar kalkulator dapat dioperasikan, tambahkan sepuluh buah commanButton baru.
program aplikasi kalkulator dengan vb 6.0
6.     Atur properti kontrol TextBox dan CommandButton baru seperti berikut.  

Kontrol
Properti

Text1
Text

Command2
Name
Caption
Koma
.
Command3
Name
Caption
AC
AC
Command4
Name
Caption
Tambah
+
Command5
Name
Caption
Kurang
-
Command6
Name
Caption
Tanda
+/-
Command7
Name
Caption
Bagi
/
Command8
Name
Caption
Kali
x
Command9
Name
Caption
Akar
Akar
Command10
Name
Caption
Hasil
=l
Command11
Name
Caption
Kuadrat
X^2

7.     Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :
membuat program kalkulator dengan visual basic
8.     Buka jendela kode, lalu ketikkan kode berikut ini:
Private pilihan As String
Private x As Double
Private y As Double

Private Sub AC_Click()
Text1.Text = ""
y = x = 0
Tanda.Enabled = False
End Sub

Private Sub Akar_Click()
If x < 0 Then
Text1.Text = "Angka Tidak Boleh Negatif Coy"
Else
Text1.Text = Sqr(x)
End If
End Sub

Private Sub Bagi_Click()
Text1.Text = ""
pilihan = "bagi"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
x = Text1.Text
Tanda.Enabled = True
End Sub

Private Sub Form_Load()
Tanda.Enabled = False
End Sub

Private Sub Hasil_Click()
If pilihan = "tambah" Then
x = y + x
Text1.Text = x
ElseIf pilihan = "kurang" Then
x = y - x
Text1.Text = x
ElseIf pilihan = "kali" Then
x = y * x
Text1.Text = x
ElseIf pilihan = "bagi" And x <> 0 Then
x = y / x
Text1.Text = x
Else
Text1.Text = "Tidak Terdefinisi"
End If
End Sub

Private Sub Kali_Click()
Text1.Text = ""
pilihan = "kali"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Koma_Click()
If Text1.Text = "" Then
Text1.Text = "0."
Else
Text1.Text = Text1.Text & "."
End If
End Sub

Private Sub Kuadrat_Click()
Text1.Text = x ^ 2
End Sub

Private Sub Kurang_Click()
Text1.Text = ""
pilihan = "kurang"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Tambah_Click()
Text1.Text = ""
pilihan = "tambah"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Tanda_Click()
If x < 0 Then
Text1.Text = -x
x = -x
Else
Text1.Text = "-" & Text1.Text
x = -x
End If
End Sub

 9.     Selamat Mencoba.....! dan jangan berhenti belajar program karena program itu       mengasyikkan.

Lihat Artikel yang terkait :

MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC

MEMBUATPROGRAM PORT PARALEL LED BERJALAN DENGAN VB


MEMBUAT GRAFIK DENGAN MATLAB


Salah satu kelebihan dari Matlab adalah kemudahan dalam mengolah grafik. Sehingga kita tidak perlu kesulitan untuk melihat suatu respon system.
          Command Plot
     >> Plot (X,Y,’ro’)
     >> Plot (Nilai fungsi,fungsi,’warna_garis/data_point’)
          Colors : b(blue), r(red), g(green), y(yellow), m(magenta),
                      c(cyan), k(black)
          Markers : (o),(x),(*),(.),(+),(d),(s),(p),(h)
          Line Style : (-),(:),(-.),(- -),
Contoh grafik cosinus terhadap waktu. Kali ini kita akan mencoba menggunakan area kerja di M-file.
Contoh 1:
Sekarang ketikkan:
t= [0:0.01:10];
x = cos(t);
plot(t,x,'b--');
xlabel('Waktu(s)');
ylabel('x(t)');
grid;
title('Grafik Cosinus');
ini akan menghasilkan gambar seperti berikut:

grafik cosinus dengan matlab
Contoh 2  : Menampilkan 2 grafik dalam 1 bidang
Sekarang ketikkan:
t= [0:0.01:10];
x = cos(t);
y = sin (t);
plot(t,x,'b--')
hold on
plot(t,y,'r--')
hold on
xlabel('Waktu(s)')
ylabel('Amplitudo')
grid
title('Grafik Sinus & Cosinus')
ini akan menghasilkan gambar seperti berikut:

Contoh 3 : Menampilkan 2 grafik dalam 2 bidang (terpisah)
Sekarang ketikkan:
t= [0:0.01:10];
x = cos(t);
y = sin (t);
subplot(2,1,1)
plot(t,x,'b--')
grid on
xlabel('Waktu(s)')
ylabel('Amplitudo')
title('Grafik Sinus ')
subplot(2,1,2)
plot(t,y,'r--')
grid on
xlabel('Waktu(s)')
ylabel('Amplitudo')
grid on
title('Grafik Cosinus')
ini akan menghasilkan gambar seperti berikut:
grafik terpisah dengan matlab
Matlab juga bisa menampilkan grafik 3 dimensi :
Sekarang ketikkan :
t= [0:0.01:10];
plot3(t,4*t,sin(t))
grid
xlabel('Waktu(s)')
ylabel('Amplitudo')
title('Grafik Sinus ')
ini akan menghasilkan gambar seperti berikut:
grafik 3 dimensi dengan matlab
Selamat Mencoba.......!

PENYELESAIAN MATRIKS DENGAN MATLAB


Contoh Soal:
1.      Buatlah matriks A dan B ordo 4x4, dan tentukan :
a.     Invers matriks A dan B
b.     A x (B – 1)
c.     Invers A x B
d.     A2
e.     Elemen matriks A dan B dengan 4
f.      Pangkatkan dengan 2 setiap matriks A dan B
g.     Determinan matriks A dan B
Jawab :
>> A=[ 6 5 8 7 ; 4 6 7 4 ; 3 4 2 8 ; 8 4 6 2 ]
A =
     6     5     8     7
     4     6     7     4
     3     4     2     8
     8     4     6     2
>> B=[ 5 4 6 7 ; 5 7 8 9 ; 8 6 4 2 ; 8 7 4 6 ]
B =
     5     4     6     7
     5     7     8     9
     8     6     4     2
     8     7     4     6
a.    Invers matriks A dan B
>> inv(A)
ans =
   -0.0525   -0.1377    0.0623    0.2098
   -0.3902    0.3508    0.1508    0.0607
    0.2820   -0.0098   -0.2098   -0.1279
    0.1443   -0.1213    0.0787   -0.0770
>> inv(B)
ans =
    0.2809   -0.2697    0.0618    0.0562
   -0.4944    0.3146    0.0112    0.1011
    0.1180    0.1067    0.2360   -0.3764
    0.1236   -0.0787   -0.2528    0.2247
b.    A x (B – 1)
>> A*(B-1)
ans =
   149   130   110   119
   117   107    95     99
    98     91     73     92
   104    90     92     96
c.    Invers A x B
>> inv(A)*B
ans =
    1.2262    0.6689   -0.3279   -0.2230
    1.4951    2.2246    1.3115    1.0918
   -1.3410   -1.0951    0.2623    0.6984
    0.1279   -0.3393   -0.0984   -0.3869
d.    A2
>> A^2
ans =
   136   120   141   140
   101   100   112   116
   104    79    104    69
    98     96    116   124
e.    Elemen matriks A dan B dengan 4
>> A=[ 4 4 4 4 ; 4 4 4 4 ; 4 4 4 4 ; 4 4 4 4 ]
A =
     4     4     4     4
     4     4     4     4
     4     4     4     4
     4     4     4     4
>> B=[ 4 4 4 4 ; 4 4 4 4 ; 4 4 4 4 ; 4 4 4 4 ]
B =
     4     4     4     4
     4     4     4     4
     4     4     4     4
     4     4     4     4
f.     Pangkatkan dengan 2 setiap matriks A dan B
>> A.^2
ans =
    16    16    16    16
    16    16    16    16
    16    16    16    16
    16    16    16    16
>> B.^2
ans =
    16    16    16    16
    16    16    16    16
    16    16    16    16
    16    16    16    16
g.    Determinan matriks A dan B
>> det A
ans =
    65
>> det B
ans =
    66