Timer help. - VB.net

[Fireking300]

Basically I am making a application that says what time it is and what class period it is. And how many minutes till the next or other class periods start. I want it to change the labels everytime timer1_Tick happens to the appropriate text. Whenever it is a weekend I want label8.text to say Today is a weekend. And if it is a holiday for my school I want it to say It is a holiday. And if it is the last day of school I want it to say that. The only hard part I am having is making the labels that say how much longer till that period.

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Text = TimeOfDay() + " - " + DateString
        \\\ CODING
    End Sub

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

Weekends - 
03-01-2009
03-07-2009
03-08-2009
03-14-2009
03-15-2009
03-21-2009
03-22-2009
03-28-2009
03-29-2009
04-04-2009
04-05-2009
04-11-2009
04-12-2009
04-18-2009
04-19-2009
04-25-2009
04-26-2009
05-02-2009
05-03-2009
05-09-2009
05-10-2009
05-16-2009
05-17-2009
05-23-2009
05-24-2009
05-30-2009
05-31-2009
Holidays - 
03-16-2009
03-17-2009
03-18-2009
03-19-2009
03-20-2009
04-10-2009
05-25-2009
Last Day of School -
06-04-2009

[ReidE96]

Set some variables for periods etc, and use If.

HolidaysArray() = {You know how to set an array, right?}
For x = 1 to numberofholidays
    If DateString = HolidaysArray(x) Then
        MsgBox("Holiday today")
    End If
Next x

For the holidays, and for last day:

If DateString = "06-04-2009" Then MsgBox("Last Day of School")

As to the "how long" stuff, just set a time for them and compare with the current time (hour, minute and second part) then update.

Edit: Having turned on my brain and remembered how to use the DateTime functions, I can be more helpful.

Add this to the Timer1_Tick sub:

Dim Hours as Integer = DateTime.Hour
Dim Minutes as Integer = DateTime.Minute
Dim Seconds as Integer = DateTime.Second

Hours = NextPeriodHour - Hours
Minutes = NextPeriodMinute - Minutes
Seconds = NextPeriodSecond - Seconds

I'm sure you can set the hour, minute and second for the next period. The variables that get updated on each tick will give you the time till the next event. Working from there shouldn't be too hard. Hope that helps.

[Fireking300]

Could I do it like this?
I make 3 textboxes one of each category. Weekend, Holiday, and Last day of school.
Each with the dates seperated by a new line.
And then make three

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If DateString = ????? Then
            Label8.Text = "Today is a weekend."
        End If
        If DateString = ????? Then
            Label8.Text = "Today is a holiday."
        End If
        If DateString = ????? Then
            Label8.Text = "Today is the last day of school."
        End If
    End Sub

[ReidE96]

Sure thing. I just used MsgBox as an example. Though I would recommend putting the holidays and weekends into arrays in order to check them all. Saves repeating your code several times, cause you can just use a For loop.

[Fireking300]

i don't know how to use a array but ill try to learn.

[ReidE96]

Seriously? Arrays are VERY useful. I'm surprised you don't know about them.

[Apoc]

Erm...

Dim thisYear As Integer = DateTime.Now.Year
    Dim firstPeriod As New DateTime(thisYear, DateTime.Now.Month, DateTime.Now.Day, 8, 0, 0)
    ' 8AM
    Dim secondPeriod As New DateTime(thisYear, DateTime.Now.Month, DateTime.Now.Day, 9, 0, 0)
    ' 9AM
    ' Etc.
    Dim holidays As New List(Of DateTime)()
    holidays.Add(New DateTime(thisYear, 3, 16, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 17, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 18, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 19, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 20, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 4, 10, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 5, 25, 0, 0, 0))
    
    Dim lastDayOfSchool As New DateTime(thisYear, 6, 4, 0, 0, 0)
    If DateTime.Now.DayOfWeek = DayOfWeek.Saturday OrElse DateTime.Now.DayOfWeek = DayOfWeek.Sunday OrElse DateTime.Now.DayOfYear = lastDayOfSchool.DayOfYear Then
        ' Weekend or last day of school.
    End If
    For Each time As DateTime In holidays
        If DateTime.Now.DayOfYear = time.DayOfYear Then
            ' Holiday
        End If
    Next
    If DateTime.Now < firstPeriod Then
        Console.WriteLine(DateTime.Now.Subtract(firstPeriod) & " before 1st period is over.")
    ElseIf DateTime.Now < secondPeriod Then
        Console.WriteLine(DateTime.Now.Subtract(secondPeriod) & " before 2nd period is over.")
    End If
    ' Etc.

[Cypher]

Erm...

Dim thisYear As Integer = DateTime.Now.Year
    Dim firstPeriod As New DateTime(thisYear, DateTime.Now.Month, DateTime.Now.Day, 8, 0, 0)
    ' 8AM
    Dim secondPeriod As New DateTime(thisYear, DateTime.Now.Month, DateTime.Now.Day, 9, 0, 0)
    ' 9AM
    ' Etc.
    Dim holidays As New List(Of DateTime)()
    holidays.Add(New DateTime(thisYear, 3, 16, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 17, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 18, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 19, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 3, 20, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 4, 10, 0, 0, 0))
    holidays.Add(New DateTime(thisYear, 5, 25, 0, 0, 0))
    
    Dim lastDayOfSchool As New DateTime(thisYear, 6, 4, 0, 0, 0)
    If DateTime.Now.DayOfWeek = DayOfWeek.Saturday OrElse DateTime.Now.DayOfWeek = DayOfWeek.Sunday OrElse DateTime.Now.DayOfYear = lastDayOfSchool.DayOfYear Then
        ' Weekend or last day of school.
    End If
    For Each time As DateTime In holidays
        If DateTime.Now.DayOfYear = time.DayOfYear Then
            ' Holiday
        End If
    Next
    If DateTime.Now < firstPeriod Then
        Console.WriteLine(DateTime.Now.Subtract(firstPeriod) & " before 1st period is over.")
    ElseIf DateTime.Now < secondPeriod Then
        Console.WriteLine(DateTime.Now.Subtract(secondPeriod) & " before 2nd period is over.")
    End If
    ' Etc.

Fail. True story.

[ReidE96]

Here comes Apoc the epic to save the day with better knowledge than the rest of us XD

[Araredon]

well if you want it to simply say the date/time in a label do this:

label1.text = timeofday

or

label1.text = datestring

Id put that in the Form_load event, it will automatically update every second/day.
Not sure if that helps but that's how i do date/time

EDIT: Just realized you already had that in your code :P