引用 fh.y 在 2005-5-27 15:52:00 发言【内容省略】

我没有FX2-80MR的编程手册，我在上海书城看到一本《小型可编程控制器》介绍的就是FX2的，我翻了翻，内容大同小异。如果只是编程的话，有FX系列的编程手册应该够了。网上有中文版的。
另外，好象早期的教材就是说的FX2的，如中级维修电工教材。

除吴辉兄给我指出的错误外，看了阿苏兄的文章，还有一个错误就是没设置MSComm1.RTSEnable = True
目前通讯基本完成，谢谢两位大侠。

这只是一个小实验，相关的容错等问题待续。
Private Sub Command1_Click()
MSComm1.RTSEnable = True
Dim OutString As String
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
OutString = Chr(&H2) + "7" + "0008" + Chr(&H3) + "02"
 MSComm1.Output = OutString
Label5.Caption = "串口开，发送完成"
Dim Savetime As Single
Savetime = Timer '记下开始的时间
While Timer < Savetime + 1 '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
Dim OutString1 As String
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
OutString1 = Chr(&H2) + "8" + "0008" + Chr(&H3) + "03"
 MSComm1.Output = OutString1
Label5.Caption = "串口开，发送完成2"
End Sub