Dzisiaj zrobimy sobie prosty programik który o określonej godzinie będzie nam wyłączał komputer.
Zaczynamy od stworzenia nowego projektu. Następnie na naszą nową formę przeciągamy 3x „Label” 2x button i 1x „textbox”
Zmieniamy napisy w naszych labelach aby wyglądało to tak jak na obrazku:
Teraz do naszej formy musimy dodać czasomierze jeden pokazujący aktualny czas a druki czas wyłączenia. Znajdziemy je w toolboxie 
a po przeniesieniu na dole pojawi nam się coś podobnego jak na obrazku: 
.
Teraz przechodzimy do kodowania, zaczynamy od wystartowania naszego zegara, dodano tutaj także tekst „00:00:00” który pojawi się w textboxie aby ułatwić użytkownikowi wprowadzenie czasu wyłączenie komputera. Aby to zrobić musimy dodać kod do Form1_Load naszego programu:
|
1 2 |
Timer1.Start() TextBox1.Text = ("00:00:00") ''wypisze w naszym textboxie"00:00:00" |
Teraz przyciskamy dwukrotnie lewy przycisk myszy na nasz Timer1 pod formą
i automatycznie powinien utworzyć się „sub” : Private Sub Timer1_Tick
do którego dodajemy kod:
|
1 |
Label3.Text = Format(TimeOfDay) |
Teraz nasz „Label3” będzie pokazywał aktualną godzine
Robimy to samo z „Timer2” (czyli przyciskamy dwukrotnie aby utworzyć nowego suba): Private Sub Timer2_Tick
Dodajemy kod:
|
1 2 3 |
If TextBox1.Text = Label3.Text Then Shell("shutdown -s") End If |
Czyli jeśli czas z TextBox1 będzie równy Label3 wtedy „Shell(„shutdown -s”)” czyli wyłączy nam komputer 🙂
Mamy dodane kody do naszych czasomierzy, ale musimy jeszcze dodać przycisk wykonujący naszą operacje.
Przyciskamy nasz przycisk i wprowadzamy kod :
|
1 2 3 4 |
Timer2.Enabled = True TextBox1.Enabled = False Button2.Enabled = True Button1.Enabled = False |
Przyciskamy przycisk „Anuluj” i wprowadzamy kod:
|
1 2 3 4 5 |
Timer2.Enabled = False TextBox1.Text = ("00:00:00") TextBox1.Enabled = True Button2.Enabled = True Button1.Enabled = True |
Wygląda to tak:
Wszelkie pytania proszeękierować w komentarzach. Warto pokombinować i trochę to poprzerabiać dla własnych potrzeb.
program można ściągnąć stąd: wyłacznik
