[mounzerlb]

(24-12-13, 11:10 PM)VB_Coder كتب : السلام عليكم

- إستبدل كود الـTimer2 بهذا الكود :

كود :

Dim Now_Time As String
Dim First_Time As String
Dim Second_Time As String

Now_Time = Format$(Now, "hh:mm:ss")
First_Time = Format$(Text1.Text, "hh:mm:ss")
Second_Time = Format$(Text2.Text, "hh:mm:ss")

If Now_Time > First_Time Then
   Shape1.BackColor = &HFFFFFF
End If

If Now_Time >= Second_Time Then
   Shape1.BackColor = &HFF&
   Timer2.Enabled = False
   Exit Sub
End If

- تحياتي .

مشكووور أخي على المساعدة ولكن البرنامج لم يكتمل فيه أخطاء
البرنامج يعمل في حال كان تشغيل والإيقاف في فترة AM أو في فترة PM أما اذا كان التشغيل في فترة pm والإيقاف am فالبرنامج عندها لا يعمل
أما إذا كان التشغيل عند الساعة 22:00:00 ,والإيقاف عند 05:00:00 والوقت الحالي 20:00:00 عندها البرنامج لا يعمل
مره أخرى مشكوور على المساعدة

---

كود :

Private Sub Timer2_Timer()
Dim Now_Time As String
Dim First_Time As String
Dim Second_Time As String

Now_Time = Format$(Now, "hh:mm:ss")
First_Time = Format$(Text1.Text, "hh:mm:ss")
Second_Time = Format$(Text2.Text, "hh:mm:ss")

If Format(Text1.Text, "Am/Pm") = Format(Now, "Am/Pm") Then
If Now_Time > First_Time Then
   Shape1.BackColor = &HFF& '&HFFFFFF
End If
End If

If Format(Text1.Text, "Am/Pm") <> Format(Now, "Am/Pm") Then
If Now_Time < First_Time Then
   Shape1.BackColor = &HFFFFFF
End If
End If

If Format(Text2.Text, "Am/Pm") = Format(Now, "Am/Pm") Then
If Now_Time >= Second_Time Then
   Shape1.BackColor = &HFFFFFF
   'Timer2.Enabled = False
   'Exit Sub
   End If
   If Format(Text2.Text, "Am/Pm") <> Format(Now, "Am/Pm") Then
If Now_Time <= Second_Time Then
   Shape1.BackColor = &HFFFFFF
   'Timer2.Enabled = False
   'Exit Sub
   End If
End If
End If
End Sub

الفكره هكذا وايضا بحاجة الى تعديل