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

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

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

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

解決済

PCとPLC間でのエラーの解決方法がわかりません

goo___
goo___

総合スコア0

VB.NET

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

1回答

0評価

0クリップ

3791閲覧

投稿2016/12/07 03:10

PCとPLC間での通信を専用プロトコルモードで設定しています。
環境
PLC:FX3U-80M
OS:Windows7-32bit
言語:VB.NET
通信規格:RS232C

シーケンサのビットデバイスに書き込むプログラムを作成したのですが
FormのButton3を押すと以下のエラーメッセージが出て、解決方法がわかりません。

動作
Button1でCOMポートを開きます
Button2でCOMポートを閉じます
Button3でテキストボックスのON,OFF状態を書き込みます
テキストボックスはダブルクリックでON,OFFを切り換えます

"エラー内容"
インデックスおよび長さは文字列内の場所を参照しなければなりません。 パラメータ名 length

"SerialPortクラス設定内容"
オブジェクト名:SerialPort1
PortName:COM9
BaudRateプロパティ:9600
DataBitsプロパティ:8
Parityプロパティ:Even
StopBitsプロパティ:One
RtsEnableプロパティ:True
DtrEnableプロパティ:True

-------------------------![イメージ説明](d31f0d027d99f359fc9cbc9a9edea233.jpeg)

VB.NET

Public Class Form1 Dim ENQ As String = Convert\.ToChar\(&H5\) Dim ACK As String = Convert\.ToChar\(&H6\) Dim NAK As String = Convert\.ToChar\(&H15\) Dim tb As String = "Textbox" Dim myctls As New ArrayList Dim otb As TextBox Private Sub tbdClick\(ByVal sender As Object, ByVal e As System\.EventArgs\) If sender\.Text = "OFF" Then sender\.Text = "ON" sender\.BackColor = Color\.Red ElseIf sender\.Text = "ON" Then sender\.Text = "OFF" sender\.BackColor = Color\.Black End If End Sub Private Sub Form1_Load\(ByVal sender As System\.Object, ByVal e As System\.EventArgs\) Handles MyBase\.Load Dim i As Integer For i = 1 To 2 AddHandler Me\.Controls\(tb & i\)\.DoubleClick, AddressOf tbdClick myctls\.Add\(Me\.Controls\(tb & i\)\) myctls\.Item\(i - 1\)\.Text = "OFF" myctls\.Item\(i - 1\)\.BackColor = Color\.Black myctls\.Item\(i - 1\)\.ForeColor = Color\.White Next Button1\.Enabled = True Button2\.Enabled = False Button3\.Enabled = False End Sub Private Sub Button1_Click\(ByVal sender As System\.Object, ByVal e As System\.EventArgs\) Handles Button1\.Click SerialPort1\.Open\(\) Button1\.Enabled = False Button2\.Enabled = True Button3\.Enabled = True End Sub Private Sub Button2_Click\(ByVal sender As System\.Object, ByVal e As System\.EventArgs\) Handles Button2\.Click SerialPort1\.Close\(\) Button1\.Enabled = True Button2\.Enabled = False Button3\.Enabled = False End Sub Private Sub Button3_Click\(ByVal sender As System\.Object, ByVal e As System\.EventArgs\) Handles Button3\.Click Dim j As Integer = 0 Dim sdata As String Dim rdata As String Dim ERCD As String Dim bitdata As String = "" Try For Each Me\.otb In myctls If myctls\.Item\(j\)\.Text = "OFF" Then bitdata = bitdata & "0" ElseIf myctls\.Item\(j\)\.Text = "ON" Then bitdata = bitdata & "1" End If j \+= 1 Next sdata = ENQ & "00FFBW0" & "Y0020" & "02" & bitdata SerialPort1\.Write\(sdata\) Threading\.Thread\.Sleep\(1000\) rdata = SerialPort1\.ReadExisting Select Case rdata\.Substring\(0, 1\) Case NAK ERCD = rdata\.Substring\(5, 2\) MessageBox\.Show\("エラー:" & ERCD\) Case ACK MessageBox\.Show\("正常に受信されました。"\) Case Else MessageBox\.Show\("予期せぬ事態が発生しました。"\) End Select Catch ex As Exception MessageBox\.Show\(ex\.Message\) End Try End Sub End Class

良い質問の評価を上げる

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

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

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

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

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

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

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

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

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

ozwk
ozwk

2016/12/07 03:16

ブレークポイントなりコンソール出力なりで`rdata`の内容確認してみてください
MasahikoHirata
MasahikoHirata

2016/12/07 07:26

'Threading\.Thread\.Sleep'の間、シリアルの受信出来ましたっけ?
goo___
goo___

2016/12/08 00:21

rdataの内容を確認してみたところ空になっていました。
goo___
goo___

2016/12/08 00:23

Sleepは書き込み用に入れていますがSleepをなしにしても結果は変わりませんでした。
MasahikoHirata
MasahikoHirata

2016/12/08 02:57

rdataが空ということは、’受信’できていない。sleepではなくて、必要なバイト数以上受信できるまでループで待つようにするのが良いのでは?
ozwk
ozwk

2016/12/09 03:34 編集

専用プロトコルモードとやらのリファレンスありますか\?そもそもその電文でなんか応答するのかを確かめたほうがいいのでは\?
think.fuku
think.fuku

2016/12/20 08:12

サムチェックコードが足りないです。三菱のシーケンサなら取説に指定例があるので、まず指定例の文字列を書いてみてはどうでしょうか。
hihijiji
hihijiji

2016/12/27 04:16

MX Componentを使う選択肢はないのですか?

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

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

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

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

VB.NET

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