Imports c3Vfd256.ClsVfd256
Public Class VFD256IIISample
'フォームロード時
Private Sub VFD256IIISample_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'接続ポート一覧を取得
For Each portName As String In My.Computer.Ports.SerialPortNames
CmbPort.Items.Add(portName)
Next
'接続ポート一覧にLANポートを追加する
CmbPort.Items.Add("LAN")
If CmbPort.Items.Count = 0 Then
CmbPort.SelectedText = ""
Else
CmbPort.SelectedIndex = 0
End If
End Sub
'表示ボタン押下時
'エラー処理は省略しています
Private Sub BtnDisp_Click(sender As Object, e As EventArgs) Handles BtnDisp.Click
'VFD256Ⅲに書き込む文字を設定
Vfd2561.Msg0 = Text1.Text
Vfd2561.Msg1 = Text2.Text
Vfd2561.Msg2 = Text3.Text
Vfd2561.Msg3 = Text4.Text
'接続ポートを指定
Vfd2561.Port = CmbPort.SelectedItem
'接続ポートにLANポートを指定した場合、ホスト名またはIPアドレスを入力する。
Vfd256.HostName = Text5.Text
'VFD256ⅢにMbモード(16dot,4行)で表示
Vfd2561.DispVFD(c3Vfd256.ClsVfd256.TypeDispMode.b_4_16_16_16_16)
End Sub
'クリアボタン押下時
'エラー処理は省略しています
Private Sub BtnClr_Click(sender As Object, e As EventArgs) Handles BtnClr.Click
'接続ポートを指定
Vfd2561.Port = CmbPort.Text
'VFD256Ⅲの表示をクリア
Vfd2561.CLS()
End Sub
'終了ボタン押下時
Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
Application.Exit()
End Sub
End Class
|
