منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار بسيط و ارجو من حضراتكم المشاركه - نسخة قابلة للطباعة

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

استفسار بسيط و ارجو من حضراتكم المشاركه - bakriano30@yahoo.com - 18-07-19

محتاج اعرف كود بسيط 
الكود ينفذ الامر كذالك 
عندي فورم وبوتن محتاج الكود يضغط ع البوتن كل 5 دقائق 
وثاني كود يضغط ع البوتن في وقت انا حدد له بناءعلي الساعه والتاريخ في الجهاز يعني 
وشكرا مقدمااا لكم

RE: استفسار بسيط و ارجو من حضراتكم المشاركه - سامي محمد - 18-07-19

اضف اداة الوقت 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

RE: استفسار بسيط و ارجو من حضراتكم المشاركه - bakriano30@yahoo.com - 18-07-19

(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

شكرا لك متألق دائما ولكن هذه الاكواد تكون في البوتن كليك ولا في حدث الفورم لود ولا في التايمر

RE: استفسار بسيط و ارجو من حضراتكم المشاركه - سامي محمد - 18-07-19

بمجرد تشغيل البرنامج سيتم تشغيل المؤقت وعند مرور 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


عندما تحدد الوقت بعد ساعة او ساعتان او .... عند انتهاء الوقت سيتم النقر على الزر