▼Gainerメモ▼
デジタル入力


I/Oモジュールのデジタル入力を表示するプログラムを作成する。



ブレッドボード


ソースコード
DInForm.vb
Public Class DInForm
    Private gio As Gainer

    'ロード時の初期化
    Private Sub DInForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gio = New Gainer("localhost", 2000, Gainer.MODE1, True)
        gio.onReady = AddressOf onReady
    End Sub

    'gspとの接続成功時に発生
    Private Sub onReady()
        lblDIn0.Visible = True
        lblDIn1.Visible = True
        lblDIn2.Visible = True
        lblDIn3.Visible = True
        timInput.Enabled = True
    End Sub

    '定期処理
    Private Sub timInput_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timInput.Tick
        gio.peekDigitalInput()
        If gio.digitalInput IsNot Nothing Then
            lblDIn0.Text = "din0 " + gio.digitalInput(0).ToString()
            lblDIn1.Text = "din1 " + gio.digitalInput(1).ToString()
            lblDIn2.Text = "din2 " + gio.digitalInput(2).ToString()
            lblDIn3.Text = "din3 " + gio.digitalInput(3).ToString()
        End If
    End Sub
End Class



−戻る−