116 lines
4.6 KiB
VB.net
116 lines
4.6 KiB
VB.net
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
|