ClearAllAppSettings added

This commit is contained in:
Martijn Scheepers
2021-05-06 08:39:38 +02:00
parent c30047a267
commit f86ace30a3
4 changed files with 200 additions and 6 deletions

View File

@@ -0,0 +1,150 @@
<Value>OBJECT_DEVICE:676904</Value>
<Value>OBJECT_ANALOG_VALUE:0</Value><Value>.BC_error_code</Value>
<Value>OBJECT_ANALOG_VALUE:1</Value><Value>.BC_error_argument</Value>
<Value>OBJECT_BINARY_VALUE:14</Value><Value>.BC_brandmeldcentr_storing_status</Value>
<Value>OBJECT_BINARY_VALUE:13</Value><Value>.BC_brandmelding_status</Value>
<Value>OBJECT_BINARY_VALUE:18</Value><Value>.BC_storing_plc_status</Value>
<Value>OBJECT_BINARY_VALUE:19</Value><Value>.BC_storing_HVAC_status</Value>
<Value>OBJECT_BINARY_VALUE:17</Value><Value>.BC_inbraak_alarm_ingesch_status</Value>
<Value>OBJECT_BINARY_VALUE:15</Value><Value>.BC_inbraak_alarm_status</Value>
<Value>OBJECT_BINARY_VALUE:16</Value><Value>.BC_inbraakinst_sabotage_status</Value>
<Value>OBJECT_BINARY_VALUE:23</Value><Value>.BC_ass_oproep_status</Value>
<Value>OBJECT_BINARY_VALUE:104</Value><Value>.BC_prioriteit_ass_oproep_bed_reset</Value>
<Value>OBJECT_BINARY_VALUE:105</Value><Value>.BC_prioriteit_ass_oproep_bed_reset_stat</Value>
<Value>OBJECT_BINARY_VALUE:106</Value><Value>.BC_radio_kanaal1_bed</Value>
<Value>OBJECT_BINARY_VALUE:107</Value><Value>.BC_radio_kanaal1_bed_stat</Value>
<Value>OBJECT_BINARY_VALUE:108</Value><Value>.BC_radio_kanaal2_bed</Value>
<Value>OBJECT_BINARY_VALUE:109</Value><Value>.BC_radio_kanaal2_bed_stat</Value>
<Value>OBJECT_BINARY_VALUE:110</Value><Value>.BC_radio_uit_bed</Value>
<Value>OBJECT_BINARY_VALUE:111</Value><Value>.BC_radio_uit_bed_stat</Value>
Deuren
<Value>OBJECT_BINARY_VALUE:60</Value><Value>.BC_deur_arrestanteningang_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:61</Value><Value>.BC_deur_arrestanteningang_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:58</Value><Value>.BC_deur_arrestanteningang_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:59</Value><Value>.BC_deur_arrestanteningang_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:62</Value><Value>.BC_deur_arrestanteningang_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:63</Value><Value>.BC_deur_arrestanteningang_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:7</Value><Value>.BC_deur_arrestanteningang_status</Value>
<Value>OBJECT_BINARY_VALUE:72</Value><Value>.BC_deur_cellengang_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:73</Value><Value>.BC_deur_cellengang_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:70</Value><Value>.BC_deur_cellengang_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:71</Value><Value>.BC_deur_cellengang_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:74</Value><Value>.BC_deur_cellengang_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:75</Value><Value>.BC_deur_cellengang_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:9</Value><Value>.BC_deur_cellengang_status</Value>
<Value>OBJECT_BINARY_VALUE:48</Value><Value>.BC_deur_dienstingang_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:49</Value><Value>.BC_deur_dienstingang_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:46</Value><Value>.BC_deur_dienstingang_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:47</Value><Value>.BC_deur_dienstingang_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:50</Value><Value>.BC_deur_dienstingang_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:51</Value><Value>.BC_deur_dienstingang_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:5</Value><Value>.BC_deur_dienstingang_status</Value>
<Value>OBJECT_BINARY_VALUE:54</Value><Value>.BC_deur_personeelsingang_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:55</Value><Value>.BC_deur_personeelsingang_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:52</Value><Value>.BC_deur_personeelsingang_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:53</Value><Value>.BC_deur_personeelsingang_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:56</Value><Value>.BC_deur_personeelsingang_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:57</Value><Value>.BC_deur_personeelsingang_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:6</Value><Value>.BC_deur_personeelsingang_status</Value>
<Value>OBJECT_BINARY_VALUE:42</Value><Value>.BC_deur_publiekshal_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:43</Value><Value>.BC_deur_publiekshal_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:40</Value><Value>.BC_deur_publiekshal_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:41</Value><Value>.BC_deur_publiekshal_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:44</Value><Value>.BC_deur_publiekshal_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:45</Value><Value>.BC_deur_publiekshal_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:4</Value><Value>.BC_deur_publiekshal_status</Value>
<Value>OBJECT_BINARY_VALUE:78</Value><Value>.BC_deur_receptie_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:79</Value><Value>.BC_deur_receptie_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:76</Value><Value>.BC_deur_receptie_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:77</Value><Value>.BC_deur_receptie_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:80</Value><Value>.BC_deur_receptie_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:81</Value><Value>.BC_deur_receptie_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:10</Value><Value>.BC_deur_receptie_status</Value>
<Value>OBJECT_BINARY_VALUE:66</Value><Value>.BC_deur_RTR_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:67</Value><Value>.BC_deur_RTR_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:64</Value><Value>.BC_deur_RTR_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:65</Value><Value>.BC_deur_RTR_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:68</Value><Value>.BC_deur_RTR_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:69</Value><Value>.BC_deur_RTR_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:8</Value><Value>.BC_deur_RTR_status</Value>
<Value>OBJECT_BINARY_VALUE:84</Value><Value>.BC_deur_spreekkamer3a_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:85</Value><Value>.BC_deur_spreekkamer3a_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:82</Value><Value>.BC_deur_spreekkamer3a_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:83</Value><Value>.BC_deur_spreekkamer3a_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:86</Value><Value>.BC_deur_spreekkamer3a_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:87</Value><Value>.BC_deur_spreekkamer3a_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:11</Value><Value>.BC_deur_spreekkamer3a_status</Value>
<Value>OBJECT_BINARY_VALUE:90</Value><Value>.BC_deur_spreekkamer3b_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:91</Value><Value>.BC_deur_spreekkamer3b_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:88</Value><Value>.BC_deur_spreekkamer3b_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:89</Value><Value>.BC_deur_spreekkamer3b_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:92</Value><Value>.BC_deur_spreekkamer3b_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:93</Value><Value>.BC_deur_spreekkamer3b_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:12</Value><Value>.BC_deur_spreekkamer3b_status</Value>
schuifdeur
<Value>OBJECT_BINARY_VALUE:30</Value><Value>.BC_sdeur_hoofdingang_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:31</Value><Value>.BC_sdeur_hoofdingang_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:28</Value><Value>.BC_sdeur_hoofdingang_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:29</Value><Value>.BC_sdeur_hoofdingang_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:32</Value><Value>.BC_sdeur_hoofdingang_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:33</Value><Value>.BC_sdeur_hoofdingang_bed_vergr_stat</Value>
<Value>OBJECT_BINARY_VALUE:36</Value><Value>.BC_sdeur_portaal_bed_cont</Value>
<Value>OBJECT_BINARY_VALUE:37</Value><Value>.BC_sdeur_portaal_bed_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:34</Value><Value>.BC_sdeur_portaal_bed_puls</Value>
<Value>OBJECT_BINARY_VALUE:35</Value><Value>.BC_sdeur_portaal_bed_puls_stat</Value>
<Value>OBJECT_BINARY_VALUE:38</Value><Value>.BC_sdeur_portaal_bed_vergr</Value>
<Value>OBJECT_BINARY_VALUE:39</Value><Value>.BC_sdeur_portaal_bed_vergr_stat</Value>
Poort
<Value>OBJECT_BINARY_VALUE:100</Value><Value>.BC_toegangspoort_bed_dicht</Value>
<Value>OBJECT_BINARY_VALUE:101</Value><Value>.BC_toegangspoort_bed_dicht_stat</Value>
<Value>OBJECT_BINARY_VALUE:94</Value><Value>.BC_toegangspoort_bed_open_auto</Value>
<Value>OBJECT_BINARY_VALUE:95</Value><Value>.BC_toegangspoort_bed_open_auto_stat</Value>
<Value>OBJECT_BINARY_VALUE:96</Value><Value>.BC_toegangspoort_bed_open_cont</Value>
<Value>OBJECT_BINARY_VALUE:97</Value><Value>.BC_toegangspoort_bed_open_cont_stat</Value>
<Value>OBJECT_BINARY_VALUE:102</Value><Value>.BC_toegangspoort_bed_open_fiets</Value>
<Value>OBJECT_BINARY_VALUE:103</Value><Value>.BC_toegangspoort_bed_open_fiets_stat</Value>
<Value>OBJECT_BINARY_VALUE:98</Value><Value>.BC_toegangspoort_bed_stop</Value>
<Value>OBJECT_BINARY_VALUE:99</Value><Value>.BC_toegangspoort_bed_stop_stat</Value>
<Value>OBJECT_BINARY_VALUE:21</Value><Value>.BC_toegangspoort_dicht_status</Value>
<Value>OBJECT_BINARY_VALUE:22</Value><Value>.BC_toegangspoort_niet_O_D_status</Value>
<Value>OBJECT_BINARY_VALUE:20</Value><Value>.BC_toegangspoort_open_status</Value>
Verlichting
<Value>OBJECT_BINARY_VALUE:27</Value><Value>.BC_verl_gang_1verd_bed</Value>
<Value>OBJECT_BINARY_VALUE:3</Value><Value>.BC_verl_gang_1verd_status</Value>
<Value>OBJECT_BINARY_VALUE:26</Value><Value>.BC_verl_gang_beggr_bed</Value>
<Value>OBJECT_BINARY_VALUE:2</Value><Value>.BC_verl_gang_beggr_status</Value>
<Value>OBJECT_BINARY_VALUE:24</Value><Value>.BC_verl_publiekshal_bed</Value>
<Value>OBJECT_BINARY_VALUE:0</Value><Value>.BC_verl_publiekshal_status</Value>
<Value>OBJECT_BINARY_VALUE:25</Value><Value>.BC_verl_tochtportaal_bed</Value>
<Value>OBJECT_BINARY_VALUE:1</Value><Value>.BC_verl_tochtportaal_status</Value>

