• Log in or sign up for an account here: https://www.sythe.org/login

Alarm Clock I made in VB

Status
Not open for further replies.

Lukef555

Grand Master

Banned
Joined
Aug 16, 2008
Sythe Gold
0
Messages
3,206
Age
31
Location
Tree's Pool
Well here ya go guys version 1.1 of my alarm clock, it works great if you need it be somewhere and off the computer at a certain time.I made it in vb and i plan on making it alot better as this is just the start. I'll probly add a beeping sound and make it look better. IT was one of my first programs in VB so please dont be too harsh,ive also made 2 progress bars, an auto typer, a timer, and a self-key logger. IF youd like links to any of them pm me.


Features:

-Fully set-able down to the second
-Pop-up message when it goes off
-Easy to use

Pictures:
2ntydxl.jpg

2v0k26w.jpg


Virus Scan: ( Like i actually no how to put in a virus :laugh: )
http://tinypic.com/r/dbqnhl/6

Download Link:
http://www.megaupload.com/?d=TUVY1EL2

IF you have any problems downloading please post.


Im open to all suggestions and C&C!


Thanks,
Lukef555
 
It looks like the dialog could have been done a hell of a lot better, but at least it works. :P
 
It looks like the dialog could have been done a hell of a lot better, but at least it works. :P
Yeah im gonna work on making it look better now. :)
Thanks? o_O
Well, everything after VB6 Is Called VB.Net
VB6 and before = VB

Thanks. :)



Edit: I did something wrong and now i cant get it to work :( I even re did it. If anyone can help me heres my code

Public Class Form1

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label1.Text = TimeOfDay
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TimeOfDay = Label2.Text Then
MsgBox("Times up!", MsgBoxStyle.Critical)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Text = TextBox1.Text
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
TextBox1.Text = "00:00:00"
End Sub
End Class

Idk whats wrong with it?
 
You should make the program smaller, hide the program from the taskbar and especially the Labels are too big.
Design is the other part of programming :)
Nice work mate!
 
Status
Not open for further replies.
Runescape Gamblingrunescape gambling
Back
Top