Public Class Form1

    Dim tallinn_time As Date
    Dim stocholm_time As Date
    Dim tallinn_departure As Date
    Dim stocholm_departure As Date
    Dim tallinn_arrival As Date
    Dim stocholm_arrival As Date
    Dim tspeed, sspeed As Integer
    Const a = 5, b = 10, c = 15
    Dim linenr As Integer
    Dim both_arrived As Boolean

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Const fname$ = "departure_time.txt"
        If System.IO.File.Exists(fname) = True Then
            Dim objReader As New System.IO.StreamReader(fname)

            Dim TextLine As String = ""
            Do While objReader.Peek() <> -1
                TextLine = ""
                TextLine = TextLine & objReader.ReadLine() & vbNewLine
                If linenr = 0 Then
                    'Label4.Text = Microsoft.VisualBasic.Left(TextLine, 5)
                    tallinn_departure = Microsoft.VisualBasic.Left(TextLine, 5) & ":00 PM"
                ElseIf linenr = 1 Then
                    'Label2.Text = Microsoft.VisualBasic.Left(TextLine, 5)
                    stocholm_departure = Microsoft.VisualBasic.Left(TextLine, 5) & ":00 PM"
                End If
                linenr = linenr + 1
            Loop

            objReader.Close()
        Else
            MsgBox("File Does Not Exist")
        End If
        'aga ta ju ei loe seda faili :( v nagu millal ja kuidas ma panen selle, et ta selle järgi hakkaks liikuma? see laev

        both_arrived = False
        Timer1.Start()

        tspeed = -Int(Rnd() * (c - b + 1) + b)
        sspeed = Int(Rnd() * (b - a + 1) + a)
        'mulle külle ei tundu, et ta randomilt oleks valinud kiirused. aga no, mingi mõte vähemalt :D

        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipY)
        Label5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False

        tallinn_time = "14:00:00 PM"
        Label4.Text = Format(tallinn_time, "HH:mm")
        stocholm_time = "13:00:00 PM"
        Label2.Text = Format(stocholm_time, "HH:mm")




    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        tallinn_time = tallinn_time.AddMinutes(1)
        stocholm_time = stocholm_time.AddMinutes(1)
        Label2.Text = Format(stocholm_time, "HH:mm")
        Label4.Text = Format(tallinn_time, "HH:mm")

        If (PictureBox1.Right > Me.ClientSize.Width) Then
            If (sspeed > tspeed) Then
                both_arrived = True
            End If
            Label5.Visible = True
            Label6.Visible = True
            Label6.Text = Format(stocholm_arrival, "HH:mm")
        Else
            If (stocholm_time >= stocholm_departure) Then
                PictureBox1.Left = PictureBox1.Left + sspeed
            End If
            stocholm_arrival = stocholm_time
        End If

        If (PictureBox2.Left <= 0) Then
            If (tspeed > sspeed) Then
                both_arrived = True
            End If
            Label7.Visible = True
            Label8.Visible = True
            Label8.Text = Format(tallinn_arrival, "HH:mm")
        Else
            If tallinn_time >= tallinn_departure Then
                PictureBox2.Left = PictureBox2.Left + tspeed
            End If
            tallinn_arrival = tallinn_time
        End If

        If both_arrived Then
            Timer1.Stop()
            MsgBox("Laevad on sadamas ilusti")
        End If

    End Sub
End Class