View File

@@ -92,4 +92,24 @@ Public Module Appsettings
WriteAppSetting(key, converter.ConvertToString(value))
End Sub
#End Region
#Region "Clear Setting"
Public Sub ClearAllAppSettings()
Try
Dim ConfigFile = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
Dim settings = ConfigFile.AppSettings.Settings
For Each setting As KeyValueConfigurationElement In settings
Debug.WriteLine($"settings = {setting.Key} - {setting.Value}")
settings.Remove(setting.Key)
Next
ConfigFile.Save(ConfigurationSaveMode.Modified)
ConfigurationManager.RefreshSection(ConfigFile.AppSettings.SectionInformation.Name)
Catch ex As ConfigurationErrorsException
Errorlog.Error("Error clearing app settings - " + ex.Message)
End Try
End Sub
#End Region
End Module

View File

@@ -42,6 +42,7 @@ Partial Class FrmMain
Me.TelnetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UDPToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BACnetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StentofonToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VOIPToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.C2000ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IOTServerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -69,7 +70,8 @@ Partial Class FrmMain
Me.UCSHelpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AfsluitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ScreenControlExtender = New UCS.ControlExtender(Me.components)
Me.StentofonToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InstellingenWissenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.UCSMenuStrip.SuspendLayout()
Me.SuspendLayout()
'
@@ -176,7 +178,7 @@ Partial Class FrmMain
'
'ServiceMenuToolStripMenuItem
'
Me.ServiceMenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TelnetToolStripMenuItem, Me.UDPToolStripMenuItem, Me.BACnetToolStripMenuItem, Me.StentofonToolStripMenuItem, Me.VOIPToolStripMenuItem, Me.C2000ToolStripMenuItem, Me.IOTServerToolStripMenuItem, Me.SimulatorToolStripMenuItem, Me.RemoteIDListToolStripMenuItem, Me.GraphicsIdListToolStripMenuItem, Me.GroupBoxDataToolStripMenuItem, Me.ToolStripSeparator3, Me.SelectedConfigFileToolStripMenuItem, Me.ConfigFileKiezenToolStripMenuItem, Me.ToolStripSeparator5, Me.DoorlinkUitschakelenToolStripMenuItem, Me.KleurenCalculatorToolStripMenuItem, Me.PosistieLatenZienToolStripMenuItem, Me.ProgrammaLoggingToolStripMenuItem, Me.ErrorLoggingToolStripMenuItem, Me.VideoDisabledToolStripMenuItem, Me.VideoRefreshToolStripMenuItem, Me.EditModeToolStripMenuItem, Me.ToolStripSeparator4, Me.TelemetryToolStripMenuItem, Me.SelectNetworkToolStripMenuItem, Me.ConfigToolToolStripMenuItem, Me.ConfigFileCheckerToolStripMenuItem, Me.UCSHelpToolStripMenuItem, Me.AfsluitenToolStripMenuItem})
Me.ServiceMenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TelnetToolStripMenuItem, Me.UDPToolStripMenuItem, Me.BACnetToolStripMenuItem, Me.StentofonToolStripMenuItem, Me.VOIPToolStripMenuItem, Me.C2000ToolStripMenuItem, Me.IOTServerToolStripMenuItem, Me.SimulatorToolStripMenuItem, Me.RemoteIDListToolStripMenuItem, Me.GraphicsIdListToolStripMenuItem, Me.GroupBoxDataToolStripMenuItem, Me.ToolStripSeparator3, Me.SelectedConfigFileToolStripMenuItem, Me.ConfigFileKiezenToolStripMenuItem, Me.ToolStripSeparator5, Me.DoorlinkUitschakelenToolStripMenuItem, Me.KleurenCalculatorToolStripMenuItem, Me.PosistieLatenZienToolStripMenuItem, Me.ProgrammaLoggingToolStripMenuItem, Me.ErrorLoggingToolStripMenuItem, Me.VideoDisabledToolStripMenuItem, Me.VideoRefreshToolStripMenuItem, Me.EditModeToolStripMenuItem, Me.ToolStripSeparator4, Me.InstellingenWissenToolStripMenuItem, Me.ToolStripSeparator6, Me.TelemetryToolStripMenuItem, Me.SelectNetworkToolStripMenuItem, Me.ConfigToolToolStripMenuItem, Me.ConfigFileCheckerToolStripMenuItem, Me.UCSHelpToolStripMenuItem, Me.AfsluitenToolStripMenuItem})
Me.ServiceMenuToolStripMenuItem.Name = "ServiceMenuToolStripMenuItem"
Me.ServiceMenuToolStripMenuItem.ShowShortcutKeys = False
Me.ServiceMenuToolStripMenuItem.Size = New System.Drawing.Size(90, 20)
@@ -201,6 +203,12 @@ Partial Class FrmMain
Me.BACnetToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
Me.BACnetToolStripMenuItem.Text = "BACnet"
'
'StentofonToolStripMenuItem
'
Me.StentofonToolStripMenuItem.Name = "StentofonToolStripMenuItem"
Me.StentofonToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
Me.StentofonToolStripMenuItem.Text = "Stentofon"
'
'VOIPToolStripMenuItem
'
Me.VOIPToolStripMenuItem.Name = "VOIPToolStripMenuItem"
@@ -361,11 +369,16 @@ Partial Class FrmMain
Me.ScreenControlExtender.DragInfo = Nothing
Me.ScreenControlExtender.ResizeInfo = Nothing
'
'StentofonToolStripMenuItem
'InstellingenWissenToolStripMenuItem
'
Me.StentofonToolStripMenuItem.Name = "StentofonToolStripMenuItem"
Me.StentofonToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
Me.StentofonToolStripMenuItem.Text = "Stentofon"
Me.InstellingenWissenToolStripMenuItem.Name = "InstellingenWissenToolStripMenuItem"
Me.InstellingenWissenToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
Me.InstellingenWissenToolStripMenuItem.Text = "Instellingen wissen"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(185, 6)
'
'FrmMain
'
@@ -434,4 +447,6 @@ Partial Class FrmMain
Friend WithEvents TelemetryToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BACnetToolStripMenuItem As ToolStripMenuItem
Friend WithEvents StentofonToolStripMenuItem As ToolStripMenuItem
Friend WithEvents InstellingenWissenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
End Class

View File

@@ -1253,6 +1253,15 @@ Public Class FrmMain
End If
End Sub
'---------------------------------------------------------------------------------------------
Private Sub InstellingenWissenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InstellingenWissenToolStripMenuItem.Click
Me.TopMost = True 'Zet de messagebox voor alles
Dim ClickResult As DialogResult = MessageBox.Show($"Alle instellingen wissen (Telemetry, gekozen configfile, service menu schermen posities) {Environment.NewLine} Herstart UCS na het wissen om standaard waarde terug te krijgen", UcsVersion.GetTitleTag() & " Instellingen wissen ?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If ClickResult = DialogResult.OK Then
Appsettings.ClearAllAppSettings()
End If
End Sub
'---------------------------------------------------------------------------------------------
Private Sub TelemetryToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TelemetryToolStripMenuItem.Click
Using settings As New TelemetrySettings