⚡Süper Güçlerim Var⚡
Süper Üye
Alıştırma Yapıyordum Forumda Görüm Bir Arkadaş Yapmış Bende Deniyim Dedim Birşeyler Yaptım Ama Çalıştıra Kodu Yazdıramadım Anlayan Biri Yanlışlıklara Bakabilrmi ?
Şimdiden Teşekkürler.
Kod:
Public Class Form2
Private Sub Timer1_Tick(sender As Object, e As EventArgs)
End Sub
Private Sub HuraForm1_Click(sender As Object, e As EventArgs) Handles HuraForm1.Click
End Sub
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
Label2.Text = TimeOfDay
End Sub
Private Sub HuraButton1_Click(sender As Object, e As EventArgs) Handles HuraButton1.Click
MsgBox("Kapatma Saati Ayarlandı :" & HuraTextBox1.Text)
Timer2.Start()
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If Label2.Text = HuraTextBox1.Text Then
Shell("shutdown -s -t 10")
End If
End Sub
Private Sub HuraButton2_Click(sender As Object, e As EventArgs) Handles HuraButton2.Click
MsgBox("Kapatma Saati Sıfırlandı")
Timer3.Start()
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Shell("shutdown -a")
End Sub
End Class