Pandoras Box User Forum

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

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