(07-09-17, 06:20 AM)سعود كتب : اظن الفكرة هي تماما مثل فكرة نافذة .....صح او لا؟
يعني هل المدونة يتم تحميلها في نافذة في البرنامج؟
اذا نعم الامر بسيط يتبقى مسالة الرغبة لديك حول كيفية تخزين القيمة التي تدل على الاستخدام لاول مرة او لاكثر.
منتظر...

(07-09-17, 07:09 AM)سعود كتب : فقط كبداية وليس كل الاكواد مهمة فقط حشو

انتظر ردك لافضل من هذا.

كود :

Public Class MyApp
   Dim lo As Point = New Point(119, 130)
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label2.Text = TimeString
       Select Case Label3.ForeColor
           Case Color.Black
               Label3.ForeColor = Color.Blue
           Case Color.Blue
               Label3.ForeColor = Color.Black
       End Select
   End Sub

   Private Sub MyApp_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       Dim m As Integer = My.Settings.I
       m += 1
       My.Settings.I = m
       My.Settings.Save()
   End Sub

   Private Sub setpic(ByVal h As Boolean)
       If h Then
           PictureBox1.Location = New Point(lo)
       Else
           PictureBox1.Top = Me.Bottom
       End If
   End Sub

   Private Sub MyApp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim m As Integer = My.Settings.I
       If m Mod 2 = 0 Then
           setpic(True)
       Else
           setpic(False)
       End If
   End Sub
   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
       Label4.Visible = True
       Timer2.Interval = 1
       PictureBox1.Top += 10
   End Sub
   Private Sub PictureBox1_Move(sender As Object, e As EventArgs) Handles PictureBox1.Move
       Label4.Text = PictureBox1.Top
       If PictureBox1.Bottom >= Me.Bottom Then
           Timer2.Stop()
       End If
   End Sub
End Class

الفكرة حول مربع صورة اما تختفي اسفل الفورم او تظهر بناء على قيمة في الـ settings .
قد تريد افضل من هذا  لان وفق هذه الفكرة  مرة تظهر ومرة لا تظهر 
عند بدء تحميل الفورم  يتم كشف  ....انظر للمثال او الكود

---

---

هذا احسن عملت فكرة تخزين تاريخ اليوم بملف نصي...شوف المثال

كود :

       Dim t As String = My.Computer.FileSystem.ReadAllText("t.txt")
       If t.Contains(Now.Date.ToShortDateString) = True Then
           setpic(True)
       Else
           setpic(False)
       End If
       t = Now.Date.ToShortDateString & vbNewLine
       My.Computer.FileSystem.WriteAllText("t.txt", t, False)

PHP كود :

Private Sub setpic(ByVal h As Boolean)
        If h = False Then
            PictureBox1.Location = New Point(lo)
        Else
            PictureBox1.Top = Me.Bottom
        End If
    End Sub 


انظر لحدث تحميل الفورم وللاجراء هذا فقط

---

اعلى محرر الفورم

كود :

   Dim lo As Point = New Point(119, 130)

(07-09-17, 08:13 AM)ola كتب : انشئ مفتاح وسمه lastrun من نوع Date في قسم Sittings


وضع هذا الكود في بداية التشغيل

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   'قراءة وقت التشغيل السابق
   If DateDiff(DateInterval.Hour, My.Settings.lastrun, Now) > 10 Then '10 ساعات
       Form2.ShowDialog() 'قتح فورم المدونة
   End If
   My.Settings.lastrun = Now 'احتفظ بوقت التشغيل الحالي

End Sub

---

طلب
هل يمكن أن أحصل هلى نسخة مجانية من كتاب كن إيجابياً تأليف سامي أبو سريع

(07-09-17, 09:57 AM)سعود كتب : الكود الاخير  يظهر المدونة(الصورة) مرة واحد باليوم ويخزن التاريخ بملف نصي.
ولو تريد اكثر من مرة باليوم فيمكن تدمج الفكرة الاولى مع الفكرة الثانية او ممكن تشوف طريقة افضل من كل اللي سويت.
او لو تحب تستخدم قاعدة بيانات عشان تنظم اكثر بيكون حلو.
يعني مثلا تسوي ملف قاعدة وتحط كم عمود مثلا .
showtimes_perday
tdate
الاولى رقمي والاخرى تاريخ.
و ممكن تضيف ايضا اعمدة تبين صلاحيات المستخدم الحالي ولما تنتهي من تصميم الجدول تضيفه الى الريسورس بالبرنامج عشان تستخرجه كل ماتفقد او المستخدم يفقد ملف القاعدة.(او ممكن تنشيء ملف القاعدة بالكود وجداولها كذلك)
يعني انت تريد بدل مربع الصورة ويب براوزر ؟
الامر بسيط ضع  اي اداة تحكم وتحكم بها بنفس الطريقة.

ولو فيه تفاصيل اخرى اكتبها لعل وعسى ننفذها جميعا.
الان ارجو انك تفتح مفكرة بجهازك وترتب الافكار عشان اقدر افيدك قدر الامكان يعني مثلا:

• كود انشاء قاعدة بيانات اكسس.
  
• كود انشاء الجداول.
  
• كود انشاء الاعمدة
  
• كود التحقق من وجود ماتم ذكره
  
• ثم بعد ذلك ياتي دور فكرتنا الحالية.
  

القصد كما قلت ان تبدا بتطبيق الافكار خطوة خطوة  وبالراحة.
وفي حالتنا هذه  الفكرة الجوهرية هي باظهار تحكم معين ايا كان (مربع صورة - ويب براوزر-بانل) وماهي فارقة هذي او هذي...لاننا لسنا بصدد تحميل الويب براوزر برابط معين هذا انت تعرفه فقط شغل تفنن يعني انا اسوي شي ونت تسوي شي ثاني بناء على مااتضح من افكار.
ممكن ايضا تستخدم Usercontrol  تحتضنها بواسطة بانل وتلغيها وتضع مكانها تحكم اخر.
حاول تجهز قائمة بالافكار التي تؤدي المطلوب الذي تحتاجه حتى نقراها ولن نكتب كود واحد الا بعد اتمامها ولو تاخرنا بالرد.

(15-01-18, 12:28 AM)عبدالله الدوسري كتب : أمرك غريب , تم الرد سابقاُ بالحل من قبل العضو ola ,, منذ اربع اشهر ,, 

(15-01-18, 12:53 AM)طالب برمجة كتب : استخدم Setting لحفظ آخر تاريخ تم فتحه
ثم أختبار تاريخ اليوم فإن توافق مع المحفوظ في Setting هذا يعني أنه سبق فتح المدونة
واإذلا يحفظ التاريخ اليوم في Setting ثم يكمل عمل البرنامج

هذه هي الفكرة