26-12-13, 04:46 AM
السلام عليكم
- جزاك الله كل خير أخي asto على تفانيك في تقديم المساعده للأخوه الأعضاء .
- هذا تعديل للكود الذي وضعته في ردي السابق الخاص بكود ال Timer2 , آمل أن يغطي جميع الإحتمالات :
- تحياتي .
- جزاك الله كل خير أخي asto على تفانيك في تقديم المساعده للأخوه الأعضاء .
- هذا تعديل للكود الذي وضعته في ردي السابق الخاص بكود ال 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 First_Time < Second_Time Then
IF Now_Time >= First_Time And Now_Time < Second_Time Then
Shape1.BackColor = &HFFFFFF
Else
Shape1.BackColor = &HFF&
Timer2.Enabled = False
Exit Sub
End IF
ElseIF First_Time > Second_Time Then
IF Now_Time >= First_Time Or Now_Time < Second_Time Then
Shape1.BackColor = &HFFFFFF
ElseIF Now_Time < First_Time And Now_Time >= Second_Time Then
Shape1.BackColor = &HFF&
Timer2.Enabled = False
Exit Sub
End IF
Else
Shape1.BackColor = &HFF&
Timer2.Enabled = False
Exit Sub
End If- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next