This commit is contained in:
2025-06-27 12:47:13 +03:00
commit 5f7a071fc8
44 changed files with 1074 additions and 0 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

25
sebe drive rpanel.sln Normal file
View File

@ -0,0 +1,25 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 17
VisualStudioVersion = 17.3.32825.248
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "sebe drive rpanel", "sebe drive rpanel\sebe drive rpanel.vbproj", "{776702D0-F454-48CE-9665-4A0823BC7D4B}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{776702D0-F454-48CE-9665-4A0823BC7D4B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{776702D0-F454-48CE-9665-4A0823BC7D4B}.Debug|Any CPU.Build.0 = Debug|Any CPU
{776702D0-F454-48CE-9665-4A0823BC7D4B}.Release|Any CPU.ActiveCfg = Release|Any CPU
{776702D0-F454-48CE-9665-4A0823BC7D4B}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {F4E01079-E5C1-43DC-95E8-EFD7CD321FB8}
EndGlobalSection
EndGlobal

View File

@ -0,0 +1,29 @@
Imports Microsoft.VisualBasic.ApplicationServices
Namespace My
' The following events are available for MyApplication:
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
' **NEW** ApplyApplicationDefaults: Raised when the application queries default values to be set for the application.
' Example:
' Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
'
' ' Setting the application-wide default Font:
' e.Font = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Regular)
'
' ' Setting the HighDpiMode for the Application:
' e.HighDpiMode = HighDpiMode.PerMonitorV2
'
' ' If a splash dialog is used, this sets the minimum display time:
' e.MinimumSplashScreenDisplayTime = 4000
' End Sub
Partial Friend Class MyApplication
End Class
End Namespace

348
sebe drive rpanel/Form1.Designer.vb generated Normal file
View File

@ -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

View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

115
sebe drive rpanel/Form1.vb Normal file
View File

@ -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

View File

@ -0,0 +1,37 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = False
Me.EnableVisualStyles = True
Me.SaveMySettingsOnExit = True
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Form1
End Sub
End Class
End Namespace

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,23 @@
{
"runtimeTarget": {
"name": ".NETCoreApp,Version=v6.0",
"signature": ""
},
"compilationOptions": {},
"targets": {
".NETCoreApp,Version=v6.0": {
"sebe drive rpanel/1.0.0": {
"runtime": {
"sebe drive rpanel.dll": {}
}
}
}
},
"libraries": {
"sebe drive rpanel/1.0.0": {
"type": "project",
"serviceable": false,
"sha512": ""
}
}
}

View File

@ -0,0 +1,15 @@
{
"runtimeOptions": {
"tfm": "net6.0",
"frameworks": [
{
"name": "Microsoft.NETCore.App",
"version": "6.0.0"
},
{
"name": "Microsoft.WindowsDesktop.App",
"version": "6.0.0"
}
]
}
}

View File

@ -0,0 +1,7 @@
' <autogenerated/>
Option Strict Off
Option Explicit On
Imports System
Imports System.Reflection
<Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETCoreApp,Version=v6.0", FrameworkDisplayName:=".NET 6.0")>

Binary file not shown.

View File

@ -0,0 +1,26 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.Reflection
<Assembly: System.Reflection.AssemblyCompanyAttribute("sebe drive rpanel"), _
Assembly: System.Reflection.AssemblyConfigurationAttribute("Debug"), _
Assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0"), _
Assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0"), _
Assembly: System.Reflection.AssemblyProductAttribute("sebe drive rpanel"), _
Assembly: System.Reflection.AssemblyTitleAttribute("sebe drive rpanel"), _
Assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0"), _
Assembly: System.Runtime.Versioning.TargetPlatformAttribute("Windows7.0"), _
Assembly: System.Runtime.Versioning.SupportedOSPlatformAttribute("Windows7.0")>
'Generated by the MSBuild WriteCodeFragment class.

View File

@ -0,0 +1 @@
0ead90febeebf1d3a045df9ce5a74e95f1c7da69

View File

@ -0,0 +1,17 @@
is_global = true
build_property.ApplicationManifest =
build_property.StartupObject = Sub Main
build_property.ApplicationDefaultFont =
build_property.ApplicationHighDpiMode =
build_property.ApplicationUseCompatibleTextRendering =
build_property.ApplicationVisualStyles =
build_property.TargetFramework = net6.0-windows
build_property.TargetPlatformMinVersion = 7.0
build_property.UsingMicrosoftNETSdkWeb =
build_property.ProjectTypeGuids =
build_property.InvariantGlobalization =
build_property.PlatformNeutralAssembly =
build_property.EnforceExtendedAnalyzerRules =
build_property._SupportedPlatformList = Linux,macOS,Windows
build_property.RootNamespace = sebe_drive_rpanel
build_property.ProjectDir = C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\

