dfkt.net
当前位置:首页 >> 主板上面有Com1,Com2,485口,我想编写vB程序通过4... >>

主板上面有Com1,Com2,485口,我想编写vB程序通过4...

485口的配套口是RS232,所以编写的代码与RS232数据传输相同 我不久前写了一段相关代码,你看是否有用:用MSCOMM控件通信的 Private Sub initcom() 串口初始化程序块 MSComm1.CommPort = 1 '选用com1串行口 MSComm1.Settings = "9600,N,8,1" '波特率...

Private Sub Command1_Click() Print "第3题:"; Dim n As Integer, s As Double n = InputBox("n=", , 50) For i = 1 To n s = s + 1 / i Next i Print "Sum(" & n & ")="; Format(s, "0.00")End SubPrivate Sub Command2_Click() Print "第4题...

sum =0 for i=1 to 10 jc=1 for j=1 to i jc=jc*j next if i mod 2 =0 then sum=sum-jc eles sum=sum+jc end if next print sum '结果在sum中

Private Sub Command1_Click()For i = 1 To 6For j = 1 To 6n = n + 1NextNextPrint nEnd Sub

正常情况连接设备了才可以看出来。 没连接设备是无法查看的。 可以到设备管理器,右键com口属性,查看下是否有不同。

Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a As Integer, s As Integer For i = 1 To 6 For j = 1 To 6 a = i * 10 + j s = s + a Print a; Next Print Next Print "总和:", s End Sub

现在吃用串行口通信的用户越来越少,因此计算机生产商为了减配,都只预留一个COM口,默认为COM1。 如果想要添加一个COM2端口,可以买一个COM口扩展卡,插在主板上的扩展槽内,一般能扩出两个COM口,即COM2和COM3。 还可以使用USB转COM口扩展卡,...

n=? (n就是给定的数字,随机产生还是输入都行)s=0for i=1 to n s=s+1/inext i主程序就是这样了,其它产生随机数n,输出结果s,定义变量等自己添加了

第一题: 两个TextBox,一个Command。 Option Explicit Private Function MaxModNum _ (ByVal a As Long, ByVal b As Long) _ As Long Dim c As Long c = 1 Do While c 0 c = a Mod b a = b b = c DoEvents Loop MaxModNum = a End Function Priv...

你说的是四开单控的开关。COM1 COM2 COM3 COM4用一根导线连通然后接火线,L1 L2 L3 L4 就是四盏灯的下灯线,分别接入四盏灯的灯线即可。

网站首页 | 网站地图
All rights reserved Powered by www.dfkt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com