Visual Basic 2005での作成例（RL-700Sをご使用の場合）

1. Visual Basicで、次のようなフォームを作成します。
2. 「プロジェクト」-「参照の追加...」で「参照の追加」のダイアログボックスを表示し、「COM」タブの画面で「BrssCom」と「RfidptcomS」を追加します。
3. 次のプログラムを入力します。

   
   
   Public Class Form1
       Const DEVICE_NAME = "Brother RL-700S"
       Const ANTENNA_READER_WRITER = "Reader/Writer side"
       Const ANTENNA_PRINTER = "Printer side"
   
       Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
           Dim objRfid As bpac.Rfid
           Dim objDoc As bpac.Document
           objRfid = New bpac.Rfid()
           objDoc = New bpac.Document()
   
           If (objRfid.Open(DEVICE_NAME) = False) Then
               MsgBox("デバイスオープン失敗")
               GoTo CleanUp
           End If
   
           If (objRfid.SetActiveAntenna(ANTENNA_PRINTER) = False) Then
               MsgBox("アンテナ設定失敗")
               GoTo CleanUp
           End If
   
           Dim filePath As String
           filePath = CurDir() + "\" + "Name_Plate.lbl"
           If (objDoc.Open(filePath) = False) Then
               MsgBox("ファイルオープン失敗")
               GoTo CleanUp
           End If
   
           '「Company」のテキストオブジェクトにデータを設定
           objDoc.GetObject("company").Text = txtCompany.Text
   
           '「Name」のテキストオブジェクトにデータを設定
           objDoc.GetObject("name").Text = txtName.Text
   
           ' タグデータ書き込み
           If (objRfid.WriteTagData("", bpac.MemoryBank.bmbUser, 0, txtName.Text) = False) Then
               MsgBox("データ書き込み失敗")
               GoTo CleanUp
           End If
   
           '印刷を実行
           Dim printOption As bpac.PrintOptionConstants
           printOption = (bpac.PrintOptionConstants.bpoAutoCut Or bpac.PrintOptionConstants.bpoRfid)
           objDoc.StartPrint("DocumentName", printOption)
           objDoc.PrintOut(1, printOption)
           objDoc.EndPrint()
   CleanUp:
           objRfid.Close()
           objDoc.Close()
       End Sub
   
       Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click
           Dim objRfid As bpac.Rfid
           objRfid = New bpac.Rfid()
   
           If (objRfid.Open(DEVICE_NAME) = False) Then
               MsgBox("デバイスオープン失敗")
               GoTo CleanUp
           End If
   
           If (objRfid.SetActiveAntenna(ANTENNA_READER_WRITER) = False) Then
               MsgBox("アンテナ設定失敗")
               GoTo CleanUp
           End If
   
           Dim arrTagId() As Object
           arrTagId = objRfid.ReadTagId()
           If (objRfid.ErrorCode <> 0) Then
               MsgBox("タグID読み取り失敗")
               GoTo CleanUp
           End If
   
           ' タグデータ書き込み
           If objRfid.WriteTagData(arrTagId(0), bpac.MemoryBank.bmbUser, 0, txtName.Text) <> False Then
               MsgBox("読み取り終了" & Chr(13) & txtName.Text)
           Else
               MsgBox("データ読み取り失敗")
               GoTo CleanUp
           End If
   
   CleanUp:
           objRfid.Close()
       End Sub
   
       Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
           Dim objRfid As bpac.Rfid
           objRfid = New bpac.Rfid()
   
           If (objRfid.Open(DEVICE_NAME) = False) Then
               MsgBox("デバイスオープン失敗")
               GoTo CleanUp
           End If
   
           If (objRfid.SetActiveAntenna(ANTENNA_READER_WRITER) = False) Then
               MsgBox("アンテナ設定失敗")
               GoTo CleanUp
           End If
   
           Dim arrTagId() As Object
           arrTagId = objRfid.ReadTagId()
           If (objRfid.ErrorCode <> 0) Then
               MsgBox("タグID読み取り失敗")
               GoTo CleanUp
           End If
   
           ' タグデータ読み取り
           Dim dataSize As Integer
           Dim userData As String
           dataSize = objRfid.GetBlockSize(arrTagId(0), bpac.MemoryBank.bmbUser) * objRfid.GetNumberOfBlocks(arrTagId(0), bpac.MemoryBank.bmbUser)
           userData = objRfid.ReadTagData(arrTagId(0), bpac.MemoryBank.bmbUser, 0, dataSize)
           If (objRfid.ErrorCode = 0) Then
               MsgBox("読み取り終了" & Chr(13) & userData)
           Else
               MsgBox("データ読み取り失敗")
               GoTo CleanUp
           End If
   CleanUp:
           objRfid.Close()
       End Sub
   End Class
   
   
   					

   補足

   使用できるメソッドは、b-PAC SDK Ver.3.0 ドキュメント（b-PACトップページよりダウンロード可能です）をご覧ください。

4. プログラムを起動し、各項目を入力後、「ラベル印刷」ボタンをクリックします。

   「ラベル印刷」ボタン	P-touch Editorで作成したラベルレイアウトファイルをテンプレートにして、入力した値をラベルを印刷します。RFIDタグには「氏名」を書き込みます。
   「Write」ボタン	「氏名」でRFIDタグの内容を書き換えます。
   「Read」ボタン	RFIDタグの内容を読み込みます。

   補足

   作成したソフトを他のPCにインストールする場合、そのPCにb-PACがインストールしてある必要があります。b-PACは次のいずれかの方法でインストール先PCにインストールできます。

   • b-PACクライアント用コンポーネントのインストーラーをダウンロードしてインストールする。
   • Windows Installerでインストールプロジェクトを作成し（Visual Studio 2005の「ファイル」-「追加」-「新しいプロジェクト」で「新しいプロジェクトの追加」のダイアログを表示し、「その他のプロジェクトの種類」- 「セットアップと配布」で「セットアッププロジェクト」を選択する）、そのインストールプロジェクトにb-PACコンポーネントのマージモジュール (MSMファイル)を追加する（「プロジェクト」-「追加」-「マージモジュール」で「C:\Program Files\Brother bPAC SDK\Redist\BrssCom.msm」を追加する）。

戻る