QBasic代码转VB6

QBasic   源代码如下　：  
  100     open   "com1:4800,n,8,1"   for   random   as   #1  
  110     print   #1,"X0"  
  120     input   #1,B$  
  130     print   B$  
   
   
   
  此代码用与RS232设备通讯。请用VB   6.0实现。 问题点数：20、回复次数：3Top

1 楼allook（allok）回复于 2005-04-02 17:59:09 得分 10

有谁知道呀，快快回复！！！Top

2 楼Acsdnmember（刘寒）回复于 2005-04-08 12:34:01 得分 0

顶Top

3 楼Gutta（冯大狂）回复于 2005-04-08 21:46:50 得分 10

简单哦~  
   
  用MSCOMM控件来实现通信  
  （工程-》部件-》Microsoft   Comm   Control   6.0）加入控件后拖动一个到窗体  
   
  首先在Form_Load()中：  
   
  With   MSComm1  
  .Settings   =   "4800,N,8,1"  
  .InputMode   =   1                                  
  .InputLen   =   1                                       '从接收缓冲区中读取1个字节数据  
  .InBufferCount   =   0                             '清空接收缓冲区  
  .OutBufferCount   =   0                           '清空发送缓冲区  
  .SThreshold   =   0                                   '不触发OnComm()事件  
  .RThreshold   =   1                                   '接受一个字节就触发  
  .CommPort   =   1                                       '使用第一个串口  
  .PortOpen   =   True                                 '打开串口  
  End   With  
   
  然后在：Private   Sub   MSComm1_OnComm()事件中输入：  
  Select   Case   MSComm1.CommEvent  
  Case   comEvReceive  
            Rv_data   =   MsComm1.Input  
            msgbox   Hex$(Rv_Data)                 //一个消息框来显示收取数据  
  End   Select  
   
  怎么样，够详细了吧？Top

相关问题

• mscomm
• 缓冲区

• 帖主：Acsdnmember
• allook
• Gutta

• Visual Basic类图书
• Visual Basic类源码下载