محتاج اعرف كود بسيط
الكود ينفذ الامر كذالك
عندي فورم وبوتن محتاج الكود يضغط ع البوتن كل 5 دقائق
وثاني كود يضغط ع البوتن في وقت انا حدد له بناءعلي الساعه والتاريخ في الجهاز يعني
وشكرا مقدمااا لكم
اضف اداة الوقت Timer
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
Timer1.Start()
End Sub
كود :
Dim i As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'300000
i += 1
Label1.Text = i
If i = 10 Then
i = 0
Button1.PerformClick()
End If
End Sub
سيتم النقر على الزر بعد مرور 10 ثواني وان اردته بعد 5 دقائق فاستبدل الــ 10 بــ
300000
(18-07-19, 02:49 AM)سامي محمد كتب : [ -> ]اضف اداة الوقت Timer
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
Timer1.Start()
End Sub
كود :
Dim i As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'300000
i += 1
Label1.Text = i
If i = 10 Then
i = 0
Button1.PerformClick()
End If
End Sub
سيتم النقر على الزر بعد مرور 10 ثواني وان اردته بعد 5 دقائق فاستبدل الــ 10 بــ 300000
شكرا لك متألق دائما ولكن هذه الاكواد تكون في البوتن كليك ولا في حدث الفورم لود ولا في التايمر
بمجرد تشغيل البرنامج سيتم تشغيل المؤقت وعند مرور 10 ثوي يتم النقر على الزر
و بالنسبة للتحديد الوقت فاضف ادات : DateTimePicker واضبط خاصية Format = Time
وضع مؤقت آخر اواضبط خاصية الـــ Interval=1000
كود :
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If Now >= DateTimePicker1.Value Then
Button1.PerformClick()
End If
End Sub
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer2.Start()
End Sub
عندما تحدد الوقت بعد ساعة او ساعتان او .... عند انتهاء الوقت سيتم النقر على الزر