TagGroup.CreateNewTag Method 

Creates new instance of ITag class

Return Value

See ITag

Implements

IGroup.CreateNewTag

Example

VB



Imports GELink



Try
   ' *****************************
   ' * Use Interfaces
   Dim MyPLC As IController
 



   Dim Tag1 As ITag
   Dim Tag2 As ITag
   Dim Tag3 As ITag



   Dim MyGroup As IGroup



   ' *****************************
   ' * Initialize
   MyPLC = New GELink.Controller("192.168.1.45")


   MyGroup = MyPLC.CreateNewGroup()



   Tag1 = MyGroup.CreateNewTag()
   Tag2 = MyGroup.CreateNewTag()
   Tag3 = MyGroup.CreateNewTag()
   



   ' *****************************
   ' * set names and add to group
   Tag1.Name = "%R1"
   MyGroup.AddTag(Tag1)



   Tag2.Name = "%M1"
   MyGroup.AddTag(Tag2)



   Tag3.Name = "%R2"
   MyGroup.AddTag(Tag2)



   ' *****************************
   ' * read Tags
   MyPLC.GroupRead(MyGroup)
   ' *****************************
   ' * display Tag1 value
   If ResultCode.QUAL_GOOD = Tag1.QualityCode Then
      Console.WriteLine(Convert.ToString(Tag1.Value))
   Else
      Console.WriteLine(Tag1.ErrorString)
   End If



   ' *****************************
   ' * display Tag2 value
   If ResultCode.QUAL_GOOD = Tag2.QualityCode Then
      Console.WriteLine(Convert.ToString(Tag2.Value))
   Else
      Console.WriteLine(Tag2.ErrorString)
   End If
 



   ' *****************************
   ' * display Tag3 values
   If ResultCode.QUAL_GOOD = Tag3.QualityCode Then
      Console.WriteLine(Convert.ToString(Tag3.Value))
   Else
      Console.WriteLine(Tag3.ErrorString)
   End If



Catch ex As Exception
   Console.WriteLine(ex.Message)
End Try



C#



Using GELink;



try
{
   //////////////////////////////
   // Use Interfaces
   IController MyPLC = new GELink.Controller("192.168.1.45");
   IGroup MyGroup = MyPLC.CreateNewGroup();



   ITag Tag1 = MyGroup.CreateNewTag();
   ITag Tag2 = MyGroup.CreateNewTag();
   ITag Tag3 = MyGroup.CreateNewTag();
   
   //////////////////////////////
   // set names and add to group
   Tag1.Name = "%R1";
   MyGroup.AddTag(Tag1);



   Tag2.Name = "%M1";
   MyGroup.AddTag(Tag2);



   Tag3.Name = "%R2";
   MyGroup.AddTag(Tag2);



   //////////////////////////////
   // read Tags
   MyPLC.GroupRead(MyGroup);
   
   /////////////////////////////
   // display Tag1 value
   if (ResultCode.QUAL_GOOD == Tag1.QualityCode)
      Console.WriteLine(Convert.ToString(Tag1.Value));
   else
      Console.WriteLine(Tag1.ErrorString);



   /////////////////////////////
   // display Tag1 value
   if (ResultCode.QUAL_GOOD == Tag2.QualityCode)
      Console.WriteLine(Convert.ToString(Tag2.Value));
   else
      Console.WriteLine(Tag2.ErrorString);



   /////////////////////////////
   // display Tag3 value
   if (ResultCode.QUAL_GOOD == Tag3.QualityCode)
      Console.WriteLine(Convert.ToString(Tag3.Value));
   else
      Console.WriteLine(Tag3.ErrorString);
}
catch (System.Exception ex)
{
   Console.WriteLine(ex.Message);
}


 


 

See Also

TagGroup Class | GELink Namespace