what do you mean by format?
The TiVo commands are well documented in many places on the web. just google.
The TiVo commands are well documented in many places on the web. just google.
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
+ERR<cr> +ERR<cr> +ERR<cr>
Dec-10 12:38:08 AM DAB1_Parse_In Hex Data Recieved : 2B 56 31 32 33 D A 2B 4F 4B D A 2B 56 31 32 34 D A 2B 4F 4B Dec-10 12:38:08 AM DAB1_Parse_In param(0):DAB1 Data:+V123 +OK +V124 +OK
Public Class DAB1_Parse_Inbound Public Const ScriptName = "DAB1_Parse_In" Public Function StringToHexString(ByVal text As String) As String Dim i As Integer Dim out As String = "" Dim inp() As Char inp = text.ToCharArray() For i = 0 To Len(text) - 1 out = out + " " + String.Format("{0,2}", Hex(Asc(inp(i)))) Next i Return out End Function Public Sub Main(ByVal param As Object) Dim Command As String = "" Dim Param1 As String = "" Dim Param2 As String = "" Dim DeviceName As String = "" Dim SetTo As Integer Dim DevRef As Integer Dim Params() As String = Split(param.ToString, Chr(0)) ' Param(0) is the name of the plugin's connector ' Param(1) is the ip address of the remote end ' Param(2) is the data received 'hs.WriteLog(ScriptName, param(0) + " " + param(1) + " " + param(2)) 'hs.WriteLog(ScriptName, "param(0):" + param.ToString) Dim datarecieved As String = param(2) hs.WriteLog(ScriptName, "param(0):" + param(0) + "Data:" + datarecieved) hs.WriteLog(ScriptName, "Hex Data Recieved :" + StringToHexString(datarecieved)) Dim Data() As String = datarecieved.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries) For n As Integer = 0 To Data.GetUpperBound(0) hs.WriteLog(ScriptName, "Data(" + Trim(Str(n)) + ") :" + Data(n)) ' Command = Data(n).Substring(1, 1) ' Param1 = Data(n).Substring(2, 1) ' Param2 = "" ' DeviceName = "" ' hs.WriteLog(ScriptName, "Command " + Command) ' hs.WriteLog(ScriptName, "Param1 " + Param1) 'Next If ((Data(n) <> "+ERR") And (Data(n) <> "+OK") And ((Data(n).Length = 4) Or (Data(n).Length = 5))) Then Command = Data(0).Substring(1, 1) Param1 = Data(0).Substring(2, 1) Param2 = "" DeviceName = "" hs.WriteLog(ScriptName, "Command " + Command) hs.WriteLog(ScriptName, "Param1 " + Param1) 'datarecieved is the response status from the DAB1 'It has a different format depending upon the second character in the response. 'eg. zone power is +Zxy (Z = Zone Power, x= zone 1-6, y=1 if On, 0 if Off) ' volume is +Vxy (V = Volume, x= zone 1-6, y= Current Volume 0-60) 'Command is the Command part of the string (Z = zone command, V = Volume command etc) 'Param1 is always there but has a different meaning depending upon the command 'Param2 is only used for some commands is Volume status, which return say a zone value and volume. Select Case Command Case "Z" ' Zone On/Off If Data(n).Length = 3 Then DeviceName = "DAB1 Power" SetTo = Convert.ToInt32(Param1) Else Param2 = Data(n).Substring(3, Data(n).Length - 3) DeviceName = "DAB1 Zone " & Param1 & " Power " SetTo = Convert.ToInt32(Param2) End If Case "S" 'Source Param2 = Data(n).Substring(3, 1) DeviceName = "DAB1 Zone " & Param1 & " Source" SetTo = Convert.ToInt32(Param2) Case "R" ' Tuner Memory. Note this can be 0 to 12 Param1 = Data(n).Substring(2, Data(n).Length - 2) DeviceName = "DAB1 Tuner" SetTo = Convert.ToInt32(Param1) Case "N" ' Tuner Band DeviceName = "DAB1 Band" SetTo = Convert.ToInt32(Param1) Case "V" 'Volume Param2 = Data(n).Substring(3, Data(n).Length - 3) DeviceName = "DAB1 Zone " & Param1 & " Volume" SetTo = Convert.ToInt32(Param2) Case "G" 'Page Volume Param2 = Data(n).Substring(3, Data(n).Length - 3) DeviceName = "DAB1 Zone " & Param1 & " Page Volume" SetTo = Convert.ToInt32(Param2) Case "M" 'Mute Param2 = Data(n).Substring(3, 1) DeviceName = "DAB1 Zone " & Param1 & " Mute" SetTo = Convert.ToInt32(Param2) Case "B" 'Balance Note: Param 2 can be -10 to +10 Param2 = Data(n).Substring(3, Data(n).Length - 3) DeviceName = "DAB1 Zone " & Param1 & " Balance" SetTo = Convert.ToInt32(Param2) Case "L" 'Bass Param2 = Data(n).Substring(3, Data(n).Length - 3) DeviceName = "DAB1 Zone " & Param1 & " Bass" SetTo = Convert.ToInt32(Param2) Case "H" 'Treble Param2 = Data(n).Substring(3, Data(n).Length - 3) DeviceName = "DAB1 Zone " & Param1 & " Treble" SetTo = Convert.ToInt32(Param2) Case Else hs.WriteLog(ScriptName, "I don't know what to do with: " & Command) End Select hs.WriteLog(ScriptName, "Command " + Command) hs.WriteLog(ScriptName, "Param1 " + Param1) hs.WriteLog(ScriptName, "Param2 " + Param2) hs.WriteLog(ScriptName, "SetTo " + Str(SetTo)) hs.WriteLog(ScriptName, "DeviceName:" + DeviceName) DevRef = hs.GetDeviceRefByName(DeviceName) hs.WriteLog(ScriptName, "DevRef:" + Str(DevRef)) hs.SetDeviceValueByRef(DevRef, SetTo, True) End If Next End Sub End Class
Dec-10 1:15:30 AM DAB1_Parse_In Data(1) :+ERR Dec-10 1:15:30 AM DAB1_Parse_In Data(0) :+ERR Dec-10 1:15:30 AM DAB1_Parse_In Hex Data Recieved : 2B 45 52 52 D A 2B 45 52 52 Dec-10 1:15:30 AM DAB1_Parse_In param(0):DAB1Data:+ERR +ERR
Dec-10 1:17:05 AM DAB1_Parse_In Data(3) :+OK Dec-10 1:17:05 AM DAB1_Parse_In Data(2) :+V118 Dec-10 1:17:05 AM DAB1_Parse_In Data(1) :+OK Dec-10 1:17:05 AM DAB1_Parse_In Data(0) :+V119 Dec-10 1:17:05 AM DAB1_Parse_In Hex Data Recieved : 2B 56 31 31 39 D A 2B 4F 4B D A 2B 56 31 31 38 D A 2B 4F 4B Dec-10 1:17:05 AM DAB1_Parse_In param(0):DAB1Data:+V119 +OK +V118 +OK
// the setup routine runs once when you press reset: void setup() { // initialize serial communication at 9600 bits per second: Serial.begin(19200); delay(10000); // delay 10 seconds before sending data to serial port } // the loop routine runs over and over again forever: long secdelay = 600; void loop() { for (int i=1; i <= 5; i++){ Serial.println(i); delay(secdelay); // delay 1s in between writes sp i can see it easily on the screen } Serial.print("Delay="); Serial.println(secdelay); secdelay--; }
1 2 3 4 5 Delay=600 1 2 3 4 5 Delay=599 1 2 3 4 5 Delay=598 1 2 3 4 5 Delay=597 1 2 3 4 5
310D0A320D0A330D0A340D0A350D0A44656C61793D3630300D0A310D0A320D0A330D0A340D0A350D0A44656C61793D3539390D0A310D0A320D0A330D0A340D0A350D0A44656C61793D3539380D0A310D0A320D0A330D0A340D0A350D0A44656C61793D3539370D0A310D0A320D0A330D0A340D0A350D0A
Dec-11 3:33:50 PM ArduinIO_In ============================================================================= Dec-11 3:33:50 PM ArduinIO_In Data(0) :2 Dec-11 3:33:50 PM ArduinIO_In datarecieved:2 Dec-11 3:33:50 PM ArduinIO_In ============================================================================= Dec-11 3:33:50 PM ArduinIO_In Data(0) :2 Dec-11 3:33:50 PM ArduinIO_In datarecieved:2 Dec-11 3:33:50 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(1) :1 Dec-11 3:33:49 PM ArduinIO_In Data(0) :Delay=563 Dec-11 3:33:49 PM ArduinIO_In datarecieved:Delay=563 1 Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(1) :1 Dec-11 3:33:49 PM ArduinIO_In Data(0) :Delay=563 Dec-11 3:33:49 PM ArduinIO_In datarecieved:Delay=563 1 Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(1) :1 Dec-11 3:33:49 PM ArduinIO_In Data(0) :Delay=563 Dec-11 3:33:49 PM ArduinIO_In datarecieved:Delay=563 1 Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(0) :Delay Dec-11 3:33:49 PM ArduinIO_In datarecieved:Delay Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(0) :Dela Dec-11 3:33:49 PM ArduinIO_In datarecieved:Dela Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(0) :D Dec-11 3:33:49 PM ArduinIO_In datarecieved:D Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(0) :5 Dec-11 3:33:49 PM ArduinIO_In datarecieved:5 Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(0) :5 Dec-11 3:33:49 PM ArduinIO_In datarecieved:5 Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:49 PM ArduinIO_In Data(0) :5 Dec-11 3:33:49 PM ArduinIO_In datarecieved:5 Dec-11 3:33:49 PM ArduinIO_In ============================================================================= Dec-11 3:33:48 PM ArduinIO_In Data(0) :4 Dec-11 3:33:48 PM ArduinIO_In datarecieved:4 Dec-11 3:33:48 PM ArduinIO_In ============================================================================= Dec-11 3:33:48 PM ArduinIO_In Data(0) :4 Dec-11 3:33:48 PM ArduinIO_In datarecieved:4 Dec-11 3:33:48 PM ArduinIO_In ============================================================================= Dec-11 3:33:47 PM ArduinIO_In Data(0) :3 Dec-11 3:33:47 PM ArduinIO_In datarecieved:3 Dec-11 3:33:47 PM ArduinIO_In ============================================================================= Dec-11 3:33:47 PM ArduinIO_In Data(0) :3 Dec-11 3:33:47 PM ArduinIO_In datarecieved:3 Dec-11 3:33:47 PM ArduinIO_In ============================================================================= Dec-11 3:33:47 PM ArduinIO_In Data(0) :3 Dec-11 3:33:47 PM ArduinIO_In datarecieved:3 Dec-11 3:33:47 PM ArduinIO_In ============================================================================= Dec-11 3:33:47 PM ArduinIO_In Data(0) :2 Dec-11 3:33:47 PM ArduinIO_In datarecieved:2 Dec-11 3:33:47 PM ArduinIO_In ============================================================================= Dec-11 3:33:47 PM ArduinIO_In Data(0) :2 Dec-11 3:33:47 PM ArduinIO_In datarecieved:2 Dec-11 3:33:47 PM ArduinIO_In ============================================================================= Dec-11 3:33:46 PM ArduinIO_In Data(1) :1 Dec-11 3:33:46 PM ArduinIO_In Data(0) :Delay=564 Dec-11 3:33:46 PM ArduinIO_In datarecieved:Delay=564 1 Dec-11 3:33:46 PM ArduinIO_In ============================================================================= Dec-11 3:33:46 PM ArduinIO_In Data(0) :Delay=564 Dec-11 3:33:46 PM ArduinIO_In datarecieved:Delay=564 Dec-11 3:33:46 PM ArduinIO_In ============================================================================= Dec-11 3:33:46 PM ArduinIO_In Data(0) :Delay=564 Dec-11 3:33:46 PM ArduinIO_In datarecieved:Delay=564 Dec-11 3:33:46 PM ArduinIO_In =============================================================================
Public Const ScriptName = "ArduinIO_In" Public Sub Main(ByVal param As Object) Dim Params() As String = Split(param.ToString, Chr(0)) ' Param(0) is the name of the plugin's connector ' Param(1) is the ip address of the remote end ' Param(2) is the data received 'hs.WriteLog(ScriptName, param(0) + " " + param(1) + " " + param(2)) Dim datarecieved As String = param(2) hs.WriteLog(ScriptName, "=============================================================================") hs.WriteLog(ScriptName, "datarecieved:" + datarecieved) Dim Data() As String = datarecieved.Split(ControlChars.CrLf.ToCharArray(), StringSplitOptions.RemoveEmptyEntries) For n As Integer = 0 To Data.GetUpperBound(0) hs.WriteLog(ScriptName, "Data(" + Trim(Str(n)) + ") :" + Data(n)) Next End Sub
Comment