VisualBasic でのシリアル受信割り込みについて

Question

前提・実現したいこと

初歩的なことかもしれませんが、シリアル通信で”S”を受け取って数字のカウンティングを開始し、”P”を受け取ったタイミングで終了したいと思っています。

発生している問題・エラーメッセージ

発生している問題としては、”P”を受信しても止まらないことです。

該当のソースコード

Public Class Form1
	Private receive As String
	Private f As Boolean

	Private Sub FormLoad(sender As Object, e As EventArgs) Handles MyBase.Load
		With SerialPort1
			'シリアルポートの設定  
			.PortName = "COM3"              'ポート名  
			.BaudRate = 9600                '通信速度指定  
			.Parity = IO.Ports.Parity.None  'パリティ指定  
			.DataBits = 8                   'ビット数指定  
			.StopBits = IO.Ports.StopBits.One 'ストップビット指定  
			'シリアルポートのオープン  
			.Open()
		End With
		f = True
	End Sub
	'シリアルポート受信イベント  
	Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
		'データ受信
		Console.WriteLine("受信")
		Dim arrByte As Byte() = New Byte(SerialPort1.BytesToRead - 1) {} '受信バッファー内のデータのバイト数分  
		'SerialPort の入力バッファーからバイト数を読み取り  
		SerialPort1.Read(arrByte, 0, arrByte.GetLength(0))
		'デリゲート生成  
		Dim dlg As New DisplayTextDelegate(AddressOf Check)
		'受信バイト配列を文字列変換  
		receive = System.Text.Encoding.GetEncoding("SHIFT-JIS").GetString(arrByte)
		'デリゲート関数をコールする  
		Me.Invoke(dlg, New Object())
	End Sub

	Delegate Sub DisplayTextDelegate(ByVal strDisp As Object)

	Private Sub Check()
		Console.WriteLine("受信：" & receive)
		Select Case receive
			Case "S"
				Counting()

			Case "P"
				f = False
		End Select
	End Sub
	Private Sub Counting()
		Dim n As Integer = 0

		While n < 10000
			If f = True Then
				Threading.Thread.Sleep(1000)
				n = n + 1
				Console.WriteLine(n)
			Else
				Exit Sub
			End If
		End While
	End Sub
End Class

試したこと

受信した文字を表示して試したところ”S”を受信した後は何も受け取っておらず、止めることができないでいるようです。

Answer 1

Countingをコールして戻ってこないだけではないでしょうか
Invokeはデリゲートでの処理が終了するまで戻ってきません。
ですので、DataReceivedイベントハンドラから抜けずに次の受信ができない状態だと思います。
BeginInvokeを使用すれば、処理が完了しなくても戻ってきますので次の受信ができるかもしれませんが、結局UIスレッドでCounting関数が動作しますので、画面の操作は行えない状態となります。

Comments

[kakappa_kappa]

回答ありがとうございます。とりあえずはBeginInvokeで試してみようと思います。また何かありましたら、質問を投稿させていただきますので、そのときはよろしくお願いします。