MS/UCS_ConfigTool_Net
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

save

Browse Source
This commit is contained in:
Martijn Scheepers
2023-02-10 14:52:05 +01:00
parent b283f94820
commit 5333ca3059
7 changed files with 200 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
UCS Configtool/DataConverters.vb
View File

@@ -21,19 +21,19 @@
Case "F" : result = &HF
Case Else : result = Val(Right$(hexval, 1))
End Select
EEToDec = high + result
Return high + result
End Function
Public Function EEToChar(ByVal hexval As String) As String
EEToChar = Chr(EEToDec(hexval))
Return Chr(EEToDec(hexval))
End Function
Public Function EEToBin(ByVal hexval As String) As Integer()
EEToBin = DecToBin(EEToDec(hexval))
Return DecToBin(EEToDec(hexval))
End Function
Public Function EEToHex(ByVal hexval As String) As String
EEToHex = Right$("00" & hexval, 2)
Return Right$("00" & hexval, 2)
End Function
'************************************************************************
@@ -49,16 +49,16 @@
result(X) = 0
End If
Next X
DecToBin = result
Return result
End Function
'-------------------------------------------------------------------------
Public Function CharToEE(ByVal chr As String) As String
CharToEE = DecToEE(Asc(chr))
Return DecToEE(Asc(chr))
End Function
Public Function DecToEE(ByVal decval As Integer) As String
DecToEE = Right$("0" & Hex$(decval), 2)
Return Right$("0" & Hex$(decval), 2)
End Function
Public Function BinToEE(ByVal binval As String) As String
@@ -100,7 +100,7 @@
Case "1110" : result &= "E"
Case "1111" : result &= "F"
End Select
BinToEE = result
Return result
End Function
'************************************************************************
@@ -110,15 +110,15 @@
Public Function CharToHex(ByVal chr As String) As String
CharToHex = DecToHex(Asc(chr))
Return DecToHex(Asc(chr))
End Function
Public Function HexToChar(ByVal hexval As String) As String
HexToChar = Chr(HexToDec(hexval))
Return Chr(HexToDec(hexval))
End Function
Public Function DecToHex(ByVal decval As Integer) As String
DecToHex = Right$("0" & Hex$(decval), 2)
Return Right$("0" & Hex$(decval), 2)
End Function
Public Function HexToDec(ByVal hexval As String) As Integer
@@ -143,7 +143,7 @@
Case "F" : result = &HF
Case Else : result = Val(Right$(hexval, 1))
End Select
HexToDec = high + result
Return high + result
End Function
Public Function BinToHex(ByVal binval As String) As String
@@ -185,11 +185,52 @@
Case "1110" : result &= "E"
Case "1111" : result &= "F"
End Select
BinToHex = result
Return result
End Function
Public Function HexToBin(ByVal hexval As String) As Integer()
HexToBin = DecToBin(HexToDec(hexval))
Return DecToBin(HexToDec(hexval))
End Function
'Function HexToBin(hexValue As String) As String
' Dim BinValue As String = Nothing
' Select Case Mid(hexValue, 1, 1)
' Case "0" : BinValue = "0000"
' Case "1" : BinValue = "0001"
' Case "2" : BinValue = "0010"
' Case "3" : BinValue = "0011"
' Case "4" : BinValue = "0100"
' Case "5" : BinValue = "0101"
' Case "6" : BinValue = "0110"
' Case "7" : BinValue = "0111"
' Case "8" : BinValue = "1000"
' Case "9" : BinValue = "1001"
' Case "A" : BinValue = "1010"
' Case "B" : BinValue = "1011"
' Case "C" : BinValue = "1100"
' Case "D" : BinValue = "1101"
' Case "E" : BinValue = "1110"
' Case "F" : BinValue = "1111"
' End Select
' Select Case Mid(hexValue, 2, 1)
' Case "0" : BinValue &= "0000"
' Case "1" : BinValue &= "0001"
' Case "2" : BinValue &= "0010"
' Case "3" : BinValue &= "0011"
' Case "4" : BinValue &= "0100"
' Case "5" : BinValue &= "0101"
' Case "6" : BinValue &= "0110"
' Case "7" : BinValue &= "0111"
' Case "8" : BinValue &= "1000"
' Case "9" : BinValue &= "1001"
' Case "A" : BinValue &= "1010"
' Case "B" : BinValue &= "1011"
' Case "C" : BinValue &= "1100"
' Case "D" : BinValue &= "1101"
' Case "E" : BinValue &= "1110"
' Case "F" : BinValue &= "1111"
' End Select
' Return BinValue
'End Function
End Class

1
UCS Configtool/UCS Configtool.vbproj
View File

@@ -86,7 +86,6 @@
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="DataConverters.vb" />
<Compile Include="fmrConfigOrg.Designer.vb">
<DependentUpon>fmrConfigOrg.vb</DependentUpon>

230
UCS Configtool/fmrConfigOrg.vb
View File

