今回は、前回ぐらいにバーコードリーダから読み取った値を受け取る方法で

TextBoxChangedやKeyDownイベントを使って受け取れるといった話をしましたが

これ以外にKeyPressイベントを使った方法もあったので紹介していきます。

ちなみに前回はこちら

【VB.Net】USB接続のバーコードリーダから値を受け取る～バーコードの基礎～

スーパーなどでよく見かけるバーコードリーダー、店員さんがレジで商品のバーコードを読むのに使われていますね。どうやって読み取った値から価格を取得しているのか？読み取った値が間違っていることはないのか？など気になったことはありませんか？そんな気になる悩みについて、簡単に調べてまとめてみました。参考になれば嬉しいです。

dreamparadaisu.com

2022-03-05 08:58

準備編：Windowsフォームの作成

画面は、前回作成した画面を引き続き利用します。

ラベルコントロールとテキストボックスコントロールを

配置している至ってシンプルな画面です。

起動するとカーソルがテキストボックスに合っていると思うので、

カーソルを合わせる処理は省略しちゃいます。

プログラム編

ここからはいくつかの項目に分けてプログラムを組んでいきます。

KeyPressイベントを書く

KeyPressイベントは以下のようにして記述することができます。

Private Sub テキストボックスのコントロール名_KeyPress(sender As Object, e As KeyPressEventArgs) Handles テキストボックスコントロール名.KeyPress
    処理
End Sub

VisualStudio上のデザイン画面でもコードを生成することができます。

Form上に配置されたTextBoxを右クリックし、

プロパティを選択すると下図の画面が表示されます。

プロパティの雷マーク(図の赤丸)をクリックします。

キーの項目にKeyPressがあるので、これをダブルクリックすることで

KeyPressイベントを自動で作成してくれます。

終端キーかどうか検知する関数の作成

USB接続のバーコードリーダからPCに送られる値は、1文字ずつでした。

どの文字が終端を表すキーなのかどうかを検知する処理が必要になりますね。

これを関数を作成することで、検知したら次の処理へ進めるようにします。

終端キーは、あらかじめ設定しておくことで関数を呼び出すときに省略できますね。

''' <summary>
''' 終端キーかどうかを判定し返す
''' </summary>
''' <param name="InputKey"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function CheckTerminalKey(ByVal InputKey As System.Windows.Forms.Keys) As Boolean
    Dim result As Boolean = False        
    If terminalKey = Inputkey Then 
        result = True
    End If
    Return result
End Function

こんな感じの関数を作りました。

実装

KeyPressイベントの中に終端キーかどうかを検知する関数を組み込んでいきます。

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    Try
        ' 終端キーかどうか検知します。
        If CheckTerminalKey(InputKey) Then
            ' 終端キーだった場合の処理
        Else
            ' 終端キーではない場合の処理
        End If
    Catch ex As Exception
        ' エラーをキャッチした時の処理
    End Try
End Sub

これだけでは完成ではありません。以下の項目の処理を追記する必要があります。

• 終端キーを受け取る処理
• 終端キーだった場合の処理
• 終端キーではない場合の処理
• エラーをキャッチした時の処理

これらを追記していきます。

終端キーを受け取る処理

終端キーを受け取るには、KeyPressイベントの引数として渡される変数eを活用します。

変数eの型は、KeyPressEventArgsになり、これにKeyPressイベントのデータが渡されます。

つまり、押したキーの情報が変数eにはイベントが呼び出されたときに格納されます。

押されたキーの情報は、ASCII文字と関連付けられており

各キーに対応したASCII文字を受け取ることもできます。

今回は、ASCII文字として受け取ることで

終端キーを受け取ったかどうかを検知していきます。

キー情報を受け取るには、以下のコードになります。

e.KeyChar

これでキー情報をASCII文字で受け取れます。

ただ、これだけでは使いづらいのでASCII文字を文字コードとして受け取ります。

AscW(e.KeyChar)

AscWメソッドを使うことで、()内に渡されたASCII文字を文字コードにして返してくれます。

例えば、Enterキーを押してKeyPressイベントが呼び出された場合

e.KeyCharでは、”vbCr“となります。

これをAscWメソッドに渡すと、”13“と返されます。

13という文字コードがASCII文字のEnterキー(CR)にあたります。

ちなみにASCII文字では、EnterはCR(キャリッジリターン)として扱われます。

この文字コードを検知したら、終端キーと扱い、以降の処理を行います。

入力されたキーを受け取る処理として、変数InputKeyを作成します。

Dim Inputkey As Keys = CType(AscW(e.KeyChar), Keys)

終端キーだった場合の処理

全てのバーコード情報が受け取られたことを意味しているので、終端キーだった場合は

読取ったバーコードが正しいかを確認し、桁数確認処理などの読取り後の処理を記述します。