View File

@ -0,0 +1,11 @@
{
"runtimeTarget": {
"name": ".NETCoreApp,Version=v6.0",
"signature": ""
},
"compilationOptions": {},
"targets": {
".NETCoreApp,Version=v6.0": {}
},
"libraries": {}
}

View File

@ -0,0 +1,23 @@
{
"runtimeOptions": {
"tfm": "net6.0",
"frameworks": [
{
"name": "Microsoft.NETCore.App",
"version": "6.0.0"
},
{
"name": "Microsoft.WindowsDesktop.App",
"version": "6.0.0"
}
],
"additionalProbingPaths": [
"C:\\Users\\renha\\.dotnet\\store\\|arch|\\|tfm|",
"C:\\Users\\renha\\.nuget\\packages",
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages"
],
"configProperties": {
"Microsoft.NETCore.DotNetHostPolicy.SetAppPaths": true
}
}
}

View File

@ -0,0 +1 @@
e5947134c89b86f9cfc76a6f94575c434b6f18b0

View File

@ -0,0 +1 @@
8ab7ec29faeae5c2d9784926e15925ae0e51b97a

View File

@ -0,0 +1,50 @@
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.exe
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.deps.json
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.runtimeconfig.json
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.dll
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.pdb
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.AssemblyReference.cache
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe_drive_rpanel.Form1.resources
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.GenerateResource.cache
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.GeneratedMSBuildEditorConfig.editorconfig
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.AssemblyInfoInputs.cache
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.AssemblyInfo.vb
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.CoreCompileInputs.cache
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.dll
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\refint\sebe drive rpanel.dll
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.pdb
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.genruntimeconfig.cache
I:\Programming\lcesim\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\ref\sebe drive rpanel.dll
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.exe
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.deps.json
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.runtimeconfig.json
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.dll
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.pdb
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe_drive_rpanel.Form1.resources
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.GenerateResource.cache
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.GeneratedMSBuildEditorConfig.editorconfig
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.AssemblyInfoInputs.cache
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.AssemblyInfo.vb
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.CoreCompileInputs.cache
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.dll
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\refint\sebe drive rpanel.dll
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.pdb
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.genruntimeconfig.cache
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\ref\sebe drive rpanel.dll
C:\Users\renha\OneDrive\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.AssemblyReference.cache
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.exe
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.deps.json
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.runtimeconfig.json
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.dll
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\bin\Debug\net6.0-windows\sebe drive rpanel.pdb
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe_drive_rpanel.Form1.resources
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.GenerateResource.cache
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.GeneratedMSBuildEditorConfig.editorconfig
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.AssemblyInfoInputs.cache
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.AssemblyInfo.vb
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.vbproj.CoreCompileInputs.cache
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.dll
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\refint\sebe drive rpanel.dll
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.pdb
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\sebe drive rpanel.genruntimeconfig.cache
C:\Users\renha\OneDrive\Documents\sebe drive rpanel\sebe drive rpanel\obj\Debug\net6.0-windows\ref\sebe drive rpanel.dll

View File

@ -0,0 +1,77 @@
{
"version": 3,
"targets": {
"net6.0-windows7.0": {}
},
"libraries": {},
"projectFileDependencyGroups": {
"net6.0-windows7.0": []
},
"packageFolders": {
"C:\\Users\\renha\\.nuget\\packages\\": {},
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages": {}
},
"project": {
"version": "1.0.0",
"restore": {
"projectUniqueName": "C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\sebe drive rpanel.vbproj",
"projectName": "sebe drive rpanel",
"projectPath": "C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\sebe drive rpanel.vbproj",
"packagesPath": "C:\\Users\\renha\\.nuget\\packages\\",
"outputPath": "C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\obj\\",
"projectStyle": "PackageReference",
"fallbackFolders": [
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages"
],
"configFilePaths": [
"C:\\Users\\renha\\AppData\\Roaming\\NuGet\\NuGet.Config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config"
],
"originalTargetFrameworks": [
"net6.0-windows"
],
"sources": {
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
"C:\\Program Files\\dotnet\\library-packs": {},
"https://api.nuget.org/v3/index.json": {}
},
"frameworks": {
"net6.0-windows7.0": {
"targetAlias": "net6.0-windows",
"projectReferences": {}
}
},
"warningProperties": {
"warnAsError": [
"NU1605"
]
}
},
"frameworks": {
"net6.0-windows7.0": {
"targetAlias": "net6.0-windows",
"imports": [
"net461",
"net462",
"net47",
"net471",
"net472",
"net48",
"net481"
],
"assetTargetFallback": true,
"warn": true,
"frameworkReferences": {
"Microsoft.NETCore.App": {
"privateAssets": "all"
},
"Microsoft.WindowsDesktop.App.WindowsForms": {
"privateAssets": "none"
}
},
"runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\7.0.402\\RuntimeIdentifierGraph.json"
}
}
}
}

