[eng.khalidvb]

السلام عليكم ورحمه الله وبركاته

هلا اخي يوسف قمت بعمل مثال بسيط مثل ما تريد بالضبط

هذه صور للبرنامج

حالة ايقاف تشغيل الكمبيوتر



حالة اعادة تشغيل الكمبيوتر



ويمكنك تحميل البرنامج طبعا اذا كنت تستخدم visual studio 2012

http://www.psmaax.com/upload/do.php?id=699

وكلمة المرور هي : eng.khalidvb

وها هو الكود تفضل :

PHP كود :

Public Class Form1
    Dim hh As Integer
    Dim mm As Integer
    Dim ss As Integer

    Public countDown As New TimeSpan(hh, mm, ss)
    Dim stpw As New Stopwatch
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btn_shutdown_Click(sender As Object, e As EventArgs) Handles btn_shutdown.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("الرجاء ملئ الحقول الفارغة")
            Exit Sub
        End If
        Label2.Visible = True
        hh = CInt(Int(TextBox1.Text))
        mm = CInt(Int(TextBox2.Text))
        ss = CInt(Int(TextBox3.Text))

        Timer1.Interval = 250
        Timer1.Start()
        stpw.Start()
        Label4.Visible = True
        Label5.Visible = False
        Label8.Visible = True
        Label8.Text = "ايقاف تشغيل الكمبيوتر"
        Label8.ForeColor = Color.Red


    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim countDown As New TimeSpan(hh, mm, ss) 'ten seconds
        If stpw.Elapsed <= countDown Then
            Dim toGo As TimeSpan = countDown - stpw.Elapsed

            Label2.Text = String.Format("{0:00}:{1:00}:{2:00}", toGo.Hours, toGo.Minutes, toGo.Seconds)
        Else
            Timer1.Stop()
            stpw.Stop()
            Label4.Text = Label2.Text
            Label5.Text = Label2.Text

        End If
        'This will make the computer Shutdown
        If Label4.Text = Label2.Text Then
            System.Diagnostics.Process.Start("shutdown", "-s -t 00")
            'This will make the computer Restart
        ElseIf Label5.Text = Label2.Text Then
            System.Diagnostics.Process.Start("shutdown", "-r -t 00")
        End If

    End Sub
    
    Private Sub btn_restart_Click(sender As Object, e As EventArgs) Handles btn_restart.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("الرجاء ملئ الحقول الفارغة")
            Exit Sub
        End If
        Label2.Visible = True
        hh = CInt(Int(TextBox1.Text))
        mm = CInt(Int(TextBox2.Text))
        ss = CInt(Int(TextBox3.Text))

        Timer1.Interval = 250
        Timer1.Start()
        stpw.Start()
        Label4.Visible = False
        Label5.Visible = True
        Label8.Visible = True
        Label8.Text = "أعادة تشغيل الكمبيوتر"
        Label8.ForeColor = Color.Green
    End Sub
End Class 


والسلام عليكم ورحمه الله وبركاته

[يوسف]

عزيزي eng.khalidvb
بارك الله فيك
نعم هذا الذي اريد
بس المشكلة انا استخدم visual studio 2010
ولم يعمل معي المثال

ممكن احد يحول لنا المثال على visual studio 2010

[ѕαLσσσмx]

http://www.codeproject.com/Articles/1388...ified-time

[eng.khalidvb]

بسيط اخي فقط قم بنسخ الكود الى الفورم لديك

وقم بادراج الادوات التاليه على الفورم

label  عدد 8
    عدد 3 textbox
 عدد 2  button
 عدد 1 timer

وقم بتغير اسم الــ Button1 الى    btn_shutdown

وقم بتغير اسم الــ Button2 الى    btn_restart

والخصائص الخاصه بالتايمر
enable= true
interval= 1000
ولا تهتم كثير لان الفيجوال ستوديو 2010 و2012 لا يختلفان كثير في طريقة كتابة الكود

والسلام عليكم ورحمه الله وبركاته

[Omar Mekkawy]

عزيزي eng.khalidvb
بارك الله فيك
نعم هذا الذي اريد
بس المشكلة انا استخدم visual studio 2010
ولم يعمل معي المثال

ممكن احد يحول لنا المثال على visual studio 2010

عادي اخوي تقدر تشغل المثال ب 2010
انا شغال على 2010 واشتغل المثال
لما تشغل المشروع شغله من الملف المحاط بالصندوق الأحمر هنا كما بالصورة



وبعد ذلك ستظهر لك رسالة اضغط OK وبس
يعطيك العافية

[يوسف]

بارك الله فيك على الرابط عزيزي ѕαLσσσмx

---

ما شاء الله عملت بنفس شرحك عزيزي eng.khalidvb
واشتغل معي الكود والحمد لله

كان عندي الخطأ أول اسم الزر Button1 لم اغيره إلى btn_shutdown
واسم الزر Button2 لم اغيره إلى btn_restart

---

اشكرك على شرح طريقة تشغيل ملف 2012 على 2010
بارك الله فيك عزيزي

[hoob computer]

جزاكم الله خيراً .... مثال مفيد و رائع 

بارك الله فيكم


تحياتي