boris/TPS1100-Convert
boris/TPS1100-Convert
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Verzija 2.8.0.0 RC

Browse Source
This commit is contained in:
Boris Bilc 2024-07-11 01:26:11 +02:00
parent 5d3f2bedab
commit cf13ba2a22
41 changed files with 8152 additions and 166 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
App.config
View File

@ -70,6 +70,12 @@
<setting name="KodaStojisceOri" serializeAs="String">
<value>3</value>
</setting>
<setting name="Projekt" serializeAs="String">
<value>Virtualna Kartica</value>
</setting>
<setting name="ProjektMapa" serializeAs="String">
<value>Virtualna Kartica\GSI</value>
</setting>
</TPS1100_Convert.My.MySettings>
</userSettings>
</configuration>

30
CHANGELOG.md
View File

@ -2,8 +2,38 @@
Zapisnik razvoja programa TPS1100 Convert.
---
## v2.8.0.0 (2024/07/03) - Nova verzija!
- Inteegracija projektov (Virtualna Kartica/Projekti)
- Priprava okna za urejanje projektov
- Dodana nastavitev My.Setting.Projekt (Privzeta vrednost: "Virtualna Kartica")
- Dodana nastavitev My.Setting.ProjektMapa (Privzeta vrednost: "\Virtualna Kartica")
- Dodana mapa "Virtualna Kartica" (Struktura mape kot na PC-Kartici)
- Dodana mapa "Projekti" za posebne projekte
- Preureditev podatkov v mapi ../Podatki
- Datoteke GSI se pred procesiranjem kopirajo v delovni projekt
- Izvorne datoteke izven delovne mape ostanejo originalne
- Pregled GSI jobov v projektih in nalaganje za procesiranje v TPS1100 Convert
- Dodana funkcija za uvoz GSI joba v delovni projekt
- Posodobljen izgled UI
- Popravki delovanja priprave GEO skripte in Zapisnika
- Dodane funkcije za pripravo podatkov za stojišča
---
## v2.7.1.0 (2024/07/03)
- Idejna zasnova za razvoj "Virtualna Kartica/Projekti"
---
## v2.7.0.9 (2024/06/29)
- Popravki nalaganja nastavitev iz datoteke "tps1100_kode.txt" pri zagonu aplikacije

113
DialogNovProj.Designer.vb generated Normal file
View File

@ -0,0 +1,113 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogNovProj
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()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(90, 49)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Cancel"
'
'TextBox1
'
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(80, 8)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(156, 22)
Me.TextBox1.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(66, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Ime Projekta"
'
'DialogNovProj
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(244, 86)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogNovProj"
Me.Padding = New System.Windows.Forms.Padding(5)
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Nov Projekt"
Me.TopMost = True
Me.TableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Label1 As Label
End Class

120
DialogNovProj.resx Normal file
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>

24
DialogNovProj.vb Normal file
View File

@ -0,0 +1,24 @@
Imports System.Windows.Forms
Public Class DialogNovProj
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
If (My.Computer.FileSystem.DirectoryExists("Projekti\" + TextBox1.Text)) Then
MessageBox.Show("Projekt z tem imenom že obstaja!")
Else
My.Computer.FileSystem.CreateDirectory("Projekti\" + TextBox1.Text)
FormGsiJobs.ListViewProj.Items.Add(TextBox1.Text).SubItems.Add("Projekti\" + TextBox1.Text)
FormGsiJobs.ProjektiShraniNast()
End If
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
End Class

252
Form1.Designer.vb generated
View File

@ -33,26 +33,36 @@ Partial Class Form1
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbOpenFile = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonPripravi = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
Me.tsbConvert = New System.Windows.Forms.ToolStripButton()
Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonGeo = New System.Windows.Forms.ToolStripButton()
Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.OpenFileDialogTocke = New System.Windows.Forms.OpenFileDialog()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriJobToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.PripraviGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ManagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NovProjektToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
@ -67,18 +77,15 @@ Partial Class Form1
'
'RichTextBox1
'
Me.RichTextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.RichTextBox1.BackColor = System.Drawing.SystemColors.Control
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.Default
Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.RichTextBox1.Location = New System.Drawing.Point(9, 71)
Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1)
Me.RichTextBox1.Location = New System.Drawing.Point(9, 86)
Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(1233, 647)
Me.RichTextBox1.Size = New System.Drawing.Size(1233, 633)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = resources.GetString("RichTextBox1.Text")
Me.RichTextBox1.WordWrap = False
@ -86,6 +93,7 @@ Partial Class Form1
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripProgressBar1, Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2})
Me.StatusStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.StatusStrip1.Location = New System.Drawing.Point(0, 719)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1251, 22)
@ -126,46 +134,89 @@ Partial Class Form1
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 37)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 54)
'
'tsbFileName
'
Me.tsbFileName.AutoSize = False
Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tsbFileName.BackColor = System.Drawing.SystemColors.MenuBar
Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.tsbFileName.Name = "tsbFileName"
Me.tsbFileName.ReadOnly = True
Me.tsbFileName.Size = New System.Drawing.Size(200, 25)
Me.tsbFileName.Size = New System.Drawing.Size(150, 25)
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(30, 30)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LabelDatoteka, Me.tsbFileName, Me.tsbOpenFile, Me.ToolStripButtonPripravi, Me.ToolStripSeparator5, Me.ButtonUrediDat, Me.ToolStripSeparator1, Me.tsbConvert, Me.tsbPointsOnly, Me.ToolStripButtonGeo, Me.ToolStripSeparator4, Me.tsbSaveAs, Me.ToolStripButton1})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.ToolStripSeparator11, Me.ToolStripButton2, Me.tsbFileName, Me.LabelDatoteka, Me.ButtonUrediDat, Me.ToolStripSeparator5, Me.tsbOpenFile, Me.ToolStripButtonPripravi, Me.ToolStripSeparator1, Me.tsbConvert, Me.ToolStripButtonGeo, Me.tsbPointsOnly, Me.ToolStripButton3, Me.ToolStripSeparator4, Me.tsbSaveAs, Me.ToolStripButton1, Me.ToolStripSeparator9, Me.ToolStripLabel1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 5, 10, 5)
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 47)
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5)
Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 64)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripLabel2
'
Me.ToolStripLabel2.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.ToolStripLabel2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(60, 51)
Me.ToolStripLabel2.Text = "<projekt>"
Me.ToolStripLabel2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 54)
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 51)
Me.ToolStripButton2.Text = "Odpri Job"
Me.ToolStripButton2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButton2.ToolTipText = "Izberi Job..."
'
'LabelDatoteka
'
Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
Me.LabelDatoteka.Name = "LabelDatoteka"
Me.LabelDatoteka.Size = New System.Drawing.Size(30, 34)
Me.LabelDatoteka.Text = "Datoteka"
Me.LabelDatoteka.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.LabelDatoteka.Size = New System.Drawing.Size(35, 51)
Me.LabelDatoteka.ToolTipText = "Ni datoteke"
'
'ButtonUrediDat
'
Me.ButtonUrediDat.Enabled = False
Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_stationery_50
Me.ButtonUrediDat.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ButtonUrediDat.Name = "ButtonUrediDat"
Me.ButtonUrediDat.Size = New System.Drawing.Size(54, 51)
Me.ButtonUrediDat.Text = "Urejanje"
Me.ButtonUrediDat.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ButtonUrediDat.ToolTipText = "Uredi podatke GSI datoteke..."
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 54)
'
'tsbOpenFile
'
Me.tsbOpenFile.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
Me.tsbOpenFile.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.tsbOpenFile.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbOpenFile.Name = "tsbOpenFile"
Me.tsbOpenFile.Size = New System.Drawing.Size(91, 34)
Me.tsbOpenFile.Text = "Odpri GSI"
Me.tsbOpenFile.Size = New System.Drawing.Size(61, 51)
Me.tsbOpenFile.Text = "Uvozi Job"
Me.tsbOpenFile.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbOpenFile.ToolTipText = "Izberi GSI datoteko..."
'
'ToolStripButtonPripravi
@ -173,60 +224,62 @@ Partial Class Form1
Me.ToolStripButtonPripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ToolStripButtonPripravi.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonPripravi.Name = "ToolStripButtonPripravi"
Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(101, 34)
Me.ToolStripButtonPripravi.Text = "Pripravi GSI"
Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(73, 51)
Me.ToolStripButtonPripravi.Text = "Uvozi Točke"
Me.ToolStripButtonPripravi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonPripravi.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 37)
'
'ButtonUrediDat
'
Me.ButtonUrediDat.Enabled = False
Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_edit_50
Me.ButtonUrediDat.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ButtonUrediDat.Name = "ButtonUrediDat"
Me.ButtonUrediDat.Size = New System.Drawing.Size(69, 34)
Me.ButtonUrediDat.Text = "Uredi"
Me.ButtonUrediDat.ToolTipText = "Uredi podatke GSI datoteke..."
'
'tsbConvert
'
Me.tsbConvert.AutoSize = False
Me.tsbConvert.Enabled = False
Me.tsbConvert.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tsbConvert.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
Me.tsbConvert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbConvert.Name = "tsbConvert"
Me.tsbConvert.Size = New System.Drawing.Size(128, 34)
Me.tsbConvert.Text = "Zapisnik Meritve"
Me.tsbConvert.Size = New System.Drawing.Size(55, 49)
Me.tsbConvert.Text = "Zapisnik"
Me.tsbConvert.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbConvert.ToolTipText = "Izvozi zapisnik meritev."
'
'tsbPointsOnly
'
Me.tsbPointsOnly.Enabled = False
Me.tsbPointsOnly.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tsbPointsOnly.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_connection_status_on_48
Me.tsbPointsOnly.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbPointsOnly.Name = "tsbPointsOnly"
Me.tsbPointsOnly.Size = New System.Drawing.Size(112, 34)
Me.tsbPointsOnly.Text = "Seznam Točk"
Me.tsbPointsOnly.ToolTipText = "Izvozi koordinate točk."
'
'ToolStripButtonGeo
'
Me.ToolStripButtonGeo.AutoSize = False
Me.ToolStripButtonGeo.Enabled = False
Me.ToolStripButtonGeo.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_drawing_compass_48
Me.ToolStripButtonGeo.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonGeo.Name = "ToolStripButtonGeo"
Me.ToolStripButtonGeo.Size = New System.Drawing.Size(103, 34)
Me.ToolStripButtonGeo.Text = "GEO Skripta"
Me.ToolStripButtonGeo.Size = New System.Drawing.Size(55, 49)
Me.ToolStripButtonGeo.Text = "GEO"
Me.ToolStripButtonGeo.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'tsbPointsOnly
'
Me.tsbPointsOnly.AutoSize = False
Me.tsbPointsOnly.Enabled = False
Me.tsbPointsOnly.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tsbPointsOnly.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_my_location_50
Me.tsbPointsOnly.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbPointsOnly.Name = "tsbPointsOnly"
Me.tsbPointsOnly.Size = New System.Drawing.Size(55, 49)
Me.tsbPointsOnly.Text = "Točke"
Me.tsbPointsOnly.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbPointsOnly.ToolTipText = "Izvozi koordinate točk."
'
'ToolStripButton3
'
Me.ToolStripButton3.Enabled = False
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_mesh_48
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(48, 51)
Me.ToolStripButton3.Text = "Grafika"
Me.ToolStripButton3.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 37)
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 54)
'
'tsbSaveAs
'
@ -235,8 +288,9 @@ Partial Class Form1
Me.tsbSaveAs.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.tsbSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbSaveAs.Name = "tsbSaveAs"
Me.tsbSaveAs.Size = New System.Drawing.Size(93, 34)
Me.tsbSaveAs.Size = New System.Drawing.Size(63, 51)
Me.tsbSaveAs.Text = "Shrani ..."
Me.tsbSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripButton1
'
@ -244,17 +298,29 @@ Partial Class Form1
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(100, 34)
Me.ToolStripButton1.Size = New System.Drawing.Size(100, 51)
Me.ToolStripButton1.Text = "Na Začetek"
Me.ToolStripButton1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 54)
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(0, 51)
'
'OpenFileDialogTocke
'
Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.MenuToolStripMenuItem})
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.ToolStripMenuItem1, Me.MenuToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1251, 24)
@ -263,50 +329,84 @@ Partial Class Form1
'
'DatotekaToolStripMenuItem
'
Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem1, Me.PripraviGSIToolStripMenuItem1, Me.ToolStripSeparator3, Me.ShraniToolStripMenuItem, Me.ToolStripSeparator2, Me.IzhodToolStripMenuItem})
Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_program_50
Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriJobToolStripMenuItem, Me.OdpriGSIToolStripMenuItem1, Me.PripraviGSIToolStripMenuItem1, Me.ToolStripSeparator3, Me.ShraniToolStripMenuItem, Me.ToolStripSeparator2, Me.IzhodToolStripMenuItem})
Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 20)
Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
'
'OdpriJobToolStripMenuItem
'
Me.OdpriJobToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
Me.OdpriJobToolStripMenuItem.Name = "OdpriJobToolStripMenuItem"
Me.OdpriJobToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.OdpriJobToolStripMenuItem.Text = "Odpri Job"
'
'OdpriGSIToolStripMenuItem1
'
Me.OdpriGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
Me.OdpriGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.OdpriGSIToolStripMenuItem1.Name = "OdpriGSIToolStripMenuItem1"
Me.OdpriGSIToolStripMenuItem1.Size = New System.Drawing.Size(134, 22)
Me.OdpriGSIToolStripMenuItem1.Text = "&Odpri GSI"
Me.OdpriGSIToolStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.OdpriGSIToolStripMenuItem1.Text = "&Uvozi Job"
Me.OdpriGSIToolStripMenuItem1.ToolTipText = "Odpri GSI za procesiranje"
'
'PripraviGSIToolStripMenuItem1
'
Me.PripraviGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.PripraviGSIToolStripMenuItem1.Name = "PripraviGSIToolStripMenuItem1"
Me.PripraviGSIToolStripMenuItem1.Size = New System.Drawing.Size(134, 22)
Me.PripraviGSIToolStripMenuItem1.Text = "&Pripravi GSI"
Me.PripraviGSIToolStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.PripraviGSIToolStripMenuItem1.Text = "&Uvozi Točke"
Me.PripraviGSIToolStripMenuItem1.ToolTipText = "Pretvori TXT v GSI"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(131, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(133, 6)
'
'ShraniToolStripMenuItem
'
Me.ShraniToolStripMenuItem.Enabled = False
Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(134, 22)
Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.ShraniToolStripMenuItem.Text = "&Shrani..."
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(131, 6)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(133, 6)
'
'IzhodToolStripMenuItem
'
Me.IzhodToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.IzhodToolStripMenuItem.Name = "IzhodToolStripMenuItem"
Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(134, 22)
Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.IzhodToolStripMenuItem.Text = "I&zhod"
Me.IzhodToolStripMenuItem.ToolTipText = "Izhod iz aplikacije"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ManagerToolStripMenuItem, Me.NovProjektToolStripMenuItem})
Me.ToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(75, 20)
Me.ToolStripMenuItem1.Text = "&Projekti"
'
'ManagerToolStripMenuItem
'
Me.ManagerToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ManagerToolStripMenuItem.Name = "ManagerToolStripMenuItem"
Me.ManagerToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.ManagerToolStripMenuItem.Text = "&Projekti..."
Me.ManagerToolStripMenuItem.ToolTipText = "Urejevalnik projektov"
'
'NovProjektToolStripMenuItem
'
Me.NovProjektToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
Me.NovProjektToolStripMenuItem.Name = "NovProjektToolStripMenuItem"
Me.NovProjektToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.NovProjektToolStripMenuItem.Text = "&Nov Projekt"
Me.NovProjektToolStripMenuItem.ToolTipText = "Ustvari nov projekt"
'
'MenuToolStripMenuItem
'
@ -318,7 +418,7 @@ Partial Class Form1
'
'OdpriGSIToolStripMenuItem
'
Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_open_end_wrench_50
Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tools_50
Me.OdpriGSIToolStripMenuItem.Name = "OdpriGSIToolStripMenuItem"
Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
@ -400,7 +500,6 @@ Partial Class Form1
Friend WithEvents ToolStripButtonPripravi As ToolStripButton
Friend WithEvents OpenFileDialogTocke As OpenFileDialog
Friend WithEvents ToolStripButtonGeo As ToolStripButton
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents MenuToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OdpriGSIToolStripMenuItem As ToolStripMenuItem
@ -417,4 +516,15 @@ Partial Class Form1
Friend WithEvents PosodobitevToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ManagerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NovProjektToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents ToolStripLabel2 As ToolStripLabel
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
Friend WithEvents OdpriJobToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents ToolStripButton3 As ToolStripButton
End Class

30
Form1.resx
View File

@ -118,22 +118,28 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="RichTextBox1.Text" xml:space="preserve">
<value>-------------------------
Pretvori GSI
<value>--------------------------------------------------
Procesiranje GSI datoteke
1. Klikni na "Odpri GSI" in izberi GSI datoteko za obdelavo.
2. Za urejanje datoteke uporabi orodje "Uredi".
3A. Za pripravo Zapisnika Meritev klikni gumb "Zapisnik Meritev".
3B. Za pripravo seznama koordinat točk klikni gumb "Seznam Točk".
3C. Za izdelavo GEO skripte klikni gumb "GEO Skripta".
1. Odpri GSI datoteko.
2. Preveri podatke in po potrebi uredi datoteko (gumb "Uredi").
3A. Za pripravo Zapisnika Meritev klikni gumb "Meritve".
3B. Za pripravo seznama koordinat točk klikni gumb "Točke".
4. Shrani podatke z klikom na gumb "Shrani...".
-------------------------
Pripravi GSI datoteko
--------------------------------------------------
A. Uvozi datoteko z koordinatami točk z klikom na "Pripravi GSI".
Format datoteke: Pt E N H (Med podatki je presledek ali tabulator)
B. Izdelana bo GSI datoteka, ki jo nato shranimo z klikom na "Shrani GSI".
C. Prenesi novo GSI datoeko na instrument v mapo \GSI.
Pripravi GSI datoteko iz TXT/KOO
A. Odpri datoteko z koordinatami točk z klikom na "Pripravi GSI".
Format datoteke: Pt E N H (Ločilo podatkov je lahko presledek ali tabulator)
B. Izdelana bo GSI datoteka in v glavnem oknu bo prikazana vsebina.
C. Shrani datoteko z klikom na "Shrani GSI".
D. Prenesi novo GSI datoeko na instrument v mapo \GSI.

183
Form1.vb
View File

@ -19,6 +19,12 @@ Public Class Form1
End If
RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
NaloziNast()
ToolStripLabel2.Text = My.Settings.Projekt
If ToolStripLabel2.Text = "Virtualna Kartica" Then
ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
Else
ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
End If
End Sub
Public Sub NaloziNast()
@ -118,6 +124,7 @@ Public Class Form1
My.Settings.Datoteka = OpenFileDialog1.SafeFileName
My.Settings.ZadnjaMapa = Path.GetDirectoryName(OpenFileDialog1.FileName)
tsbFileName.Text = My.Settings.Datoteka
tsbFileName.ToolTipText = OpenFileDialog1.FileName
ToolStripStatusLabel1.Text = My.Settings.ZadnjaMapa
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
@ -130,18 +137,58 @@ Public Class Form1
' RichTextBox1.SelectionStart = 0
LabelDatoteka.Image = My.Resources.icons8_ok_50
My.Settings.Save()
Else
tsbFileName.Text = "Odpri GSI datoteko..."
RichTextBox1.Clear()
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
ShraniToolStripMenuItem.Enabled = False
tsbConvert.Enabled = False
tsbPointsOnly.Enabled = False
' Else
' tsbFileName.Text = "Odpri GSI datoteko..."
' RichTextBox1.Clear()
' tsbSaveAs.Text = "Shrani ..."
' tsbSaveAs.Enabled = False
' ShraniToolStripMenuItem.Enabled = False
' tsbConvert.Enabled = False
' tsbPointsOnly.Enabled = False
End If
OpenFileDialog1.Dispose()
End Sub
Private Sub UvoziGsiJob()
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
Dim fileUvoz = OpenFileDialog1.FileName
Dim fileIme = Path.GetFileName(OpenFileDialog1.FileName)
Dim fileIzvoz = delovnaMapa + fileIme
My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
OpenFileDialog1.FileName = fileIzvoz
RichTextBox1.Clear()
ToolStripProgressBar1.Value = 0
streamLines = 0
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
Do Until streamReader.EndOfStream
RichTextBox1.AppendText(streamReader.ReadLine + vbCrLf)
streamLines = streamLines + 1
Loop
ToolStripProgressBar1.Maximum = streamLines
streamReader.Close()
streamReader.Dispose()
My.Settings.Datoteka = OpenFileDialog1.SafeFileName
My.Settings.ZadnjaMapa = Path.GetDirectoryName(fileIzvoz)
tsbFileName.Text = My.Settings.Datoteka
ToolStripStatusLabel1.Text = fileUvoz.ToString + " -> " + fileIzvoz.ToString
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
ShraniToolStripMenuItem.Enabled = False
tsbConvert.Enabled = True
tsbPointsOnly.Enabled = True
ToolStripButtonGeo.Enabled = True
ButtonUrediDat.Enabled = True
RichTextBox1.BackColor = SystemColors.Info
' RichTextBox1.SelectionStart = 0
LabelDatoteka.Image = My.Resources.icons8_ok_50
My.Settings.Save()
End If
OpenFileDialog1.Dispose()
End Sub
Public Sub PripraviDatotekoGsi()
If OpenFileDialogTocke.ShowDialog = DialogResult.OK Then
RichTextBox1.Clear()
@ -192,6 +239,7 @@ Public Class Form1
Public streamLines As Integer = 0
Private Sub tsbConvert_Click(sender As Object, e As EventArgs) Handles tsbConvert.Click
ToolStripButton3.Enabled = False
ToolStripStatusLabel1.Text = "Procesiranje..."
RichTextBox1.Clear()
RichTextBox1.BackColor = Color.LemonChiffon
@ -350,7 +398,11 @@ Public Class Form1
data = ""
End If
ElseIf wordIndex = "72" Then ' Point Code
dataTmp = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
If data = 0 Then
dataTmp = 0
Else
dataTmp = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
End If
If dataKoda = My.Settings.KodaStojisce Then
Dim dataNum As Double
dataNum = dataTmp / 1000
@ -423,6 +475,15 @@ Public Class Form1
' RichTextBox1.SelectionStart = 0
End Sub
' Deklaracija vrednosti za pripravo grafike
Public kooEMin As Double
Public kooEMax As Double
Public kooNMin As Double
Public kooNMax As Double
Public kooEdelta As Double
Public kooNdelta As Double
Public kooFaktor
Private Sub tsbPointsOnly_Click(sender As Object, e As EventArgs) Handles tsbPointsOnly.Click
Dim dataStolpci As String = ""
If My.Settings.Stolpci = 0 Then
@ -498,6 +559,16 @@ Public Class Form1
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooEMax = 0 Then
kooEMax = numData
ElseIf kooEMax < numData Then
kooEMax = numData
End If
If kooEMin = 0 Then
kooEMin = numData
ElseIf kooEMin > numData Then
kooEMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "82" And measuredPoints >= 1 Then ' Target Northing
numData = data / 1000
@ -505,6 +576,16 @@ Public Class Form1
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooNMax = 0 Then
kooNMax = numData
ElseIf kooNMax < numData Then
kooNMax = numData
End If
If kooNMin = 0 Then
kooNMin = numData
ElseIf kooNMin > numData Then
kooNMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "83" And measuredPoints >= 1 Then ' Target Height
numData = data / 1000
@ -525,6 +606,16 @@ Public Class Form1
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooEMax = 0 Then
kooEMax = numData
ElseIf kooEMax < numData Then
kooEMax = numData
End If
If kooEMin = 0 Then
kooEMin = numData
ElseIf kooEMin > numData Then
kooEMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "85" And measuredPoints >= 1 Then ' Station Northing
numData = data / 1000
@ -532,6 +623,16 @@ Public Class Form1
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooNMax = 0 Then
kooNMax = numData
ElseIf kooNMax < numData Then
kooNMax = numData
End If
If kooNMin = 0 Then
kooNMin = numData
ElseIf kooNMin > numData Then
kooNMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "86" And measuredPoints >= 1 Then ' Station Height
numData = data / 1000
@ -552,17 +653,30 @@ Public Class Form1
lin = lin + 1
ToolStripProgressBar1.Value = lin
Loop
kooEdelta = kooEMax - kooEMin
kooNdelta = kooNMax - kooNMin
If kooEdelta > kooNdelta Then
kooFaktor = 1000 / kooEdelta
Else
kooFaktor = 1000 / kooNdelta
End If
ToolStripStatusLabel1.Text = "Prebrano točk: " + i.ToString
SaveFileDialog1.Filter = "KOO|*.koo|TXT|*.txt|All files|*.*"
streamReader.Close()
tsbSaveAs.Enabled = True
ShraniToolStripMenuItem.Enabled = True
tsbSaveAs.Text = "Shrani Točke"
ToolStripButton3.Enabled = True
' RichTextBox1.SelectionStart = 0
End Sub
' Priprava GEO datoteke
Private Sub ToolStripButtonGeo_Click(sender As Object, e As EventArgs) Handles ToolStripButtonGeo.Click
ToolStripButton3.Enabled = False
RichTextBox1.Clear()
RichTextBox1.BackColor = Color.LightGray
Dim measuredPoints As Integer = 0
@ -618,7 +732,7 @@ Public Class Form1
infoOriHz = Microsoft.VisualBasic.Right(line(2), 17).TrimStart("0"c)
Dim numOriHz As Double
numOriHz = infoOriHz / 100000
izpisText = infoOri + " " + Format(numOriHz, "0.0000").ToString + vbCrLf
izpisText = infoOri.ToString + " " + Format(numOriHz, "0.0000").ToString + vbCrLf
measuredPoints = 0
End If
@ -696,6 +810,7 @@ Public Class Form1
izpisText = dataId + " " + Format(numAzi, "0.0000").ToString + vbCrLf
End If
' Priprava podatkov za Setup: Quick Set
If dataKoda = My.Settings.KodaQuickSet Then
If Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
Dim dataSta As String
@ -707,10 +822,17 @@ Public Class Form1
izpisText = dataSta + " " + Format(numHi, "0.000").ToString + vbCrLf
End If
End If
' ElseIf dataKoda = My.Settings.KodaSetAzi Then
'
' ElseIf dataKoda = My.Settings.KodaResection Then
'
' Priprava podatkov za Setup: Set Azimut
If dataKoda = My.Settings.KodaSetAzi Then
End If
' Priprava podatkov za Setup: Resection
If dataKoda = My.Settings.KodaResection Then
End If
' Priprava podatkov za Setup: Free Station
If dataKoda = My.Settings.KodaFreeStation Then
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Then
Dim dataSta As String
@ -722,9 +844,13 @@ Public Class Form1
izpisText = dataSta + " " + Format(numHi, "0.000").ToString + vbCrLf
End If
End If
' ElseIf dataKoda = My.Settings.KodaOriHtTrans Then
' Priprava podatkov za Setup: Set Azimut
If dataKoda = My.Settings.KodaOriHtTrans Then
End If
End If
RichTextBox1.AppendText(izpisText)
RichTextBox1.AppendText(izpisText)
lin = lin + 1
ToolStripProgressBar1.Value = lin
Loop
@ -755,11 +881,14 @@ Public Class Form1
End Sub
Private Sub OdpriGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OdpriGSIToolStripMenuItem1.Click
OdpriDatotekoGsi()
UvoziGsiJob()
' OdpriDatotekoGsi()
End Sub
Private Sub tsbOpenFile_Click(sender As Object, e As EventArgs) Handles tsbOpenFile.Click
OdpriDatotekoGsi()
UvoziGsiJob()
' OdpriDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ButtonUrediDat.Click
@ -772,6 +901,7 @@ Public Class Form1
Private Sub ToolStripButtonPripravi_Click(sender As Object, e As EventArgs) Handles ToolStripButtonPripravi.Click
PripraviDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
@ -840,4 +970,21 @@ Public Class Form1
Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
RichTextBox1.SelectionStart = 0
End Sub
Private Sub ManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ManagerToolStripMenuItem.Click
FormGsiJobs.Show()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click, OdpriJobToolStripMenuItem.Click
OpenFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString
OdpriDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
FormGrafika.Show()
End Sub
End Class

42
Form2.Designer.vb generated
View File

@ -62,22 +62,23 @@ Partial Class Form2
Me.RichTextBoxEdit.DetectUrls = False
Me.RichTextBoxEdit.EnableAutoDragDrop = True
Me.RichTextBoxEdit.Font = New System.Drawing.Font("Courier New", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 35)
Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 43)
Me.RichTextBoxEdit.Name = "RichTextBoxEdit"
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 581)
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 573)
Me.RichTextBoxEdit.TabIndex = 2
Me.RichTextBoxEdit.Text = ""
Me.RichTextBoxEdit.WordWrap = False
'
'ToolStrip1
'
Me.ToolStrip1.AutoSize = False
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.BtnShraniF2, Me.ToolStripSeparator3, Me.ToolStripLabel1, Me.ComBoxKoda, Me.ToolStripButton1, Me.ToolStripLabel2, Me.ToolStripTextBox1, Me.ToolStripLabel3, Me.ToolStripTextBox2, Me.ToolStripLabel6, Me.ToolStripTextBox5, Me.ToolStripLabel4, Me.ToolStripTextBox3, Me.ToolStripLabel5, Me.ToolStripTextBox4, Me.ToolStripSeparator2, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 5, 10, 0)
Me.ToolStrip1.Size = New System.Drawing.Size(1184, 32)
Me.ToolStrip1.Size = New System.Drawing.Size(1184, 40)
Me.ToolStrip1.TabIndex = 3
Me.ToolStrip1.Text = "ToolStrip1"
'
@ -87,7 +88,7 @@ Partial Class Form2
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(58, 24)
Me.ToolStripButton3.Size = New System.Drawing.Size(58, 32)
Me.ToolStripButton3.Text = "Zapri"
'
'BtnShraniF2
@ -97,19 +98,19 @@ Partial Class Form2
Me.BtnShraniF2.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
Me.BtnShraniF2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.BtnShraniF2.Name = "BtnShraniF2"
Me.BtnShraniF2.Size = New System.Drawing.Size(73, 24)
Me.BtnShraniF2.Size = New System.Drawing.Size(73, 32)
Me.BtnShraniF2.Text = "Shrani..."
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 27)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 35)
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(37, 24)
Me.ToolStripLabel1.Size = New System.Drawing.Size(37, 32)
Me.ToolStripLabel1.Text = "Koda:"
'
'ComBoxKoda
@ -117,6 +118,7 @@ Partial Class Form2
Me.ComBoxKoda.AutoSize = False
Me.ComBoxKoda.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComBoxKoda.DropDownWidth = 200
Me.ComBoxKoda.FlatStyle = System.Windows.Forms.FlatStyle.Standard
Me.ComBoxKoda.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComBoxKoda.Items.AddRange(New Object() {" ", "1 | Setup: Quick Set", "2 | Setup: Set Azimuth", "3 | Setup: Resection", "4 | Setup: Free Station", "5 | Setup: Ori. & Ht. Transfer", "6 | Measure: Orientation", "7 | Measure: Points", "8 | Points: User/Imported", "9 | Info: Station + Ht.", "10 | Info: Temp. + Press.", "11 | Info: Orientation + Hz"})
Me.ComBoxKoda.MaxDropDownItems = 15
@ -130,13 +132,13 @@ Partial Class Form2
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_undo_48
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 24)
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 32)
Me.ToolStripButton1.Text = "Povrni"
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(36, 24)
Me.ToolStripLabel2.Size = New System.Drawing.Size(36, 32)
Me.ToolStripLabel2.Text = "PntID"
Me.ToolStripLabel2.Visible = False
'
@ -144,7 +146,7 @@ Partial Class Form2
'
Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(90, 27)
Me.ToolStripTextBox1.Size = New System.Drawing.Size(90, 35)
Me.ToolStripTextBox1.Text = "NAME"
Me.ToolStripTextBox1.ToolTipText = "Ime točke"
Me.ToolStripTextBox1.Visible = False
@ -152,7 +154,7 @@ Partial Class Form2
'ToolStripLabel3
'
Me.ToolStripLabel3.Name = "ToolStripLabel3"
Me.ToolStripLabel3.Size = New System.Drawing.Size(41, 24)
Me.ToolStripLabel3.Size = New System.Drawing.Size(41, 32)
Me.ToolStripLabel3.Text = "H Inst."
Me.ToolStripLabel3.Visible = False
'
@ -160,7 +162,7 @@ Partial Class Form2
'
Me.ToolStripTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox2.Name = "ToolStripTextBox2"
Me.ToolStripTextBox2.Size = New System.Drawing.Size(60, 27)
Me.ToolStripTextBox2.Size = New System.Drawing.Size(60, 35)
Me.ToolStripTextBox2.Text = "0.000"
Me.ToolStripTextBox2.ToolTipText = "Višina instrumenta (m)"
Me.ToolStripTextBox2.Visible = False
@ -168,7 +170,7 @@ Partial Class Form2
'ToolStripLabel6
'
Me.ToolStripLabel6.Name = "ToolStripLabel6"
Me.ToolStripLabel6.Size = New System.Drawing.Size(21, 24)
Me.ToolStripLabel6.Size = New System.Drawing.Size(21, 32)
Me.ToolStripLabel6.Text = "Hz"
Me.ToolStripLabel6.Visible = False
'
@ -176,7 +178,7 @@ Partial Class Form2
'
Me.ToolStripTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox5.Name = "ToolStripTextBox5"
Me.ToolStripTextBox5.Size = New System.Drawing.Size(70, 27)
Me.ToolStripTextBox5.Size = New System.Drawing.Size(70, 35)
Me.ToolStripTextBox5.Text = "0.0000"
Me.ToolStripTextBox5.ToolTipText = "Hz /Azimut ""D.MMSS"""
Me.ToolStripTextBox5.Visible = False
@ -184,7 +186,7 @@ Partial Class Form2
'ToolStripLabel4
'
Me.ToolStripLabel4.Name = "ToolStripLabel4"
Me.ToolStripLabel4.Size = New System.Drawing.Size(73, 24)
Me.ToolStripLabel4.Size = New System.Drawing.Size(73, 32)
Me.ToolStripLabel4.Text = "Temperatura"
Me.ToolStripLabel4.Visible = False
'
@ -192,7 +194,7 @@ Partial Class Form2
'
Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 27)
Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 35)
Me.ToolStripTextBox3.Text = "20.0"
Me.ToolStripTextBox3.ToolTipText = "Temperatura (°C)"
Me.ToolStripTextBox3.Visible = False
@ -200,7 +202,7 @@ Partial Class Form2
'ToolStripLabel5
'
Me.ToolStripLabel5.Name = "ToolStripLabel5"
Me.ToolStripLabel5.Size = New System.Drawing.Size(39, 24)
Me.ToolStripLabel5.Size = New System.Drawing.Size(39, 32)
Me.ToolStripLabel5.Text = "Pritisk"
Me.ToolStripLabel5.Visible = False
'
@ -208,7 +210,7 @@ Partial Class Form2
'
Me.ToolStripTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox4.Name = "ToolStripTextBox4"
Me.ToolStripTextBox4.Size = New System.Drawing.Size(60, 27)
Me.ToolStripTextBox4.Size = New System.Drawing.Size(60, 35)
Me.ToolStripTextBox4.Text = "1013"
Me.ToolStripTextBox4.ToolTipText = "Pritisk (mbar)"
Me.ToolStripTextBox4.Visible = False
@ -216,7 +218,7 @@ Partial Class Form2
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 27)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 35)
'
'ToolStripButton2
'
@ -224,7 +226,7 @@ Partial Class Form2
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance_48
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 24)
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 32)
Me.ToolStripButton2.Text = "Vstavi"
Me.ToolStripButton2.ToolTipText = "Vstavi vrstico..."
'

109
FormGrafika.Designer.vb generated Normal file
View File

@ -0,0 +1,109 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FormGrafika
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormGrafika))
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(950, 23)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(71, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Izris"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(905, 33)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.Location = New System.Drawing.Point(908, 49)
Me.Label2.Name = "Label2"
Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Label2.Size = New System.Drawing.Size(113, 23)
Me.Label2.TabIndex = 2
Me.Label2.Text = "deltaX"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Location = New System.Drawing.Point(908, 72)
Me.Label3.Name = "Label3"
Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Label3.Size = New System.Drawing.Size(113, 23)
Me.Label3.TabIndex = 3
Me.Label3.Text = "deltaY"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Location = New System.Drawing.Point(910, 95)
Me.Label4.Name = "Label4"
Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Label4.Size = New System.Drawing.Size(111, 22)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Faktor"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'FormGrafika
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1044, 1021)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FormGrafika"
Me.Padding = New System.Windows.Forms.Padding(20)
Me.Text = "TPS1100 - Grafika"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
End Class

3065
FormGrafika.resx Normal file
View File

File diff suppressed because it is too large Load Diff

176
FormGrafika.vb Normal file
View File

@ -0,0 +1,176 @@
Imports System.IO
Public Class FormGrafika
Public g As Graphics
Private Sub FormGrafika_Load(sender As Object, e As EventArgs) Handles MyBase.Load
g = Me.CreateGraphics()
Label2.Text = Form1.kooEdelta.ToString
Label3.Text = Form1.kooNdelta.ToString
Label4.Text = Form1.kooFaktor.ToString
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
GrafikaIzris()
End Sub
Public Sub DrawLineMer(ByVal xPos As Single, ByVal yPos As Single, ByVal xPos2 As Single, ByVal yPos2 As Single)
g.DrawLine(Pens.Black, New Point(xPos, yPos), New Point(xPos2, yPos2))
End Sub
Public Sub GrafikaIzris()
Dim dataStolpci As String = ""
If My.Settings.Stolpci = 0 Then
dataStolpci = " "
ElseIf My.Settings.Stolpci = 1 Then
dataStolpci = vbTab
End If
Form1.RichTextBox1.Clear()
Form1.RichTextBox1.BackColor = Color.PaleTurquoise
Dim streamReader As StreamReader = New StreamReader(Form1.OpenFileDialog1.FileName)
Dim i As Integer = 0
Dim lin As Integer = 0
' Pripravi variable za stojišče in merjene točke
Dim measuredPoints As Integer = 0
Dim stojiceSt As Integer = 0
Dim meritevSt As Integer = 0
Dim dataKoda As Integer = 0
Dim staX As Double = 0
Dim staY As Double = 0
Dim merX As Double = 0
Dim merY As Double = 0
Dim imeToc As String = ""
Do Until streamReader.EndOfStream
Form1.ToolStripProgressBar1.Value = i
' Read and Split each line to separate it into fields
Dim line() As String = streamReader.ReadLine().Split(" ")
' Remove * sign from index line
line(0) = Replace(line(0), "*", "")
If Microsoft.VisualBasic.Left(line(0), 2) = "41" Then
dataKoda = 1
Else
dataKoda = 0
End If
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Or Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
measuredPoints = 2
End If
' Seaparate word index and data
For Each readLine As String In line
If readLine = "" Then
' do nothing
Else
' wordindex is always 6 characters long and is read fron left to right
Dim wordIndex As String
Dim data As String
Dim numData As Double
wordIndex = Microsoft.VisualBasic.Left(readLine, 2)
data = Microsoft.VisualBasic.Right(readLine, 17)
If wordIndex = "41" Then
Dim dataInfo As String = Microsoft.VisualBasic.Right(readLine, 16).TrimStart("0"c)
If dataInfo = My.Settings.KodaMeas Then
measuredPoints = 1
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 2
ElseIf dataInfo = My.Settings.KodaMeasOri Then
measuredPoints = 3
Else
measuredPoints = 0
End If
End If
If wordIndex = "11" And measuredPoints = 1 Then
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
imeToc = data
Form1.RichTextBox1.AppendText(data)
i = i + 1
ElseIf wordIndex = "81" And measuredPoints = 1 Then ' Target Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
merX = (numData - Form1.kooEMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(merX).ToString)
ElseIf wordIndex = "82" And measuredPoints = 1 Then ' Target Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
merY = (numData - Form1.kooNMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(merY).ToString)
ElseIf wordIndex = "83" And measuredPoints = 1 Then ' Target Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
'If measuredPoints = 1 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "MEAS")
'ElseIf measuredPoints = 2 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
'ElseIf measuredPoints = 3 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "ORI")
'End If
If stojiceSt > 0 Then
meritevSt = meritevSt + 1
End If
ElseIf wordIndex = "84" And measuredPoints = 1 Then ' Station Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
staX = (numData - Form1.kooEMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(staX).ToString)
ElseIf wordIndex = "85" And measuredPoints = 1 Then ' Station Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
staY = (numData - Form1.kooNMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(staY).ToString)
ElseIf wordIndex = "86" And measuredPoints = 1 Then ' Station Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
'Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "STA")
stojiceSt = stojiceSt + 1
meritevSt = 0
g.DrawRectangle(Pens.Red, CInt(staX) + 30, CInt(staY) + 30, 5, 5)
g.DrawString(imeToc, DefaultFont, Brushes.Red, CInt(staX) + 35, CInt(staY) + 35)
Else
numData = 0
data = ""
End If
End If
If stojiceSt > 0 And meritevSt > 0 Then
Label1.Text = stojiceSt.ToString
'DrawLineMer(CInt(staX), CInt(staY), CInt(merX), CInt(merY))
g.DrawRectangle(Pens.Blue, CInt(merX) + 30, CInt(merY) + 30, 3, 3)
g.DrawString(imeToc, DefaultFont, Brushes.Blue, CInt(merX) + 33, CInt(merY) + 33)
End If
Next
If dataKoda = 0 And measuredPoints = 1 Then
Form1.RichTextBox1.AppendText(vbCrLf)
End If
lin = lin + 1
Form1.ToolStripProgressBar1.Value = lin
Loop
streamReader.Close()
End Sub
End Class

472
FormGsiJobs.Designer.vb generated Normal file
View File

@ -0,0 +1,472 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FormGsiJobs
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormGsiJobs))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.LabelDeloProj = New System.Windows.Forms.Label()
Me.LabelDeloMapa = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.LabelIzbProjMapa = New System.Windows.Forms.Label()
Me.LabelIzbProj = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.ButtonDelovni = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.ListViewProj = New System.Windows.Forms.ListView()
Me.ProjektImeHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ProjektMapaHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ListView2 = New System.Windows.Forms.ListView()
Me.JobImeHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ToolStrip1.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 419)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(704, 22)
Me.StatusStrip1.SizingGrip = False
Me.StatusStrip1.TabIndex = 1
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripButton3, Me.ToolStripSeparator1, Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5)
Me.ToolStrip1.Size = New System.Drawing.Size(704, 56)
Me.ToolStrip1.Stretch = True
Me.ToolStrip1.TabIndex = 2
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton5
'
Me.ToolStripButton5.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(91, 43)
Me.ToolStripButton5.Text = "Delovni Projekt"
Me.ToolStripButton5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripButton4
'
Me.ToolStripButton4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(73, 43)
Me.ToolStripButton4.Text = "Nov Projekt"
Me.ToolStripButton4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 46)
'
'ToolStripButton3
'
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(75, 43)
Me.ToolStripButton3.Text = "Odpri Mapo"
Me.ToolStripButton3.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 46)
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(61, 43)
Me.ToolStripButton2.Text = "Uvozi Job"
Me.ToolStripButton2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_check_file_50
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 43)
Me.ToolStripButton1.Text = "Naloži Job"
Me.ToolStripButton1.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 46)
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(9, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(150, 26)
Me.Label1.TabIndex = 8
Me.Label1.Text = "Projekt"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(165, 56)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(153, 26)
Me.Label2.TabIndex = 9
Me.Label2.Text = "Job (GSI)"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(324, 56)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(368, 26)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Podatki"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
Me.TableLayoutPanel1.Controls.Add(Me.Label4, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label6, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.LabelDeloProj, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.LabelDeloMapa, 1, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Label7, 0, 4)
Me.TableLayoutPanel1.Controls.Add(Me.Label5, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProjMapa, 1, 4)
Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProj, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Label10, 0, 6)
Me.TableLayoutPanel1.Controls.Add(Me.Label11, 0, 7)
Me.TableLayoutPanel1.Controls.Add(Me.ButtonDelovni, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Label12, 1, 2)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(324, 86)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 10
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(368, 330)
Me.TableLayoutPanel1.TabIndex = 11
'
'Label4
'
Me.Label4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(3, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(94, 25)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Delovni Projekt"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label6
'
Me.Label6.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 25)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(94, 25)
Me.Label6.TabIndex = 2
Me.Label6.Text = "Delovna Mapa"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelDeloProj
'
Me.LabelDeloProj.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDeloProj.AutoSize = True
Me.LabelDeloProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelDeloProj.Location = New System.Drawing.Point(103, 0)
Me.LabelDeloProj.Name = "LabelDeloProj"
Me.LabelDeloProj.Size = New System.Drawing.Size(262, 25)
Me.LabelDeloProj.TabIndex = 6
Me.LabelDeloProj.Text = "<delovni projekt>"
Me.LabelDeloProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelDeloMapa
'
Me.LabelDeloMapa.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDeloMapa.AutoSize = True
Me.LabelDeloMapa.Location = New System.Drawing.Point(103, 25)
Me.LabelDeloMapa.Name = "LabelDeloMapa"
Me.LabelDeloMapa.Size = New System.Drawing.Size(262, 25)
Me.LabelDeloMapa.TabIndex = 7
Me.LabelDeloMapa.Text = "<delovna mapa>"
Me.LabelDeloMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label7
'
Me.Label7.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 121)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(94, 25)
Me.Label7.TabIndex = 5
Me.Label7.Text = "Lokacija"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(3, 96)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(94, 25)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Izbran Projekt"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelIzbProjMapa
'
Me.LabelIzbProjMapa.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzbProjMapa.AutoSize = True
Me.LabelIzbProjMapa.Location = New System.Drawing.Point(103, 121)
Me.LabelIzbProjMapa.Name = "LabelIzbProjMapa"
Me.LabelIzbProjMapa.Size = New System.Drawing.Size(262, 25)
Me.LabelIzbProjMapa.TabIndex = 3
Me.LabelIzbProjMapa.Text = ".\"
Me.LabelIzbProjMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelIzbProj
'
Me.LabelIzbProj.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzbProj.AutoSize = True
Me.LabelIzbProj.Location = New System.Drawing.Point(103, 96)
Me.LabelIzbProj.Name = "LabelIzbProj"
Me.LabelIzbProj.Size = New System.Drawing.Size(262, 25)
Me.LabelIzbProj.TabIndex = 1
Me.LabelIzbProj.Text = "(izberi projekt)"
Me.LabelIzbProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label10
'
Me.Label10.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(3, 171)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(94, 20)
Me.Label10.TabIndex = 8
Me.Label10.Text = "Izbran Job"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label11
'
Me.Label11.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(3, 191)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(94, 20)
Me.Label11.TabIndex = 9
Me.Label11.Text = "Datoteka"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ButtonDelovni
'
Me.ButtonDelovni.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
Me.ButtonDelovni.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.ButtonDelovni.FlatAppearance.BorderSize = 0
Me.ButtonDelovni.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonDelovni.Location = New System.Drawing.Point(3, 53)
Me.ButtonDelovni.Name = "ButtonDelovni"
Me.ButtonDelovni.Size = New System.Drawing.Size(94, 40)
Me.ButtonDelovni.TabIndex = 10
Me.ButtonDelovni.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ButtonDelovni.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label12.AutoSize = True
Me.Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label12.Location = New System.Drawing.Point(103, 50)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(262, 46)
Me.Label12.TabIndex = 11
Me.Label12.Text = "Nastavi izbran projekt kot delovni"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ListViewProj
'
Me.ListViewProj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ListViewProj.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ProjektImeHeader, Me.ProjektMapaHeader})
Me.ListViewProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListViewProj.FullRowSelect = True
Me.ListViewProj.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListViewProj.HideSelection = False
Me.ListViewProj.LabelWrap = False
Me.ListViewProj.Location = New System.Drawing.Point(13, 86)
Me.ListViewProj.MultiSelect = False
Me.ListViewProj.Name = "ListViewProj"
Me.ListViewProj.Size = New System.Drawing.Size(146, 330)
Me.ListViewProj.TabIndex = 12
Me.ListViewProj.UseCompatibleStateImageBehavior = False
Me.ListViewProj.View = System.Windows.Forms.View.List
'
'ProjektImeHeader
'
Me.ProjektImeHeader.Text = "Projekt Ime"
Me.ProjektImeHeader.Width = 140
'
'ProjektMapaHeader
'
Me.ProjektMapaHeader.Text = "Mapa"
'
'ListView2
'
Me.ListView2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ListView2.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.JobImeHeader})
Me.ListView2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListView2.FullRowSelect = True
Me.ListView2.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListView2.HideSelection = False
Me.ListView2.Location = New System.Drawing.Point(165, 86)
Me.ListView2.Name = "ListView2"
Me.ListView2.Size = New System.Drawing.Size(153, 330)
Me.ListView2.TabIndex = 13
Me.ListView2.UseCompatibleStateImageBehavior = False
Me.ListView2.View = System.Windows.Forms.View.List
'
'JobImeHeader
'
Me.JobImeHeader.Text = "Job"
Me.JobImeHeader.Width = 140
'
'FormGsiJobs
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(704, 441)
Me.Controls.Add(Me.ListView2)
Me.Controls.Add(Me.ListViewProj)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.StatusStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimumSize = New System.Drawing.Size(720, 480)
Me.Name = "FormGsiJobs"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TPS1100 - Projekti"
Me.TopMost = True
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents Label4 As Label
Friend WithEvents LabelIzbProj As Label
Friend WithEvents Label6 As Label
Friend WithEvents LabelIzbProjMapa As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label7 As Label
Friend WithEvents LabelDeloProj As Label
Friend WithEvents LabelDeloMapa As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ButtonDelovni As Button
Friend WithEvents Label12 As Label
Friend WithEvents ListViewProj As ListView
Friend WithEvents ListView2 As ListView
Friend WithEvents ProjektImeHeader As ColumnHeader
Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents JobImeHeader As ColumnHeader
Friend WithEvents ProjektMapaHeader As ColumnHeader
End Class

3071
FormGsiJobs.resx Normal file
View File

File diff suppressed because it is too large Load Diff

126
FormGsiJobs.vb Normal file
View File

@ -0,0 +1,126 @@
Imports System.IO
Public Class FormGsiJobs
Public projektAktiven
Public projektAktivenMapa
Public projektIzbran
Public projektIzbranMapa
Public jobIzbran
Public jobDatoteka
' Funkcije izvedene pri nalaganju okna
Private Sub FormGsiJobs_Load(sender As Object, e As EventArgs) Handles MyBase.Load
projektAktiven = My.Settings.Projekt.ToString
projektAktivenMapa = My.Settings.ProjektMapa.ToString
LabelDeloProj.Text = projektAktiven
LabelDeloMapa.Text = projektAktivenMapa
ProjektBeriNast()
End Sub
Public Sub ProjektBeriNast()
Dim datProjektiNast = "tps1100_projekti.txt"
' Uvoz nastavitev iz datototeke
If My.Computer.FileSystem.FileExists(datProjektiNast) Then
Dim streamReader As StreamReader = New StreamReader(datProjektiNast)
Do Until streamReader.EndOfStream
' Read and Split each line to separate it into fields
Dim line() As String = streamReader.ReadLine().Split("=")
If (line(0) IsNot "") Then
Dim projIme As String = line(0)
Dim projMapa As String = line(1)
ListViewProj.Items.Add(projIme).SubItems.Add(projMapa)
End If
Loop
streamReader.Close()
streamReader.Dispose()
My.Settings.Save()
Else
' Izvoz kodiranja v TXT datoteko
Dim dataNast As String = ""
dataNast = dataNast + "Virtualna Kartica=\Virtualna Kartica\GSI" + vbCrLf
dataNast = dataNast + "Test Projekt=\Projekti\Test Projekt" + vbCrLf
My.Computer.FileSystem.WriteAllText(datProjektiNast, dataNast, False)
End If
End Sub
Public Sub ProjektiShraniNast()
Dim datProjektiNast = "tps1100_projekti.txt"
' Uvoz nastavitev iz datototeke
If My.Computer.FileSystem.FileExists(datProjektiNast) Then
Dim dataProj As ListView.ListViewItemCollection = Me.ListViewProj.Items
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
Dim dataOut As String = ""
For Each item In dataProj
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
dataOut = dataOut + ime + "=" + mapa + vbCrLf
Next
My.Computer.FileSystem.WriteAllText(datProjektiNast, dataOut, False)
End If
End Sub
Private Sub ListViewProj_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewProj.SelectedIndexChanged
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewProj.SelectedItems
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
For Each item In izbran
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
Next
LabelIzbProj.Text = ime.ToString
LabelIzbProjMapa.Text = mapa.ToString
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
projektIzbranMapa = delovnaMapa
Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
ListView2.Clear()
For Each datJob In datotekeJobi
ListView2.Items.Add(Path.GetFileName(datJob).ToString)
Next
End Sub
Private Sub ButtonDelovni_Click(sender As Object, e As EventArgs) Handles ButtonDelovni.Click, ToolStripButton5.Click
LabelDeloProj.Text = LabelIzbProj.Text
LabelDeloMapa.Text = LabelIzbProjMapa.Text
My.Settings.Projekt = LabelDeloProj.Text
My.Settings.ProjektMapa = LabelDeloMapa.Text
My.Settings.Save()
If LabelDeloProj.Text = "Virtualna Kartica" Then
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
Else
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
End If
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
DialogNovProj.ShowDialog()
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Process.Start(projektIzbranMapa)
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
End Sub
End Class

4
My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.0.9")>
<Assembly: AssemblyFileVersion("2.7.0.9")>
<Assembly: AssemblyVersion("2.8.0.0")>
<Assembly: AssemblyFileVersion("2.8.0.0")>
<Assembly: NeutralResourcesLanguage("sl-SI")>

BIN
My Project/Icons/google-sheets.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.3 KiB

BIN
My Project/Icons/icons8-document-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 599 B

BIN
My Project/Icons/icons8-documents-folder-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
My Project/Icons/icons8-edit-text-file-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 934 B

BIN
My Project/Icons/icons8-file-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 403 B

BIN
My Project/Icons/icons8-file-GSI-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.5 KiB

BIN
My Project/Icons/icons8-file-TXT-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.5 KiB

BIN
My Project/Icons/icons8-folder-tree-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

BIN
My Project/Icons/icons8-micro-sd-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.6 KiB

BIN
My Project/Icons/icons8-product-documents-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
My Project/Icons/icons8-recycle-bin-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.9 KiB

BIN
My Project/Icons/icons8-remove-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
My Project/Icons/icons8-sd-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.6 KiB

BIN
My Project/Icons/icons8-tree-structure-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 613 B

BIN
My Project/Icons/microsoft.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 791 B

200
My Project/Resources.Designer.vb generated
View File

@ -431,6 +431,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property google_sheets() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("google-sheets", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -491,6 +501,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_caps_lock_on_501() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-caps-lock-on-501", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -501,6 +521,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_check_file_501() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-check-file-501", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_checklist_48() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-checklist-48", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -531,6 +571,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_compare_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-compare-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -591,6 +641,56 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_edit_text_file_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-edit-text-file-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_error_48() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-error-48", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_file_GSI_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-file-GSI-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_file_path_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-file-path-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_file_TXT_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-file-TXT-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -601,6 +701,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_folder_tree_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-folder-tree-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -641,6 +751,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_list_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-list-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -651,6 +771,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_mesh_48() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-mesh-48", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_micro_sd_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-micro-sd-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -661,6 +801,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_my_location_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-my-location-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -701,6 +851,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_product_documents_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-product-documents-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -721,6 +881,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_rename_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-rename-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -741,6 +911,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_scroll_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-scroll-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -751,6 +931,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_stationery_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-stationery-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -771,6 +961,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_tree_structure_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-tree-structure-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>

130
My Project/Resources.resx
View File

@ -130,11 +130,17 @@
<data name="icons8-send-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-send-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="58" xml:space="preserve">
<value>Prism constant</value>
<data name="48" xml:space="preserve">
<value>Information 7</value>
</data>
<data name="icons8-question-mark-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-question-mark-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8_undo_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-undo-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_open_end_wrench_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-open-end-wrench-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_info_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-info-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="49" xml:space="preserve">
<value>Information 8</value>
@ -148,38 +154,59 @@
<data name="47" xml:space="preserve">
<value>Information 6</value>
</data>
<data name="ModernXP_41_Settings_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\ModernXP-41-Settings-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-file-GSI-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-file-GSI-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="73" xml:space="preserve">
<value>Remark 3</value>
</data>
<data name="icons8-compare-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-compare-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_done_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-done-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="59" xml:space="preserve">
<value>PPM</value>
</data>
<data name="icons8_unavailable_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-unavailable-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-rotate-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-rotate-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-micro-sd-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-micro-sd-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-check-file-501" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-folder-tree-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-folder-tree-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-file-TXT-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-file-TXT-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="TPS1100CNVRT_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\TPS1100CNVRT_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-my-location-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-my-location-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="76" xml:space="preserve">
<value>Remark 6</value>
</data>
<data name="19" xml:space="preserve">
<value>Time</value>
</data>
<data name="icons8_do_not_disturb_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-do-not-disturb-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="75" xml:space="preserve">
<value>Remark 5</value>
</data>
<data name="51" xml:space="preserve">
<value>PPM/mm</value>
<data name="icons8-product-documents-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-product-documents-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_ok_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-ok-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -190,14 +217,14 @@
<data name="Circled_Right_2_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\Circled-Right-2-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_open_end_wrench_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-open-end-wrench-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-caps-lock-on-501" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-caps-lock-on-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_info_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-info-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="51" xml:space="preserve">
<value>PPM/mm</value>
</data>
<data name="12" xml:space="preserve">
<value>Serial number</value>
<data name="icons8_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_close_window_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -211,8 +238,8 @@
<data name="85" xml:space="preserve">
<value>St. Northing</value>
</data>
<data name="59" xml:space="preserve">
<value>PPM</value>
<data name="icons8-checklist-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-checklist-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="86" xml:space="preserve">
<value>St. Height</value>
@ -229,11 +256,14 @@
<data name="icons8_clear_symbol_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-clear-symbol-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="81" xml:space="preserve">
<value>Easting</value>
</data>
<data name="icons8-support-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-support-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="25" xml:space="preserve">
<value>Horizontal Angle Correction</value>
<data name="icons8-scroll-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-scroll-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="79" xml:space="preserve">
<value>Remark 9</value>
@ -247,6 +277,9 @@
<data name="icons8_tools_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-tools-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-caps-lock-on-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-caps-lock-on-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_drawing_compass_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-drawing-compass-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -271,11 +304,17 @@
<data name="icons8_info_squared_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-info-squared-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-check-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-tree-structure-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-tree-structure-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_undo_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-undo-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-list-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-list-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-error-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-error-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="58" xml:space="preserve">
<value>Prism constant</value>
</data>
<data name="TPS1100CNVRT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\TPS1100CNVRT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -286,12 +325,21 @@
<data name="88" xml:space="preserve">
<value>Instrument height</value>
</data>
<data name="25" xml:space="preserve">
<value>Horizontal Angle Correction</value>
</data>
<data name="icons8-file-path-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-file-path-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-question-mark-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-question-mark-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-check-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-program-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-program-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="19" xml:space="preserve">
<value>Time</value>
</data>
<data name="icons8_no_entry_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-no-entry-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -304,14 +352,14 @@
<data name="README" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\README.md;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="81" xml:space="preserve">
<value>Easting</value>
<data name="ModernXP_41_Settings_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\ModernXP-41-Settings-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_connection_status_on_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-connection-status-on-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="48" xml:space="preserve">
<value>Information 7</value>
<data name="82" xml:space="preserve">
<value>Northing</value>
</data>
<data name="71" xml:space="preserve">
<value>Remark 1</value>
@ -328,12 +376,15 @@
<data name="46" xml:space="preserve">
<value>Information 5</value>
</data>
<data name="82" xml:space="preserve">
<value>Northing</value>
<data name="google-sheets" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\google-sheets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="87" xml:space="preserve">
<value>Reflector height</value>
</data>
<data name="icons8-rename-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-rename-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_add_new_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -346,6 +397,9 @@
<data name="32" xml:space="preserve">
<value>Horizontal distance</value>
</data>
<data name="icons8-mesh-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-mesh-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_edit_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -361,7 +415,13 @@
<data name="42" xml:space="preserve">
<value>Information 1</value>
</data>
<data name="icons8-caps-lock-on-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-caps-lock-on-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="12" xml:space="preserve">
<value>Serial number</value>
</data>
<data name="icons8-edit-text-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-edit-text-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-stationery-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-stationery-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

24
My Project/Settings.Designer.vb generated
View File

@ -308,6 +308,30 @@ Namespace My
Me("KodaStojisceOri") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Virtualna Kartica")> _
Public Property Projekt() As String
Get
Return CType(Me("Projekt"),String)
End Get
Set
Me("Projekt") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Virtualna Kartica\GSI")> _
Public Property ProjektMapa() As String
Get
Return CType(Me("ProjektMapa"),String)
End Get
Set
Me("ProjektMapa") = value
End Set
End Property
End Class
End Namespace

6
My Project/Settings.settings
View File

@ -65,5 +65,11 @@
<Setting Name="KodaStojisceOri" Type="System.String" Scope="User">
<Value Profile="(Default)">3</Value>
</Setting>
<Setting Name="Projekt" Type="System.String" Scope="User">
<Value Profile="(Default)">Virtualna Kartica</Value>
</Setting>
<Setting Name="ProjektMapa" Type="System.String" Scope="User">
<Value Profile="(Default)">Virtualna Kartica\GSI</Value>
</Setting>
</Settings>
</SettingsFile>

0
Podatki/TEST.GSI → Projekti/Test Projekt/TEST-JOB.GSI
View File

67
TPS1100 Convert.vbproj
View File

@ -31,8 +31,8 @@
<MinimumRequiredVersion>2.1.0.4</MinimumRequiredVersion>
<WebPage>publish.html</WebPage>
<AutorunEnabled>true</AutorunEnabled>
<ApplicationRevision>9</ApplicationRevision>
<ApplicationVersion>2.7.0.%2a</ApplicationVersion>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>2.8.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<CreateDesktopShortcut>true</CreateDesktopShortcut>
<PublishWizardCompleted>true</PublishWizardCompleted>
@ -59,6 +59,7 @@
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
@ -76,16 +77,16 @@
<ApplicationIcon>TPS1100CNVRT.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>C2D976976AC91EDFF476D973EFDDE907FFC7A54E</ManifestCertificateThumbprint>
<ManifestCertificateThumbprint>5151AC13DB7CBE410DE46CD457A211F041BF05BC</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>TPS1100 Convert_TemporaryKey.pfx</ManifestKeyFile>
<ManifestKeyFile>TPS1100 Convert_1_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>false</SignManifests>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup>
<TargetZone>LocalIntranet</TargetZone>
@ -120,6 +121,12 @@
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="DialogNovProj.Designer.vb">
<DependentUpon>DialogNovProj.vb</DependentUpon>
</Compile>
<Compile Include="DialogNovProj.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
@ -133,6 +140,18 @@
<Compile Include="Form2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FormGrafika.Designer.vb">
<DependentUpon>FormGrafika.vb</DependentUpon>
</Compile>
<Compile Include="FormGrafika.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FormGsiJobs.Designer.vb">
<DependentUpon>FormGsiJobs.vb</DependentUpon>
</Compile>
<Compile Include="FormGsiJobs.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FormKodaStojisce.Designer.vb">
<DependentUpon>FormKodaStojisce.vb</DependentUpon>
</Compile>
@ -176,12 +195,21 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="DialogNovProj.resx">
<DependentUpon>DialogNovProj.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form2.resx">
<DependentUpon>Form2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FormGrafika.resx">
<DependentUpon>FormGrafika.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FormGsiJobs.resx">
<DependentUpon>FormGsiJobs.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FormKodaStojisce.resx">
<DependentUpon>FormKodaStojisce.vb</DependentUpon>
</EmbeddedResource>
@ -206,6 +234,27 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<None Include="My Project\Icons\icons8-caps-lock-on-50.png" />
<None Include="My Project\Icons\google-sheets.png" />
<None Include="My Project\Icons\icons8-checklist-48.png" />
<None Include="My Project\Icons\icons8-compare-50.png" />
<None Include="My Project\Icons\icons8-error-48.png" />
<None Include="My Project\Icons\icons8-file-path-50.png" />
<None Include="My Project\Icons\icons8-list-50.png" />
<None Include="My Project\Icons\icons8-mesh-48.png" />
<None Include="My Project\Icons\icons8-rename-50.png" />
<None Include="My Project\Icons\icons8-scroll-50.png" />
<None Include="My Project\Icons\icons8-my-location-50.png" />
<None Include="My Project\Icons\icons8-micro-sd-50.png" />
<None Include="My Project\Icons\icons8-file-GSI-50.png" />
<None Include="My Project\Icons\icons8-file-TXT-50.png" />
<None Include="My Project\Icons\icons8-product-documents-50.png" />
<None Include="My Project\Icons\icons8-tree-structure-50.png" />
<None Include="My Project\Icons\icons8-folder-tree-50.png" />
<None Include="My Project\Icons\icons8-edit-text-file-50.png" />
<None Include="My Project\Icons\icons8-stationery-50.png" />
<Content Include="tps1100_projekti.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="tps1100_kode.txt">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
@ -230,12 +279,16 @@
<Content Include="README.md">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Podatki\TEST.GSI">
<Content Include="Virtualna Kartica\GSI\TEST-JOB.GSI">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<AdditionalFiles Include="Podatki\TPS1100.crf">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</AdditionalFiles>
<Content Include="Projekti\Test Projekt\TEST-JOB.GSI">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<None Include="TPS1100 Convert_1_TemporaryKey.pfx" />
<None Include="TPS1100 Convert_TemporaryKey.pfx" />
</ItemGroup>
<ItemGroup>
@ -315,7 +368,7 @@
<None Include="My Project\Icons\icons8-check-file-50.png" />
<None Include="My Project\Icons\icons8-menu-50.png" />
<None Include="My Project\Icons\icons8-program-50.png" />
<Content Include="Podatki\TEST.txt">
<Content Include="Virtualna Kartica\DATA\TEST_tocke.txt">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="TPS1100CNVRT.ico" />

0
Podatki/TEST.txt → Virtualna Kartica/DATA/TEST_tocke.txt
View File

64
Virtualna Kartica/GSI/TEST-JOB.GSI Normal file
View File

@ -0,0 +1,64 @@
*410000+0000000000000099
*110001+00000000000GS001 81..00+0000000465423089 82..00+0000000110526243 83..00+0000000000301586
*110002+00000000000GS002 81..00+0000000465437688 82..00+0000000110547569 83..00+0000000000302107
*110003+00000000000GS003 81..00+0000000465472908 82..00+0000000110527226 83..00+0000000000302945
*410000+0000000000000002 71....+0000000000000021 72....+0000000000001015
*410010+0000000000000040
*110004+00000000000GS001 21.324+0000000013831010 22.324+0000000008932340 31..00+0000000000029523 32..10+0000000000029522 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000754 81..00+0000000531242578 82..00+0000000073008189 83..00+0000000000800864 71....+0000000000000000
*110005+00000000000GS002 21.324+0000000019023040 22.324+0000000010338410 31..00+0000000000007115 32..10+0000000000006914 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000268 81..00+0000000531221776 82..00+0000000073023505 83..00+0000000000801350 71....+0000000000000000
*110006+00000000000GS003 21.324+0000000003614410 22.324+0000000009121020 31..00+0000000000034333 32..10+0000000000034324 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000531243315 82..00+0000000073057988 83..00+0000000000802219 71....+0000000000000000
*110007+0000000000011111 25.344+0000000008801190 84..40+0000000465444529 85..40+0000000110546554 86..40+0000000000302353 87..10+0000000000000100 88..10+0000000000001510
*410000+0000000000000080
*110008+00000000000GS003 21.324+0000000012415590 22.324+0000000009121020 31..00+0000000000034332 32..10+0000000000034323 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000465472895 82..00+0000000110527228 83..00+0000000000302954 71....+0000000000000000
*110009+00000000000GS001 21.324+0000000022632260 22.324+0000000008932390 31..00+0000000000029524 32..10+0000000000029523 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000755 81..00+0000000465423100 82..00+0000000110526246 83..00+0000000000301598 71....+0000000000000000
*110010+00000000000GS002 21.324+0000000027824300 22.324+0000000010339390 31..00+0000000000007112 32..10+0000000000006911 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000270 81..00+0000000465437693 82..00+0000000110547564 83..00+0000000000302084 71....+0000000000000000
*410000+0000000000000090
*110011+0000000000000001 21.324+0000000011254090 22.324+0000000008815450 31..00+0000000000032800 32..10+0000000000032785 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000001205 81..00+0000000465474729 82..00+0000000110533795 83..00+0000000000303558 71....+0000000000000000
*110012+0000000000000002 21.324+0000000011144520 22.324+0000000008850390 31..00+0000000000020325 32..10+0000000000020321 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000620 81..00+0000000465463403 82..00+0000000110539024 83..00+0000000000302973 71....+0000000000000000
*110013+0000000000000003 21.324+0000000010859200 22.324+0000000008922510 31..00+0000000000011668 32..10+0000000000011667 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000336 81..00+0000000465455561 82..00+0000000110542757 83..00+0000000000302689 71....+0000000000000000
*110014+0000000000000004 21.324+0000000007358330 22.324+0000000009603030 31..00+0000000000001983 32..10+0000000000001972 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000001 81..00+0000000465446424 82..00+0000000110547098 83..00+0000000000302354 71....+0000000000000000
*110015+0000000000000005 21.324+0000000005042460 22.324+0000000010727030 31..00+0000000000004476 32..10+0000000000004270 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000168 81..00+0000000465447834 82..00+0000000110549258 83..00+0000000000302521 71....+0000000000000000
*110016+0000000000000006 21.324+0000000003846420 22.324+0000000010921450 31..00+0000000000004204 32..10+0000000000003966 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000116 81..00+0000000465447013 82..00+0000000110549645 83..00+0000000000302470 71....+0000000000000000
*110017+0000000000000007 21.324+0000000003747460 22.324+0000000010758590 31..00+0000000000004468 32..10+0000000000004249 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000131 81..00+0000000465447133 82..00+0000000110549911 83..00+0000000000302484 71....+0000000000000000
*110018+0000000000000008 21.324+0000000033802160 22.324+0000000010150570 31..00+0000000000006199 32..10+0000000000006067 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000237 81..00+0000000465442260 82..00+0000000110552180 83..00+0000000000302590 71....+0000000000000000
*110019+0000000000000009 21.324+0000000029836160 22.324+0000000010648530 31..00+0000000000005488 32..10+0000000000005254 87..10+0000000000000000 58..16+0000000000000344 33..10-0000000000000078 81..00+0000000465439917 82..00+0000000110549069 83..00+0000000000302276 71....+0000000000000000
*110020+0000000000000010 21.324+0000000028230220 22.324+0000000009248440 31..00+0000000000010785 32..10+0000000000010772 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000319 81..00+0000000465434013 82..00+0000000110548886 83..00+0000000000302034 71....+0000000000000000
*110021+0000000000000011 21.324+0000000005208020 22.324+0000000009428210 31..00+0000000000004313 32..10+0000000000004300 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000001174 81..00+0000000465447924 82..00+0000000110549193 83..00+0000000000303527 71....+0000000000000000
*110022+0000000000000012 21.324+0000000005044450 22.324+0000000008137520 31..00+0000000000004677 32..10+0000000000004627 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000891 81..00+0000000465448112 82..00+0000000110549481 83..00+0000000000303244 71....+0000000000000000
*110023+0000000000000013 21.324+0000000004322420 22.324+0000000007933420 31..00+0000000000011597 32..10+0000000000011405 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002311 81..00+0000000465452362 82..00+0000000110554843 83..00+0000000000304664 71....+0000000000000000
*110024+0000000000000014 21.324+0000000004213390 22.324+0000000008007010 31..00+0000000000015065 32..10+0000000000014842 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002796 81..00+0000000465454504 82..00+0000000110557544 83..00+0000000000305149 71....+0000000000000000
*110025+0000000000000015 21.324+0000000003346460 22.324+0000000008111590 31..00+0000000000017167 32..10+0000000000016965 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002836 81..00+0000000465453962 82..00+0000000110560654 83..00+0000000000305190 71....+0000000000000000
*110026+0000000000000016 21.324+0000000001534560 22.324+0000000008200030 31..00+0000000000027304 32..10+0000000000027038 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004010 81..00+0000000465451792 82..00+0000000110572598 83..00+0000000000306363 71....+0000000000000000
*110027+0000000000000017 21.324+0000000001558300 22.324+0000000008036540 31..00+0000000000028384 32..10+0000000000028004 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004838 81..00+0000000465452236 82..00+0000000110573476 83..00+0000000000307192 71....+0000000000000000
*110028+0000000000000018 21.324+0000000001428410 22.324+0000000008121540 31..00+0000000000028412 32..10+0000000000028090 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004476 81..00+0000000465451552 82..00+0000000110573751 83..00+0000000000306829 71....+0000000000000000
*110029+0000000000000019 21.324+0000000003416460 22.324+0000000008238380 31..00+0000000000027992 32..10+0000000000027761 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000003794 81..00+0000000465460165 82..00+0000000110569493 83..00+0000000000306147 71....+0000000000000000
*110030+0000000000000020 21.324+0000000004217270 22.324+0000000007814330 31..00+0000000000024595 32..10+0000000000024079 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000006522 81..00+0000000465460732 82..00+0000000110564366 83..00+0000000000308875 71....+0000000000000000
*110031+0000000000000021 21.324+0000000005331040 22.324+0000000007125310 31..00+0000000000015239 32..10+0000000000014445 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000006364 81..00+0000000465456144 82..00+0000000110555142 83..00+0000000000308718 71....+0000000000000000
*110032+0000000000000022 21.324+0000000008053160 22.324+0000000007227170 31..00+0000000000023186 32..10+0000000000022107 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000008500 81..00+0000000465466357 82..00+0000000110550055 83..00+0000000000310853 71....+0000000000000000
*110033+0000000000000023 21.324+0000000001902580 22.324+0000000007724330 31..00+0000000000039212 32..10+0000000000038269 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000010058 81..00+0000000465457019 82..00+0000000110582726 83..00+0000000000312411 71....+0000000000000000
*110034+0000000000000024 21.324+0000000003810480 22.324+0000000007832240 31..00+0000000000043712 32..10+0000000000042840 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000010195 81..00+0000000465471010 82..00+0000000110580229 83..00+0000000000312548 71....+0000000000000000
*110035+0000000000000031 21.324+0000000034458570 22.324+0000000009054050 31..00+0000000000005359 32..10+0000000000005358 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000001426 81..00+0000000465443141 82..00+0000000110551729 83..00+0000000000303779 71....+0000000000000000
*110036+0000000000000032 21.324+0000000029233050 22.324+0000000009558110 31..00+0000000000004488 32..10+0000000000004464 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000257 81..00+0000000465440407 82..00+0000000110548265 83..00+0000000000302097 71....+0000000000000000
*110037+0000000000000033 21.324+0000000027506040 22.324+0000000009425520 31..00+0000000000006362 32..10+0000000000006343 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000282 81..00+0000000465438211 82..00+0000000110547118 83..00+0000000000302072 71....+0000000000000000
*110038+0000000000000034 21.324+0000000027631400 22.324+0000000009349170 31..00+0000000000010047 32..10+0000000000010024 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000460 81..00+0000000465434570 82..00+0000000110547693 83..00+0000000000301894 71....+0000000000000000
*110039+0000000000000035 21.324+0000000027424370 22.324+0000000009425240 31..00+0000000000007978 32..10+0000000000007954 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000405 81..00+0000000465436599 82..00+0000000110547165 83..00+0000000000301948 71....+0000000000000000
*110040+0000000000000036 21.324+0000000027337580 22.324+0000000009552300 31..00+0000000000005445 32..10+0000000000005416 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000347 81..00+0000000465439124 82..00+0000000110546897 83..00+0000000000302006 71....+0000000000000000
*110041+0000000000000037 21.324+0000000026954060 22.324+0000000009916340 31..00+0000000000002914 32..10+0000000000002876 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000260 81..00+0000000465441653 82..00+0000000110546549 83..00+0000000000302094 71....+0000000000000000
*110042+0000000000000038 21.324+0000000013027410 22.324+0000000009545570 31..00+0000000000002638 32..10+0000000000002625 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000055 81..00+0000000465446526 82..00+0000000110544850 83..00+0000000000302298 71....+0000000000000000
*110043+0000000000000039 21.324+0000000011808360 22.324+0000000009002460 31..00+0000000000011703 32..10+0000000000011703 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000201 81..00+0000000465454849 82..00+0000000110541033 83..00+0000000000302554 71....+0000000000000000
*110044+0000000000000040 21.324+0000000011708390 22.324+0000000008931290 31..00+0000000000017790 32..10+0000000000017789 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000358 81..00+0000000465460359 82..00+0000000110538438 83..00+0000000000302711 71....+0000000000000000
*110045+0000000000000041 21.324+0000000011609380 22.324+0000000008913070 31..00+0000000000031001 32..10+0000000000030998 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000633 81..00+0000000465472352 82..00+0000000110532887 83..00+0000000000302986 71....+0000000000000000
*110046+0000000000000042 21.324+0000000011526030 22.324+0000000008909420 31..00+0000000000032271 32..10+0000000000032268 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000682 81..00+0000000465473669 82..00+0000000110532696 83..00+0000000000303036 71....+0000000000000000
*110047+0000000000000043 21.324+0000000011346490 22.324+0000000008855450 31..00+0000000000032842 32..10+0000000000032836 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000824 81..00+0000000465474578 82..00+0000000110533313 83..00+0000000000303177 71....+0000000000000000
*410010+0000000000000040
*110004+00000000000GS001 21.324+0000000013831010 22.324+0000000008932340 31..00+0000000000029523 32..10+0000000000029522 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000754 81..00+0000000531242578 82..00+0000000073008189 83..00+0000000000800864 71....+0000000000000000
*110005+00000000000GS002 21.324+0000000019023040 22.324+0000000010338410 31..00+0000000000007115 32..10+0000000000006914 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000268 81..00+0000000531221776 82..00+0000000073023505 83..00+0000000000801350 71....+0000000000000000
*110006+00000000000GS003 21.324+0000000003614410 22.324+0000000009121020 31..00+0000000000034333 32..10+0000000000034324 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000531243315 82..00+0000000073057988 83..00+0000000000802219 71....+0000000000000000
*110007+0000000000011111 25.344+0000000008801190 84..40+0000000465444529 85..40+0000000110546554 86..40+0000000000302353 87..10+0000000000000100 88..10+0000000000001510
*410000+0000000000000080
*110008+00000000000GS003 21.324+0000000012415590 22.324+0000000009121020 31..00+0000000000034332 32..10+0000000000034323 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000465472895 82..00+0000000110527228 83..00+0000000000302954 71....+0000000000000000
*110009+00000000000GS001 21.324+0000000022632260 22.324+0000000008932390 31..00+0000000000029524 32..10+0000000000029523 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000755 81..00+0000000465423100 82..00+0000000110526246 83..00+0000000000301598 71....+0000000000000000
*110010+00000000000GS002 21.324+0000000027824300 22.324+0000000010339390 31..00+0000000000007112 32..10+0000000000006911 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000270 81..00+0000000465437693 82..00+0000000110547564 83..00+0000000000302084 71....+0000000000000000
*410000+0000000000000090
*110011+0000000000000001 21.324+0000000011254090 22.324+0000000008815450 31..00+0000000000032800 32..10+0000000000032785 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000001205 81..00+0000000465474729 82..00+0000000110533795 83..00+0000000000303558 71....+0000000000000000
*110012+0000000000000002 21.324+0000000011144520 22.324+0000000008850390 31..00+0000000000020325 32..10+0000000000020321 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000620 81..00+0000000465463403 82..00+0000000110539024 83..00+0000000000302973 71....+0000000000000000

2
tps1100_projekti.txt Normal file
View File

@ -0,0 +1,2 @@
Virtualna Kartica=Virtualna Kartica\GSI
Test Projekt=Projekti\Test Projekt

2
version.txt
View File

@ -1 +1 @@
2.7.0.9
2.8.0.0