[محمد مسافر]

(26-01-20, 11:34 AM)asemshahen5 كتب :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lines() = My.Resources.textfile.Split(vbNewLine)
        If My.Settings.TodayDate = Date.Now.ToString("yyyy-MM-dd") Then
            If My.Settings.HekmaID > lines.Count - 1 Then
                My.Settings.HekmaID = 0
                My.Settings.Save()
            End If
            'ضع كود عرض حكمة اليوم'
            Dim hekma = lines(My.Settings.HekmaID)
            TextBox1.Text = hekma
        ElseIf My.Settings.TodayDate <> Date.Now.ToString("yyyy-MM-dd") Then
            'ضع كود عرض حكمة اليوم +1'
            My.Settings.HekmaID = My.Settings.HekmaID + 1
            If My.Settings.HekmaID > lines.Count - 1 Then
                My.Settings.HekmaID = 0
                My.Settings.Save()
            End If
            My.Settings.TodayDate = Date.Now.ToString("yyyy-MM-dd")
            My.Settings.Save()
            Dim hekma = lines(My.Settings.HekmaID)
            TextBox1.Text = hekma
        End If
    End Sub 


أو ضعه في فانكشن في مديول البرنامج كالتالي :

PHP كود :

   Public Function Loadhekmah() As String
        Dim StrHekmah As String = String.Empty
        Dim lines() = My.Resources.textfile.Split(vbNewLine)
        If My.Settings.TodayDate = Date.Now.ToString("yyyy-MM-dd") Then
            If My.Settings.HekmaID > lines.Count - 1 Then
                My.Settings.HekmaID = 0
                My.Settings.Save()
            End If
            'ضع كود عرض حكمة اليوم'
            Dim hekma = lines(My.Settings.HekmaID)
            ''TextBox1.Text = hekma
            StrHekmah = hekma
            Return StrHekmah
        ElseIf My.Settings.TodayDate <> Date.Now.ToString("yyyy-MM-dd") Then
            'ضع كود عرض حكمة اليوم +1'
            My.Settings.HekmaID = My.Settings.HekmaID + 1
            If My.Settings.HekmaID > lines.Count - 1 Then
                My.Settings.HekmaID = 0
                My.Settings.Save()
            End If
            My.Settings.TodayDate = Date.Now.ToString("yyyy-MM-dd")
            My.Settings.Save()
            Dim hekma = lines(My.Settings.HekmaID)
            ''TextBox1.Text = hekma
            StrHekmah = hekma
            Return StrHekmah
        End If
        Return StrHekmah
    End Function 


كود الاستخدام :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Loadhekmah()
    End Sub 


---

هذا مثالك بعد إضافة ماتريد و الله الموفق .

كل الشكر والاحترام لك استاذي/ عاصم فلك الفضل الكبير بعد الله على دعمكم لما طلبته .
تحياتي لك