Syukur bila ada yang bisa menjalankan sourcecode ini setiap harinya, semoga seumur hidup kita selalu berlimpah barokah ALLAH... Amiennn...
JazakaLLAH...
===start of file===
Private Sub salahSatuKewajiban(ByVal manusia as Object, ByVal niat as EventArgs)
try
dim love as single
if (you love ALLAH) is true
then
ALLAH will love you doubled
redim love as doubled
end if
for (everything you do)
if (ikhlas) is true
then
ALLAH will doubled it again
else ALLAH still love you
end if
next
sholat= New adzanPanggilan(sholat)
sholat.Open()
salam= New SqlCommand("select * from bagianSholat where 'tanda' = 'pertanda penutup sholat', sholat).ExecuteReader
While salam.Read
Dim x As Doa= New Doa(edr.Item(0).ToString, salam.Item(1).ToString)
Harapan.Items.Add(x)
End While
salam.Close()
sholat.Close()
Catch riwayatSahabatdanUlama As BingungException
MsgBox(riwayatSahabatdanUl
Catch As-Sunah As BimbangException
MsgBox(As-Sunah .Message)
Catch Al-Hadist As RaguException
MsgBox(Al-Hadist .Message)
Catch Al-Qur'an As PalingMeyakinkanException
MsgBox(Al-Qur'an.Message)
End Try
End sub
===end of file===
0 komentar:
Post a Comment