// ReSharper disable ConvertIfStatementToNullCoalescingExpression
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
// OPC client and subscriber examples in C# on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-CSharp .
// Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
// a commercial license in order to use Online Forums, and we reply to every post.
using OpcLabs.EasyOpc.DataAccess;
namespace QualityStrings
{
public partial class Form1
{
// ReSharper disable once NotNullMemberIsNotInitialized
internal Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, System.EventArgs e)
{
//define the quality codes that we want to run thru our function as a test
int[] qualityTests = {0, 10, 50, 64, 100, 128, 150, 192, 210};
//now test each of the quality codes defined above
foreach (int qualityTest in qualityTests)
{
ListBox1.Items.Add(new DAQuality(qualityTest).ToString());
}
}
private static Form1 _defaultInstance;
public static Form1 DefaultInstance
{
get
{
if (_defaultInstance is null)
_defaultInstance = new Form1();
return _defaultInstance;
}
}
}
}
'
' Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
' OPC client and subscriber examples in VB.NET on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VBNET .
' Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
' a commercial license in order to use Online Forums, and we reply to every post.
Imports OpcLabs.EasyOpc.DataAccess
Public Class Form1
' ReSharper disable InconsistentNaming
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
' ReSharper restore InconsistentNaming
'define the quality codes that we want to run thru our function as a test
Dim qualityTests() As Integer = New Integer() {0, 10, 50, 64, 100, 128, 150, 192, 210}
'now test each of the quality codes defined above
For Each qualityTest As Integer In qualityTests
ListBox1.Items.Add(New DAQuality(qualityTest).ToString())
Next
End Sub
End Class
