Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form1
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles zone3.Click

    End Sub

    Private Sub otherTickets_Click(sender As Object, e As EventArgs) Handles otherTickets.Click
        MsgBox("THIS SEBE BUS HAS FAILED DOOR ISSUE GO AWAY")
    End Sub

    Private Sub group_Click(sender As Object, e As EventArgs) Handles group.Click
        Dim curDateTime As Date
        curDateTime = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
        Dim groupMessage As String = "Grupipilet: 1SCPII2N4J , Müüdud: " + curDateTime
        MsgBox(groupMessage, 0 + 0, "SEBE")
    End Sub

    Private Sub free_Click(sender As Object, e As EventArgs) Handles free.Click
        Dim tasutaArray = New String() {"164DII38ST", "164DII38T0", "164DII38SO", "2DFLIHT09B", "2CB5IHO4HB", "1V9TII6UP6", "1VOPII7TCT", "21VLIHN4KV", "1SCPII2O3U", "1SF1IHPOU7"}
        Dim curDateTime As Date
        curDateTime = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
        Dim Rand As New Random()
        Dim Index As Integer = Rand.Next(0, tasutaArray.Length)

        Dim tasutaTicket = tasutaArray(Index)
        Dim tasutaMessage As String = "Tasuta pilet: " + tasutaTicket + " , Müüdud: " + curDateTime
        MsgBox(tasutaMessage, 0 + 0, "SEBE")
    End Sub

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

    End Sub

    Private Sub lineAndTime_TextChanged(sender As Object, e As EventArgs) Handles lineAndTime.TextChanged
        lineAndTime.ReadOnly = True
    End Sub

    Private Sub driverName_TextChanged(sender As Object, e As EventArgs) Handles driverName.TextChanged
        driverName.ReadOnly = True
    End Sub

    Private Sub delay_TextChanged(sender As Object, e As EventArgs) Handles delay.TextChanged
        delay.ReadOnly = True
    End Sub

    Public Sub mail_Click(sender As Object, e As EventArgs) Handles mail.Click
        Dim currentLine
        Dim finalStop
        Dim driverNameDim
        Dim configMode
        configMode = MsgBox("Enter config mode?", vbYesNo + vbQuestion, "SEBE CONFIG")
        If configMode = 6 Then
            currentLine = InputBox("Current Line?", "SEBE CONFIG MODE", "", 500, 300)
            driverNameDim = InputBox("Driver name?", "SEBE CONFIG MODE", "", 500, 300)
        ElseIf configMode = 7 Then
            Exit Sub
        End If
        If currentLine = "159" Then
            finalStop = "Balti jaam"
        ElseIf currentLine = "154" Then
            finalStop = "Loksa"
        ElseIf currentLine = "67" Then
            finalStop = "Seli"
        ElseIf currentLine = "44" Then
            finalStop = "Gaasi"
        ElseIf currentLine = "31" Then
            finalStop = "Estonia"
        ElseIf currentLine = "65" Then
            finalStop = "Lennujaam"
        End If
        Dim curDateTimeMin As Date
        curDateTimeMin = DateTime.Now.ToString("HH:mm:ss")
        regTime.Text = curDateTimeMin
        lineAndTime.Text = currentLine + " " + finalStop
        driverName.Text = driverNameDim
        currentStop.Text = finalStop
    End Sub

    Private Sub regTime_TextChanged(sender As Object, e As EventArgs) Handles regTime.TextChanged
        regTime.ReadOnly = True
    End Sub

    Private Sub scanTicket_Click(sender As Object, e As EventArgs) Handles scanTicket.Click
        Dim tasutaArray = New String() {"164DII38ST", "164DII38T0", "164DII38SO", "2DFLIHT09B", "2CB5IHO4HB", "1V9TII6UP6", "1VOPII7TCT", "21VLIHN4KV", "1SCPII2O3U", "1SF1IHPOU7"}
        Dim grupiArray = New String() {"1SCPII2N4J"}
        Dim scanCode = InputBox("Input ticket code", "SEBE DRIVER PANEL", "", 500, 300)
        If tasutaArray.Contains(scanCode) Then
            MsgBox("Tasuta", 0 + 0, "SEBE TICKETS")
        ElseIf grupiArray.Contains(scanCode) Then
            MsgBox("Grupipilet", 0 + 0, "SEBE TICKETS")
        Else
            MsgBox("TUNDMATU PILET", 0 + 0, "SEBE TICKETS")
        End If
    End Sub

    Public Sub generateTicket()

    End Sub

    Private Sub currentStop_Click(sender As Object, e As EventArgs) Handles currentStop.Click

    End Sub

    Private Sub currentStopForward_Click(sender As Object, e As EventArgs) Handles currentStopForward.Click
        Dim currentLine
        If currentLine = "159" Then
            ''Dim stops = ["Neeme", "Ihasalu tee", "Pansionaat", "Koogi kauplus", "VAT.PUNKT", "Lagedi tee", "Kuuli", "Gaasi", "Vesse", "Suur-Paala", "Väike-Paala", "Kivimurru", "Keskturg", "Tornimäe", "Estonia", "Vabaduse väljak", "Balti jaam"]
        End If
    End Sub

    Private Sub zone23_Click(sender As Object, e As EventArgs) Handles zone23.Click

    End Sub
End Class