TVOne Corrio C2-6104A DVI Quadsplitt
Posted: Sat Aug 31, 2019 10:22 pm
Hi all,
Since the TVone Quadsplitt is used quite a lot I gave myself the challange to change Labels from WD.
First Create a TCP Connection to your Corri on Port 10001.
then create a Macro with the name "CorrioSetLabel" and 3 parameters: "tcpid, win, txt"
Here is the Code for the macro
If you want to change multiple Labels after each other keep in mind, that the Corri is very slow and needs 4.8 sec for one label.
Daniel
Since the TVone Quadsplitt is used quite a lot I gave myself the challange to change Labels from WD.
First Create a TCP Connection to your Corri on Port 10001.
then create a Macro with the name "CorrioSetLabel" and 3 parameters: "tcpid, win, txt"
Here is the Code for the macro
- Code: Select all
var cmdPos = ""
var cmdPosEnd = ""
var cmdtxt = ""
var cmdP =""
var poshex =""
var txt_char =""
var txt2 = txt.ToString
var l = txt2.length
if l > 24
{
txt2 = txt2.left(24)
}
var y = txt.ToString.EncodeBytes
//Nur Window 1..4 zulassen
if (win < 5) and (win > 0)
{
cmdPos = "F041"
cmdPos += win-1
cmdPos += "41024B0000"
cmdPosEnd ="??[CR]"
for i = 0 to (txt2.length - 1)
{
VReplaceNumberByHexCode("poshex",i,"",1)
cmdP = cmdPos + poshex + cmdPosEnd
TCPSend(tcpid,cmdP)
WDWait(0.1)
VReplaceNumberByHexCode("txt_char",y[i],"",1)
cmdtxt = "F041"
cmdtxt += win-1
cmdtxt += "41024C0000"
cmdtxt += txt_char
cmdtxt += "??[CR]"
TCPSend(tcpid,cmdtxt)
WDWait(0.1)
}
for i = (txt2.length) to 23
{
VReplaceNumberByHexCode("poshex",i,"",1)
cmdP = cmdPos + poshex + cmdPosEnd
TCPSend(tcpid,cmdP)
WDWait(0.1)
cmdtxt = "F041"
cmdtxt += win-1
cmdtxt += "41024C000020??[CR]"
TCPSend(tcpid,cmdtxt)
WDWait(0.1)
}
}
If you want to change multiple Labels after each other keep in mind, that the Corri is very slow and needs 4.8 sec for one label.
Daniel