منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم جميعاً
المشروع باختصار هو برنامج يعرض لي حكمه يوميه من ملف نصي موجود في الـ  Setting بحيث يحتوى على365 يوم و حكمه او مقوله تحفيزيه ي تتغير يومياً بحسب الموجود في الملف و على مدار سنه كامله وبشكل يومي مرفق لكم نموذج المشروع والفكره من لديه اضافه او أفكار جديده ممكن يشاركنا لتعم الفائده على الجميع طبعاً اريد المساعده للمشروع حيث :


فيه نقص حالياُ لايقوم بعرض الحكم بشكل يومي حيث لدى اربع مقولات ولاتعرض الا اثنتين فقط اريد مساعده في اللمسات الاخيره



على المشروع ويكون جاهز والتي اريدها ان تكون كاالاتي ان امكن:

1- - الحكمه تكون في وسط السطر ان امكن داخل التكس بوكس.

2- - حجم الكتابه للنص للحكمه كبير وعريض وملون ان امكن داخل التكس بوكس .

3- - النص للحكمه يكون متحرك ان امكن داخل التكس بوكس .

4- خلفيه ملونه داخل التاكس بوكس ان امكن .






اشكر الأخ / عاصم
كما اشكرالاخ/ عبدالعزيز البسكري

كلهما ساعدوني وتبقى القليل وشكراً

من لديها طرق اخر ممكن يوضحها لنا وشكراً

كان لديك الحل في هذه المشاركة #9

صحيح يااخي / جميل

ولكن مامشى الحال وقد جربت الطريقه نفسها فقط يعرض لي حكمتين فقط الاولى والثانيه ويرجع من جديد على الرغم من وجود 4 حكم فمش عارف ايش الناقص وملف المشروع موجود في المرفق او في نفس مشاركه الصفحه الذي قام بارسالها الاخ/ عاصم مشكور .

مااقصده عزيزي جميل نفس فكره التقويم كل يوم جديد من بعد الساعه 12 ليلاً حكمه جديده من الحكم الموجوده في الملف النصي وهكذا على مدار السنه لمده 12شهر لجميع السنوات بحيث تكون 365 حكمه تعرض الياً وبشكل يومي هذي هي الفكره نفس فكره الاستاذ / عبدالعزيز البسكري ولكن دزن ارتباط بقاعده بيانات.
الشكر لك يااخي واعذروني جميعاً ومن لديه فكره او اضافه افضل اكون شاكر لكم جميعاً .

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

---

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

(25-01-20, 08:50 PM)جميل5 كتب : [ -> ]كان لديك الحل في هذه المشاركة #9

جميل جدا?

(25-01-20, 08:50 PM)جميل5 كتب : [ -> ]كان لديك الحل في هذه المشاركة #9

جميل جدا?

---

(25-01-20, 08:50 PM)جميل5 كتب : [ -> ]كان لديك الحل في هذه المشاركة #9

جميل جدا?

(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 


---

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

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

كيف يمكن تغيير طريقه عرض الحكمة من الشمال الى اليمين  .

عدل الكود في التايمر الى :