对不起 我是刚接触vb 想请问一下 我在做rs232回路测试 但由於笔电没有rs232孔位 所以改用 usb转rs232(已安装其驱动程式) 将其2和3脚位相连 做回路测试 程式照书本上打 我是vb2008 (visual basic 2005与自动化系统监控) 但好像不能动 程式如下 还移是黄色一段有问题? 有人可以帮帮忙吗 Imports System.IO.Ports Imports System.Text Public Class Form1 Dim RS232 As SerialPort Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each sp As String In SerialPort.GetPortNames() cmbCOM.Items.Add(sp) Next cmbCOM.Sorted = True cmbCOM.SelectedIndex = 0 btnStart.Enabled = True btnClose.Enabled = False btnSend.Enabled = False End Sub Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click Dim mBaudRate As Integer Dim mParity As IO.Ports.Parity Dim mDataBit As Integer Dim mStopbit As IO.Ports.StopBits Dim mPortName As String mPortName = cmbCOM.SelectedItem.ToString mBaudRate = 9600 mParity = Parity.None mDataBit = 8 mStopbit = StopBits.One RS232 = New IO.Ports.SerialPort(mPortName, mBaudRate, mParity, mDataBit, mStopbit) RS232.Encoding = Encoding.Unicode RS232.Open() btnStart.Enabled = False btnSend.Enabled = True btnClose.Enabled = True Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim InString As String InString = "" Try RS232.ReadTimeout = 1000 InString = RS232.ReadExisting() If InString.Length = 0 Then Exit Sub Else txtReceive.Text += InString End If Catch ex As Exception MessageBox.Show("霈胥辖航炊 : "+ex.ToString,"航炊梄缷", MessageBoxButtons.OK,MessageBoxIcon.Exclamation) End Try End Sub Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click btnStart.Enabled = True RS232.Close() btnSend.Enabled = False btnClose.Enabled = False End Sub Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click End End Sub End Class --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 111.248.48.232 ※ 编辑: l80110 来自: 111.248.48.232 (12/06 14:15) ※ 编辑: l80110 来自: 111.248.48.232 (12/06 14:15)