4/7/2024 0 Comments Freestyler dmx forumLog("NetSend ByteArr(" & i & ") - " & ByteArr(i))ĭim sEP As New IPEndPoint(IPAddress.Parse(ConnAddress), 3332) Log("NetSend Called - Address: " & ConnAddress)įor i As Integer = 0 To ByteArr.GetUpperBound(0) Log("SendCommand FreeStyler Code: " & FSCode & " TCP Argument: " & TCPArgument) Sub SendCommand(ByVal FSCode As Integer, ByVal TCPArgument As Integer) Hs.RegisterStatusChangeCB("HS3FreeStyler.vb", "Main") Log("Registering For Value/Change CallBack") If hs.DeviceExistsAddress(DAddS & "-Root", False) = -1 Then 'check if the route device is there Log("Sequence Number: " & SequenceNumber & " Value: " & dValue)Ĭase 0 : SendCommand(SequenceNumber + 524, 255)Ĭase 100 : SendCommand(SequenceNumber + 504, 255)Ĭatch ex As Exception : Log("Exception: " & ex.Message.ToString) Log("FreeStyler DMX CallBack Script Starting")ĭim SequenceNumber As Integer = Convert.ToInt32(Parms(1).Replace(DAddS & "-Sequence", ""))ĭim dValue As Integer = Convert.ToDouble(Parms(2)) Dim ConnAddress As String = "192.168.1.190"ĭim maxScenes As Integer = 5 'If you want more scenes then change this to how many
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |