En liten ting til:
Dersom dere trenger en "Toggle" funksjon (for å kunne trykke Av / PÅ i HST) på et device som ikke har noen slik funksjon (slik som dørlåsen min) har dere to muligheter:
#1 Lag en virtuell device og to Events på denne som styrer det devicet dere egentlig vil styre og la "Actions When Released" gå mot den virtuelle devicen (mens status trackingen fremdeles går mot original devicet)
#2 Lag en "Toggle" knapp ved hjelp av et script.
Det kan gjøres slik:
Sub MakeToggleButton(Byval pParam As String)
Dim dvRef as integer =pParam
hs.WriteLog("Toggel Script", "Create Togglebutton on dev:" & dvRef )
if hs.DeviceScriptButton_AddButton(dvRef,"Toggle",101,"ToggleButtons.vb","Toggle",pParam,1, 1, 1) then
hs.WriteLog("Toggel Script", "OK")
else
hs.WriteLog("Toggel Script", "FEIL")
end if
End Sub
Public Sub Toggle(Input As Object)
Dim dvRef as integer =Input(0)
Dim iNewVal as integer
If hs.DeviceValue(dvRef ) = 0 Then
iNewVal = 100
else
iNewVal = 0
End if
hs.SetDeviceValueByRef(dvRef , iNewVal , True)
hs.WriteLog("Toggel", "Toggle dev " & dvRef & " To: " & iNewVal)
End Sub
@Moskus kan får beskrive hvordan dette skal gjøres i CAPI og ellers stille seg kritisk til min gammeldagse programmering (som han pleier)