Initial

sebe drive rpanel/Form1.vb

@@ -0,0 +1,115 @@
+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