25-01-20, 04:40 AM (آخر تعديل لهذه المشاركة : 25-01-20, 04:43 AM {2} بواسطة محمد مسافر.)
السلام عليكم جميعاً المشروع باختصار هو برنامج يعرض لي حكمه يوميه من ملف نصي موجود في الـ Setting بحيث يحتوى على365 يوم و حكمه او مقوله تحفيزيه ي تتغير يومياً بحسب الموجود في الملف و على مدار سنه كامله وبشكل يومي مرفق لكم نموذج المشروع والفكره من لديه اضافه او أفكار جديده ممكن يشاركنا لتعم الفائده على الجميع طبعاً اريد المساعده للمشروع حيث :
فيه نقص حالياُ لايقوم بعرض الحكم بشكل يومي حيث لدى اربع مقولات ولاتعرض الا اثنتين فقط اريد مساعده في اللمسات الاخيره
على المشروع ويكون جاهز والتي اريدها ان تكون كاالاتي ان امكن:
1- - الحكمه تكون في وسط السطر ان امكن داخل التكس بوكس.
2- - حجم الكتابه للنص للحكمه كبير وعريض وملون ان امكن داخل التكس بوكس .
3- - النص للحكمه يكون متحرك ان امكن داخل التكس بوكس .
4- خلفيه ملونه داخل التاكس بوكس ان امكن .
اشكر الأخ / عاصم كما اشكرالاخ/ عبدالعزيز البسكري
كلهما ساعدوني وتبقى القليل وشكراً
من لديها طرق اخر ممكن يوضحها لنا وشكراً
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
ولكن مامشى الحال وقد جربت الطريقه نفسها فقط يعرض لي حكمتين فقط الاولى والثانيه ويرجع من جديد على الرغم من وجود 4 حكم فمش عارف ايش الناقص وملف المشروع موجود في المرفق او في نفس مشاركه الصفحه الذي قام بارسالها الاخ/ عاصم مشكور .
مااقصده عزيزي جميل نفس فكره التقويم كل يوم جديد من بعد الساعه 12 ليلاً حكمه جديده من الحكم الموجوده في الملف النصي وهكذا على مدار السنه لمده 12شهر لجميع السنوات بحيث تكون 365 حكمه تعرض الياً وبشكل يومي هذي هي الفكره نفس فكره الاستاذ / عبدالعزيز البسكري ولكن دزن ارتباط بقاعده بيانات.
الشكر لك يااخي واعذروني جميعاً ومن لديه فكره او اضافه افضل اكون شاكر لكم جميعاً .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
26-01-20, 11:34 AM (آخر تعديل لهذه المشاركة : 26-01-20, 12:32 PM {2} بواسطة 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
هذا مثالك بعد إضافة ماتريد و الله الموفق .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
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
هذا مثالك بعد إضافة ماتريد و الله الموفق .
كل الشكر والاحترام لك استاذي/ عاصم فلك الفضل الكبير بعد الله على دعمكم لما طلبته .
تحياتي لك
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
15-02-20, 04:07 PM (آخر تعديل لهذه المشاركة : 15-02-20, 04:09 PM {2} بواسطة asemshahen5.)
عدل الكود في التايمر الى :
PHP كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick ''Try '' If _Showing.Count < _textToDisplay.Count And _Showing.Count > 0 Then '' _Showing = _textToDisplay.Substring(0, _Showing.Length + 1) '' ElseIf _Showing.Count < _textToDisplay.Count And _Showing.Count = 0 Then '' _Showing = _textToDisplay.Substring(0, 1) '' ElseIf _Showing.Count < _avrchar Then '' _Showing = " " + _Showing '' Else '' _Showing = "" '' End If '' LblHekmah.Text = _Showing ''Catch ex As Exception '' MsgBox(ex.ToString) ''End Try LblHekmah.Left = LblHekmah.Left + 1 ''If LblHekmah.Right = 0 Then '' LblHekmah.Left = Me.Width + 1 ''End If If LblHekmah.Left = Me.Width Then LblHekmah.Left = -150 End If End Sub
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر