diff --git a/Form1.Designer.vb b/Form1.Designer.vb
index f8e115f..3803424 100644
--- a/Form1.Designer.vb
+++ b/Form1.Designer.vb
@@ -35,6 +35,7 @@ Partial Class Form1
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
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()
@@ -42,21 +43,20 @@ Partial Class Form1
Me.ToolStripButtonGeo = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
- Me.ToolStripButtonPripravi = New System.Windows.Forms.ToolStripButton()
Me.OpenFileDialogTocke = New System.Windows.Forms.OpenFileDialog()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+ Me.DatotekaToolStripMenuItem = 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.MenuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.PripraviGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoOAplikacijiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.OdpriGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
- Me.PripraviGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
- Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
- Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
@@ -165,6 +165,15 @@ Partial Class Form1
Me.tsbOpenFile.Text = "Odpri GSI"
Me.tsbOpenFile.ToolTipText = "Izberi GSI datoteko..."
'
+ 'ToolStripButtonPripravi
+ '
+ 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.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
+ '
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
@@ -187,8 +196,8 @@ Partial Class Form1
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(81, 34)
- Me.tsbConvert.Text = "Meritve"
+ Me.tsbConvert.Size = New System.Drawing.Size(128, 34)
+ Me.tsbConvert.Text = "Zapisnik Meritve"
Me.tsbConvert.ToolTipText = "Izvozi zapisnik meritev."
'
'tsbPointsOnly
@@ -198,8 +207,8 @@ Partial Class Form1
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(72, 34)
- Me.tsbPointsOnly.Text = "Točke"
+ Me.tsbPointsOnly.Size = New System.Drawing.Size(112, 34)
+ Me.tsbPointsOnly.Text = "Seznam Točk"
Me.tsbPointsOnly.ToolTipText = "Izvozi koordinate točk."
'
'ToolStripButtonGeo
@@ -208,8 +217,8 @@ Partial Class Form1
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(64, 34)
- Me.ToolStripButtonGeo.Text = "GEO"
+ Me.ToolStripButtonGeo.Size = New System.Drawing.Size(103, 34)
+ Me.ToolStripButtonGeo.Text = "GEO Skripta"
'
'ToolStripSeparator4
'
@@ -226,15 +235,6 @@ Partial Class Form1
Me.tsbSaveAs.Size = New System.Drawing.Size(93, 34)
Me.tsbSaveAs.Text = "Shrani ..."
'
- 'ToolStripButtonPripravi
- '
- 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.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
- '
'OpenFileDialogTocke
'
Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
@@ -248,19 +248,66 @@ Partial Class Form1
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
+ '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.Name = "DatotekaToolStripMenuItem"
+ Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 20)
+ Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
+ '
+ 'OdpriGSIToolStripMenuItem1
+ '
+ Me.OdpriGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
+ Me.OdpriGSIToolStripMenuItem1.Name = "OdpriGSIToolStripMenuItem1"
+ Me.OdpriGSIToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+ Me.OdpriGSIToolStripMenuItem1.Text = "&Odpri GSI"
+ '
+ '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(180, 22)
+ Me.PripraviGSIToolStripMenuItem1.Text = "&Pripravi GSI"
+ '
+ 'ToolStripSeparator3
+ '
+ Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+ Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 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(180, 22)
+ Me.ShraniToolStripMenuItem.Text = "&Shrani..."
+ '
+ 'ToolStripSeparator2
+ '
+ Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+ Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 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(180, 22)
+ Me.IzhodToolStripMenuItem.Text = "I&zhod"
+ '
'MenuToolStripMenuItem
'
Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PripraviGSIToolStripMenuItem, Me.InfoOAplikacijiToolStripMenuItem})
+ Me.MenuToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_menu_50
Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
- Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(65, 20)
+ Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(81, 20)
Me.MenuToolStripMenuItem.Text = "Program"
- Me.MenuToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
'
'OdpriGSIToolStripMenuItem
'
- Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tools_50
+ Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_open_end_wrench_50
Me.OdpriGSIToolStripMenuItem.Name = "OdpriGSIToolStripMenuItem"
- Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
'
'ToolStripSeparator6
@@ -282,52 +329,6 @@ Partial Class Form1
Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.InfoOAplikacijiToolStripMenuItem.Text = "Info o aplikaciji"
'
- 'DatotekaToolStripMenuItem
- '
- Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem1, Me.PripraviGSIToolStripMenuItem1, Me.ToolStripSeparator3, Me.ShraniToolStripMenuItem, Me.ToolStripSeparator2, Me.IzhodToolStripMenuItem})
- Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
- Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(66, 20)
- Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
- '
- 'OdpriGSIToolStripMenuItem1
- '
- Me.OdpriGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
- Me.OdpriGSIToolStripMenuItem1.Name = "OdpriGSIToolStripMenuItem1"
- Me.OdpriGSIToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
- Me.OdpriGSIToolStripMenuItem1.Text = "&Odpri GSI"
- '
- '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(180, 22)
- Me.PripraviGSIToolStripMenuItem1.Text = "&Pripravi GSI"
- '
- '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(180, 22)
- Me.ShraniToolStripMenuItem.Text = "&Shrani..."
- '
- 'IzhodToolStripMenuItem
- '
- Me.IzhodToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
- Me.IzhodToolStripMenuItem.Name = "IzhodToolStripMenuItem"
- Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
- Me.IzhodToolStripMenuItem.Text = "I&zhod"
- '
- 'ToolStripSeparator2
- '
- Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
- Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
- '
- 'ToolStripSeparator3
- '
- Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
- Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
- '
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
diff --git a/Form1.vb b/Form1.vb
index 7953ba7..2a3b5a9 100644
--- a/Form1.vb
+++ b/Form1.vb
@@ -212,27 +212,27 @@ Public Class Form1
PodatkiStojisce = True
End If
If dataKoda = My.Settings.KodaMeasOri Then
- data = vbCrLf + "Orientacija:" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
+ data = vbCrLf + "Meritve Orientacije" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaMeas Then
- data = vbCrLf + "Merjeno:" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
+ data = vbCrLf + "Merjeno" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaUserImport Then
- data = vbCrLf + "Imported/User-Entered:" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H"
+ data = vbCrLf + "Uvoz/Ročni vnos" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H"
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisce Then
- data = vbCrLf + "Stojišče Info:" + vbCrLf + "----------------------" + vbCrLf + "StID" + dataStolpci + "InstHt" + vbCrLf
+ data = vbCrLf + "Stojišče Info" + vbCrLf + "----------------------" + vbCrLf + "StID" + dataStolpci + "InstHt" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisceInfo Then
- data = vbCrLf + "Temp./Pritisk:" + vbCrLf + "----------------------" + vbCrLf + "Temp" + dataStolpci + "Pritisk" + vbCrLf
+ data = vbCrLf + "Temp./Pritisk" + vbCrLf + "----------------------" + vbCrLf + "Temp" + dataStolpci + "Pritisk" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisceOri Then
- data = vbCrLf + "Orientacija:" + vbCrLf + "----------------------" + vbCrLf + "OrID" + dataStolpci + "Hz" + vbCrLf
+ data = vbCrLf + "Orientacija Info" + vbCrLf + "----------------------" + vbCrLf + "OrID" + dataStolpci + "Hz" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = "STA_OFFS" Then
@@ -520,9 +520,9 @@ Public Class Form1
Dim numPress As Double
numPress = infoPress * 0.750062
infoPress = Format(numPress, "0.00").ToString
- If measuredPoints = 0 Then
- izpisText = infoTemp + " " + infoPress + vbCrLf
- End If
+ 'If measuredPoints = 0 Then
+ ' izpisText = infoTemp + " " + infoPress + vbCrLf
+ 'End If
measuredPoints = 0
End If
diff --git a/FormNastavitve.Designer.vb b/FormNastavitve.Designer.vb
index 35f619f..31cb924 100644
--- a/FormNastavitve.Designer.vb
+++ b/FormNastavitve.Designer.vb
@@ -34,7 +34,7 @@ Partial Class FormNastavitve
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.TextBoxLog = New System.Windows.Forms.TextBox()
Me.ButtonOdpriLog = New System.Windows.Forms.Button()
- Me.OpenFileDialogLog = New System.Windows.Forms.OpenFileDialog()
+ Me.OpenFileDialogNast = New System.Windows.Forms.OpenFileDialog()
Me.SaveFileDialogLog = New System.Windows.Forms.SaveFileDialog()
Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
Me.Label7 = New System.Windows.Forms.Label()
@@ -221,12 +221,12 @@ Partial Class FormNastavitve
Me.ButtonOdpriLog.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.ButtonOdpriLog.UseVisualStyleBackColor = True
'
- 'OpenFileDialogLog
+ 'OpenFileDialogNast
'
- Me.OpenFileDialogLog.CheckFileExists = False
- Me.OpenFileDialogLog.DefaultExt = "Text File|*.txt"
- Me.OpenFileDialogLog.FileName = "tps1100_log.txt"
- Me.OpenFileDialogLog.Filter = "Text File|*.txt"
+ Me.OpenFileDialogNast.CheckFileExists = False
+ Me.OpenFileDialogNast.DefaultExt = "CFG File|*.cfg"
+ Me.OpenFileDialogNast.FileName = "tps1100_log.txt"
+ Me.OpenFileDialogNast.Filter = "CFG File|*.cfg"
'
'SaveFileDialogLog
'
@@ -371,9 +371,9 @@ Partial Class FormNastavitve
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(78, 360)
Me.Label8.Name = "Label8"
- Me.Label8.Size = New System.Drawing.Size(120, 30)
+ Me.Label8.Size = New System.Drawing.Size(128, 30)
Me.Label8.TabIndex = 7
- Me.Label8.Text = "Imported / User-entered"
+ Me.Label8.Text = "Točke: Uvoz/Ročni vnos"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TextBoxMeas
@@ -409,9 +409,9 @@ Partial Class FormNastavitve
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(78, 330)
Me.Label6.Name = "Label6"
- Me.Label6.Size = New System.Drawing.Size(54, 30)
+ Me.Label6.Size = New System.Drawing.Size(45, 30)
Me.Label6.TabIndex = 5
- Me.Label6.Text = "Measured"
+ Me.Label6.Text = "Merjeno"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label9
@@ -421,9 +421,9 @@ Partial Class FormNastavitve
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(78, 300)
Me.Label9.Name = "Label9"
- Me.Label9.Size = New System.Drawing.Size(58, 30)
+ Me.Label9.Size = New System.Drawing.Size(57, 30)
Me.Label9.TabIndex = 16
- Me.Label9.Text = "Orientation"
+ Me.Label9.Text = "Orientacije"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label15
@@ -652,9 +652,9 @@ Partial Class FormNastavitve
'
'SaveFileDialogNast
'
- Me.SaveFileDialogNast.DefaultExt = "Config|*.cfg"
- Me.SaveFileDialogNast.FileName = "tps1100_nastavitve.cfg"
- Me.SaveFileDialogNast.Filter = "Config|*.cfg"
+ Me.SaveFileDialogNast.DefaultExt = "CFG File|*.cfg"
+ Me.SaveFileDialogNast.FileName = "tps1100_kode.cfg"
+ Me.SaveFileDialogNast.Filter = "CFG File|*.cfg"
'
'MenuStrip1
'
@@ -675,28 +675,28 @@ Partial Class FormNastavitve
'
'IzvoziKodeToolStripMenuItem
'
- Me.IzvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
+ Me.IzvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.IzvoziKodeToolStripMenuItem.Name = "IzvoziKodeToolStripMenuItem"
- Me.IzvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(133, 22)
- Me.IzvoziKodeToolStripMenuItem.Text = "&Izvozi Kode"
+ Me.IzvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.IzvoziKodeToolStripMenuItem.Text = "&Shrani Kode"
'
'UvoziKodeToolStripMenuItem
'
- Me.UvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
+ Me.UvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
Me.UvoziKodeToolStripMenuItem.Name = "UvoziKodeToolStripMenuItem"
- Me.UvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(133, 22)
+ Me.UvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.UvoziKodeToolStripMenuItem.Text = "&Uvozi Kode"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
- Me.ToolStripSeparator1.Size = New System.Drawing.Size(130, 6)
+ Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
'
'ZapriToolStripMenuItem
'
Me.ZapriToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.ZapriToolStripMenuItem.Name = "ZapriToolStripMenuItem"
- Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(133, 22)
+ Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ZapriToolStripMenuItem.Text = "&Zapri"
'
'ButtonShraniZapri
@@ -762,7 +762,7 @@ Partial Class FormNastavitve
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents TextBoxLog As TextBox
Friend WithEvents ButtonOdpriLog As Button
- Friend WithEvents OpenFileDialogLog As OpenFileDialog
+ Friend WithEvents OpenFileDialogNast As OpenFileDialog
Friend WithEvents SaveFileDialogLog As SaveFileDialog
Friend WithEvents RadioButton1 As RadioButton
Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
diff --git a/FormNastavitve.resx b/FormNastavitve.resx
index 0bd3964..26c2cd8 100644
--- a/FormNastavitve.resx
+++ b/FormNastavitve.resx
@@ -117,7 +117,7 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
+
123, 17
diff --git a/FormNastavitve.vb b/FormNastavitve.vb
index 8848b02..6a95f1b 100644
--- a/FormNastavitve.vb
+++ b/FormNastavitve.vb
@@ -1,4 +1,6 @@
-Public Class FormNastavitve
+Imports System.IO
+
+Public Class FormNastavitve
Private Sub FormNastavitve_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Settings.Stolpci = 0 Then
@@ -110,9 +112,70 @@
Private Sub UvoziKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UvoziKodeToolStripMenuItem.Click
' TODO: Uvoz nastavitev iz datototeke
+ If OpenFileDialogNast.ShowDialog = DialogResult.OK Then
+ Dim streamReader As StreamReader = New StreamReader(OpenFileDialogNast.FileName)
+ Do Until streamReader.EndOfStream
+ ' Read and Split each line to separate it into fields
+ Dim line() As String = streamReader.ReadLine().Split("=")
+ Dim kodaIme As String
+ Dim kodaVal As String
+ kodaIme = Replace(line(0), " ", "")
+ kodaVal = Replace(line(1), " ", "")
+ If kodaIme = "KodaStojisce" Then
+ My.Settings.KodaStojisce = kodaVal
+ TextBoxStoj.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaStojisceInfo" Then
+ My.Settings.KodaStojisceInfo = kodaVal
+ TextBoxStojInfo.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaStojisceOri" Then
+ My.Settings.KodaStojisceOri = kodaVal
+ TextBoxOriHz.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaQuickSet" Then
+ My.Settings.KodaQuickSet = kodaVal
+ TextBoxQuickSet.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaSetAzi" Then
+ My.Settings.KodaSetAzi = kodaVal
+ TextBoxSetAzi.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaResection" Then
+ My.Settings.KodaResection = kodaVal
+ TextBoxRes.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaFreeStation" Then
+ My.Settings.KodaFreeStation = kodaVal
+ TextBoxFree.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaOriHtTrans" Then
+ My.Settings.KodaOriHtTrans = kodaVal
+ TextBoxOriHt.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaMeasOri" Then
+ My.Settings.KodaMeasOri = kodaVal
+ TextBoxMeasOri.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaMeas" Then
+ My.Settings.KodaMeas = kodaVal
+ TextBoxMeas.Text = kodaVal.ToString
+ End If
+ If kodaIme = "KodaUserImport" Then
+ My.Settings.KodaUserImport = kodaVal
+ TextBoxImport.Text = kodaVal.ToString
+ End If
+ Loop
+
+ streamReader.Close()
+ streamReader.Dispose()
+ My.Settings.Save()
+
+ End If
End Sub
Private Sub ButtonShraniZapri_Click(sender As Object, e As EventArgs) Handles ButtonShraniZapri.Click
Me.Close()
End Sub
+
End Class
\ No newline at end of file
diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb
index cbc947f..b4e0f82 100644
--- a/My Project/Resources.Designer.vb
+++ b/My Project/Resources.Designer.vb
@@ -681,6 +681,16 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Looks up a localized resource of type System.Drawing.Bitmap.
+ '''
+ Friend ReadOnly Property icons8_program_50() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("icons8-program-50", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
'''
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''
diff --git a/My Project/Resources.resx b/My Project/Resources.resx
index 70262bb..17fa572 100644
--- a/My Project/Resources.resx
+++ b/My Project/Resources.resx
@@ -130,9 +130,6 @@
Icons\icons8-send-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Information 7
-
Prism constant
@@ -154,8 +151,8 @@
Icons\ModernXP-41-Settings-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Remark 3
+
+ Icons\icons8-add-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
Icons\icons8-done-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
@@ -172,11 +169,14 @@
Remark 6
+
+ Time
+
Icons\icons8-do-not-disturb-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Icons\icons8-opened-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Remark 5
PPM/mm
@@ -196,11 +196,17 @@
Icons\icons8-open-end-wrench-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Northing
+
Serial number
-
- Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Remark 3
+
+
+ Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
Icons\icons8-cancel-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
@@ -229,21 +235,18 @@
Icons\icons8-clear-symbol-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
Icons\icons8-support-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Horizontal Angle Correction
+
Remark 9
Icons\Save-as-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Code-Block ID
-
Remark 4
@@ -253,6 +256,9 @@
Icons\icons8-drawing-compass-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Icons\icons8-menu-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
Information 3
@@ -265,6 +271,9 @@
Point number
+
+ Slope distance
+
Icons\icons8-info-squared-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
@@ -283,14 +292,11 @@
Instrument height
-
- Information 1
-
Icons\icons8-question-mark-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Time
+
+ Icons\icons8-opened-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
Icons\icons8-no-entry-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
@@ -298,8 +304,8 @@
Icons\icons8-save-as-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Icons\icons8-add-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
..\README.md;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
@@ -310,8 +316,8 @@
Icons\icons8-connection-status-on-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Northing
+
+ Information 7
Remark 1
@@ -325,14 +331,11 @@
Information 5
-
- Remark 5
-
Reflector height
-
- Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
Icons\icons8-add-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
@@ -340,11 +343,11 @@
Horizontal distance
-
- Slope distance
+
+ Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- Horizontal Angle Correction
+
+ Code-Block ID
Horizontal Angle
@@ -352,10 +355,10 @@
St. Easting
-
- Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Information 1
-
- Icons\icons8-menu-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ Icons\icons8-program-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
\ No newline at end of file
diff --git a/NAVODILA.docx b/NAVODILA.docx
index d652644..87dc49e 100644
Binary files a/NAVODILA.docx and b/NAVODILA.docx differ
diff --git a/Navodila.pdf b/Navodila.pdf
index 5616b43..2072c47 100644
Binary files a/Navodila.pdf and b/Navodila.pdf differ
diff --git a/Podatki/TEST.GSI b/Podatki/TEST.GSI
index 4b5531a..f67fa02 100644
--- a/Podatki/TEST.GSI
+++ b/Podatki/TEST.GSI
@@ -2,7 +2,7 @@
*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....+0000000000001018
+*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
diff --git a/TPS1100 Convert.vbproj b/TPS1100 Convert.vbproj
index ce1cb2d..fd660a2 100644
--- a/TPS1100 Convert.vbproj
+++ b/TPS1100 Convert.vbproj
@@ -312,6 +312,7 @@
+
diff --git a/bin/Release/TPS1100 Convert.application b/bin/Release/TPS1100 Convert.application
index 7112a22..2190778 100644
--- a/bin/Release/TPS1100 Convert.application
+++ b/bin/Release/TPS1100 Convert.application
@@ -14,7 +14,7 @@
- 6inyc06EaaiiQbENLu4O26A0+UreBmMRXBr2zOBZ+Oo=
+ /DkdR56COHObj9giV2E0l61IAzO+md9Pky9OL5Q23Wo=
diff --git a/bin/Release/TPS1100 Convert.exe b/bin/Release/TPS1100 Convert.exe
index 3b6953c..19593a2 100644
Binary files a/bin/Release/TPS1100 Convert.exe and b/bin/Release/TPS1100 Convert.exe differ
diff --git a/bin/Release/TPS1100 Convert.exe.manifest b/bin/Release/TPS1100 Convert.exe.manifest
index f301322..af5c152 100644
--- a/bin/Release/TPS1100 Convert.exe.manifest
+++ b/bin/Release/TPS1100 Convert.exe.manifest
@@ -43,14 +43,14 @@
-
+
- Ck+Hsj11hMK8XQwT0taSkNmh9irYI8LWuZWYNSXLE/M=
+ 7ul3Fat4JHehkb1CL+AbZculEufU9xDq2Y/gl1LZi88=
diff --git a/bin/Release/app.publish/TPS1100 Convert.exe b/bin/Release/app.publish/TPS1100 Convert.exe
index 3b6953c..19593a2 100644
Binary files a/bin/Release/app.publish/TPS1100 Convert.exe and b/bin/Release/app.publish/TPS1100 Convert.exe differ
diff --git a/bin/TPS1100-Convert_2.7.0.0_Portable.zip b/bin/TPS1100-Convert_2.7.0.0_Portable.zip
index 9414416..b4d66cc 100644
Binary files a/bin/TPS1100-Convert_2.7.0.0_Portable.zip and b/bin/TPS1100-Convert_2.7.0.0_Portable.zip differ
diff --git a/tps1100_nastavitve.cfg b/tps1100_nastavitve.cfg
new file mode 100644
index 0000000..946e1a6
--- /dev/null
+++ b/tps1100_nastavitve.cfg
@@ -0,0 +1,11 @@
+KodaStojisce = 1
+KodaStojisceInfo = 2
+KodaStojisceOri = 9
+KodaQuickSet = 10
+KodaSetAzi = 20
+KodaResection = 30
+KodaFreeStation = 40
+KodaOriHtTrans = 50
+KodaMeasOri = 80
+KodaMeas = 90
+KodaUserImport = 99