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