Beoordeel mijn proggie ^^

[Hertebeest]

Dit is een tijd programmaatje wat ik alweer een tijdje geleden heb geschreven maar ik wou toch wel weten wat mensen ervan vinden. dus, ga je gang en flame me kapot of prijs me, wat jij wil . Ik zou ook graag weten wat ik beter zou kunnen doen, zou kunnen toevoegen of weghalen.

Bijzonderheden: Als je een tijd hebt ingevoerd waarop die moet beepen, zeg.....15:32:00.

Als je dan op "Hide" drukt komt het programmaatje weer tevoorschijn op de ingevoerde tijd, dit vond ik zelf wel een handigheidje voor als je geen extra dingen op je desktop wil hebben, en die groene kleur is nou niet echt de meest plesante kleur op je desktop.

Hier de download: http://www.mediafire.com/?dxcd5boh39g

Hier een plaatje:

Mvg, Hertebeest.

 

[bartjuh94]

wat is de bedoeling van dit programma
kdenk dat ik et nie helemaal snap......

 

[Hertebeest]

Nee het is gewoon een programma dat de tijd aangeeft en een alarmwekker indien nodig.

Instructies voor wekker:

Voer een tijd in in het lege vakje en op de aangegeven tijd beept het programma.

Voer de tijd in en druk eventueel op Hide Window als je hem niet op de desktop wil hebben staan ^^.

 

[ninjaplayer]

Hoe heb je die beepjes van laag naar hoog gedingest? Lijkt me wel handig

 

[Hertebeest]

Hier is de complete code van het programma.


Timer zelf:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Timer1.Interval = 1000 'Make the timer count in 1.00 secs
Timer1.Enabled = True 'Timer = running = true

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False 'If this button is clicked then timer is disabled
lblClock.Caption = "00:00:00" 'Makes sure that when u reset the timer it will show as 00:00:00
End Sub

Private Sub Command3_Click()
Unload Me 'Makes the program Exit
End Sub


Private Sub Command4_Click()
Help.Show 'If this button is clicked then the help window will come up
End Sub

Private Sub Command5_Click()
Timer.Visible = False 'If this button is pushed the whole program will hide
End Sub

Private Sub Form_Load()
Dim d As String
d = Format(Date, "Short Date") 'Set the variable to the current day
lblDate = d 'Since d is the current day, make d appear in label3
End Sub

Private Sub Text1_Change()
If lblClock.Caption = txtBeeptime Then 'If lblClock is equal to txtBeepTime then
Beep 500, 1000 'Speaks for itself ^^
End If
End Sub

Private Sub Timer1_Timer()
lblClock.Caption = Time
If Time = txtBeeptime Then Timer.Visible = True
If Time = txtBeeptime Then Form1.Show
If Time = txtBeeptime Then
Beep 500, 250
Beep 1000, 300
Beep 1500, 400
Beep 2000, 500
End If
End Sub

Succes ermee ^^

 

[ninjaplayer]

ahaah.... :thumb: