独角 

 哎，算了，给你全套程序吧！！！其它的靠你自己了
这是发送
Private Sub Timer1_Timer()
  ReDim out(6)
  Dim JIYANHE As Integer
  
  'MSComm1.RTSEnable = False  '将485置于发送状态
  FS.Text = ""
  JS.Text = ""
  ReDim out(6)
    
  'MSComm1.RTSEnable = False  '将485置于发送状态
  
  out(0) = Val(&HEB)         '报文头
  out(1) = Val(&H90)
  out(2) = Val(&H4)          '报文长度
  out(3) = Val(&H0)          '属性
  out(4) = Val(DH.Text)      '点号
  
  
  JIYANHE = 0
  FS.Text = ""
  For i = 2 To 4
     JIYANHE = (JIYANHE + out(i)) Mod 256
  Next i
  
  out(5) = JIYANHE Mod 256   '校验和
    
  FS.Text = Hex(out(0)) + "," + Hex(out(1)) + "," + Hex(out(2)) + "," + Hex(out(3)) + "," + Hex(out(4)) + "," + Hex(out(5))
  
  MSComm1.Output = out     '发送
End Sub
这是接收
Private Sub MSComm1_OnComm()

With MSComm1

Select Case .CommEvent '判断MSComm1通讯事件

       Case comEvReceive '收到Rthreshold个字节产生的接收事件
       
          If Len(JS.Text) >   100 Then
             JS.Text = ""
          End If

1111:
             
          m_zichuan = MSComm1.Input '读取一个接收字节
       
          For i = 1 To LenB(m_zichuan)
             JS.Text = JS.Text + Hex(AscB(MidB(m_zichuan, i, 1))) + ","
          Next i
          If MSComm1.InBufferCount >   0 Then GoTo 1111
       
          m_zichuan = ""
End Select

End With
End Sub

发表时间:2003年9月24日11:02:31