📄 7084.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>请问rs232</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>请问rs232</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:u8414004@cc.nctu.edu.tw">lucky</a> on November 04, 1998 at 12:50:47:<p>
请问一下vb可以作rs232的通讯阜传输吗??...<p>以下是我用qbasic写的成功的传输程式(用在两台电脑或一台电脑一台8751适用)<p>-------------------------------------------------<br>OUT &H3FB, &H80<br>OUT &H3F8, &H30<br>OUT &H3F9, &H0<br>OUT &H3FB, &H3<br>10  CLS : CLEAR<br>      PRINT "1.forward"<br>      PRINT "2.back"<br>      PRINT "3.left"<br>      PRINT "4.right"<br>70  b$ = INKEY$<br>      IF b$ <> "" THEN 150<br>      b = INP(&H3FD)<br>      b = b AND 1<br>      IF b = 0 THEN 70<br>      a = INP(&H3F8)<br>      PRINT HEX$(a)<br>      GOTO 70<br>150  b = INP(&H3FD)<br>        b = b AND &H20<br>       IF b = 0 THEN 150<br>       IF b$ = "1" THEN b = 1<br>    IF b$ = "2" THEN b = 2<br>    IF b$ = "3" THEN b = 3<br>    IF b$ = "4" THEN b = 4<br>    IF b$ = "5" THEN b = 0<br>    IF b$ = "0" THEN END<br>    PRINT b<br>    OUT &H3F8, b<br>    GOTO 70<br>    END<br>-----------------------------------------------------------<br>在vb中他说OUT没定义.....如果要把这程式改成vb中的程式要如何改呢??.....<br>也就是说从另一台电脑同时执行这程式的话,它键盘按一个数字我这台营幕也显示同数字<br>而且把这个数字值都到一个定义参数中...<br>OUT在qbasic中开启port1的东西.....谢谢...<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7084-->
<!--top: 7093--><li><a href="7093.html">Re: 请问rs232</a> <b>callback</b> <i>16:21:14 11/04/98</i>
(<!--responses: 7093-->0)
<ul><!--insert: 7093-->
</ul><!--end: 7093-->
</ul><!--end: 7084-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -