تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مقوله تحفيزيه يوميه
#1
Rainbow 
السلام عليكم جميعاً
المشروع باختصار هو برنامج يعرض لي حكمه يوميه من ملف نصي موجود في الـ  Setting بحيث يحتوى على365 يوم و حكمه او مقوله تحفيزيه ي تتغير يومياً بحسب الموجود في الملف و على مدار سنه كامله وبشكل يومي مرفق لكم نموذج المشروع والفكره من لديه اضافه او أفكار جديده ممكن يشاركنا لتعم الفائده على الجميع طبعاً اريد المساعده للمشروع حيث :


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



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

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

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

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

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






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

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

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


الملفات المرفقة
.rar   حكمه اليوم.rar (الحجم : 82.25 ك ب / التحميلات : 92)
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
#2
كان لديك الحل في هذه المشاركة #9
الرد }}}
#3
صحيح يااخي / جميل

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

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


الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
PHP كود :
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles MyBase.Load
        TextBox1
.Text Loadhekmah()
 
   End Sub 

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


الملفات المرفقة
.zip   حكمه اليوم.zip (الحجم : 88.56 ك ب / التحميلات : 77)
الرد }}}
تم الشكر بواسطة: محمد مسافر , alshandodi , tryold , tryold , ابراهيم ايبو
#5
Wink 
(25-01-20, 08:50 PM)جميل5 كتب : كان لديك الحل في هذه المشاركة #9

جميل جدا?
الرد }}}
تم الشكر بواسطة:
#6
Wink 
(25-01-20, 08:50 PM)جميل5 كتب : كان لديك الحل في هذه المشاركة #9

جميل جدا?

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

جميل جدا?
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#7
(26-01-20, 11:34 AM)asemshahen5 كتب :
PHP كود :
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles MyBase.Load
        TextBox1
.Text Loadhekmah()
 
   End Sub 

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

كل الشكر والاحترام لك استاذي/ عاصم فلك الفضل الكبير بعد الله على دعمكم لما طلبته .
تحياتي لك
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة: asemshahen5 , alshandodi , ابراهيم ايبو
#8
الْحَمْدُ لِلَّهِ و الشكر لِلَّهِ رَبِّ الْعَالَمِينَ .
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , محمد مسافر
#9
كيف يمكن تغيير طريقه عرض الحكمة من الشمال الى اليمين  .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة: asemshahen5
#10
عدل الكود في التايمر الى :

PHP كود :
   Private Sub Timer1_Tick(sender As ObjectAs EventArgsHandles 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(01)
 
       ''    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 
الرد }}}


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم