تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نفسي بعمل برنامج يغلق الكمبيوتر بعد وقت معين
#11
Smile 
السلام عليكم ورحمه الله وبركاته

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

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

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



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



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

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

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

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

PHP كود :
Public Class Form1
    Dim hh 
As Integer
    Dim mm 
As Integer
    Dim ss 
As Integer

    
Public countDown As New TimeSpan(hhmmss)
    
Dim stpw As New Stopwatch
    
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

    End Sub

    
Private Sub btn_shutdown_Click(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles Timer1.Tick

        Dim countDown 
As New TimeSpan(hhmmss'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 

والسلام عليكم ورحمه الله وبركاته Blush
الرد }}}
تم الشكر بواسطة: mohammed moh , يوسف , hoob computer
#12
عزيزي eng.khalidvb
بارك الله فيك
نعم هذا الذي اريد
بس المشكلة انا استخدم visual studio 2010
ولم يعمل معي المثال

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

Shy
الرد }}}
تم الشكر بواسطة:
#13
http://www.codeproject.com/Articles/1388...ified-time
الرد }}}
تم الشكر بواسطة: يوسف
#14
بسيط اخي فقط قم بنسخ الكود الى الفورم لديك

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

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

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

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

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

والسلام عليكم ورحمه الله وبركاتهShy
الرد }}}
تم الشكر بواسطة: يوسف
#15
(20-09-13, 10:21 PM)يوسف كتب :
عزيزي eng.khalidvb
بارك الله فيك
نعم هذا الذي اريد
بس المشكلة انا استخدم visual studio 2010
ولم يعمل معي المثال

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

Shy

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



وبعد ذلك ستظهر لك رسالة اضغط OK وبس Shy
يعطيك العافية Big Grin
الرد }}}
تم الشكر بواسطة: يوسف
#16
بارك الله فيك على الرابط عزيزي ѕαLσσσмx


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

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

Rolleyes


اشكرك على شرح طريقة تشغيل ملف 2012 على 2010
بارك الله فيك عزيزي
الرد }}}
تم الشكر بواسطة:
#17
جزاكم الله خيراً .... مثال مفيد و رائع 

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


تحياتي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  برنامج لحفظ اكوادي samsunggears 2 385 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم