+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] مقوله تحفيزيه يوميه (/showthread.php?tid=33128)
الصفحات:
1
2
مقوله تحفيزيه يوميه - محمد مسافر - 25-01-20
السلام عليكم جميعاً
المشروع باختصار هو برنامج يعرض لي حكمه يوميه من ملف نصي موجود في الـ Setting بحيث يحتوى على365 يوم و حكمه او مقوله تحفيزيه ي تتغير يومياً بحسب الموجود في الملف و على مدار سنه كامله وبشكل يومي مرفق لكم نموذج المشروع والفكره من لديه اضافه او أفكار جديده ممكن يشاركنا لتعم الفائده على الجميع طبعاً اريد المساعده للمشروع حيث :
فيه نقص حالياُ لايقوم بعرض الحكم بشكل يومي حيث لدى اربع مقولات ولاتعرض الا اثنتين فقط اريد مساعده في اللمسات الاخيره
على المشروع ويكون جاهز والتي اريدها ان تكون كاالاتي ان امكن:
1- - الحكمه تكون في وسط السطر ان امكن داخل التكس بوكس.
2- - حجم الكتابه للنص للحكمه كبير وعريض وملون ان امكن داخل التكس بوكس .
3- - النص للحكمه يكون متحرك ان امكن داخل التكس بوكس .
4- خلفيه ملونه داخل التاكس بوكس ان امكن .
اشكر الأخ / عاصم
كما اشكرالاخ/ عبدالعزيز البسكري
كلهما ساعدوني وتبقى القليل وشكراً
من لديها طرق اخر ممكن يوضحها لنا وشكراً
RE: مقوله تحفيزيه يوميه - جميل5 - 25-01-20
كان لديك الحل في هذه المشاركة #9
RE: مقوله تحفيزيه يوميه - محمد مسافر - 26-01-20
صحيح يااخي / جميل
ولكن مامشى الحال وقد جربت الطريقه نفسها فقط يعرض لي حكمتين فقط الاولى والثانيه ويرجع من جديد على الرغم من وجود 4 حكم فمش عارف ايش الناقص وملف المشروع موجود في المرفق او في نفس مشاركه الصفحه الذي قام بارسالها الاخ/ عاصم مشكور .
مااقصده عزيزي جميل نفس فكره التقويم كل يوم جديد من بعد الساعه 12 ليلاً حكمه جديده من الحكم الموجوده في الملف النصي وهكذا على مدار السنه لمده 12شهر لجميع السنوات بحيث تكون 365 حكمه تعرض الياً وبشكل يومي هذي هي الفكره نفس فكره الاستاذ / عبدالعزيز البسكري ولكن دزن ارتباط بقاعده بيانات.
الشكر لك يااخي واعذروني جميعاً ومن لديه فكره او اضافه افضل اكون شاكر لكم جميعاً .
RE: مقوله تحفيزيه يوميه - asemshahen5 - 26-01-20
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
هذا مثالك بعد إضافة ماتريد و الله الموفق .
RE: مقوله تحفيزيه يوميه - ثعلب الصحراء - 26-01-20
(25-01-20, 08:50 PM)جميل5 كتب : كان لديك الحل في هذه المشاركة #9
جميل جدا?
RE: مقوله تحفيزيه يوميه - ثعلب الصحراء - 26-01-20
(25-01-20, 08:50 PM)جميل5 كتب : كان لديك الحل في هذه المشاركة #9
جميل جدا?
(25-01-20, 08:50 PM)جميل5 كتب : كان لديك الحل في هذه المشاركة #9
جميل جدا?
RE: مقوله تحفيزيه يوميه - محمد مسافر - 26-01-20
(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
هذا مثالك بعد إضافة ماتريد و الله الموفق .
كل الشكر والاحترام لك استاذي/ عاصم فلك الفضل الكبير بعد الله على دعمكم لما طلبته .
تحياتي لك
RE: مقوله تحفيزيه يوميه - asemshahen5 - 26-01-20
الْحَمْدُ لِلَّهِ و الشكر لِلَّهِ رَبِّ الْعَالَمِينَ .
RE: مقوله تحفيزيه يوميه - محمد مسافر - 07-02-20
كيف يمكن تغيير طريقه عرض الحكمة من الشمال الى اليمين .
RE: مقوله تحفيزيه يوميه - asemshahen5 - 15-02-20
عدل الكود في التايمر الى :
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