Initial

2025-06-27 12:47:13 +03:00
commit 5f7a071fc8
44 changed files with 1074 additions and 0 deletions
--- a/rpanel/Form1.Designer.vb
+++ b/rpanel/Form1.Designer.vb
@ -0,0 +1,348 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        mail = New Button()
+        cardInfo = New Button()
+        plus = New Button()
+        currentStop = New Button()
+        zone = New Button()
+        currentStopBack = New Button()
+        zoneBack = New Button()
+        currentStopForward = New Button()
+        zoneForward = New Button()
+        otherTickets = New Button()
+        group = New Button()
+        zone23 = New Button()
+        free = New Button()
+        zone13 = New Button()
+        zone3 = New Button()
+        aloneticket = New Button()
+        lineAndTime = New TextBox()
+        driverName = New TextBox()
+        delay = New TextBox()
+        scanTicket = New Button()
+        regTime = New TextBox()
+        SuspendLayout()
+        ' 
+        ' mail
+        ' 
+        mail.BackColor = SystemColors.HotTrack
+        mail.Font = New Font("Segoe UI", 27.75F, FontStyle.Bold, GraphicsUnit.Point)
+        mail.ForeColor = SystemColors.ButtonHighlight
+        mail.Location = New Point(12, 12)
+        mail.Name = "mail"
+        mail.Size = New Size(113, 62)
+        mail.TabIndex = 0
+        mail.Text = "✉"
+        mail.UseVisualStyleBackColor = False
+        ' 
+        ' cardInfo
+        ' 
+        cardInfo.BackColor = SystemColors.HotTrack
+        cardInfo.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        cardInfo.ForeColor = SystemColors.ButtonHighlight
+        cardInfo.Location = New Point(122, 12)
+        cardInfo.Name = "cardInfo"
+        cardInfo.Size = New Size(322, 62)
+        cardInfo.TabIndex = 1
+        cardInfo.Text = "Kaardi info"
+        cardInfo.UseVisualStyleBackColor = False
+        ' 
+        ' plus
+        ' 
+        plus.BackColor = SystemColors.HotTrack
+        plus.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        plus.ForeColor = SystemColors.ButtonHighlight
+        plus.Location = New Point(440, 12)
+        plus.Name = "plus"
+        plus.Size = New Size(348, 62)
+        plus.TabIndex = 2
+        plus.Text = "+"
+        plus.UseVisualStyleBackColor = False
+        ' 
+        ' currentStop
+        ' 
+        currentStop.BackColor = Color.OliveDrab
+        currentStop.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        currentStop.ForeColor = SystemColors.ButtonHighlight
+        currentStop.Location = New Point(372, 92)
+        currentStop.Name = "currentStop"
+        currentStop.Size = New Size(346, 62)
+        currentStop.TabIndex = 3
+        currentStop.Text = "Neeme (Harju 3)"
+        currentStop.UseVisualStyleBackColor = False
+        ' 
+        ' zone
+        ' 
+        zone.BackColor = SystemColors.HotTrack
+        zone.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        zone.ForeColor = SystemColors.ButtonHighlight
+        zone.Location = New Point(372, 160)
+        zone.Name = "zone"
+        zone.Size = New Size(346, 62)
+        zone.TabIndex = 4
+        zone.Text = "Harju 1"
+        zone.UseVisualStyleBackColor = False
+        ' 
+        ' currentStopBack
+        ' 
+        currentStopBack.BackColor = SystemColors.ButtonShadow
+        currentStopBack.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        currentStopBack.ForeColor = SystemColors.ButtonHighlight
+        currentStopBack.Location = New Point(324, 92)
+        currentStopBack.Name = "currentStopBack"
+        currentStopBack.Size = New Size(42, 62)
+        currentStopBack.TabIndex = 5
+        currentStopBack.Text = "<"
+        currentStopBack.UseVisualStyleBackColor = False
+        ' 
+        ' zoneBack
+        ' 
+        zoneBack.BackColor = SystemColors.HotTrack
+        zoneBack.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        zoneBack.ForeColor = SystemColors.ButtonHighlight
+        zoneBack.Location = New Point(324, 160)
+        zoneBack.Name = "zoneBack"
+        zoneBack.Size = New Size(42, 62)
+        zoneBack.TabIndex = 6
+        zoneBack.Text = "<"
+        zoneBack.UseVisualStyleBackColor = False
+        ' 
+        ' currentStopForward
+        ' 
+        currentStopForward.BackColor = SystemColors.ButtonShadow
+        currentStopForward.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        currentStopForward.ForeColor = SystemColors.ButtonHighlight
+        currentStopForward.Location = New Point(724, 92)
+        currentStopForward.Name = "currentStopForward"
+        currentStopForward.Size = New Size(42, 62)
+        currentStopForward.TabIndex = 7
+        currentStopForward.Text = ">"
+        currentStopForward.UseVisualStyleBackColor = False
+        ' 
+        ' zoneForward
+        ' 
+        zoneForward.BackColor = SystemColors.ButtonShadow
+        zoneForward.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        zoneForward.ForeColor = SystemColors.ButtonHighlight
+        zoneForward.Location = New Point(724, 160)
+        zoneForward.Name = "zoneForward"
+        zoneForward.Size = New Size(42, 62)
+        zoneForward.TabIndex = 8
+        zoneForward.Text = ">"
+        zoneForward.UseVisualStyleBackColor = False
+        ' 
+        ' otherTickets
+        ' 
+        otherTickets.BackColor = SystemColors.HotTrack
+        otherTickets.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        otherTickets.ForeColor = SystemColors.ButtonHighlight
+        otherTickets.Location = New Point(608, 317)
+        otherTickets.Name = "otherTickets"
+        otherTickets.Size = New Size(180, 121)
+        otherTickets.TabIndex = 9
+        otherTickets.Text = "Teised Piletid"
+        otherTickets.UseVisualStyleBackColor = False
+        ' 
+        ' group
+        ' 
+        group.BackColor = SystemColors.HotTrack
+        group.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        group.ForeColor = SystemColors.ButtonHighlight
+        group.Location = New Point(423, 379)
+        group.Name = "group"
+        group.Size = New Size(179, 59)
+        group.TabIndex = 10
+        group.Text = "Grupipilet"
+        group.UseVisualStyleBackColor = False
+        ' 
+        ' zone23
+        ' 
+        zone23.BackColor = SystemColors.HotTrack
+        zone23.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        zone23.ForeColor = SystemColors.ButtonHighlight
+        zone23.Location = New Point(423, 317)
+        zone23.Name = "zone23"
+        zone23.Size = New Size(179, 56)
+        zone23.TabIndex = 11
+        zone23.Text = "2.-3. tsoon" & vbCrLf & " 2.00 EUR"
+        zone23.UseVisualStyleBackColor = False
+        ' 
+        ' free
+        ' 
+        free.BackColor = SystemColors.HotTrack
+        free.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        free.ForeColor = SystemColors.ButtonHighlight
+        free.Location = New Point(225, 317)
+        free.Name = "free"
+        free.Size = New Size(192, 56)
+        free.TabIndex = 13
+        free.Text = " Tasuta" & vbCrLf & "0.00 EUR"
+        free.UseVisualStyleBackColor = False
+        ' 
+        ' zone13
+        ' 
+        zone13.BackColor = SystemColors.HotTrack
+        zone13.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        zone13.ForeColor = SystemColors.ButtonHighlight
+        zone13.Location = New Point(225, 379)
+        zone13.Name = "zone13"
+        zone13.Size = New Size(192, 59)
+        zone13.TabIndex = 12
+        zone13.Text = "1.-3. tsoon" & vbCrLf & "  2.90 EUR"
+        zone13.UseVisualStyleBackColor = False
+        ' 
+        ' zone3
+        ' 
+        zone3.BackColor = SystemColors.HotTrack
+        zone3.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        zone3.ForeColor = SystemColors.ButtonHighlight
+        zone3.Location = New Point(12, 317)
+        zone3.Name = "zone3"
+        zone3.Size = New Size(207, 56)
+        zone3.TabIndex = 15
+        zone3.Text = "3. tsoon" & vbCrLf & "1.10 EUR"
+        zone3.UseVisualStyleBackColor = False
+        ' 
+        ' aloneticket
+        ' 
+        aloneticket.BackColor = SystemColors.HotTrack
+        aloneticket.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        aloneticket.ForeColor = SystemColors.ButtonHighlight
+        aloneticket.Location = New Point(12, 379)
+        aloneticket.Name = "aloneticket"
+        aloneticket.Size = New Size(207, 59)
+        aloneticket.TabIndex = 14
+        aloneticket.Text = "Üksikpilet" & vbCrLf & " 2.90 EUR"
+        aloneticket.UseVisualStyleBackColor = False
+        ' 
+        ' lineAndTime
+        ' 
+        lineAndTime.BackColor = SystemColors.MenuText
+        lineAndTime.BorderStyle = BorderStyle.None
+        lineAndTime.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
+        lineAndTime.ForeColor = SystemColors.Window
+        lineAndTime.Location = New Point(12, 80)
+        lineAndTime.Name = "lineAndTime"
+        lineAndTime.Size = New Size(194, 28)
+        lineAndTime.TabIndex = 16
+        ' 
+        ' driverName
+        ' 
+        driverName.BackColor = SystemColors.MenuText
+        driverName.BorderStyle = BorderStyle.None
+        driverName.ForeColor = SystemColors.Window
+        driverName.Location = New Point(12, 131)
+        driverName.Name = "driverName"
+        driverName.Size = New Size(156, 16)
+        driverName.TabIndex = 17
+        ' 
+        ' delay
+        ' 
+        delay.BackColor = SystemColors.MenuText
+        delay.BorderStyle = BorderStyle.None
+        delay.ForeColor = SystemColors.Window
+        delay.Location = New Point(244, 131)
+        delay.Name = "delay"
+        delay.Size = New Size(74, 16)
+        delay.TabIndex = 18
+        ' 
+        ' scanTicket
+        ' 
+        scanTicket.BackColor = Color.Red
+        scanTicket.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point)
+        scanTicket.ForeColor = SystemColors.ButtonHighlight
+        scanTicket.Location = New Point(12, 170)
+        scanTicket.Name = "scanTicket"
+        scanTicket.Size = New Size(180, 52)
+        scanTicket.TabIndex = 19
+        scanTicket.Text = "SCAN"
+        scanTicket.UseVisualStyleBackColor = False
+        ' 
+        ' regTime
+        ' 
+        regTime.BackColor = SystemColors.MenuText
+        regTime.BorderStyle = BorderStyle.None
+        regTime.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
+        regTime.ForeColor = SystemColors.Window
+        regTime.Location = New Point(212, 80)
+        regTime.Name = "regTime"
+        regTime.Size = New Size(106, 28)
+        regTime.TabIndex = 20
+        ' 
+        ' Form1
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackColor = SystemColors.ActiveCaptionText
+        ClientSize = New Size(800, 450)
+        Controls.Add(regTime)
+        Controls.Add(scanTicket)
+        Controls.Add(delay)
+        Controls.Add(driverName)
+        Controls.Add(lineAndTime)
+        Controls.Add(zone3)
+        Controls.Add(aloneticket)
+        Controls.Add(free)
+        Controls.Add(zone13)
+        Controls.Add(zone23)
+        Controls.Add(group)
+        Controls.Add(otherTickets)
+        Controls.Add(zoneForward)
+        Controls.Add(currentStopForward)
+        Controls.Add(zoneBack)
+        Controls.Add(currentStopBack)
+        Controls.Add(zone)
+        Controls.Add(currentStop)
+        Controls.Add(plus)
+        Controls.Add(cardInfo)
+        Controls.Add(mail)
+        Name = "Form1"
+        Text = "bus driver thingy"
+        ResumeLayout(False)
+        PerformLayout()
+    End Sub
+
+    Friend WithEvents mail As Button
+    Friend WithEvents cardInfo As Button
+    Friend WithEvents plus As Button
+    Friend WithEvents currentStop As Button
+    Friend WithEvents zone As Button
+    Friend WithEvents currentStopBack As Button
+    Friend WithEvents zoneBack As Button
+    Friend WithEvents currentStopForward As Button
+    Friend WithEvents zoneForward As Button
+    Friend WithEvents otherTickets As Button
+    Friend WithEvents group As Button
+    Friend WithEvents zone23 As Button
+    Friend WithEvents free As Button
+    Friend WithEvents zone13 As Button
+    Friend WithEvents zone3 As Button
+    Friend WithEvents aloneticket As Button
+    Friend WithEvents lineAndTime As TextBox
+    Friend WithEvents driverName As TextBox
+    Friend WithEvents delay As TextBox
+    Friend WithEvents scanTicket As Button
+    Friend WithEvents regTime As TextBox
+End Class