- Katılım
- 19 Ocak 2007
- Mesajlar
- 977
- Puanları
- 156
Visual Basic dilini ve .NET teknolojisini ilk öğrenmeye başlarken yaptığım basit bir Windows Otomatik kapatma programı. Proje dosyaları da içerisinde dir.
(Not: Proje dosyaları yalnızca Visual Studio 2008 ile açılabilir.)
Kodlar :
Public Class Form1
Dim Clock, Progclock, Datee, Progdate, ProgMinute, ProgSec, ConvertHour As String
Dim shutdownenabled As Boolean
Dim ErrorAttraction As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loops.Enabled = True
shutdownenabled = False
Kaydet.Enabled = False
ProgSaat.Visible = False
ProgTarih.Visible = False
Label2.Text = "Aktif Değil"
End Sub
Private Sub loops_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loops.Tick
Clock = CStr(TimeOfDay)
Datee = Now.Date
Suankisaatdynamic.Text = Clock
suankitarihdynamic.Text = Datee
If shutdownenabled = True And ConvertHour = Clock And Progdate = Datee Then
kapat()
End If
End Sub
Private Sub kaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kaydet.Click
Progclock = Programlanansaatinput.Text
ProgMinute = Programlanandakikainput.Text
ProgSec = TextBox1.Text
Progdate = DateTimePicker1.Value.Date
ConvertHour = Progclock + ":" + ProgMinute + ":" + ProgSec
ProgSaat.Text = ConvertHour
ProgTarih.Text = Progdate
If Programlanansaatinput.TextLength <> 2 Or Progclock > 23 Then
ErrorAttraction = 1
End If
If Programlanandakikainput.TextLength <> 2 Or ProgMinute > 59 Then
ErrorAttraction = 2
End If
If TextBox1.TextLength <> 2 Or ProgSec > 59 Then
ErrorAttraction = 3
End If
Error_Attraction()
ProgSaat.Visible = True
ProgTarih.Visible = True
Select Case ErrorAttraction
Case 0
Select Case MsgBox("Bak Windows Kapatılacak. Sonra yan yattı çamura battı olmasın. Artizlik yaparsan bi daha açmam söyleyeyim! Kapatayım mı?", _
MsgBoxStyle.YesNo, "Üstüme Gelme Kapatırım!")
Case MsgBoxResult.Yes
Me.Visible = False
Text_Enabled_disabled(False)
shutdownenabled = True
Kaydet.Enabled = False
NotifyIcon1.ShowBalloonTip(100)
Label2.Visible = True
Label2.Text = "Aktif"
Case MsgBoxResult.No
ProgSaat.Visible = False
ProgTarih.Visible = False
End Select
Case 1
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
Case 2
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
Case 3
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
End Select
ErrorAttraction = 0
End Sub
Private Sub kapat()
Shell("shutdown -s -t 1")
End Sub
Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If Programlanansaatinput.Text = Nothing Or Programlanandakikainput.Text = Nothing Or Programlanansaatinput.Text = Progclock And Programlanandakikainput.Text = ProgMinute Then
Kaydet.Enabled = False
Else
Kaydet.Enabled = True
End If
End Sub
Private Sub Error_Attraction()
Select Case ErrorAttraction
Case 1
MsgBox("Programlanan saat uzunluğu geçerli değil", MsgBoxStyle.Information)
Programlanansaatinput.BackColor = Color.Red
Case 2
MsgBox("Programlanan dakika uzunluğu geçerli değil", MsgBoxStyle.Information)
Programlanandakikainput.BackColor = Color.Red
Case 3
MsgBox("Programlanan Saniye uzunluğu geçerli değil", MsgBoxStyle.Information)
TextBox1.BackColor = Color.Red
Case 0
Programlanansaatinput.BackColor = Color.Empty
Programlanandakikainput.BackColor = Color.Empty
End Select
End Sub
Private Sub ProgramıDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgramıDeğiştirToolStripMenuItem.Click
Me.Visible = True
Değiştir_Click(sender, e)
Text_Enabled_disabled(True)
End Sub
Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Close()
End Sub
Private Sub Değiştir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Değiştir.Click
Text_Enabled_disabled(True)
End Sub
Private Sub Programiptal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Programiptal.Click
shutdownenabled = False
ProgSaat.Visible = False
ProgTarih.Visible = False
Label2.Text = "Aktif Değil"
End Sub
Private Sub Text_Enabled_disabled(ByVal Enabled As Boolean)
If Enabled = True Then
Programlanansaatinput.Enabled = True
Programlanandakikainput.Enabled = True
DateTimePicker1.Enabled = True
Else
Programlanansaatinput.Enabled = False
Programlanandakikainput.Enabled = False
DateTimePicker1.Enabled = False
End If
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
NotifyIcon1.ShowBalloonTip(100)
End Sub
End Class
(Not: Proje dosyaları yalnızca Visual Studio 2008 ile açılabilir.)
Kodlar :
Public Class Form1
Dim Clock, Progclock, Datee, Progdate, ProgMinute, ProgSec, ConvertHour As String
Dim shutdownenabled As Boolean
Dim ErrorAttraction As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loops.Enabled = True
shutdownenabled = False
Kaydet.Enabled = False
ProgSaat.Visible = False
ProgTarih.Visible = False
Label2.Text = "Aktif Değil"
End Sub
Private Sub loops_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loops.Tick
Clock = CStr(TimeOfDay)
Datee = Now.Date
Suankisaatdynamic.Text = Clock
suankitarihdynamic.Text = Datee
If shutdownenabled = True And ConvertHour = Clock And Progdate = Datee Then
kapat()
End If
End Sub
Private Sub kaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kaydet.Click
Progclock = Programlanansaatinput.Text
ProgMinute = Programlanandakikainput.Text
ProgSec = TextBox1.Text
Progdate = DateTimePicker1.Value.Date
ConvertHour = Progclock + ":" + ProgMinute + ":" + ProgSec
ProgSaat.Text = ConvertHour
ProgTarih.Text = Progdate
If Programlanansaatinput.TextLength <> 2 Or Progclock > 23 Then
ErrorAttraction = 1
End If
If Programlanandakikainput.TextLength <> 2 Or ProgMinute > 59 Then
ErrorAttraction = 2
End If
If TextBox1.TextLength <> 2 Or ProgSec > 59 Then
ErrorAttraction = 3
End If
Error_Attraction()
ProgSaat.Visible = True
ProgTarih.Visible = True
Select Case ErrorAttraction
Case 0
Select Case MsgBox("Bak Windows Kapatılacak. Sonra yan yattı çamura battı olmasın. Artizlik yaparsan bi daha açmam söyleyeyim! Kapatayım mı?", _
MsgBoxStyle.YesNo, "Üstüme Gelme Kapatırım!")
Case MsgBoxResult.Yes
Me.Visible = False
Text_Enabled_disabled(False)
shutdownenabled = True
Kaydet.Enabled = False
NotifyIcon1.ShowBalloonTip(100)
Label2.Visible = True
Label2.Text = "Aktif"
Case MsgBoxResult.No
ProgSaat.Visible = False
ProgTarih.Visible = False
End Select
Case 1
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
Case 2
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
Case 3
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
End Select
ErrorAttraction = 0
End Sub
Private Sub kapat()
Shell("shutdown -s -t 1")
End Sub
Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If Programlanansaatinput.Text = Nothing Or Programlanandakikainput.Text = Nothing Or Programlanansaatinput.Text = Progclock And Programlanandakikainput.Text = ProgMinute Then
Kaydet.Enabled = False
Else
Kaydet.Enabled = True
End If
End Sub
Private Sub Error_Attraction()
Select Case ErrorAttraction
Case 1
MsgBox("Programlanan saat uzunluğu geçerli değil", MsgBoxStyle.Information)
Programlanansaatinput.BackColor = Color.Red
Case 2
MsgBox("Programlanan dakika uzunluğu geçerli değil", MsgBoxStyle.Information)
Programlanandakikainput.BackColor = Color.Red
Case 3
MsgBox("Programlanan Saniye uzunluğu geçerli değil", MsgBoxStyle.Information)
TextBox1.BackColor = Color.Red
Case 0
Programlanansaatinput.BackColor = Color.Empty
Programlanandakikainput.BackColor = Color.Empty
End Select
End Sub
Private Sub ProgramıDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgramıDeğiştirToolStripMenuItem.Click
Me.Visible = True
Değiştir_Click(sender, e)
Text_Enabled_disabled(True)
End Sub
Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Close()
End Sub
Private Sub Değiştir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Değiştir.Click
Text_Enabled_disabled(True)
End Sub
Private Sub Programiptal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Programiptal.Click
shutdownenabled = False
ProgSaat.Visible = False
ProgTarih.Visible = False
Label2.Text = "Aktif Değil"
End Sub
Private Sub Text_Enabled_disabled(ByVal Enabled As Boolean)
If Enabled = True Then
Programlanansaatinput.Enabled = True
Programlanandakikainput.Enabled = True
DateTimePicker1.Enabled = True
Else
Programlanansaatinput.Enabled = False
Programlanandakikainput.Enabled = False
DateTimePicker1.Enabled = False
End If
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
NotifyIcon1.ShowBalloonTip(100)
End Sub
End Class