Add H0408 speedgate option
This commit is contained in:
Martijn Scheepers
147
frmMain.frm
147
frmMain.frm
@@ -135,49 +135,49 @@ Begin VB.Form frmMain
|
|||||||
TabCaption(0) = "Basis Test"
|
TabCaption(0) = "Basis Test"
|
||||||
TabPicture(0) = "frmMain.frx":08CA
|
TabPicture(0) = "frmMain.frx":08CA
|
||||||
Tab(0).ControlEnabled= 0 'False
|
Tab(0).ControlEnabled= 0 'False
|
||||||
Tab(0).Control(0)= "BasicIOTimer"
|
Tab(0).Control(0)= "Frame30"
|
||||||
Tab(0).Control(1)= "Frame34"
|
Tab(0).Control(1)= "Frame28"
|
||||||
Tab(0).Control(2)= "Frame33"
|
Tab(0).Control(2)= "ImageList"
|
||||||
Tab(0).Control(3)= "Frame32"
|
Tab(0).Control(3)= "BasicTimeOutTimer"
|
||||||
Tab(0).Control(4)= "Frame31"
|
Tab(0).Control(4)= "BasicRunTimer"
|
||||||
Tab(0).Control(5)= "Frame29"
|
Tab(0).Control(5)= "Frame29"
|
||||||
Tab(0).Control(6)= "BasicRunTimer"
|
Tab(0).Control(6)= "Frame31"
|
||||||
Tab(0).Control(7)= "BasicTimeOutTimer"
|
Tab(0).Control(7)= "Frame32"
|
||||||
Tab(0).Control(8)= "ImageList"
|
Tab(0).Control(8)= "Frame33"
|
||||||
Tab(0).Control(9)= "Frame28"
|
Tab(0).Control(9)= "Frame34"
|
||||||
Tab(0).Control(10)= "Frame30"
|
Tab(0).Control(10)= "BasicIOTimer"
|
||||||
Tab(0).ControlCount= 11
|
Tab(0).ControlCount= 11
|
||||||
TabCaption(1) = "I/O Test"
|
TabCaption(1) = "I/O Test"
|
||||||
TabPicture(1) = "frmMain.frx":08E6
|
TabPicture(1) = "frmMain.frx":08E6
|
||||||
Tab(1).ControlEnabled= 0 'False
|
Tab(1).ControlEnabled= 0 'False
|
||||||
Tab(1).Control(0)= "TxSocket"
|
Tab(1).Control(0)= "TestFrame(0)"
|
||||||
Tab(1).Control(1)= "RxSocket"
|
Tab(1).Control(1)= "TestFrame(2)"
|
||||||
Tab(1).Control(2)= "TestFrame(7)"
|
Tab(1).Control(2)= "TestFrame(1)"
|
||||||
Tab(1).Control(3)= "TestFrame(6)"
|
Tab(1).Control(3)= "TestFrame(5)"
|
||||||
Tab(1).Control(4)= "TestFrame(3)"
|
Tab(1).Control(4)= "TestFrame(4)"
|
||||||
Tab(1).Control(5)= "TestFrame(11)"
|
Tab(1).Control(5)= "TestFrame(9)"
|
||||||
Tab(1).Control(6)= "TestFrame(8)"
|
Tab(1).Control(6)= "TestFrame(10)"
|
||||||
Tab(1).Control(7)= "TestFrame(10)"
|
Tab(1).Control(7)= "TestFrame(8)"
|
||||||
Tab(1).Control(8)= "TestFrame(9)"
|
Tab(1).Control(8)= "TestFrame(11)"
|
||||||
Tab(1).Control(9)= "TestFrame(4)"
|
Tab(1).Control(9)= "TestFrame(3)"
|
||||||
Tab(1).Control(10)= "TestFrame(5)"
|
Tab(1).Control(10)= "TestFrame(6)"
|
||||||
Tab(1).Control(11)= "TestFrame(1)"
|
Tab(1).Control(11)= "TestFrame(7)"
|
||||||
Tab(1).Control(12)= "TestFrame(2)"
|
Tab(1).Control(12)= "RxSocket"
|
||||||
Tab(1).Control(13)= "TestFrame(0)"
|
Tab(1).Control(13)= "TxSocket"
|
||||||
Tab(1).ControlCount= 14
|
Tab(1).ControlCount= 14
|
||||||
TabCaption(2) = "PA Test"
|
TabCaption(2) = "PA Test"
|
||||||
TabPicture(2) = "frmMain.frx":0902
|
TabPicture(2) = "frmMain.frx":0902
|
||||||
Tab(2).ControlEnabled= 0 'False
|
Tab(2).ControlEnabled= 0 'False
|
||||||
Tab(2).Control(0)= "TestFrame(20)"
|
Tab(2).Control(0)= "Frame40"
|
||||||
Tab(2).Control(1)= "TestFrame(19)"
|
Tab(2).Control(1)= "TestFrame(13)"
|
||||||
Tab(2).Control(2)= "TestFrame(18)"
|
Tab(2).Control(2)= "TestFrame(15)"
|
||||||
Tab(2).Control(3)= "TestFrame(17)"
|
Tab(2).Control(3)= "TestFrame(14)"
|
||||||
Tab(2).Control(4)= "TestFrame(16)"
|
Tab(2).Control(4)= "TestFrame(12)"
|
||||||
Tab(2).Control(5)= "TestFrame(12)"
|
Tab(2).Control(5)= "TestFrame(16)"
|
||||||
Tab(2).Control(6)= "TestFrame(14)"
|
Tab(2).Control(6)= "TestFrame(17)"
|
||||||
Tab(2).Control(7)= "TestFrame(15)"
|
Tab(2).Control(7)= "TestFrame(18)"
|
||||||
Tab(2).Control(8)= "TestFrame(13)"
|
Tab(2).Control(8)= "TestFrame(19)"
|
||||||
Tab(2).Control(9)= "Frame40"
|
Tab(2).Control(9)= "TestFrame(20)"
|
||||||
Tab(2).ControlCount= 10
|
Tab(2).ControlCount= 10
|
||||||
TabCaption(3) = "-"
|
TabCaption(3) = "-"
|
||||||
TabPicture(3) = "frmMain.frx":091E
|
TabPicture(3) = "frmMain.frx":091E
|
||||||
@@ -195,44 +195,44 @@ Begin VB.Form frmMain
|
|||||||
TabCaption(6) = "Flash / EEPROM"
|
TabCaption(6) = "Flash / EEPROM"
|
||||||
TabPicture(6) = "frmMain.frx":0972
|
TabPicture(6) = "frmMain.frx":0972
|
||||||
Tab(6).ControlEnabled= 0 'False
|
Tab(6).ControlEnabled= 0 'False
|
||||||
Tab(6).Control(0)= "Frame35"
|
Tab(6).Control(0)= "IOBoxTypeSelection"
|
||||||
Tab(6).Control(1)= "Frame25"
|
Tab(6).Control(1)= "Frame5"
|
||||||
Tab(6).Control(2)= "Frame6"
|
Tab(6).Control(2)= "Frame6"
|
||||||
Tab(6).Control(3)= "Frame5"
|
Tab(6).Control(3)= "Frame25"
|
||||||
Tab(6).Control(4)= "IOBoxTypeSelection"
|
Tab(6).Control(4)= "Frame35"
|
||||||
Tab(6).ControlCount= 5
|
Tab(6).ControlCount= 5
|
||||||
TabCaption(7) = "Config H0501"
|
TabCaption(7) = "Config H0501"
|
||||||
TabPicture(7) = "frmMain.frx":098E
|
TabPicture(7) = "frmMain.frx":098E
|
||||||
Tab(7).ControlEnabled= 0 'False
|
Tab(7).ControlEnabled= 0 'False
|
||||||
Tab(7).Control(0)= "Frame3"
|
Tab(7).Control(0)= "frmOverig"
|
||||||
Tab(7).Control(1)= "Frame4"
|
Tab(7).Control(1)= "frmVerlichting"
|
||||||
Tab(7).Control(2)= "Frame7"
|
Tab(7).Control(2)= "frmDeur"
|
||||||
Tab(7).Control(3)= "frmDeur"
|
Tab(7).Control(3)= "Frame7"
|
||||||
Tab(7).Control(4)= "frmVerlichting"
|
Tab(7).Control(4)= "Frame4"
|
||||||
Tab(7).Control(5)= "frmOverig"
|
Tab(7).Control(5)= "Frame3"
|
||||||
Tab(7).ControlCount= 6
|
Tab(7).ControlCount= 6
|
||||||
TabCaption(8) = "Config H0502"
|
TabCaption(8) = "Config H0502"
|
||||||
TabPicture(8) = "frmMain.frx":09AA
|
TabPicture(8) = "frmMain.frx":09AA
|
||||||
Tab(8).ControlEnabled= 0 'False
|
Tab(8).ControlEnabled= 0 'False
|
||||||
Tab(8).Control(0)= "Frame10"
|
Tab(8).Control(0)= "H0502Frame2"
|
||||||
Tab(8).Control(1)= "H0502Frame1"
|
Tab(8).Control(1)= "H0502Frame1"
|
||||||
Tab(8).Control(2)= "H0502Frame2"
|
Tab(8).Control(2)= "Frame10"
|
||||||
Tab(8).ControlCount= 3
|
Tab(8).ControlCount= 3
|
||||||
TabCaption(9) = "Config H0503"
|
TabCaption(9) = "Config H0503"
|
||||||
TabPicture(9) = "frmMain.frx":09C6
|
TabPicture(9) = "frmMain.frx":09C6
|
||||||
Tab(9).ControlEnabled= 0 'False
|
Tab(9).ControlEnabled= 0 'False
|
||||||
Tab(9).Control(0)= "Frame20"
|
Tab(9).Control(0)= "Frame11"
|
||||||
Tab(9).Control(1)= "H0503Frame2"
|
Tab(9).Control(1)= "H0503Frame1"
|
||||||
Tab(9).Control(2)= "H0503Frame1"
|
Tab(9).Control(2)= "H0503Frame2"
|
||||||
Tab(9).Control(3)= "Frame11"
|
Tab(9).Control(3)= "Frame20"
|
||||||
Tab(9).ControlCount= 4
|
Tab(9).ControlCount= 4
|
||||||
TabCaption(10) = "Config H0504"
|
TabCaption(10) = "Config H0504"
|
||||||
TabPicture(10) = "frmMain.frx":09E2
|
TabPicture(10) = "frmMain.frx":09E2
|
||||||
Tab(10).ControlEnabled= 0 'False
|
Tab(10).ControlEnabled= 0 'False
|
||||||
Tab(10).Control(0)= "Frame15"
|
Tab(10).Control(0)= "H0504Frame2"
|
||||||
Tab(10).Control(1)= "H0504Frametig"
|
Tab(10).Control(1)= "H0504Frame1"
|
||||||
Tab(10).Control(2)= "H0504Frame1"
|
Tab(10).Control(2)= "H0504Frametig"
|
||||||
Tab(10).Control(3)= "H0504Frame2"
|
Tab(10).Control(3)= "Frame15"
|
||||||
Tab(10).ControlCount= 4
|
Tab(10).ControlCount= 4
|
||||||
TabCaption(11) = "Config H0408"
|
TabCaption(11) = "Config H0408"
|
||||||
TabPicture(11) = "frmMain.frx":09FE
|
TabPicture(11) = "frmMain.frx":09FE
|
||||||
@@ -257,12 +257,12 @@ Begin VB.Form frmMain
|
|||||||
TabCaption(13) = "Chat"
|
TabCaption(13) = "Chat"
|
||||||
TabPicture(13) = "frmMain.frx":0A36
|
TabPicture(13) = "frmMain.frx":0A36
|
||||||
Tab(13).ControlEnabled= 0 'False
|
Tab(13).ControlEnabled= 0 'False
|
||||||
Tab(13).Control(0)= "txtChatIn"
|
Tab(13).Control(0)= "Label7"
|
||||||
Tab(13).Control(1)= "txtChatMain"
|
Tab(13).Control(1)= "txtChatMain"
|
||||||
Tab(13).Control(2)= "Label7"
|
Tab(13).Control(2)= "txtChatIn"
|
||||||
Tab(13).ControlCount= 3
|
Tab(13).ControlCount= 3
|
||||||
Begin SocketWrenchCtrl.Socket RxSocket
|
Begin SocketWrenchCtrl.Socket TxSocket
|
||||||
Left = -63840
|
Left = -63360
|
||||||
Top = 8160
|
Top = 8160
|
||||||
_Version = 65536
|
_Version = 65536
|
||||||
_ExtentX = 741
|
_ExtentX = 741
|
||||||
@@ -270,7 +270,7 @@ Begin VB.Form frmMain
|
|||||||
_StockProps = 0
|
_StockProps = 0
|
||||||
AutoResolve = -1 'True
|
AutoResolve = -1 'True
|
||||||
Backlog = 5
|
Backlog = 5
|
||||||
Binary = -1 'True
|
Binary = 0 'False
|
||||||
Blocking = -1 'True
|
Blocking = -1 'True
|
||||||
Broadcast = 0 'False
|
Broadcast = 0 'False
|
||||||
BufferSize = 0
|
BufferSize = 0
|
||||||
@@ -293,8 +293,8 @@ Begin VB.Form frmMain
|
|||||||
Type = 1
|
Type = 1
|
||||||
Urgent = 0 'False
|
Urgent = 0 'False
|
||||||
End
|
End
|
||||||
Begin SocketWrenchCtrl.Socket TxSocket
|
Begin SocketWrenchCtrl.Socket RxSocket
|
||||||
Left = -63360
|
Left = -63840
|
||||||
Top = 8160
|
Top = 8160
|
||||||
_Version = 65536
|
_Version = 65536
|
||||||
_ExtentX = 741
|
_ExtentX = 741
|
||||||
@@ -302,7 +302,7 @@ Begin VB.Form frmMain
|
|||||||
_StockProps = 0
|
_StockProps = 0
|
||||||
AutoResolve = -1 'True
|
AutoResolve = -1 'True
|
||||||
Backlog = 5
|
Backlog = 5
|
||||||
Binary = 0 'False
|
Binary = -1 'True
|
||||||
Blocking = -1 'True
|
Blocking = -1 'True
|
||||||
Broadcast = 0 'False
|
Broadcast = 0 'False
|
||||||
BufferSize = 0
|
BufferSize = 0
|
||||||
@@ -14421,6 +14421,16 @@ Begin VB.Form frmMain
|
|||||||
TabIndex = 1716
|
TabIndex = 1716
|
||||||
Top = 3000
|
Top = 3000
|
||||||
Width = 3855
|
Width = 3855
|
||||||
|
Begin VB.CheckBox H0408chkSpeedGate
|
||||||
|
Caption = "Speedgate"
|
||||||
|
Height = 255
|
||||||
|
Index = 0
|
||||||
|
Left = 2160
|
||||||
|
TabIndex = 1757
|
||||||
|
ToolTipText = "0x00E"
|
||||||
|
Top = 1080
|
||||||
|
Width = 1455
|
||||||
|
End
|
||||||
Begin VB.VScrollBar H0408StopVertragingstijdScroll
|
Begin VB.VScrollBar H0408StopVertragingstijdScroll
|
||||||
Height = 255
|
Height = 255
|
||||||
LargeChange = 5
|
LargeChange = 5
|
||||||
@@ -22368,6 +22378,7 @@ Private Sub H0408ToEeprom_Click()
|
|||||||
EE(&HB) = DecToEE(H0408cmbType(4).ListIndex) 'Open Bij Brand
|
EE(&HB) = DecToEE(H0408cmbType(4).ListIndex) 'Open Bij Brand
|
||||||
EE(&HC) = DecToEE(H0408chkAlarmUseStop(0).Value) 'gebruik stop bij alarm open
|
EE(&HC) = DecToEE(H0408chkAlarmUseStop(0).Value) 'gebruik stop bij alarm open
|
||||||
EE(&HD) = DecToEE(H0408StopVertragingstijdScroll.Value) 'vertraging na stop
|
EE(&HD) = DecToEE(H0408StopVertragingstijdScroll.Value) 'vertraging na stop
|
||||||
|
EE(&HE) = DecToEE(H0408chkSpeedGate(0).Value) 'Gebruik speedgate routines
|
||||||
|
|
||||||
EE(&H16) = DecToEE(H0408vScroll(1).Value) 'SluitStand Timer
|
EE(&H16) = DecToEE(H0408vScroll(1).Value) 'SluitStand Timer
|
||||||
EE(&H17) = DecToEE(H0408vScroll(4).Value) 'Puls Tijd
|
EE(&H17) = DecToEE(H0408vScroll(4).Value) 'Puls Tijd
|
||||||
@@ -24103,19 +24114,27 @@ Sub DecodeDataFromFile()
|
|||||||
H0408StopVertragingstijdScroll.Value = EEToDec(EE(&HD)) 'Stop delay time
|
H0408StopVertragingstijdScroll.Value = EEToDec(EE(&HD)) 'Stop delay time
|
||||||
|
|
||||||
'Invert sluiten
|
'Invert sluiten
|
||||||
If EE(&HA) = "00" Or EE(&HB) = "FF" Then
|
If EE(&HA) = "00" Or EE(&HA) = "FF" Then
|
||||||
H0408chkInvertClose(0).Value = 0
|
H0408chkInvertClose(0).Value = 0
|
||||||
Else
|
Else
|
||||||
H0408chkInvertClose(0).Value = 1
|
H0408chkInvertClose(0).Value = 1
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Gebruik stop bij alarm open
|
'Gebruik stop bij alarm open
|
||||||
If EE(&HC) = "00" Or EE(&HB) = "FF" Then
|
If EE(&HC) = "00" Or EE(&HC) = "FF" Then
|
||||||
H0408chkAlarmUseStop(0).Value = 0
|
H0408chkAlarmUseStop(0).Value = 0
|
||||||
Else
|
Else
|
||||||
H0408chkAlarmUseStop(0).Value = 1
|
H0408chkAlarmUseStop(0).Value = 1
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'Gebruik speedgate routines
|
||||||
|
If EE(&HE) = "00" Or EE(&HE) = "FF" Then
|
||||||
|
H0408chkSpeedGate(0).Value = 0
|
||||||
|
Else
|
||||||
|
H0408chkSpeedGate(0).Value = 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
If EE(&H4) = "FF" Then 'Uitbredings PCB
|
If EE(&H4) = "FF" Then 'Uitbredings PCB
|
||||||
H0408cmbType(3).ListIndex = 0
|
H0408cmbType(3).ListIndex = 0
|
||||||
Else
|
Else
|
||||||
|
|||||||
Reference in New Issue
Block a user