View File

@ -0,0 +1,8 @@
{
"version": 2,
"dgSpecHash": "TYDBBMkfSn8CNHmLbfxmbC/v7mWdOIVAjUMwLiP5mLlsDIQjYzx5KH1940j3Zk3GsbgjYyKy8lES2zFNN62ngw==",
"success": true,
"projectFilePath": "C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\sebe drive rpanel.vbproj",
"expectedPackageFiles": [],
"logs": []
}

View File

@ -0,0 +1,71 @@
{
"format": 1,
"restore": {
"C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\sebe drive rpanel.vbproj": {}
},
"projects": {
"C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\sebe drive rpanel.vbproj": {
"version": "1.0.0",
"restore": {
"projectUniqueName": "C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\sebe drive rpanel.vbproj",
"projectName": "sebe drive rpanel",
"projectPath": "C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\sebe drive rpanel.vbproj",
"packagesPath": "C:\\Users\\renha\\.nuget\\packages\\",
"outputPath": "C:\\Users\\renha\\OneDrive\\Documents\\sebe drive rpanel\\sebe drive rpanel\\obj\\",
"projectStyle": "PackageReference",
"fallbackFolders": [
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages"
],
"configFilePaths": [
"C:\\Users\\renha\\AppData\\Roaming\\NuGet\\NuGet.Config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config"
],
"originalTargetFrameworks": [
"net6.0-windows"
],
"sources": {
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
"C:\\Program Files\\dotnet\\library-packs": {},
"https://api.nuget.org/v3/index.json": {}
},
"frameworks": {
"net6.0-windows7.0": {
"targetAlias": "net6.0-windows",
"projectReferences": {}
}
},
"warningProperties": {
"warnAsError": [
"NU1605"
]
}
},
"frameworks": {
"net6.0-windows7.0": {
"targetAlias": "net6.0-windows",
"imports": [
"net461",
"net462",
"net47",
"net471",
"net472",
"net48",
"net481"
],
"assetTargetFallback": true,
"warn": true,
"frameworkReferences": {
"Microsoft.NETCore.App": {
"privateAssets": "all"
},
"Microsoft.WindowsDesktop.App.WindowsForms": {
"privateAssets": "none"
}
},
"runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\7.0.402\\RuntimeIdentifierGraph.json"
}
}
}
}
}

View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<RestoreSuccess Condition=" '$(RestoreSuccess)' == '' ">True</RestoreSuccess>
<RestoreTool Condition=" '$(RestoreTool)' == '' ">NuGet</RestoreTool>
<ProjectAssetsFile Condition=" '$(ProjectAssetsFile)' == '' ">$(MSBuildThisFileDirectory)project.assets.json</ProjectAssetsFile>
<NuGetPackageRoot Condition=" '$(NuGetPackageRoot)' == '' ">$(UserProfile)\.nuget\packages\</NuGetPackageRoot>
<NuGetPackageFolders Condition=" '$(NuGetPackageFolders)' == '' ">C:\Users\renha\.nuget\packages\;C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages</NuGetPackageFolders>
<NuGetProjectStyle Condition=" '$(NuGetProjectStyle)' == '' ">PackageReference</NuGetProjectStyle>
<NuGetToolVersion Condition=" '$(NuGetToolVersion)' == '' ">6.7.0</NuGetToolVersion>
</PropertyGroup>
<ItemGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<SourceRoot Include="C:\Users\renha\.nuget\packages\" />
<SourceRoot Include="C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages\" />
</ItemGroup>
</Project>

View File

@ -0,0 +1,2 @@
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" />

View File

@ -0,0 +1,33 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>WinExe</OutputType>
<TargetFramework>net6.0-windows</TargetFramework>
<RootNamespace>sebe_drive_rpanel</RootNamespace>
<StartupObject>Sub Main</StartupObject>
<UseWindowsForms>true</UseWindowsForms>
<MyType>WindowsForms</MyType>
</PropertyGroup>
<ItemGroup>
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Update="My Project\Application.Designer.vb">
<DesignTime>True</DesignTime>
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<None Update="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
</Project>

View File

@ -0,0 +1,8 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup>
<Compile Update="Form1.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
</Project>