the project is nothing major as is supposed to be a little timer that stays topmost on my screen and changes colour according to the closeness of four alarm times and is supposed to help me at work to monitor the closeness of breaks as I easily get lost doing things and miss the breaks
some things have been changed into functions and are neater but others I could not work out how to tidy up
unfortunately no monetary prize awaits any volunteers but I will really appreciate any pointers I can get
example code below -
Expand|Select|Wrap|Line Numbers
- Public Sub check_enabled()
- If alarmisabove(BreakTimeA._sumtime) Then
- BreakTimeA._enabled = True
- Timer1ToolStripMenuItem.Checked = True
- Else
- BreakTimeA._enabled = False
- Timer1ToolStripMenuItem.Checked = False
- End If
- If alarmisabove(BreakTimeB._sumtime) Then
- BreakTimeB._enabled = True
- Timer2ToolStripMenuItem.Checked = True
- Else
- BreakTimeB._enabled = False
- Timer2ToolStripMenuItem.Checked = False
- End If
- If alarmisabove(breakTimeC._sumtime) Then
- breakTimeC._enabled = True
- Timer3ToolStripMenuItem.Checked = True
- Else
- breakTimeC._enabled = False
- Timer3ToolStripMenuItem.Checked = False
- End If
- If alarmisabove(breakTimeD._sumtime) Then
- breakTimeD._enabled = True
- Timer4ToolStripMenuItem.Checked = True
- Else
- breakTimeD._enabled = False
- Timer4ToolStripMenuItem.Checked = False
- End If
- End Sub