急救送分题：关于PC机和串行通信的程序。

Question

这个分是不是太容易得了，CSDN的人不屑于要？；）

Answer 1

我只有API的代码，对于VB来说不合适

Answer 2

Private Sub Form_KeyPress (KeyAscii As Integer)
   Dim Buffer as Variant
   
   ' 设置并打开窗口
   MSComm1.CommPort = 1
   MSComm1.PortOpen = True   Buffer = Chr$(KeyAscii)
   MSComm1.Output = Buffer
End Sub

Answer 3

to jneu:
  这是PC机发的程序，请大哥再指教一下PC机收的程序这是我写的，可是不行，不知道什么问题。
Private Sub Form_Load()
    Com1.InputMode = comInputModeText
    Com1.InputLen = 0
    Com1.Settings = "1200,n,8,1"
    Com1.InBufferSize = 1024 '设置接收缓冲区的字节长度
    Com1.PortOpen = True '打开通信口
    Com1.InBufferCount = 0 '清除发送缓冲区数据
    Com1.OutBufferCount = 0 '清除接收缓冲区数据
    Com1.RThreshold = 1 '达到或者超过1字节就引发comEvReceive事件
    If Err Then
    MsgBox "通信口无效"
    Exit Sub
    End If
End SubPrivate Sub MSComm1_OnComm()
    Dim b As Variant
    Select Case Com1.CommEvent
    '处理接收事件
    Case comEvReceive
       b = Com1.Input
      MsgBox "ok"
   Text1.Text = b  ‘不管接什么信息，先确定能够接收到再说。
    End Select
End SubPrivate Sub Form_Unload(Cancel As Integer)
If Com1.PortOpen = True Then
    '程序结束，关闭通信口
    Com1.PortOpen = False
    End If
End Sub

Answer 4

在单片机那边也是只要把信息放到一个知底的SBUF寄存器就自动发送过来。
应该发出去了吧。；）

Answer 5

如果可以的话，请JENU大哥也指教我单片机那边的程序。

Answer 6

可以的，单片机我也比较熟的，你用的是MCS51？

Answer 7

单片机那边应该是对的，我现在唯一想确定的是，单片机发信息能够对PC机这边造成影响，至少能够促发那个MSCOMM1的ON_COM事情。可是我一步步的看了，根本没有引发ON_COM事情。好烦啊。。就要交这个实验了。

Answer 8

真的太谢谢你了。；）我用的是MSC51系列。

Answer 9

我要停电了，明天再来。JENU，再见。

Answer 10

今天上午我基本可以搞定了。
但是有些东西还是有点不懂，请问JNEU等大哥，mscomm中的属性——top ,left inputlen是什么意思？应该怎么样设置这些属性？

Answer 11

top ,left 属性是设置控件的位置的~

Answer 12

InputLen 属性，设置并返回 Input 属性从接收缓冲区每次读取的字符数。