[ابو روضة]

(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)

الله يكرم اصلك اخى سعود....

حضرتك انا اريده بالويب براوزر مش بالبكيتشر بوكس بمعنى أريد البرنامج أول فتحه يظهر

هذه المدونة فى الويب براوزر https://samahersami.blogspot.com.eg/ وينتظر وقت احدده انا لى

ثم يختفى الويب براوزر ويظهر برنامجى مثل المثال المرفق لكنى أريد ان أحدد أنا كم مرة ستظهر

المدونة فى اليوم يعنى اكون عارف الطريقة عشان اكون فاهم انا بعمل ايه فمثلا اريدها ان تظهر

مرة واحدة فقط فى ال 24 ساعة فكيف ؟ يعنى حينما تفعلها قل لى مثلا اذا اردتها ان تظهر

مرتين فقم بعمل كذا فى المثال المرفق..فهمتنى أكيد ؟ لآن هذه الطريقة لم أجربها من قبل

---

(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

---

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

أنظر لردى اخى على الأخ سعود لانى اريدها بفورم واحد فقط..

ماذا تعنى العشر ساعات هنا فى الكود تبعك لو سمحت ؟

بالنسبة للكتاب اقسم بالله أنا لم انزله على الانترنت لآن الحقوق لدار نشر

لكن عندى نسخ لى فى البيت فقل لى الطريقة وسأرسله لك على العنوان إن شاء الله