@@ -1,9 +1,9 @@
Public Class fmrConfigOrg
Dim StartTimer As Integer = 10
Dim EEHex(2047) As String
Dim EEDec(2047) As Integer
'Dim StartTimer As Integer = 10
'Dim EEHex(2047) As String
'Dim EEDec(2047) As Integer
Dim BinValue As String
'Dim BinValue As String
Private Sub frm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason = CloseReason.UserClosing Then
@@ -11,31 +11,34 @@ Public Class fmrConfigOrg
frmMain.WindowState = FormWindowState.Normal
End If
End Sub
Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Normal
BuildScreen()
'BuildScreen()
End Sub
Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
If StartTimer > 0 Then
With lblStarthier
If .Visible = False Then .Visible = True Else .Visible = False
End With
End If
'Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
' If StartTimer > 0 Then
' With lblStarthier
' If .Visible = False Then .Visible = True Else .Visible = False
' End With
' End If
' If StartTimer <= 0 Then
' Timer.Enabled = False
' lblStarthier.Visible = True
' Else
' StartTimer -= 1
' End If
'End Sub
If StartTimer <= 0 Then
Timer.Enabled = False
lblStarthier.Visible = True
Else
StartTimer -= 1
End If
End Sub
Private Sub ToolStripDropDownButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDropDownButton.Click
ToolStripDropDownButton.BackColor = SystemColors.ButtonFace
lblStarthier.Visible = False
Timer.Enabled = False
End Sub
Sub Showgroup(ByVal Groupnumber As Integer)
grp1.Visible = False
grp1.Left = 1050
@@ -64,14 +67,17 @@ Public Class fmrConfigOrg
Showgroup(1)
cmbMytype.SelectedItem = "Universeel I/O"
End Sub
Private Sub mnuConfigdeur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuConfigdeur.Click
Showgroup(2)
cmbMytype.SelectedItem = "Deur"
End Sub
Private Sub mnuConfigverlichting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuConfigverlichting.Click
Showgroup(3)
cmbMytype.SelectedItem = "Verlichting"
End Sub
Private Sub txtID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtID.KeyPress
If e.KeyChar = Chr(13) Then
If Len(txtID.Text) <> 5 Then
@@ -82,6 +88,7 @@ Public Class fmrConfigOrg
End If
End If
End Sub
Private Sub txtID_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtID.TextChanged
Select Case Len(txtID.Text)
Case 0
@@ -92,75 +99,124 @@ Public Class fmrConfigOrg
txtID.BackColor = Color.Red
End Select
End Sub
Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSave.Click
If Len(txtID.Text) = 5 And cmbMytype.Text <> "" Then
BuildEEPROM()
Exit Sub
Else
MessageBox.Show("Vul een geldig ID en/of type in", "Fout !", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
ToolStripDropDownButton.ShowDropDown()
End If
End Sub
Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNew.Click
ClearFields()
End Sub
Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
ClearFields()
BuildFields()
End Sub
Sub HexToBin(ByVal HexValue As String)
BinValue = Nothing
Select Case Mid(HexValue, 1, 1)
Case "0" : BinValue = "0000"
Case "1" : BinValue = "0001"
Case "2" : BinValue = "0010"
Case "3" : BinValue = "0011"
Case "4" : BinValue = "0100"
Case "5" : BinValue = "0101"
Case "6" : BinValue = "0110"
Case "7" : BinValue = "0111"
Case "8" : BinValue = "1000"
Case "9" : BinValue = "1001"
Case "A" : BinValue = "1010"
Case "B" : BinValue = "1011"
Case "C" : BinValue = "1100"
Case "D" : BinValue = "1101"
Case "E" : BinValue = "1110"
Case "F" : BinValue = "1111"
End Select
Select Case Mid(HexValue, 2, 1)
Case "0" : BinValue &= "0000"
Case "1" : BinValue &= "0001"
Case "2" : BinValue &= "0010"
Case "3" : BinValue &= "0011"
Case "4" : BinValue &= "0100"
Case "5" : BinValue &= "0101"
Case "6" : BinValue &= "0110"
Case "7" : BinValue &= "0111"
Case "8" : BinValue &= "1000"
Case "9" : BinValue &= "1001"
Case "A" : BinValue &= "1010"
Case "B" : BinValue &= "1011"
Case "C" : BinValue &= "1100"
Case "D" : BinValue &= "1101"
Case "E" : BinValue &= "1110"
Case "F" : BinValue &= "1111"
End Select
End Sub
Sub BuildScreen()
Timer.Enabled = True
End Sub
Sub BuildEEPROM()
End Sub
Sub BuildFields()
'Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSave.Click
' If Len(txtID.Text) = 5 And cmbMytype.Text <> "" Then
' BuildEEPROM()
' Exit Sub
' Else
' MessageBox.Show("Vul een geldig ID en/of type in", "Fout !", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' ToolStripDropDownButton.ShowDropDown()
' End If
'End Sub
End Sub
Sub ClearFields()
Dim Temp As Integer
For Temp = 0 To 2047
EEDec(Temp) = 255
EEHex(Temp) = "FF"
Next
End Sub
'Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNew.Click
' ClearFields()
'End Sub
'Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
' ClearFields()
' BuildFields()
'End Sub
'Function HexToBin(hexValue As String) As String
' Dim BinValue As String = Nothing
' Select Case Mid(hexValue, 1, 1)
' Case "0" : BinValue = "0000"
' Case "1" : BinValue = "0001"
' Case "2" : BinValue = "0010"
' Case "3" : BinValue = "0011"
' Case "4" : BinValue = "0100"
' Case "5" : BinValue = "0101"
' Case "6" : BinValue = "0110"
' Case "7" : BinValue = "0111"
' Case "8" : BinValue = "1000"
' Case "9" : BinValue = "1001"
' Case "A" : BinValue = "1010"
' Case "B" : BinValue = "1011"
' Case "C" : BinValue = "1100"
' Case "D" : BinValue = "1101"
' Case "E" : BinValue = "1110"
' Case "F" : BinValue = "1111"
' End Select
' Select Case Mid(hexValue, 2, 1)
' Case "0" : BinValue &= "0000"
' Case "1" : BinValue &= "0001"
' Case "2" : BinValue &= "0010"
' Case "3" : BinValue &= "0011"
' Case "4" : BinValue &= "0100"
' Case "5" : BinValue &= "0101"
' Case "6" : BinValue &= "0110"
' Case "7" : BinValue &= "0111"
' Case "8" : BinValue &= "1000"
' Case "9" : BinValue &= "1001"
' Case "A" : BinValue &= "1010"
' Case "B" : BinValue &= "1011"
' Case "C" : BinValue &= "1100"
' Case "D" : BinValue &= "1101"
' Case "E" : BinValue &= "1110"
' Case "F" : BinValue &= "1111"
' End Select
' Return BinValue
'End Function
'Sub HexToBin(ByVal HexValue As String)
' BinValue = Nothing
' Select Case Mid(HexValue, 1, 1)
' Case "0" : BinValue = "0000"
' Case "1" : BinValue = "0001"
' Case "2" : BinValue = "0010"
' Case "3" : BinValue = "0011"
' Case "4" : BinValue = "0100"
' Case "5" : BinValue = "0101"
' Case "6" : BinValue = "0110"
' Case "7" : BinValue = "0111"
' Case "8" : BinValue = "1000"
' Case "9" : BinValue = "1001"
' Case "A" : BinValue = "1010"
' Case "B" : BinValue = "1011"
' Case "C" : BinValue = "1100"
' Case "D" : BinValue = "1101"
' Case "E" : BinValue = "1110"
' Case "F" : BinValue = "1111"
' End Select
' Select Case Mid(HexValue, 2, 1)
' Case "0" : BinValue &= "0000"
' Case "1" : BinValue &= "0001"
' Case "2" : BinValue &= "0010"
' Case "3" : BinValue &= "0011"
' Case "4" : BinValue &= "0100"
' Case "5" : BinValue &= "0101"
' Case "6" : BinValue &= "0110"
' Case "7" : BinValue &= "0111"
' Case "8" : BinValue &= "1000"
' Case "9" : BinValue &= "1001"
' Case "A" : BinValue &= "1010"
' Case "B" : BinValue &= "1011"
' Case "C" : BinValue &= "1100"
' Case "D" : BinValue &= "1101"
' Case "E" : BinValue &= "1110"
' Case "F" : BinValue &= "1111"
' End Select
'End Sub
'Sub BuildScreen()
' Timer.Enabled = True
'End Sub
'Sub BuildEEPROM()
'End Sub
'Sub BuildFields()
'End Sub
'Sub ClearFields()
' Dim Temp As Integer
' For Temp = 0 To 2047
' EEDec(Temp) = 255
' EEHex(Temp) = "FF"
' Next
'End Sub
End Class

2
UCS Configtool/frmConfigH0502.vb
View File

@@ -1037,8 +1037,6 @@ Public Class frmConfigH0502
End Sub
Sub BuildFields()
OpenFileDialog.Filter = "UCS configuratie bestanden (*.txt)|*.txt|Alle bestanden (*.*)|*.*"
OpenFileDialog.FileName = Nothing

2
UCS Configtool/frmMain.Designer.vb generated
View File

@@ -166,7 +166,7 @@ Partial Class frmMain
Me.MaximizeBox = False
Me.Name = "frmMain"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "UCS Configtool v2.1ß - Geschreven door A.J.P. van de Cruyssen"
Me.Text = "UCS Configtool v2.5 - Geschreven door A.J.P. van de Cruyssen"
Me.ResumeLayout(False)
End Sub

2
UCS Configtool/frmMain.resx
View File

@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAy
FwAAAk1TRnQBSQFMAgEBCAEAARQBAAEUAQABIAEAASABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
FwAAAk1TRnQBSQFMAgEBCAEAARwBAAEcAQABIAEAASABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABgAMAAWADAAEBAQABCAYAATAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

BIN
UCS Configtool/frmMain.vb
View File

Binary file not shown.