您的位置：程序门 -> vb -> 基础类



急求高手帮助啊，看看我的程序要实现我的功能怎么改啊？


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


急求高手帮助啊，看看我的程序要实现我的功能怎么改啊？
发表于：2007-06-03 16:37:55 楼主
已知下程序，text1输出为801.3

    private   sub   command1_click（)
dim   arr（1   to   8)   as   byte
dim   receiveresult   as   variant
'hial上限警报
arr（1)   =   &h81
arr（2)   =   &h81
arr（3)   =   &h52
arr（4)   =   &h1
arr（5)   =   &h0
arr（6)   =   &h0
arr（7)   =   &h53
arr（8)   =   &h1

mscomm1.output   =   arr
 
if   mscomm1.inbuffercount   > =   10   then
        receiveresult   =   mscomm1.input
  text1.text   =   （receiveresult（7)   *   256   +   receiveresult（6))   /   10
  end   if
 
end   sub

private   sub   form_load（)
mscomm1.commport   =   1
mscomm1.settings   =   "9600,n,8,2 "
mscomm1.inputmode   =   cominputmodebinary
mscomm1.portopen   =   true
mscomm1.inbuffercount   =   0
end   sub


当改成   arr（4)   =   &h2
              arr（8)   =   &h2       text1输出为100
我要同时输出这两个结果（即text1输出为801.3，text2输出为100）
请问高手该怎么办啊？
发表于：2007-06-04 00:46:561楼 得分:0
我要同时输出这两个结果（即text1输出为801.3，text2输出为100）???
很模糊的...   因为串口只能同时得到一个数值...   除非你采用了2口...   或者说你的设备采用了地址分配（但是我记得也不能同时在一个串口中得到啊!!!)  
帮你顶一下了
发表于：2007-06-04 10:29:002楼 得分:0
就是用一个command控件实现，（即按一下command显示text1,再按一下command显示text2,此时text1不显示)

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击