Public Class TestBarCode
    Private Const CORRECT_DIGIT As Integer = 12

    Private terminalKey As Keys = Keys.Enter
    Private readData As String = ""

    Private Function CheckTerminalKey(ByVal InputKey As System.Windows.Forms.Keys) As Boolean
        Dim result As Boolean = False
        If terminalKey = InputKey Then
            result = True
        End If
        Return result
    End Function

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        Try
            ' 押されたキーの情報を受け取ります。
            Dim Inputkey As Keys = CType(AscW(e.KeyChar), Keys)

            ' 終端キーかどうか検知します。
            If CheckTerminalKey(Inputkey) Then
                ' 終端キーだった場合の処理

                ' 読取りデータの加工処理を行います。

                ' 桁数が正しいかどうかの判定
                If readData.Length <> CORRECT_DIGIT Then
                    ' 正しい桁数じゃない場合、エラー
                    MessageBox.Show("桁数が違います。", "桁数エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Return
                End If
            Else
                ' 終端キーではない場合の処理

            End If

        Catch ex As Exception
            ' エラーをキャッチした時の処理
        End Try

    End Sub

End Class

終端キーではない場合の処理

バーコードが読み取り中であるとして、処理を行います。

バーコードリーダから送られてくるデータは1文字ずつでしたので、

あらかじめ読取りデータを格納する変数を用意しておき、この変数に1文字ずつのデータを

格納していきます。

既に入力されたキーの情報は、変数InputKeyにて受け取っているので

これを活用し、読取りデータを格納する変数(readData)に格納させていきます。

途中で他のキーが押される場合もあるかもしれませんが、今回はこれらは考慮しないで

コードを書いていきます。

' 終端キーではない場合の処理
readData += ChrW(InputKey).ToString

ChrWメソッドを使って変数InputKeyの情報を文字に変換しています。

ChrWメソッドは与えられた文字コードを文字に変換してくれる役割があり、

AscWメソッドとは逆の処理をしてくれます。

ChrWメソッドを使わないで、readDataに代入しようとすると、

型が違うのでエラーとなるため、注意が必要です、

演算子を=ではなく、+=にしているのは、1文字ずつ受け取った情報を連結して

最終的には1つの文字列として扱う必要があるので+=にしています。

エラーをキャッチした時の処理

キャッチした時は、エラーの内容をメッセージボックスで表示するようにしておきます。

実際にアプリケーションとして運用する場合は、

ログファイルに記述するための処理を挟むのがいいでしょう。

ログファイルについては、また別の機会で話せたら……。

以下のような処理にしておきます。

' エラーをキャッチした時の処理
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

ex.Messageでキャッチした時のエラー内容を見ることができます。

最終コード

以上の処理を付け足すことで、バーコードリーダから読取ったデータを

1文字ずつ見て、処理をして最終的に1つの文字列として扱い読取り後の処理へ

つなげていきます。

今回での実装したコードは以下になります。

Public Class TestBarCode

    Private Const CORRECT_DIGIT As Integer = 12

    Private terminalKey As Keys = Keys.Enter
    Private readData As String = ""

    ''' <summary> ''' 終端キーかどうかを判定し返す ''' </summary> ''' 
    ''' <param name="InputKey"></param> '''
    ''' <returns></returns> '''
    ''' <remarks></remarks>
    Private Function CheckTerminalKey(ByVal InputKey As System.Windows.Forms.Keys) As Boolean
        Dim result As Boolean = False
        If terminalKey = InputKey Then
            result = True
        End If
        Return result
    End Function

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        Try
            ' 押されたキーの情報を受け取ります。
            Dim Inputkey As Keys = CType(AscW(e.KeyChar), Keys)

            ' 終端キーかどうか検知します。
            If CheckTerminalKey(Inputkey) Then
                ' 終端キーだった場合の処理

                ' 読取りデータの加工処理を行います。

                ' 桁数が正しいかどうかの判定
                If readData.Length <> CORRECT_DIGIT Then
                    ' 正しい桁数じゃない場合、エラー
                    MessageBox.Show("桁数が違います。", "桁数エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Return
                End If
            Else
                ' 終端キーではない場合の処理
                Console.WriteLine(ChrW(Inputkey))
                readData += ChrW(Inputkey).ToString
            End If

        Catch ex As Exception
            ' エラーをキャッチした時の処理
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

End Class

まとめ

バーコードリーダから受けとった情報を処理する方法として、

KeyPressイベントを使った方法について紹介していきました。

KeyPressイベントでは、Enterキーを受け取ってから処理をするのではなく

1文字ずつをチェックしつつ処理ができるようになります。

試しに実装してみてはいかがでしょうか、参考になれば嬉しいです。

最後までお読みいただき、ありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/07 19:06時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/07 19:06時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/07 19:06時点)

楽天ブックス

今回はスーパーなどでよく見かけるバーコードリーダ、

店員さんが使う商品を読み取る際に使うあれについて、紹介していきます。

そもそもどうやって、読み取ったバーコードの情報が表示されるのか？

またパソコンにはどうやって情報が受け取られるのか？

などざっくりと紹介していきます。

ちなみに前回はこちら

【VB.Net】三項演算子をVBでも実践してみる～新たな道へステップアップ～

コードをスッキリさせたいなと考えらるときがいつしか来るだろう方、既に来ている方の参考になればと思い。その手法として三項演算子についてVB.Netでも書いてみましたので記事にしています。VB.Netの場合、厳密には三項演算子もどきとして捉えてもらえればといった感じですね。

dreamparadaisu.com

2022-03-03 06:05

商品に貼られているバーコード

スーパーでよく見かけるだろうバーコード、数字の羅列が並んでいると思います。

食材などの商品に貼られているバーコードは一般的にだいたいがJANコードといわれる

JAN規格を基に発行され、貼り付けられています。

JANコードは1次元コードと称され、他にも様々な規格のバーコードが存在します。

ちなみにQRコードやデータマトリクスは2次元コードと称されます。

どうやって読み取られているの？

スーパーなどで使われるバーコードリーダは、1次元スキャナともいわれ

トリガと呼ばれるボタンを押すことで、赤いレーザーが照射されます。

照射された赤いレーザをバーコードに当てることで、バーコードを読み取ることができます。

では、なぜレーザを当てるだけで読み取れているのでしょうか？

それは、バーコードを形成している、白と黒の棒(バー)が鍵を握っています。

なんか棒が並んでるなと感じたあなた

ただの棒が並んでるだけではなく、実は規則的に白と黒の棒が交互に並べられています。

詳しくは、こちらのページに解説が載っています。ありがとうございます。

JANコードのバーコードを作る

本題：いざ実証・実験

それでは、さっそくバーコードを読み取るための準備としてUSB接続のバーコード

リーダからデータを受け取るにはどうしたらいいか？こちら紐解いていきます。

USB接続のバーコードリーダは一般的には、キーボードインターフェースとして

パソコンでは接続がされるとデバイスマネージャーで認識されます。

つまり、キーボードと同じ扱いがされるということになります。

したがって、キー入力と同じように読み取ったデータが受け取られることになります。

これを踏まえて、テスト用にバーコードリーダの入力値を受け取る画面を作成して、

実際に試してみましょう。

使用したバーコードリーダ

その前に、今回使用したバーコードリーダはこちらになります。

Amazonでベストセラーだったバーコードリーダです。

ちなみに2次元式なのでQRも読めます。

準備編：バーコード受信画面

このようなテスト画面を作成してみました。

画面の作成ができたら、バーコードリーダをパソコンに接続します。

テスト画面を起動し、テキストボックスにカーソルを合わせたら

バーコードを読み取ってみましょう。

すると、どうでしょう？

読み取ったバーコードが、下図のように表示されたのではないでしょうか？

バーコードは、適当なモノを作りました。

こちらで作成をすることができます。

ここまででバーコードリーダから読み取られたデータがどのようにして

受け取られるかがわかってきたかと思います。

USB接続の場合、キーボード入力と同様にして受け取られています。

それでは、受け取ったデータから更に処理をつなげたい場合どうしたらいいでしょう？

バーコードは読んだだけでは終わりませんよね？

読んだその先に、値段を表示してくれたり、読んだバーコードによって

設備の動作を変えたりと読み取った後の処理が重要になってきます。

先ほどは、読み取った値をテキストボックスに表示することができました。

表示がされたテキストボックスに対して何らかの処理を追加すればよさそうですね。

つまり、テキストボックスのイベントを発生させて、

そこで何らかの処理をさせてあげればよさそうです。

ここで使う候補として出てくるのが、TextBox.TextChanged

バーコード情報を処理する

テキストボックスに出力されたバーコードから読み取った情報を処理してみましょう。

TextBox.TextChangedを使用するので、以下のようになります。

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Console.WriteLine(TextBox1.Text)
End Sub

では、実際にコードを走らせてバーコードを読み取ってみましょう。

※カーソルはテキストボックスに合わせてください。

コードを走らせてみるとわかるのですが、

バーコードリーダで読み取ったデータを表示させると実は、

1文字ずつPCへ送信されているのがわかります。

バーコードリーダからPCへ送信されるデータは、1文字ずつとなり

その都度TextBox.TextChangedイベントが処理されます。

つまり、全てのバーコード情報を受け取るには

バーコードの長さ分TextChangedイベントが繰り返されます。

本来は全てのバーコード情報がそろって処理をするので、当然1文字ずつでは

正しい情報として成り立ちません。

では、どうしたらいいでしょう？

終端キー：ターミネータ

バーコードリーダで読み取ったデータの終わりには、終端キーと呼ばれる

ターミネータが付加されています。

※バーコードリーダによっては機能自体がないモノもあります。

このターミネータを検知することで、読み取ったデータがそろってから

処理をすることができそうですね。

ターミネータ機能を有しているバーコードリーダでは、デフォルトだと

「CR」や「CR+LF」が設定されています。

ちなみに「CR」はキャリッジリターンって呼ばれています。

「LF」はラインフィードになります。

それぞれ

• CR : 先頭行へ戻す
• LF：次の行へ送る

といった役割があります。

終端キーを検知

それでは終端キーを検知する処理を実装していきます。

先ほどは、TextChangedイベントを使いましたがそれよりも良いイベントがあったので

以下のイベントを使用します。

を使います。

これはテキストボックス内でキーが押されたときにイベントが発生するメソッドになります。

バーコードリーダの動作はキーボード動作と同様のふるまいをするのでこちらが便利です。

このイベント内でターミネータを検知させます。

コードで書くと以下のようになります。

Private Sub TextBox1_KeyPress(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
        ' ターミネータを検知してからの処理
        ’Trueの処理
    End If
End Sub

ターミネータの検知をIf文で行っています。

条件式としては、e.KeyCodeがEnterキーであれば処理を

実行するといった式を組んでいます。

変数eには、テキストボックス内で検知されたキー情報が格納されます。

「CR」や「CR+LF」はEnterキーとして扱うことができるので、

Keys.Enterを指定しています。

ターミネータが「CR」もしくは「CR+LF」だと、Trueの処理に移り

バーコード情報が全てそろった状態で処理ができます。

以上でバーコードリーダから受け取る、受け取った後の処理ができました。

これ以降は、仕様によって変更したり桁数のチェックやチェックデジットなどの

処理を追加して読み取ったデータが正常かどうかをチェックすることにつなげられます。

お疲れ様でした。

まとめ

PCと接続したバーコードリーダから読み取ったデータを受け取る方法について

紹介していきました。

USB接続のバーコードリーダの大半はキーボードインターフェースとして認識され、

普段私たちが使うキーボードと同様のふるまいをします。

バーコードで読み取ったデータは、一気に入力されるのではなく、

1文字ずつ入力がされていくので注意が必要です。

全てのデータがそろった状態で処理をするには、

ターミネータを検知して次の処理へつなげれるように意識しましょう。

バーコードリーダ……奥が深いですが、使えるようになると楽しいですよ。

最後までお読みいただき、ありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/07 19:06時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/07 19:06時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/07 19:06時点)

楽天ブックス

今回は、VBでも三項演算子が記述できるのか実践してみたので、

紹介していきます。

ちなみに前回はこちら

【VB.Net】EtherNetタイプのRFIDリーダと接続する～RFIDとは何か？～

RFIDとは何かを簡単にざっくりと触れ、RFIDリーダをEtherNet経由で接続してみるといった事をVB.Netで出来るかどうか確認し、結果を記事にしています。今回RFIDリーダとしては、Omron製のV680Sシリーズを使用し、検証を行いました。

dreamparadaisu.com

2022-02-23 12:20

三項演算子とは

三項演算子は条件演算子とも呼ばれ、3つのオペランドを取る演算子になります。

オペランド = 数式を構成する要素のうち、演算子じゃない方の要素を指します。

下図のようなイメージになります。

どこで使われるのか？

If文の代用として使用されることがあります。

コードをスッキリと見せることもできるので便利な演算子になっています。

どうやって書くの？

JavaScriptだと、以下の構文になります。

1行でIf文で記述される内容が収まっているのがわかります。簡素なコードにできますね。

条件式に基づいて、

疑問符”?”とTrueの処理とFalseの処理の間にある”:”(コロン)がミソですね。

読み解くと、条件式がTrueであればTrueの処理を

FalseであればFalseの処理をそれぞれ実行して返します。

では、これをVBで書くにはどうしたらいいでしょう？

VBでは三項演算子は以下の構文になります。

といった記述になり、JavaScriptのような形とは違います。

Ifが含まれているのが特徴的ですね。

完全にJavaScript唯一の三項演算子かといわれると若干違うかもしれませんね。

それでもVBでは、この記述が三項演算子になるので

よかったら使ってみてください。

通常のIf文を書くよりもコードを短縮できますね。

例題

例として、偶数か奇数かを判定する処理を書いていきます。

If文を使って書くと、

Dim a As Integer = 8
If a Mod 2 = 0 Then
    Console.WriteLine("偶数です。")
Else
    Console.WriteLine("奇数です。")
End If

こうなりますね。

では、三項演算子を用いた場合、どうなるでしょうか？

答えは、以下のようになります。

Dim a As Integer = 7
Console.WriteLine(If(a Mod 2 = 0, "偶数です。", "奇数です。"))

コードがスッキリされているのがわかりますね。

三項演算子を用いることで、わずか1行で書けてしまうんですね。

便利な点、一方で可読性が悪くなりがちな印象も受けますね。

まとめ

VB.Netで三項演算子を書くにはどうしたらいいかについて、紹介をしていきました。

コードをスッキリさせたいときには活用してみるといいでしょう。

慣れるまでは大変かもしれませんが、使いこなせるようになるといいですね！

プログラミングボキャブラリーを増やす、きっかけになれば嬉しいです。

最後までお読みいただき、ありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/07 19:06時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/07 19:06時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/07 19:06時点)

楽天ブックス

久々のVB.Net記事の更新です。

タイトル通り、以前にRFIDリーダを使う機会があったので

RFIDとは何かから学んだことを紹介していきます。

EtherNet経由で接続されたRFIDリーダをVB.Netで制御し、

まずは接続するところからを記事にします。

読込みや書込みに関しては、また別の記事で紹介していきます。

ちなみに前回のVB.Net記事はこちら

【VB.Net】0 除算に関するエラーについてさらっと紹介～例外処理について学ぶ～

VB.Netにおける除算エラーについて簡単に紹介していきます。除算のエラーをアプリケーションの実行中に発生させてしまい、強制的にアプリケーションが止められてしまって、どうしたらいいか悩んでる方の参考になれば嬉しいです。まずは簡単にエラーについて学んでみましょう。

dreamparadaisu.com

2021-10-03 19:05

RFIDとは

そもそもRFIDとは何か、

の略で、調べてみると

RFID（英: radio frequency identifier）とは、ID情報を埋め込んだRFタグから、電磁界や電波を用いた近距離（周波数帯によって数センチメートル～数メートル）の無線通信によって情報をやりとりするもの、および技術全般を指す。 従来のRFタグは、複数の電子素子が乗った回路基板で構成されていたが、近年、小さなワンチップのIC （集積回路）で実現できるようになってきた。 これはICタグと呼ばれ、そのサイズからゴマ粒チップと呼ばれることもある。 一般的にRFIDとはICタグ、その中でも特にパッシブタイプのICタグのみを指して用いられることが多い。

出典: フリー百科事典『ウィキペディア（Wikipedia）』

簡単にかみ砕くと、電波によってデータのやり取りをする機器ですね。

• データを読込んだり書き込んだりするのがリーダと呼ばれる機器 ⇒　RFIDリーダ
• データが蓄積されている、されるのがタグと呼ばれる機器 ⇒　RFIDタグ　IDタグ　って呼ばれています。

になります。

最近では、各業界で様々な活用をされていますね。

例えば、ユニクロがわかりやすいかもしれません。

ユニクロの製品のだいたい(ほぼすべて？)には、このRFIDが使われています。

皆さんも経験したことがあるのではないでしょうか？

ユニクロではカートに入れた商品をレジの横のカート置き場に置くことで

自動で購入金額を算出し、レジに表示してくれています。

流れとしては、

1. カート置き場にカートを置く
2. カート内のタグをRFIDで読み取る
3. タグに書込まれた情報から商品の価格を抽出
4. 集計後レジへ表示

といった流れになるのでしょうか。

最近では、このようなカートを置くだけで会計ができる、セルフレジ方式の多くは

RFIDを活用しています。

※会計自体はお客さんが現金もしくは電子決済を選びます。

食品分野ではなかなか難しいですが、近年では検証もされているようです。

※流通に関しては、RFIDが活用されています。店舗運用に関しては検証段階？

コンビニエンスストアにおける食品ロス削減に関する取組

まだまだ、これからのRFID、今後が楽しみですね。

特徴

以下のような特徴があります。

• 非接触でIDの読み取りが可能
• データの書き換えが可能
• バーコードと違って汚れても読み取れる
• 電波で読み取るので遮蔽物の影響を受けにくい(電波が通れば)

RFIDタグ

タグにもいくつかのタイプがあります。

• パッシブタイプ
• アクティブタイプ
• セミアクティブタイプ

パッシブタイプ

IDタグの中に電池が搭載されていないタグに分類され、

ICカード、PasmoやSuica、ICOCAなどがパッシブタイプに該当します。

実はICカードもRFIDなんですね。

読み取れる距離も近距離で、だいたい数十センチ程度になります。

書込めるメモリの容量もタグによってさまざまで、

数十～数千バイトになります。

パッシブタイプは、電池内蔵されていないことから

自身で電波を発することができないので、基本的には

RFIDリーダからのエネルギーで動作をします。

寿命も一般的には、半永久的といわれています。

アクティブタイプ

パッシブタイプとは違って、電池が内蔵されており、自身で電波を発することができます。

読み取れる距離も長く、数10メートル以上で可能です。

自動車のキーやスポーツ分野での活用がされています。

スポーツ分野だと、マラソンやタイムを計るときの機器として活用されるケースがあります。

最近では落とし物防止用のキーホルダに内蔵されていることもありますね。

これを落としたくないモノに付けておいて、いざなくなったときでも

キーホルダの場所を検索することでどこにあるかすぐにわかりますね。

画像のようなモノになります。スマートタグって言われていますね。

寿命はパッシブタイプと違って、電池が内蔵されていることから

数年程度と言えます、使用頻度によって変わってくるでしょう。

セミアクティブタイプ

こちらはパッシブタイプとアクティブタイプの特徴を併せ持ったタグに分類されます。

パッシブタイプより、読み取れる距離が長い

アクティブタイプより、電池の消耗が少ない

といった特徴があり、両者の欠点を補ってくれるようなのがセミアクティブになりますね。

良い点を集めたRFIDですね。

使用例としては、スポーツに関する事例が多く

• レースのタイム計測(スポーツ競技判定) 自転車やマラソン、駅伝

スポーツ分野で目覚ましい活躍をされているようです。

今回使用したRFID

以下の組み合わせのモノを使用しています。

No	機器名	メーカ名	備考	画像
1	V680S(RFIDリーダ)	Omron	EtherNetタイプ
2	V680S-D2KF67M(IDタグ)	Omron	メモリ容量:2000バイト 質量：12g 形状：40×40×5(mm) アクセス回数：1兆回

接続構成

以下のような構成になります。

RFIDとの接続

VB.Netで接続するには、System.Net.Socketsクラスを使います。

ネットワークへのアクセスを厳密に制御する必要のある開発者のための、Windows ソケット (Winsock) インターフェイスのマネージド実装が用意されています。

System.Net.Sockets 名前空間

といったのがサポートされているクラスになります。

使うには、まず変数として宣言をしておきます。

この二つを最初に宣言します。

TcpClientは、TCPネットワークサービス用のクライアント接続が提供されています。

インターネットにおいて標準的に利用されているプロトコルです。

インターネットで使われているものだと認識してもらえればと思います。

ソケットを作成

変数の宣言をしたら、ソケットを生成します。

以下の記述で生成ができます。(インスタンスの生成ともいいます。)

接続先の情報も変数として準備しておきます。

TCP接続

ソケットを生成し、接続する機器のパラメータ準備もできたので

実際に機器に対して、以下の記述で接続を試みます。

NetworkStreamも取得しておきます。

通信が確立した後のデータのやり取りで使います。

Connectを実行し、特に例外が発生していなければ通信ができています。

気になるようであれば、以下を実行し接続状態を取得します。

• Trueなら接続されている
• Falseなら接続されていない

#Region "変数宣言"
    Private mSoc As System.Net.Sockets.TcpClient
    Private mStm As System.Net.Sockets.NetworkStream
#End Region

#Region "メイン処理"
Private Sub main() 

    ' ソケット生成
    mSoc = New System.Net.Sockets.TcpClient

    ' パラメータ設定
    Dim ipOrHost As String = "192.168.1.200"
    Dim port As String = 502

    ' TCP/IP 接続
    mSoc.Connect(ipOrHost, port)
    mStm = mSoc.GetStream()

    ' 接続状態を確認
    If mSoc.Connected Then
        MessageBos.Show("接続成功")
    End If

End Sub
#End Region

まとめ

RFIDとは何かから触れ、実際にRFIDリーダとVB.Netで

接続してみるところまでを紹介していきました。

接続に関しては、Socketクラスを使えば意外にもあっさりとできてしまいます。

接続の仕方で悩まれている方の参考になれば嬉しいです。

次回以降で、読み込みや書き込みについても紹介できたらと思います。

最後までお読みいただき、ありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/07 19:06時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/07 19:06時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/07 19:06時点)

楽天ブックス

今回は、除算エラーの中でも0除算エラーについてさらっと紹介していきます。

プログラムを組んでいて、数字を取り扱うエラーは多くあります。

その中でもまずは簡単に、0除算に関して、エラーのキャッチの仕方、

エラーが出てもアプリケーションの処理を止めない方法を簡単に伝授します。

ちなみに前回はこちら、

【VB.Net】TableLayoutPanelに動的に配置したコントロールのイベントの呼び出し方

動的にコントロールの追加はできたけど、どうやったらイベントを呼び出すことができるの？またどうやって使ったらいいの？と悩まれていませんか？今回は、TableLayoutPanel上に動的に配置したコントロールのイベントを呼び出す方法について紹介します。

dreamparadaisu.com

2021-09-19 07:46

0除算エラー

数値を除算する際に0で除算した時に発生するエラーのことを指します。

例)

10 / 0 = ?

この時にエラーが発生します。

※プログラムやExcelで行おうとしたときに発生します。

学生時代に算数で習ったときには、おそらく

10/ 0 の答えは、0であると習ったのではないでしょうか？

これに関しては、一昔前に9 ÷ 0 = 0というキーワードで

ネット上で議論が巻き起こっていたみたいです。

気になる方は、こちら

結論からいうと、 10 / 0 = 0ではなく、計算ができないというのが、

一応の正解となるそうです。

これに関しては、個人が何が正しいのかを取捨する必要があると思いますので、

個人がそれぞれの正解を頭の片隅に思っておけば、良いと思います。

さて、話は脱線しましたが、

プログラムでは、10 / 0 の答えは除算エラーになります。

エラーをつかむ

実際に除算エラーを起こしてみると、コードでは下のようになります。

Dim a As Integer = 10
Dim b As Integer = 0
Dim result As Double

result = a / 0
Console.WriteLine(result)

実行してみると……

あれ？

お気づきになられたでしょうか？

エラーが出ずに、すんなりと通ってしまいました。

実際にresultに代入された答えを確認してみると……

Infinity……インフィニティ

つまり∞という結果になってしまいます。

エラーにならないじゃん?!

これに関して、調べてみました。

VB.Netで0除算エラーを起こすには？

結論から言うと、エラーを起こすには、Integer型で分子と分母を宣言するのではなく、

Decimal型で分子と分母を宣言する必要があるみたいです。

気を取り直して、調べた結果を参考にコードを書いてみます。

Dim a As Decimal = 10
Dim b As Decimal = 0 
Dim result As Double 

result = a / 0 
Console.WriteLine(result)

これを実行すると、

エラーが発生しました。

内容としては、

というエラーが出て、0除算エラーが起きたのが確認できました。

このままではここで処理が止まってしまい、これ以降

何もできなくなってしまいます。

これをエラーをキャッチして、回避する方法を以降で触れていきます。

エラーをキャッチする

エラーの内容をキャッチするには、

Try~Catch~End Tryという例外処理の書き方をコード上に組み込みます。

書き方としては以下のようになります。

Try
    ' エラーが起きる処理をここに書く

Catch ex As エラーの種類を書く
    ' エラーが起きた後の処理を書く
End Try

Tryブロックでは、エラーが起きる処理を書きます。

Catchブロックでは、エラーが起きた後の処理を書きます。

この際に、Catch ex As エラーの種類の種類には、

Tryブロックの処理で起きうるであろうエラーの種類を書きます。

エラーの種類がわからなければ、

という風に書きます。

0除算エラーの場合

と書くことで、0除算エラーのみをキャッチすることができます。

ただし、他のエラーの場合はキャッチすることができないので、

他のエラーをキャッチしたい場合は、Catchブロックを更に作ります。

例えば、下のように

Try 
    ' エラーが起きる処理をここに書く 
Catch ex As エラー①
    ' エラー①が起きた後の処理を書く 
Catch ex As エラー②
　　' エラー②が起きた後の処理を書く
End Try

と、このような感じでエラーをキャッチして、エラー毎に何をさせたいか

後は処理を書いてあげれば、アプリケーションを途中で止めずに

処理を継続させることができます。

まとめ

0除算エラーをきっかけにエラーのキャッチの仕方を紹介していきました。

エラーをキャッチすることで、エラー毎に行わせたい処理を

書けるので活用してみてください。

エラーをキャッチするには

これさえ覚えておけば、エラー(例外)に関する処理を組むことができます。

プログラミングを学んでみたいなら、こちら

全国50都市で開催したプログラミング講座がオンライン・無料開催【テックジム】

最後までお読みいただき、ありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/07 19:06時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/07 19:06時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/07 19:06時点)

楽天ブックス

今回は、動的に配置したコントロールのイベントの呼び出し方

(ボタンを押した時にイベントを発生させるにはどうしたらいいか？)

について、紹介していきます。

前回、TableLayoutPanel上に動的にコントロールを配置することはできたので、

今回はこれの続きとして、記事を書いていきます。

前回の記事がこちらになります。

【VB.Net】TableLayoutPanelを配置して、動的に画面をカスタマイズしてみた

アプリケーション実行時に画面をカスタマイズしたくなるときはありませんか？WindowsフォームアプリケーションのフォームにTableLayoutPanelを配置した状態からTableLayoutPanel内に動的にコントロールを追加する方法を紹介しています。

dreamparadaisu.com

2021-08-22 16:52

TableLayoutPanel

以前にTableLayoutPanelについては下記の記事で紹介をしていました。

その時はTableLayoutPanelの使い方どまりでした。

【VB.Net】TableLayoutPanelの使い方～画面レイアウトを工夫してみた～

Windowsフォームアプリケーションの画面レイアウトでコンポーネントの配置が整わない、綺麗に配置できないといった悩みはありませんか？そんな時に使える、TableLayoutPanelについて例を交えて紹介しています。初学者の参考になれば。

dreamparadaisu.com

2020-11-22 18:50

フォーム画面の作成

まず、最初に以下のフォーム画面を作成します。(※前回の記事で作成しています。)

このフォームを使って、TableLayoutPanelのレイアウトなどを

動的に変更していきたいと思います。

コントロールの配置については下記の表になります。

実行環境

筆者の実行環境は、

• VisualStudio2019
• Windows 10 64bit
• .Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

TableLayoutPanelの設定

今回は、以下の設定をTableLayoutPanelに行います。

' 列と行を5個追加
Dim colAndRowNum As Integer = 5
Me.tlpMain.RowCount = colAndRowNum
Me.tlpMain.ColumnCount = colAndRowNum

' 追加した行や列がわかりやすいように境界線のスタイルを設定
Me.tlpMain.BorderStyle = BorderStyle.FixedSingle
Me.tlpMain.CellBorderStyle = TableLayoutPanelCellBorderStyle.Inset

' 追加した列と行のサイズを変更
Me.tlpMain.ColumnStyles.Insert(0, New ColumnStyle(SizeType.AutoSize))
For col As Integer = 1 To Me.tlpMain.ColumnCount - 1
    Me.tlpMain.ColumnStyles.Insert(col, New ColumnStyle(SizeType.Percent, 50))
Next col
Me.tlpMain.ColumnStyles.Insert(Me.tlpMain.ColumnCount, New ColumnStyle(SizeType.AutoSize))

Me.tlpMain.RowStyles.Insert(0, New RowStyle(SizeType.AutoSize))
For row As Integer = 1 To Me.tlpMain.RowCount - 1
    Me.tlpMain.RowStyles.Insert(row, New RowStyle(SizeType.Percent, 50))
Next row
Me.tlpMain.RowStyles.Insert(Me.tlpMain.RowCount, New RowStyle(SizeType.AutoSize))

' TableLayoutPanelをフォームにドッキングする。
Me.tlpMain.Dock = DockStyle.Fill
Me.tlpMain.SetColumnSpan(btnTest, 2)

TableLayoutPanelに動的にコントロールを追加

TableLayoutPanelにコントロールを追加するには、下記の記述で出来ました。

' ボタンの設定
btnTest.Text = "押してください。"
btnTest.Font = New Font("メイリオ", 26)
btnTest.Dock = DockStyle.Fill
btnTest.TextAlign = ContentAlignment.MiddleCenter
Me.tlpMain.Controls.Add(btnTest, 2, 2)

この状態で実行すると、下図の表示になります。

ボタンコントロールをイベント変数として宣言

前回はTableLayoutPanelにコントロールを追加する際は、

関数内にDim コントロール As ***として宣言をしていましたが、

イベントを発生させたい場合は、

関数外のクラス内でグローバル変数として宣言する必要があります。

その際の記述として、以下のようにします。

ボタンコントロールのイベントを発生させる

イベントを発生させるには、例えばボタンの場合は、押した時に動作させたいのであれば

Button.Click()イベントを関数として作成します。

作成方法は以下のようになります。

この方法は静的に配置したコントロールをダブルクリックした際に、

自動生成されるイベントと同じになります。

''' <summary>
    ''' ボタン押下時発動イベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
        ' 押されたときにさせたい処理を追加
    End Sub

今回は、押されたときに以下の処理を追加してみました。

''' <summary>
    ''' ボタン押下時発動イベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
        MessageBox.Show("Hello")
    End Sub

実際に実行し、ボタンを押してみると下図のようになります。

このように、動的に配置したコントロールのイベントを発生させることができました。

ボタン以外にもテキストボックスやコンボボックスでも同様の記述で行えます。

参考にアレンジしてみてはいかがでしょうか？

お疲れ様でした。

まとめ

TableLayoutPanelに動的に追加したコントロールの

イベントの呼び出し方(発生させる方法)について紹介していきました。

例えば、何らかの処理で画面が変更される際に動的な手法は使えます。

何かの商品のカテゴリを選択する際の分岐として画面を変更する際にも動的手法は使えます。

初学者、悩まれている方の参考に少しでもなれば嬉しいです。

最後までお読みいただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/07 19:06時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/07 19:06時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/07 19:06時点)

楽天ブックス

今回は、Windowsフォームアプリケーションのフォーム画面に

既に配置されたTableLayoutPanelの中に動的にコントロールを

追加し、画面をカスタマイズしていく方法を紹介していきます。

あらかじめコントロールを配置するのではなく、プログラムの条件によって

画面を変更するアプリケーションが作れるようになります。

ちなみに前回の記事はこちら

【VB.Net】好きな場所にフォルダを作成するWindowsフォームアプリを作る

Windowsフォームアプリケーションで好きな場所にフォルダを作成するアプリを簡単に作成してみたので紹介しています。VB.Netでフォルダ操作をする際の参考になれば嬉しいです。小さなことからコツコツと始めてみます。

dreamparadaisu.com

2021-08-12 04:31

TableLayoutPanel

以前にTableLayoutPanelについては下記の記事で紹介をしていました。

その時はTableLayoutPanelの使い方どまりでした。

【VB.Net】TableLayoutPanelの使い方～画面レイアウトを工夫してみた～

Windowsフォームアプリケーションの画面レイアウトでコンポーネントの配置が整わない、綺麗に配置できないといった悩みはありませんか？そんな時に使える、TableLayoutPanelについて例を交えて紹介しています。初学者の参考になれば。

dreamparadaisu.com

2020-11-22 18:50

今回はステップアップしたTableLayoutPanelの使い方になります。

フォーム画面の作成

まず、最初に以下のフォーム画面を作成します。

このフォームを使って、TableLayoutPanelのレイアウトなどを

動的に変更していきたいと思います。

コントロールの配置については下記の表になります。

実行環境

筆者の実行環境は、

• VisualStudio2019
• Windows 10 64bit
• .Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

TableLayoutPanelの列と行を動的に追加

追加したTableLayoutPanelに動的に列や行を追加するには、下記のコードで行います。

列を追加する場合

行を追加する場合

これを使って、試しに5個の列と行を追加していきます。

' 列と行を5個追加
Dim colAndRowNum As Integer = 5
Me.tlpMain.RowCount = colAndRowNum
Me.tlpMain.ColumnCount = colAndRowNum

これを実行すると、

うーん、よくわかりませんね、追加できたかどうか。。。

これをわかりやすくするために、境界線の設定を行っていきます。

こちらも動的に行っていきます。

境界線の設定

境界線の設定には2種類あり、

• TableLayoutPanelの境界線
• TableLayoutPanelの各部屋(セル)の境界線

の設定の2種類があります。

(これが主に使うであろう境界線の設定になります。)

それぞれ

TableLayoutPanelの境界線

設定したい境界線には3種類あります。

• BorderStyle.None  ‘ 境界線なし
• BorderStyle.FixedSingle  ‘ 1重線の境界線
• BorderStyle.Fixed3D  ‘ 3Dの境界線

デフォルトだと、Noneが割り当てられています。

TableLayoutPanelの各部屋(セル)の境界線

設定したい境界線には、7種類あります。

• TableLayoutPanelCellBorderStyle.None ‘ 境界線無し
• TableLayoutPanelCellBorderStyle.Single ‘ 1重線の境界線
• TableLayoutPanelCellBorderStyle.Inset ‘ 1重線のくぼんだ境界線
• TableLayoutPanelCellBorderStyle.InsetDouble  ‘ 2重線のくぼんだ境界線
• TableLayoutPanelCellBorderStyle.Outset ‘ 1重線の浮出した境界線
• TableLayoutPanelCellBorderStyle.OutsetDouble ‘ 2重線の浮出した境界線
• TableLayoutPanelCellBorderStyle.OutsetPartial ‘ 浮出した部分を含む1重線の境界線

先ほど追加した列と行数に対して、下記のように設定します。

' 追加した行や列がわかりやすいように境界線のスタイルを設定
Me.tlpMain.BorderStyle = BorderStyle.FixedSingle
Me.tlpMain.CellBorderStyle = TableLayoutPanelCellBorderStyle.Inset

今回は、TableLayoutPanelのBorderStyleには1重線の境界線

TableLayoutPanelの各部屋の境界線には1重線のくぼんだ境界線を設定しています。

これを実行すると、

わかりやすくはなりましたが、各部屋のサイズが微妙ですね。

TableLayoutPanelの各部屋のサイズの設定

各部屋のサイズが微妙なので、こちらも動的に設定してみます。

サイズを設定するには、行と列にそれぞれ行う必要があります。

列の場合

行の場合

• SizeType.AutoSize  ‘ 他の行や列と猟奇を共有するように自動的に設定
• SizeType.Absolute  ‘ 行または列のサイズは、正確なピクセル数に設定
• SizeType.Percent  ‘ 行または列のサイズは、親コンテナのパーセントとして設定

サイズモードの設定によって、サイズの指定などがオプションとして付加できたりします。

例えば、SizeType.Percentにすると、

New RowStyle(SizeType.Percent, width)となります。

widthにサイズを指定することができます。

ここでは下記のようにコードを書いてみます。

' 追加した列と行のサイズを変更
For col As Integer = 0 To Me.tlpMain.ColumnCount
    Me.tlpMain.ColumnStyles.Insert(col, New ColumnStyle(SizeType.Percent, 50))
Next col

For row As Integer = 0 To Me.tlpMain.RowCount
    Me.tlpMain.RowStyles.Insert(row, New RowStyle(SizeType.Percent, 50))
Next row

それぞれ列と行ごとにサイズの設定をしています。

これを実行すると、

綺麗になりました。

ちゃんと5行5列に区切ることができています。

これを全体に表示するには、Dockプロパティを設定します。

こちらも動的に行っていきます。

フォームへドッキング

Dockプロパティを設定するには、

ドッキングモードには、6種類あります。

• None  ‘ なし
• Top  ‘ 格納する側のコントロールの上端にドッキング
• Bottom  ‘ 格納する側のコントロールの下端にドッキング
• Left  ‘ 格納する側のコントロールの左端にドッキング
• Right  ‘ 格納する側のコントロールの右端にドッキング
• Fill  ‘ 格納する側のコントロールの四辺にドッキング且つ適切なサイズに自動調整

今回はFillにして、フォーム全体にドッキングし、適切なサイズに自動で調整をさせます。

' TableLayoutPanelをフォームにドッキングする。
Me.tlpMain.Dock = DockStyle.Fill

これを実行すると、

見やすくなりました。

それでは、ここからいよいよコントロールを動的に追加していきます。

TableLayoutPanelに動的にコントロールを追加

よく使うであろうコントロールをここでは動的に追加していく方法を紹介します。

TableLayoutPanelにコントロールを追加するには、

ラベル(Label)

ラベルを追加するには、

とし、

となります。

例として、2列目の1行目にボタンを追加します。

わかりやすいように、作成したラベルには”こんにちは”と表示させています。

' ラベルを2列目の1行目に配置
Dim lblControl As New Label
lblControl.Text = "こんにちは"
Me.tlpMain.Controls.Add(lblControl, 1, 0)

ここで行番号と列番号の始まりは1からではなく、0からになるので注意が必要です。

これを実行すると、

追加することができました。

ボタン(Button)

ボタンを追加するには、

として、インスタンス化しておく必要があります。

これも例として、

2列目の2行目に追加してみます。

わかりやすいようにテキストには”押してみて”と表示させてみます。

' ボタンを2列目の2行目にを配置
Dim btnControl As New Button
btnControl.Text = "押してみて"
Me.tlpMain.Controls.Add(btnControl, 1, 1)

実行すると

テキストボックス(TextBox)

テキストボックスを追加するには、

例として、

3列目の1行目に追加してみます。

' テキストボックスを3列目の1行目に配置
Dim tbxControl As New TextBox
Me.tlpMain.Controls.Add(tbxControl, 2, 0)

これを実行すると、

チェックボックス(CheckBox)

チェックボックスを追加するには、

例として、

3列目の4行目に追加してみます。

' チェックボックスを3列目の4行目に配置
Dim cbxControl As New CheckBox
cbxControl.Text = "チェックしてみて"
Me.tlpMain.Controls.Add(cbxControl, 2, 3)

これを実行すると、

ラジオボタン(RadioButton)

ラジオボタンを追加するには、

例として、

4列目の4行目に追加してみます。

' ラジオボタンを4列目の4行目に配置
Dim rbtControl As New RadioButton
rbtControl.Text = "Apple"
Me.tlpMain.Controls.Add(rbtControl, 3, 3)

これを実行すると、

このようにして各種コントロールを動的に追加することもできます。

動的に追加したコントロールでイベントを発生させて処理を行いたい場合については、

次回以降の記事で触れていこうと思います。

まとめ

TableLayoutPanelに動的にコントロールを追加する方法について紹介しました。

プログラム実行中に画面をカスタマイズしたい、そんなときにおススメです。

最後までお読みいただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

金城俊哉

3,300円(04/07 19:06時点)

楽天ブックス

作って覚える Visual Basic 2019 デスクトップアプリ入門

荻原 裕之, 宮崎 昭世

2,860円(04/07 19:06時点)

楽天ブックス

かんたんVisual　Basic改訂2版

高橋広樹

2,904円(04/07 19:06時点)

楽天ブックス

今回は、自身のパソコンの好きな場所にフォルダを作成する

Windowsフォームアプリを作ってみます。

夏休みのちょっとした学習に読者の方も作っていただけたらと思います。

ちなみに前回の記事はこちら

【VB.Net】バッチファイルに引数渡して起動させてみた～やればできる～

VB.NetのWIndowsフォームアプリケーションから外部ファイルとしてバッチファイルに引数を渡して呼び出し実行をさせてみたので紹介します。外部ファイルを使えるようにすることで開発の幅も広がります。やればできるを糧に日々成長をしていく記事作成を心がけています。悩まれている方の参考になれば嬉しいです。

dreamparadaisu.com

2021-07-17 08:30

準備編

VisualStudio2019を使って、Windowsフォームアプリケーションを作成していきます。

最初の手順については、下記記事をご参照ください。

フォームの作成

以下のようなフォームを作成します。

①～③のコントロールについては以下の表のとおりです。

各コントロールのフォントは、メイリオの18ptを設定しています。

実行環境

筆者の実行環境は、

• VisualStudio2019
• Windows 10 64bit
• .Net Framework 4.5.1

になります。

※　Windows7 8 8.1でも動作はできますが、画面デザインの表示が変わるかもしれません。

アプリケーションの目的

TextBox1に絶対パスで好きな場所に作成したいフォルダ名を入力します。

Button1を押すことで、TextBox1に入力されたフォルダが作成できることを目的とします。

動作

動作としては、

• Button1を押すことで、TextBox1に入力されたフォルダを作成。

これらができることとします。

プログラム編

フォルダの作成

フォルダの作成には、System.IO.Directoryクラスの

CreateDirectoryメソッドを使用します。

使い方は以下にようになります。

※絶対パスを指定しないと、カレントフォルダ上へフォルダが作成されます。

カレントフォルダとは、現在作業しているフォルダを指します。

フォルダ作成の前に……

フォルダの作成の前に、TextBox1に入力値があるかどうか、チェックをさせます。

これは、以下の方法で行います。

if Me.TextBox1.Text <> "" Then
    ' 処理
End If

If文を使って、条件によって処理を分岐させています。

今回は、TextBox1に入力値がある場合、処理が実行されるようにします。

※ は否定を表す比較演算子になります。

処理の中に、フォルダ作成のコードを記述していきます。

※フォルダ作成のコードは先ほどのを使います。

下記のようになります。

'  テキストボックスが空白ならフォルダの作成をしない。
If Me.TextBox1.Text <> "" Then
    ' フォルダの作成
    System.IO.Directory.CreateDirectory(Me.TextBox1.Text)
End If

最終的なコード

最終的には、ボタンが押されてからフォルダの作成をしたいので、

ボタンイベントの中でフォルダ作成のコードが処理できるようにします。

ボタンイベントは、

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    ' 処理

End Sub

で表されます。

ちなみにフォームデザイン上でボタンをダブルクリックすると自動でコード生成がされます。

ボタンイベントの中に、フォルダ作成のコードを書くと以下のようになります。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '  テキストボックスが空白ならフォルダの作成をしない。
        If Me.TextBox1.Text <> "" Then
            ' フォルダの作成
            System.IO.Directory.CreateDirectory(Me.TextBox1.Text)
        End If
    End Sub

これが最終的なコードになります。

後は細かくコメントなどを残すと、以下のようになります。

Public Class testDirectory

    ''' <summary>
    ''' フォルダを作成するボタンを押したら
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '  テキストボックスが空白ならフォルダの作成をしない。
        If Me.TextBox1.Text <> "" Then
            ' フォルダの作成
            System.IO.Directory.CreateDirectory(Me.TextBox1.Text)
        End If
    End Sub

End Class

まとめ

VB.Netでフォルダを作成する方法とこれを使った、

Windowsアプリケーションの作成を例に紹介していきました。

フォルダ操作はWindowsを使われるユーザですと、

mkdirなどのコマンドで行われる場合が多いかもしれませんが、

VB.Netでも簡単に作ることができます。

今回の例は、アプリケーションを作る際に自動でフォルダ生成する必要が出てきた際に

必要になってくるかと思います。

皆様の参考になれば嬉しいです。

まずは手を動かすことから始めてみましょう。

最後までお読みいただきありがとうございます。

今回は、前回の記事につづきバッチファイルをVB.Netから呼び出す過程で、

バッチファイルに引数を渡す方法について紹介します。

前回の記事はこちら

【VB.Net】バッチファイルをVBで起動させてみた～やればできる～

VB.Netから外部ファイル、今回はバッチファイルの起動をしてみたので簡単に紹介しています。VB.Netでは処理できないことをバッチファイルで肩代わりさせたい、そんな時に使える方法です。1つの言語でやろうとせず、他の言語が得意なことは他の言語にやらせて効率よく開発をしていきましょう。

dreamparadaisu.com

2021-07-16 13:51

バッチファイルに引数を渡して呼び出し実行

ProcessStartInfoクラスの設定

引数を渡すには、まずProcessStartInfoクラスのインスタンス化を行い

オブジェクトを生成します。

例) 変数testInfoをProcessStartInfoクラスで宣言

Dim testInfo As New ProcessStartInfo()

引数を渡す設定

ProcessStartInfoクラスのArgumentsプロパティを使って引数を渡す設定をします。

例) バッチファイルに引数として”Tom”を渡したい場合

testInfo.Arguments = “Tom”

とすることで、引数を渡す設定ができます。

複数の引数を渡したい場合は、半角スペースで引数として渡す値を区切ることで

複数の引数を渡せます。

例) バッチファイルに引数として”ベーコン”と”リンゴ”を渡したい場合

testInfo.Arguments = “ベーコン リンゴ”

バッチファイルを呼び出す

今回呼び出すバッチには、こちらの記事で作成したバッチを使用します。

【バッチファイル】Windows環境で実行時に引数を渡す方法～引数の受け渡し方～

Windows環境でバッチファイルを実行する際に、引数を渡したいときはありませんか？そんな時に役立つ方法、引数を渡す方法を紹介しています。意外とつまづきポイントなのでメモとしても残してます。

dreamparadaisu.com

2021-05-26 07:50

→　TestArgBat.bat

実行するファイルを設定します。

testInfo.FileName = “C:\TestArgBat.bat”

最後に上記で設定したtestInfoをProcess.Start()に渡してあげることで、

呼び出したいバッチファイルに引数を渡して実行することができます。

実例

こちらの記事で作成したフォームを流用します。

【VB.Net】バッチファイルをVBで起動させてみた～やればできる～

VB.Netから外部ファイル、今回はバッチファイルの起動をしてみたので簡単に紹介しています。VB.Netでは処理できないことをバッチファイルで肩代わりさせたい、そんな時に使える方法です。1つの言語でやろうとせず、他の言語が得意なことは他の言語にやらせて効率よく開発をしていきましょう。

dreamparadaisu.com

2021-07-16 13:51

ボタンが押されたらバッチファイルを実行できるようにします。

まずは、引数を渡さないでバッチファイルを呼び出してみます。

Public Class frmBat

    ''' <summary>
    ''' ボタンが押されたら
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim testInfo As ProcessStartInfo = New ProcessStartInfo()
        testInfo.FileName = "C:\Users\ryoku\Desktop\StudyBat\TestArgBat.bat"

        System.Diagnostics.Process.Start(testInfo)
    End Sub

End Class

これを実行すると、

ボタンが押されたらバッチが起動し、上図のような状態になります。

では、引数を渡して実行してみます。

Public Class frmBat

    ''' <summary>
    ''' ボタンが押されたら
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim testInfo As ProcessStartInfo = New ProcessStartInfo()
        testInfo.FileName = "C:\Users\ryoku\Desktop\StudyBat\TestArgBat.bat"
        testInfo.Arguments = "ベーコン リンゴ"

        System.Diagnostics.Process.Start(testInfo)
    End Sub

End Class

実行すると、

引数として設定した項目が、それぞれ表示されていることがわかります。

外部ファイルに引数を渡せることができれば、

何らかの処理途中に外部ファイルの呼び出しを行い

処理の肩代わりもさせられたりできるので使い道はありそうです。

まとめ

VB.Netから外部ファイルとしてバッチファイルに引数を渡して呼び出す方法を紹介しました。

実際に、VB.Netでできない処理を外部ファイル上でさせたいときに、

どうしても引数を渡す必要があったので今回活用してみました。

参考になれば嬉しいです。

最後までお読みいただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

今回は、VB.Netから外部ファイルとしてバッチファイルを

起動させる方法を紹介していきます。

VB.Netでは全てを賄うことはできないことが多々あるため、

どうせなら別のプログラミング言語で処理ファイルを作成し、

そいつらに肩代わりさせようと思ったのがきっかけです。

ちなみに前回の記事はこちら

【VB.Net】Excelの拡張子を.xlsから.xlsxに変換してみた

Excelの拡張子にはバージョンによっては、.xlsや.xlsxであったりと様々な形式があります。手動で操作をしている分にはエラーもなく問題はありませんが、プログラムに処理をさせる時は、拡張子によってうまくいかない、そんなことがあるかと思います。ここでは拡張子を変換し処理しやすい形に変える方法を紹介していきます。

dreamparadaisu.com

2021-07-10 03:48

バッチファイルの実行方法

VB.Netから外部ファイルを呼び出すには、

System.Diagnostics.ProcessStartInfoクラスを使用します。

このクラスを使うと、引数やコンソールウィンドウの表示に関する設定も

わかりやすいので便利です。

使い方

使うには、変数を用意しインスタンスを生成します。

とします。

※本来は、System.Diagnosticsの部分は、インポートで宣言するので省略できますが、

わかりやすいように書いています。

例) 変数名testInfoをProcessStartInfoでインスタンスを生成します。

Dim testInfo As New System.Diagnostics.ProcessStartInfo()

作成した変数の設定をカスタマイズ

バッチファイルの設定

起動したいバッチファイルを設定するには

ProcessStartInfo.FileNameを設定します。

※インスタンス化してある必要があります。

例)先ほど作成した変数testInfoに起動したいバッチファイルを渡す。

testInfo.FileName = “C:\test.bat”

コンソールウィンドウを開かないようにするには

※プログラム実行中に呼び出したバッチファイルの画面が表示されないようにする設定

と設定することでコンソールウィンドウを開かずに、

バッチファイルの呼び出し実行が可能になります。

例) 変数testInfoをコンソールウィンドウが開かないようにする。

testInfo.CreateNoWindow = True

testInfo.UseShellExecute = False

バッチファイルを呼び出す

外部からバッチファイルを呼び出すには、最後に

実例

実際に簡単にフォームを作って試してみます。

※こんなのを作ってみました。

ボタンが押されたら、バッチファイルが起動されるといったフォームになります。

今回、呼び出したいバッチファイルは下記の記事で作成したバッチを使います。

【Windowsコマンド】はじめてのバッチ～バッチファイルの作り方紹介～

Windowsコマンドとは何か？バッチとは何か？簡単なさわりの部分を紹介し、実際にバッチファイルの簡単な作り方を書いています。Windowsコマンドを使えるようになることで今までの作業の自動化や効率化に結び付けることができたらなと思っています。

dreamparadaisu.com

2021-05-17 23:50

このバッチは、単に”Hello World”と出力するファイルになります。

ボタンが押されたら実行するコードは下記になります。

Public Class frmBat

    ''' <summary>
    ''' ボタンが押されたら
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim testInfo As ProcessStartInfo = New ProcessStartInfo()
        testInfo.FileName = "C:\test.bat"
        'testInfo.CreateNoWindow = True
        'testInfo.UseShellExecute = False

        System.Diagnostics.Process.Start(testInfo)
    End Sub

End Class

※実行画面を表示したいので、コンソールウィンドウの設定はコメントアウトしています。

実行画面

プログラム起動時

ボタン押下後(test.bat呼び出し時)

ボタンを押すと、バッチファイルを呼び出せることが確認できます。

まとめ

VB.Netから外部ファイルとして、バッチファイルを呼び出す方法を紹介しました。

この方法はバッチファイル以外でも活用できるので、ぜひ使ってみてください。

最後までお読みいただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。