VB2005からカスタマディスプレイVFD2002Eにメッセージを表示するサンプル |
|
'
' (C)Copyright by Techno Veins Co.,Ltd.
' All right reserved. 2007
'
'
' このプログラムの著作権はテクノベインズが保有します。
' 独自開発プログラムへソースの組込使用については自由に参考利用していただいてかまいません。(費用・登録等不要。)
' VFD2002E販売の際、商品に添付して配布することはご自由に行ってください。
'
' 直接ソースの全部または一部を販売することは禁止します。
' ソースの全部または一部を再配布や書籍・Web等への許可なき転載は禁止します。
'
' 本プログラムは参考用であり、すべてのお客様の環境で動作を保証するものではありません｡
' また、本プログラムを用いることで、何らかの不利益が発生した場合であっても、テクノベインズでは一切の保証を行いません。
'
' 説明のために1行で記述できる行も分解して記述している部分があります。
'
'
' 変更履歴
' Sept.14.2007 Ver 0.01 Naoya Takaku
'
Public Class frmSampleVFD2002E
'
' VFD2002E用
' 簡単な表示およびシリアル制御のサンプル
'
'
' VFD2002Eのコマンドについてはhttp://www.technoveins.co.jp/pdf/vfd2002e_manual.pdf
' を参照のこと
'
' Serial Portコントロールプロパティにてボーレート等の通信条件を設定してある。
' 通信にハンドシェークを用いるため、必ずタイムアウトを設定し、デッドロックを防止すること
' TextBox1はCOMポートの初期番号をiniComPortに自動保存している
Dim MsgCount As Integer = 0
'
' フォームロード処理 初期条件等を設定
'
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim CheckPort As Boolean = False
'My.Settingsに保存されている初期値を取得する。この後、ループ内で使用するために一旦Stringに入れている。
'Tips: DIM宣言の代入の際に、Stringのメソッドを用い、合わせて文字の大文字化と前後空白削除を順に実行している
Dim prevComPort As String = My.Settings.iniComPort.Trim.ToUpper ' 保存されている通信ポート名
' For Each文で、実行時に登録されている全てのComポート名を取得する。
' VB2005で追加されたMyを使用して、SerialPort名一覧を取得
For Each portName As String In My.Computer.Ports.SerialPortNames
' 見つかったCOMポート名称のComboBox1への登録
ComboBox1.Items.Add(portName)
' ポート名が保存されており、最終保存名と同じポートが存在するか？
' Tips: andalsoは条件不成立後は以降の式の評価を行わない。
If prevComPort.Length > 0 AndAlso portName = prevComPort Then CheckPort = True
Next
' 登録されているポート名は現在有効である。
If CheckPort Then
' 保存されているポート名を使用する
SerialPort1.PortName = prevComPort
ComboBox1.Text = prevComPort
Else
' ポート名が確定していない場合、最初のポートを初期ポートとする
' Tips:ComboBox1のプログラムからの選択は.SelectedIndexで行い、先頭のインデックスは0
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
End If
' シリアルポート送信データの文字エンコードを指定する。(VB2005!!)
SerialPort1.Encoding = System.Text.Encoding.GetEncoding(932) ' SJIS
End Sub
'
' VFD2002Eへのシリアル送信
'
'
' 通信条件はSerialPortコントロールのプロパティにて直接代入済み
'
Private Sub SendVfd(ByVal mesTxt As String)
Try
' この例ではシリアルポートの所有権を１回送信ごとに開放している。
' 表示速度を要求する場合、プログラム実行中は常にシリアルポートをOPENする方法もある。
' また、レシートプリンタへの出力で、紙切れエラーが送信から遅れて受信され、データ再送が必要な場合など、
' 複雑な動きが想定される場合、スレッドを利用してバックグラウンドジョブとして送信する方法もある。
SerialPort1.Open()
' 送信
' Tips:SerialPortで直接Encode処理ができるため、VB2003までのような独自文字Encord処理は不要
SerialPort1.Write(mesTxt)
' 送信バッファが空になるのを待ってClose処理を行う
While SerialPort1.BytesToWrite > 0
' 必要に応じて、タイムアウト処理を組み込む（このままでは戻ってきません。）
End While
Catch ex As Exception
' 最小限のエラー処理しか行っていない。
' これだけでもケーブルが外れた場合などの際、タイムアウトのエラーで表示が行える。
MsgBox("シリアル通信エラー", MsgBoxStyle.Critical)
End Try
' ポートのクローズ
SerialPort1.Close()
End Sub
'
' COMポートの指定が変更された
'
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ComboBox1.SelectedIndexChanged
Try
' SerialPortコントロールのPort値を変更する
SerialPort1.PortName = ComboBox1.Text
' ComboBox1.TextをMy.Settings.iniComPortにPropertyBindingで接続するか、変更があった場合手動で保存する
My.Settings.iniComPort = ComboBox1.Text
' Formが終了される際にもMy.Settingsは自動的に保存されるが、ここで強制的の保存する例
My.Settings.Save()
Catch ex As Exception
MsgBox("シリアルポート設定エラー", MsgBoxStyle.Critical)
End Try
End Sub
'
' デモボタン
'
' CLEAR SCREEN(&H0c)
Private Sub btnCls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCls.Click
SendVfd(Chr(&HC)) ' 画面クリアコマンドのみ送信する
MsgCount = 0
End Sub
Private Sub btnUriage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUriage.Click
' 表示用ダミーカウント このボタンは、押すたびに異なるメッセージがサイクルする
' Tips VBでも+=が使えるようになりました。
MsgCount += 1
MsgCount = MsgCount Mod 3
' 画面原点移動(&HB)と文字表示(半角40文字 20桁2行分)
' 表示データをあらかじめ構成しておき、半角４０文字として送信する
' 画面をクリアするよりも、表示原点をホームポジションに移動して画面全てを書き換えたほうが高速に表示できる
' ホームポジションを入れなくとも40文字出力により毎回同じ位置に表示するが、
' 通信エラーなど異常表示により表示がずれることを防ぐために、ホーム(&hB)を行っている
Select Case MsgCount
Case 0
SendVfd(Chr(&HB) & "ﾄﾏﾄｹﾁｬｯﾌﾟ \120ｹｲ: 3ﾃﾝ \12,345")
Case 1
SendVfd(Chr(&HB) & "ｷｬﾍﾞﾂ \100ｹｲ: 1ﾃﾝ \5,545")
Case Else
SendVfd(Chr(&HB) & "ﾏｸﾞﾛﾌﾞﾂ \1,500ｹｲ: 1ﾃﾝ \12,545")
End Select
End Sub
' 合計表示例
Private Sub btnAzukari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAzukari.Click
SendVfd(Chr(&HB) & "ｹｲ 10ﾃﾝ \8,500ｵﾂﾘ: \1,500")
End Sub
'
' プログラム終了
'
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Application.Exit()
End Sub
End Class
|
上記例で用いたように、HOME+20桁2行（41Byte）を送信することで、簡単に画面更新が行えます。
転送レート19200bpsでは、HOME制御や文字表示では通信ハンドシェークはほとんど発生しませんので、画面更新として41Byte送信するための通信時間である0.02秒程度で画面更新ができます。
.Netframework2.0になり、Win32のシリアル制御を呼ぶ必要がなくなったため、シリアル制御以上に難しかった、文字エンコードのための処理が上記のように簡単になったことで、シリアル通信初心者の方には敷居が思いっきり低くなったのではないでしょうか？
この時代となっては、VB6はセキュリティ対応ということがほとんど考えられていない時代に開発された言語であるため、通信を伴う業務用プログラムで使用するのはかなり危険となってきています。 しかし、.Netframework1.1まではシリアルポートクラスが準備されていなかったため、シリアル通信に慣れていない多くの開発者にとっては障壁となっていました。
.Netframework2.0の登場により、この例のように簡単にシリアルポート制御ができるようになり、さらに現在ではVB2005 Expressなど無償で使用利用できる開発ツールもありますので、ぜひ気軽にチャレンジしてみてください。
参考
参考技術情報
- VB開発関連 参考情報
- シリアル関連 参考情報
- タッチパネル関連 参考情報
- キーボードインターフェース [PS/2]関連 参考情報
- PC 画面設計関連 参考情報
- UCM関連 参考技術情報
- その他 技術関連参考情報
- 旧技術情報ページ
- テクノベインズ開発事例
- テクニカルノート 一覧
主要販売製品
テクノベインズWebトップ 見積依頼 Webショップ 総合案内 スマホでチケット印刷
スマサバ・プリントPOS
Facille[ファシール]
VB/.Netframework開発関連 参考情報
Visual Basic 2013 [VB2013]による開発情報
・
VS2013 Express
無償で開発ができるマイクロソフトの開発言語 Visual Studio Express 2013 のインストール
・ VB2013からカスタマディスプレイVFD2002Eにメッセージを表示する VB2013 Express SerialPort接続によるカスタマディスプレイVFD2002Eの制御 Visual Basic 2008 [VB2008]による開発情報
・
VB2008 Express
無償で開発ができるマイクロソフトの開発言語 VB2008 Expressのインストール
・ VB2008 と VB2008Expressでのテンプレート比較 VB2008/VB2008 Express プロジェクトテンプレート一覧からによる対応環境の比較 ・ VB2008からカスタマディスプレイVFD2002Eにメッセージを表示する VB2008 Express SerialPort接続によるカスタマディスプレイVFD2002Eの制御 ・ VB2008から大型7セグメントLEDディスプレイ LED841 にメッセージを表示する VB2008 SerialPort接続によるカスタマディスプレイVFD2002Eの制御 Visual Basic 2005 [VB2005]による開発情報
・
VB2005 Express
無償で開発ができるマイクロソフトの開発言語 VB2005 Expressのインストール
・ VB2005 はじめての実行 VB2005 / VB2005 Express VB2005での開発 ・
VB2005
SerialPortコントロールを使用した開発実例
・ VB2005からカスタマディスプレイVFD2002Eにメッセージを表示するサンプル VB2005 シリアルポートに接続したカスタマディスプレイLED841にメッセージを表示する Visual Basic 6 [VB6]による開発情報
・
VB6
MsComm接続によるカスタマディスプレイVFD2002Eの制御
VBA [Excel2000/2003, Access]による開発情報
・
VBAによるサンプル
ExcelのVBAから簡易表示ユーティリティを呼び出し表示を行う例。自己署名によるデジタル署名付きマクロ登録など
.Netframework開発情報
・ .Net Framework再頒布パッケージについて .NetFramework .NetFramework再配布パッケージの入手に関する情報 Windows は米国 Microsoft Corporation の米国およびその他の国における登録商標です。Microsoft Corporationのガイドラインに従って画面写真を使用しています。
シリアル通信関連 参考情報
技術情報Indexシリアル開発
・ シリアルポートをつかう通信クラス SerialPortについて VB2005 SerialPortコントロールを使用した開発実例 ・ VB2008からカスタマディスプレイVFD2002Eにメッセージを表示する VB2008 SerialPort接続によるカスタマディスプレイVFD2002Eの制御 ・ VB2005からカスタマディスプレイVFD2002Eにメッセージを表示するサンプル VB2005 SerialPort接続によるカスタマディスプレイVFD2002Eの制御 ・ VB6からカスタマディスプレイVFD2002Eにメッセージを表示する VB6 MsComm接続によるカスタマディスプレイVFD2002Eの制御 RS232シリアル情報
・ 接続ケーブル シリアルケーブル シリアル接続ケーブル情報 ・ 通信ケーブル情報 シリアルケーブル シリアル接続ケーブル情報 ・ シリアルインターフェース用 クロスケーブル シリアルケーブル シリアル接続ケーブル情報 ・ シリアルインターフェース用 ストレートケーブル シリアルケーブル シリアル接続ケーブル情報 ・ インターリンクケーブル シリアルケーブル シリアル接続ケーブル情報 ・ IN-9FFケーブル資料 シリアルケーブル ・ コネクタ資料 シリアルコネクタ シリアルコネクタ信号配置 ・ コネクタ対比表 シリアルコネクタ ・ コネクタ留めネジについて( インチネジ - ミリネジ ) シリアルコネクタ シリアル接続機器
その他参考
・ VFD2002Eカスタマディスプレィ シリアル接続 VFD表示ディスプレイ ・ DM-D110カスタマディスプレィ シリアル接続 VFD表示ディスプレイ ・ 4206 - 2次元バーコード対応 高性能エリアイメージャ USBシリアル接続 バーコードスキャナ ・ TM-T884シリーズ サーマルレシートプリンタ シリアル接続 レシートプリンタ ・ TM-T90 シリアル接続 レシートプリンタ ・ TSP100 futurePRNT シリアル接続 レシートプリンタ ・ TM-L90サーマルラベルプリンタ シリアル接続 ラベルプリンタ ・ RS232-USB I/Fコンバータ USB232-00 USB接続 シリアルポートを増設するコンバータ ・ コネクタ防塵用キャップ Dsubコネクタ コネクタ保護キャップ
- PC 画面設計関連 参考情報 画面サイズ、ASCII文字コード
Last Update :
2014/04/22
