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