|
Registrieren
Login
Autor
r3xx0n
Tutorial Leser
Anmeldedatum: 05.05.2008
Beiträge: 41
Musik Wecker ( Eigne Sounds einstellbar )
Verfasst am: 05.05.2008, 18:38
Hier mein kleiner Musik Wecker, war nicht viel Arbeit
Download: http://download.craze-networkz.de/wecker/Wecker_V1.rar
Pic: 
Übrigens : 1st Post hier ^^
Quellcode: Code: Public Class Form1<br /><br /><br /> Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br /> aktuelleZeit.Text = My.Computer.Clock.LocalTime.Hour & ":" & My.Computer.Clock.LocalTime.Minute & ":" & My.Computer.Clock.LocalTime.Second<br /> End Sub<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If Button1.Text = "Starten" Then<br /> Button1.Text = "Stoppen"<br /> Timer2.Enabled = True<br /> <br /> Else<br /> Button1.Text = "Starten"<br /> Timer2.Enabled = False<br /><br /> End If<br /> End Sub<br /><br /> Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick<br /> If TextBox2.Text = (My.Computer.Clock.LocalTime.Hour & ":" & My.Computer.Clock.LocalTime.Minute) Then<br /> If CheckBox1.Checked = False Then<br /> sound.URL = My.Application.Info.DirectoryPath & "datawecker.mp3"<br /> sound.Ctlcontrols.play()<br /> Button1.Text = "Starten"<br /> Timer2.Enabled = False<br /> Else<br /> sound.URL = TextBox1.Text<br /> sound.Ctlcontrols.play()<br /> Button1.Text = "Starten"<br /> Timer2.Enabled = False<br /> End If<br /> End If<br /> End Sub<br /><br /> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Me.Width = 300<br /> Me.Height = 205<br /> GroupBox1.Width = 292<br /> GroupBox1.Height = 91<br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> If Button2.Text = "Wecksound Einstellungen öffnen" Then<br /> Me.Width = 300<br /> Me.Height = 347<br /> GroupBox1.Width = 292<br /> GroupBox1.Height = 240<br /> Button2.Text = "Wecksound Einstellungen schließen"<br /> ElseIf Button2.Text = "Wecksound Einstellungen schließen" Then<br /> Me.Width = 300<br /> Me.Height = 205<br /> GroupBox1.Width = 292<br /> GroupBox1.Height = 91<br /> Button2.Text = "Wecksound Einstellungen öffnen"<br /> End If<br /> End Sub<br /><br /> Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br /> opd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyMusic<br /> With opd<br /> .Filter = _<br /> "Mp3 Musikdateien (*.mp3)|*.mp3|Windows Media Audio (*.wma)|*.wma|AACPlus (*.aac)|*.aac|M3u (*.m3u)|*.m3u|M4u (*.m4u)|*.m4u|Midi Sound (*.mid)|*.mid"<br /> .FilterIndex = 1<br /> .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyMusic<br /> .Title = "Musikdatei auswählen"<br /> .ShowDialog()<br /> End With<br /> TextBox1.Text = opd.FileName<br /> End Sub<br />End Class
_________________
tr4st
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 486
Verfasst am: 05.05.2008, 19:04
Unnötig File größe.
Unnötige Libraries.
Texteingabe möglich.
Schlechtes Uhrzeit Format.
Beim öffnen des OpenFileDialogs wird im Textfeld "OpenFileDialog1" angezeigt.
Es ist möglich den Wecker ohne jegliche Sounds zu starten.
Das einzige gute ist das Logo, hast du das erstellt?
r3xx0n
Tutorial Leser
Anmeldedatum: 05.05.2008
Beiträge: 41
Verfasst am: 05.05.2008, 19:37
hmmm naja warn altes project XD , habe weit bessere programme geschrieben wie ein admin interface für einen WoW privatserver welcher über mysql ging.
Ja das Logo hab ich erstellt aba das wear schnellarbeit ^^
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Visual Basic Download ?
1743
03.05.2011, 07:38
Api Download in Prozent + Kb anzeige + Progrezzbar
1345
21.10.2007, 13:03
Download
1359
30.08.2007, 15:45
Download mit Internet Explorer Object
923
18.08.2008, 19:00
Visual Basic 6 download
3701
26.05.2007, 11:51
