質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

WPF

Windows Presentation Foundation (WPF) は、魅力的な外観のユーザー エクスペリエンスを持つ Windows クライアント アプリケーションを作成するための次世代プレゼンテーション システムです

受付中

[wpf][vb.net] シリアルポートからデータの送受信

input
input

総合スコア3

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

WPF

Windows Presentation Foundation (WPF) は、魅力的な外観のユーザー エクスペリエンスを持つ Windows クライアント アプリケーションを作成するための次世代プレゼンテーション システムです

1回答

-1評価

0クリップ

569閲覧

投稿2022/03/16 23:35

VisualStudo2019
WPFアプリ(.NET Framework4.7.2)VisualBasicにて開発を行っております。

RS-232C シリアルポート(COM)において仮想COMを使用し、テスト通信したいです。
https://kana-soft.com/tech/sample_0008.htm
を参考にVBクラスを追加し、
Imports System.IO.Portsを冒頭に記述しております。

フォームにSerialPortコントロールを設置し、各種Button、TEXTBOX、comboboxを設置しました。
以下コードです。

Imports System.IO.Ports
Public Class SerialPort

''' <summary>     ''' シリアルポートクラス     ''' </summary>     ''' <remarks></remarks> Private SerialPort As SerialPort '****************************************************************************' '* '* @brief ダイアログの初期処理. '* '* @param [in] sender イベントの送信元のオブジェクト. '* @param [in] e イベント情報. '* '* @retval なし. '* Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '利用可能なシリアルポート名の配列を取得する. Dim PortList As String() PortList = SerialPort.GetPortNames() cmbPortName.Items.Clear() 'シリアルポート名をコンボボックスにセットする. Dim PortName As String For Each PortName In PortList cmbPortName.Items.Add(PortName) Next PortName If cmbPortName.Items.Count > 0 Then cmbPortName.SelectedIndex = 0 End If cmbBaudRate.Items.Clear() 'ボーレート選択コンボボックスに選択項目をセットする. Dim baud As BuadRateItem baud = New BuadRateItem baud.NAME = "4800bps" baud.BAUDRATE = 4800 cmbBaudRate.Items.Add(baud) baud = New BuadRateItem baud.NAME = "9600bps" baud.BAUDRATE = 9600 cmbBaudRate.Items.Add(baud) baud = New BuadRateItem baud.NAME = "19200bps" baud.BAUDRATE = 19200 cmbBaudRate.Items.Add(baud) baud = New BuadRateItem baud.NAME = "115200bps" baud.BAUDRATE = 115200 cmbBaudRate.Items.Add(baud) cmbBaudRate.SelectedIndex = 1 cmbHandShake.Items.Clear() 'フロー制御選択コンボボックスに選択項目をセットする. Dim ctrl As HandShakeItem ctrl = New HandShakeItem ctrl.NAME = "なし" ctrl.HANDSHAKE = Handshake.None cmbHandShake.Items.Add(ctrl) ctrl = New HandShakeItem ctrl.NAME = "XON/XOFF制御" ctrl.HANDSHAKE = Handshake.XOnXOff cmbHandShake.Items.Add(ctrl) ctrl = New HandShakeItem ctrl.NAME = "RTS/CTS制御" ctrl.HANDSHAKE = Handshake.RequestToSend cmbHandShake.Items.Add(ctrl) ctrl = New HandShakeItem ctrl.NAME = "XON/XOFF + RTS/CTS制御" ctrl.HANDSHAKE = Handshake.RequestToSendXOnXOff cmbHandShake.Items.Add(ctrl) cmbHandShake.SelectedIndex = 0 '送受信用のテキストボックスをクリアする. SndTextBox.Clear() RcvTextBox.Clear() End Sub

End Class

PortList = SerialPort.GetPortNames()で 'SerialPort' のメンバーではありません。
のエラーがでます。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14122152809を参照し、オブジェクトブラウザについて調べたのですが解決方法がわかりませんでした。

また
Dim baud As BuadRateItem
baud = New BuadRateItem


Dim ctrl As HandShakeItem
ctrl = New HandShakeItem
型 'BuadRateItem' は定義されていません。
のようなエラーがでます。

https://masagoroku.com/%E3%80%90vb-net%E3%80%91%E3%82%B3%E3%83%B3%E3%83%9C%E3%83%9C%E3%83%83%E3%82%AF%E3%82%B9%E3%81%A7%E9%81%B8%E6%8A%9E%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%82%8B%E9%A0%85%E7%9B%AE%E3%82%92%E5%8F%96

を参照しDim BuadRateItem As STRINGなどで定義すればいいのかと思いましたが、ダメでした。
初心者で勉強不足なのは承知しております。
お忙しいところ大変恐縮ではありますが、どなたかお助けいただけませんでしょうか。
できれば初心者でもわかるようにご教授いただければ幸いです。

よろしくお願いいたします。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

WPF

Windows Presentation Foundation (WPF) は、魅力的な外観のユーザー エクスペリエンスを持つ Windows クライアント アプリケーションを作成するための次世代プレゼンテーション システムです