Public Class Main
Dim boolVerkleindVenster = True
Dim onChange As Boolean = True
Dim uurWissel As Boolean = False
Dim intUurAanpassing As Integer = 0
Dim dteDatumAanpassing As Date = Today
Dim intUur1, intUur2 As Integer
Dim dteDatum1, dteDatum2 As Date
Private Sub LayoutCTRLTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LayoutCTRLTimer.Tick
Call VeranderingCheck()
If onChange = True Then
Dim intUur, intI, intTeller As Integer
intUur = TimeOfDay.Hour + intUurAanpassing
intTeller = 0
'DISPLAY AANPASSEN AAN HUIDIG UUR
For intI = intUur - 6 To intUur + 6
'UUR KAN NIET GROTER DAN 23 of KLEINER DAN NUL
If intI < 24 And intI > -1 Then
Me.Controls("lbl" & intTeller).Text = intI
intTeller = intTeller + 1
Else
Me.Controls("lbl" & intTeller).Text = ""
intTeller = intTeller + 1
End If
Next
'JUISTE DATUM TONEN IN LABEL
Dim dteHuidigeDatum As Date
Dim tspDatumsVerschil As TimeSpan
dteHuidigeDatum = Date.Today
tspDatumsVerschil = dteDatumAanpassing.Subtract(dteHuidigeDatum)
lblHuidigePlanning.Text = dteDatumAanpassing.ToLongDateString & " (" & tspDatumsVerschil.Days & ")"
'GEPLANDE ITEMS LEGEN
Dim intA As Integer
For intA = 0 To 12
Me.Controls("lblUur" & intA).Text = ""
Next
'GEPLANDE ITEMS AANPASSEN
Dim strDatum, strLijn As String
Dim intNummer, intMinRange As Integer
strDatum = DatumWeergeven()
If My.Computer.FileSystem.FileExists(Application.StartupPath & "\" & strDatum & ".txt") = True Then
Dim Lezer As System.IO.StreamReader
lblGeenPlanning.Visible = False
Aanduiding.Visible = True
Lezer = My.Computer.FileSystem.OpenTextFileReader(Application.StartupPath & "\" & strDatum & ".txt")
intNummer = 0
intUur = TimeOfDay.Hour + intUurAanpassing
intMinRange = intUur - 6
If intMinRange < 0 Then
intNummer = intNummer - intMinRange
End If
strLijn = Lezer.ReadLine()
For intTeller = 0 To 23
If intTeller >= intUur - 6 And intTeller <= intUur + 6 Then
Me.Controls("lblUur" & intNummer).Text = strLijn
intNummer = intNummer + 1
End If
strLijn = Lezer.ReadLine()
Next
Lezer.Close()
Else
'BESTAND BESTAAT NIET; labels leegmaken
For intTeller = 0 To 12
Me.Controls("lblUur" & intTeller).Text = ""
Me.Controls("lbl" & intTeller).Text = ""
lblGeenPlanning.Visible = True
Aanduiding.Visible = False
Next
End If
onChange = False
End If
End Sub
Function DatumWeergeven() As String
Dim intJaar, intMaand, intDag As Integer
'DATUM MET -TEKENS MAKEN
intJaar = dteDatumAanpassing.Year
intMaand = dteDatumAanpassing.Month
intDag = dteDatumAanpassing.Day
Return intJaar & "-" & intMaand & "-" & intDag
End Function
Function VeranderingCheck() As Boolean
'onChange BEPALEN
If uurWissel = False Then
intUur1 = intUurAanpassing
dteDatum1 = dteDatumAanpassing
uurWissel = True
Else
intUur2 = intUurAanpassing
dteDatum2 = dteDatumAanpassing
uurWissel = False
End If
'UREN VERGELIJKEN
If Not intUur1 = intUur2 Or Not dteDatum1 = dteDatum2 Then
onChange = True
End If
End Function
Private Sub btnVolgendUur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolgendUur.Click
'DISPLAY AANDUIDING KAN NIET HOGER DAN UUR 23
If TimeOfDay.Hour + intUurAanpassing < 23 Then
intUurAanpassing = intUurAanpassing + 1
End If
End Sub
Private Sub btnVorigUur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVorigUur.Click
'DISPLAY AANDUIDING KAN NIET LAGER DAN UUR 0
If TimeOfDay.Hour + intUurAanpassing > 0 Then
intUurAanpassing = intUurAanpassing - 1
End If
End Sub
Private Sub btnVorigeDag_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVorigeDag.Click
dteDatumAanpassing = dteDatumAanpassing.AddDays(-1)
End Sub
Private Sub btnVolgende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolgende.Click
dteDatumAanpassing = dteDatumAanpassing.AddDays(1)
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
intUurAanpassing = 0
dteDatumAanpassing = Today
End Sub
Private Sub btnAfsluiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfsluiten.Click
Application.Exit()
End Sub
Private Sub btnGrootteAanpassen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrootteAanpassen.Click
'ALS MAIN.VB KLEIN IS => GROTER
If boolVerkleindVenster = True Then
Me.Size = New Point(477, 500)
btnGrootteAanpassen.Text = "<"
boolVerkleindVenster = False
Else
Me.Size = New Point(345, 500)
btnGrootteAanpassen.Text = ">"
boolVerkleindVenster = True
End If
End Sub
Private Sub btnDagoverzicht_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDagoverzicht.Click
Dagoverzicht.Show()
End Sub
Private Sub btnMaandoverzicht_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaandoverzicht.Click
End Sub
Private Sub btnOpties_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpties.Click
Opties.Show()
End Sub
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Hide()
Splash.Show()
End Sub
End Class
