Καλησπέρα σε όλους!
βασικά αυτό το πρόγραμμα κάνει αυτόματα τερματησμό/επανεκκίνηση/αδρανοποίηση του H/Y στην ώρα που θά βάλεις στο textbox.
Και ήθελά να προσθέσω και ένα label σε αυτόν τον κώδικα που να κάνει αντίστροφη μέτρηση για τερματησμό/επανεκκίνηση/αδρανοποίηση του H/Y από την ώρα που κάνεις το κλίκ .
Ευχαριστώ!Κώδικας:Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Time.Text = Format(TimeOfDay) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If IsDate(TextBox1.Text) = False Then MsgBox("Λάθος ώρα!!!") End If If ShutDown.Checked = False And Restart.Checked = False And Sleep.Checked = False Then MsgBox("Επιλέξτε μία επιλογή!") Else Timer2.Enabled = True TextBox1.Enabled = False Button2.Enabled = True Button1.Enabled = False End If Refresh() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer2.Enabled = False TextBox1.Text = "00:00:00" TextBox1.Enabled = True Button1.Enabled = True Button2.Enabled = False End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If TextBox1.Text = Time.Text Then If ShutDown.Checked = True Then Shell("ShutDown -s") ElseIf Restart.Checked = True Then Shell("ShutDown -r") ElseIf Sleep.Checked = True Then Shell("ShutDown -h") Timer2.Enabled = False TextBox1.Text = "00:00:00" TextBox1.Enabled = True Button1.Enabled = True Button2.Enabled = False Sleep.Checked = False End If End If End Sub End Class
Εμφάνιση 1-5 από 5
-
27-04-11, 19:26 Αντίστροφη μέτρηση σε VB 2010 #1
Τελευταία επεξεργασία από το μέλος cris4524 : 27-04-11 στις 19:35.
-
30-04-11, 13:54 Απάντηση: Αντίστροφη μέτρηση σε VB 2010 #2
Μέσα στην διαδικασία του timer παίρνε την ώρα συστήματος, βρες την διαφορά από την ώρα που έχεις εισάγει, και το αποτέλεσμα αυτό βάλτο ως caption σε κάποιο label.
Επείδη όλο αυτό θα είναι μέσα στο timer το απότελεσμα και το caption του label θα αλλάζουν, και θα φαίνετε σαν αντίστροφη μέτρηση.Τα όνειρα που κάνω από τα 20 παρκάρουν στον ακάλυπτο νωρίς. Μα εσύ που με κοιτάς σαν λύτρωση ζωή παρκαρισμένη μην δεχτείς.
-
30-04-11, 21:42 Απάντηση: Αντίστροφη μέτρηση σε VB 2010 #3
-
09-05-11, 22:32 Απάντηση: Αντίστροφη μέτρηση σε VB 2010 #4
Ρε παιδιά κανείς δεν έχει ιδέα από Visual Basic;;;
-
16-05-11, 20:14 Απάντηση: Αντίστροφη μέτρηση σε VB 2010 #5
Τελικά το βρήκα πως να κάνω αυτό που μου είπες!
Μήπως ξέρεις ώμος πως να είναι η αντίστροφη μέτρηση αυτής της μορφής hh:mm:ss;
Παρόμοια Θέματα
-
Microsoft: Αντίστροφη μέτρηση για την εξαφάνιση του Internet Explorer 6
Από nm96027 στο φόρουμ ΕιδήσειςΜηνύματα: 36Τελευταίο Μήνυμα: 09-03-11, 15:34 -
Αντίστροφη μέτρηση για το IPv4: Μόνο το 3% των διευθύνσεων παραμένουν πλέον διαθέσιμα
Από nm96027 στο φόρουμ ΕιδήσειςΜηνύματα: 49Τελευταίο Μήνυμα: 20-01-11, 01:56 -
Αντίστροφη μέτρηση για την αλλαγή του χρόνου.
Από ipo στο φόρουμ The Meeting pointΜηνύματα: 22Τελευταίο Μήνυμα: 01-01-08, 01:39 -
H αντίστροφη μέτρηση για το Burning Crusade αρχίζει
Από Reef στο φόρουμ Games και Online GamingΜηνύματα: 1Τελευταίο Μήνυμα: 16-01-07, 14:05 -
Hellas Sat : Η αντίστροφη μέτρηση άρχισε!!!!!!!!!!!
Από jimsliakas στο φόρουμ SatelliteΜηνύματα: 12Τελευταίο Μήνυμα: 14-05-03, 09:43
Bookmarks