Delayed Executable

Techniken erklärt / Tipps & Tricks
KEINE reinen FRAGEN-THREADS!
Murphy
Beiträge: 90
Registriert seit: 7 Jahren 8 Monaten
Hat Karma vergeben: 32 Mal
Karma erhalten: 20 Mal

Delayed Executable

#1

Beitrag von Murphy »

Habe mir ein kleines Windows tool erstellt, welches ich euch gerne zeigen möchte.
Der Name ist Delexe
Die Funktion ist die eines Weckers, jedoch mit dem Unterschied, dass bis zu 4 Weckzeiten eingegeben werden können und zu besagter Zeit die vorher ausgewählte Datei gestartet wird. Hierbei ist es egal ob es eine mp3 wav exe...ect ist, da die nicht ausführbaren Dateien immer mit dem Standardprogramm ausgeführt werden.
Ich nutze es als Signalgeber (Lichtsignale über Raspberry gesteuert) während ich schlafe um klar zu werden.

Hier die fertige .exe
[External Link Removed for Guests]






und hier der Sourcecode in Visual basic:

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = Label1.Text
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox2.Text = Label1.Text
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox3.Text = Label1.Text
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
TextBox4.Text = Label1.Text
End Sub


Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = My.Computer.Clock.LocalTime
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
OpenFileDialog1.ShowDialog()
TextBox5.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Timer2.Interval = 100
Timer2.Start()
Label1.ForeColor = Color.Lime
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Timer2.Stop()
Label1.ForeColor = Color.Red
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If TextBox1.Text = Label1.Text Or
TextBox2.Text = Label1.Text Or
TextBox3.Text = Label1.Text Or
TextBox4.Text = Label1.Text Then
Process.Start(TextBox5.Text)
Threading.Thread.Sleep(1000)
End If
End Sub
End Class