紧急求教

原创 2004年10月29日 12:29:00

hitwall.gif我用VB6做了一个和某个装置进行串口通讯的界面,装置用的是80C196KC的单片机,现在的问题是单片机能收到我的命令,可是我却收不到它的数据,这是为什么呀??下面是我的发送程序
Private Sub Command1_Click(Index As Integer)
MSComm2.OutBufferCount = 0
MSComm2.InBufferCount = 0

Dim send_node(8) As Byte
If MSComm2.PortOpen Then MSComm2.PortOpen = False
Dim d() As Byte
Dim crc() As Byte

For Ind = 0 To 3
If Form2.Option1(Ind) = True Then
  MSComm2.CommPort = Ind + 1
End If
Next Ind


MSComm2.RThreshold = 1
MSComm2.PortOpen = True


Select Case Index
  Case 0
   
    ReDim d(5) As Byte
    ReDim crc(1) As Byte
    d(0) = 0
    d(1) = 6
    d(2) = 0
    d(3) = 0
    d(4) = (Hex((Text3(7).Text)) Or &HFF00) / 256
    d(5) = Hex((Text3(7).Text)) Or &HFF
    crc = CRC16(d)

    send_node(0) = 0
    send_node(1) = 0
    send_node(2) = 6
    send_node(3) = 0
    send_node(4) = 0
    send_node(5) = (Hex((Text3(7).Text)) Or &HFF00) / 256
   
    send_node(6) = Hex((Text3(7).Text)) Or &HFF
    send_node(7) = crc(1)
    send_node(8) = crc(0)

  
    MSComm2.Output = send_node
        
  Case 2
   
    ReDim d(5) As Byte
    ReDim crc(1) As Byte
   
   
    d(0) = Val(Text3(7).Text)
    d(1) = 3
    d(2) = 0
    d(3) = 0
    d(4) = 0
    d(5) = 36
   
    crc = CRC16(d)

    send_node(0) = 0
    send_node(1) = Val(Text3(7).Text)
    send_node(2) = 3
    send_node(3) = 0
    send_node(4) = 0
    send_node(5) = 0
    send_node(6) = 36
    send_node(7) = crc(1)
    send_node(8) = crc(0)

    MSComm2.Output = send_node
   
End Select
End Sub

MSComm2的其它参数我在属性窗口中设置了,另外我把串口的2,3脚短接,进行自发自收时,一切都是正常的。谢谢hitwall.gif

美女紧急求教!!!

美女紧急求教:想报考程序员,哪种语言最好找工作??C++还是JAVA??还是其他??拜托帅哥门了!!...
  • CGzhiyinbupanan
  • CGzhiyinbupanan
  • 2005年11月13日 20:07
  • 363

AppStore申请紧急审核

当你在AppStore上成功提交一款应用之后,突然有一天发现APP中有一个严重的bug(例如是程序崩溃等)需要修复,或者又是有一个新功能需要紧急的提交,那么这个时候,你就需要通过苹果的加急审核方法,提...
  • u011452278
  • u011452278
  • 2015年12月02日 13:42
  • 1189

紧急求教:关于深圳科皓公司

各位老大,哪位了解深圳科皓公司的详情,可否告之?
  • lovehewei
  • lovehewei
  • 2004年08月08日 19:54
  • 668

紧急拨号的处理

问题描述 紧急号码在过去的几个项目的开发中一直是难下定论的一项问题,原因在于针对不同CP平台,不同制式的数据网络,不同的运营商,都有不同的紧急号码,而且在无SIM卡情况下紧急号码是否能拨出也并无...
  • guiyu_1985
  • guiyu_1985
  • 2012年12月31日 10:23
  • 9405

android学习之——紧急呼叫

学习Keyguard看到紧急呼叫 顺便看看学学。 关于锁屏流程及解锁 见
  • LR6666
  • LR6666
  • 2016年09月30日 17:12
  • 1338

带外数据和TCP紧急指针

传输层协议使用带外数据(out-of-band,OOB)来发送一些重要的数据,如果通信一方有重要的数据需要通知对方时,协议能够将这些数据快速地发送到对方.为了发送这些数据,协议一般不使用与普通数据相同...
  • gbasp2008
  • gbasp2008
  • 2015年08月14日 19:20
  • 2001

服务器出现5781错误,紧急求教!

系统日志中出现警告:事件ID:5781“由于没有可以使用的 DNS 服务器,一个或更多 DNS 记录的动态注册和注销未成功。如何解决?本人菜鸟一个,请各位大虾赐教,我去过technet,但找不到解决方...
  • haiquan00
  • haiquan00
  • 2005年05月23日 15:26
  • 592

如何绘制闪电效果

http://krazydad.com/bestiary/bestiary_lightning.html http://mobile-bros.com/source/Lightning/ ...
  • iosgame
  • iosgame
  • 2013年03月26日 09:24
  • 1363

android 拨打紧急号码

对应拨打电话只需要调用ACTION_CALL加对应电话号码即可如下: void callPhone(){ Intent intent = new Intent(Inte...
  • u014321744
  • u014321744
  • 2016年09月19日 10:41
  • 976

Android紧急号码修改

frameworks/base/telephony/java/android/telephony/PhoneNumberUtils.java public static boolean isEmer...
  • lijinwei_123
  • lijinwei_123
  • 2013年12月12日 10:31
  • 1533
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:紧急求教
举报原因:
原因补充:

(最多只允许输入30个字)