20-06-23, 07:50 PM
PHP كود :
Public Class Form1
Dim pics As New List(Of String)
Dim apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\"
Dim athkar As New List(Of String)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If IO.Directory.Exists(apath & "makkah") Then
pics.AddRange(IO.Directory.GetFiles(apath & "makkah"))
athkar.AddRange(New String() {"سبحان الله", "الحمدلله", "لا اله الا الله", "الله اكبر"})
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
Timer1.Enabled = sender.checked
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim index As Integer = Int(Rnd() * pics.Count)
If index >= pics.Count Then Exit Sub
Dim pic As String = pics(index)
If IO.File.Exists(pic) Then
Me.PictureBox1.ImageLocation = pic
picl.Text = pic
End If
Dim t As Integer = Int(Rnd() * athkar.Count)
If t >= athkar.Count Then Exit Sub
Dim s As String = athkar(t)
lbl.Text = s
End Sub
End Class
لا جديد فقط حبيت اعمل الفكرة فيه مشروع به الصور وهو ذو الحجم الكبير بينما الاخر لا يحتوي اي صور
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير