منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل كود تنبيه بوقت محدد كل يوم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود تنبيه بوقت محدد كل يوم (/showthread.php?tid=21096)



تعديل كود تنبيه بوقت محدد كل يوم - hglogtd - 17-07-17

السلام عليكم 


يعطيكم العافيه ... 


عندي كود تنبيه بوقت محدد كل يوم واحتاج تعديله بحيث يعطي رسالة انه وقت الصلاة ويكون الفورم متوقف تماماً وبعد 30 دقيقه يتم الغاء تجميد 

ابيه كود برمجي وليس بأداة DateTimePicker1



كود :
 If TimeOfDay = DateTimePicker1.Text Then

           Label9.Text = "وقت الصلاة!"
           'System.Threading.Thread.Sleep(3000) '.
           Label9.ForeColor = Color.White
           Label9.BackColor = Color.Red
           Label9.Text = Mid(Label9.Text, Len(Label9.Text)) & Mid(Label9.Text, 1, Len(Label9.Text) - 1)


           If Label9.Left = 150 Then
               Label9.Left = 40
           Else

               Label9.Left = Label9.Left + 0
           End If


       End If



   End Sub