تطبيق إيقاف تشغيل الحاسوب بتحديد الساعة

في هذا الموضوع إن شاء الله سأقدم لكم تطبيق يقوم بإطفاء الحاسوب عن طريق تحديد الساعة التي سيقف فيها الجهاز عن التشغيل. هذا التطبيق مبرمجة بالفيجوال بيسك إليكم صورته :

كما تشاهدون في الصورة أعلاه التطبيق يتكون من خانة النص لإدخال الساعة التي نريد فيها إيقاف تشغيل الحاسوب, زر "موافق" للموافقة على إيقاف التشغيل في الساعة المحددة و كذلك زر "إيقاف" لإيقاف الطلب.
إليكم كود هذا التطبيق :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim timeTxt As String = TextBox1.Text
If timeTxt.Count = 8 Then
If timeTxt.Substring(2, 1) = ":" And timeTxt.Substring(5, 1) = ":" Then
Timer1.Enabled = True
TextBox1.Enabled = False
Button1.Enabled = False
Button2.Enabled = True
Else
MsgBox("شكل الساعة غير صحيح", MsgBoxStyle.Exclamation)
End If
Else
MsgBox("شكل الساعة غير صحيح", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
TextBox1.Enabled = True
Button1.Enabled = True
Button2.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim timeSp As String() = TextBox1.Text.Split(":")
If timeSp(0) = Now.Hour And timeSp(1) = Now.Minute Then
Timer1.Enabled = False
Process.Start("shutdown", "-s -t 0")
End If
End Sub
End Classإلا هنا نكون قد وصلنا إلى نهاية هذا الموضوع أتمنى أن تكون قد نالت إعجابكم
إلا موضوع لاحق إن شاء الله
تحميل ملف الفيجوال بيسك
تحميل التطبيق