-
CommTest485
测试com口程序Private Sub Form_Load()
Dim I As Integer
Dim Msg As String
Me.Enabled = False
Msg = 串行端口通讯测试 V & App.Major & . & App.Minor & App.Revision
cboCommSettings.Text = GetSetting(App.EXEName, frmCommTest , CommSettings , 2400,N,8,1 )
Me.Show
Me.Refresh
With MSComm1
For I = 1 To 16
Me.Caption = Msg & - 测试通讯端口:COM & I & ...
Me.Refresh
Delay 100
On Error Resume Next
.CommPort = I
.Settings = 2400,N,8,1
.PortOpen = True
.PortOpen = False
If Err = 0 Then cboCommPort.AddItem COM & Trim(I)
Next I
End With
cboCommPort.ListIndex = 0
optCommData(0).Value = True
Me.Caption = Msg & (Programming by WJY)
Me.Refresh
If cboCommPort.ListCount = 0 Then MsgBox 程序检测不到可用的串行端口!
Me.Enabled = True
End Sub
(test com port)
- 2015-07-23 10:40:18下载
- 积分:1
-
111019
拓扑,直接插入,冒泡,简单选择,希尔,快速,堆排序(Topology, Direct insertion, Bubble, simple selection, Hill, Quick, heap sort)
- 2018-10-27 01:17:58下载
- 积分:1
-
SSH
用VB调用SSH控件,解决WINDOWS下调用LINUX的问题(SSH using VB to call control, call LINUX under WINDOWS to resolve the problem)
- 2020-12-27 23:29:02下载
- 积分:1
-
TeeChart2013_130818_SourceCode
vb 饼状图和柱状图,这里是一个demo,并含有注释,方便新手学习(vb,circle chart and point chart)
- 2013-09-06 15:09:48下载
- 积分:1
-
disphelper
说明: jytfkcxxxfgjhhzdhsfdsgdarf
- 2020-06-18 18:20:01下载
- 积分:1
-
TP Texture
说明: tp texture for try upload object in c
- 2019-06-24 06:40:21下载
- 积分:1
-
家庭财务程序开发
说明: vb.net编写的 家庭财务程序开发.rar
可以做课程设计用哦(vb.net prepared by the family financial development. Rar curriculum design can be done with oh)
- 2005-11-03 15:46:21下载
- 积分:1
-
xiaochengxu
打开后会开启无数个IE,自动添加进启动项.只有进任务管理器才能关闭。会占用系统资源(On the open Internet explorer, automatically added into the startup)
- 2013-08-29 18:52:19下载
- 积分:1
-
MYKTV
本KTV包括前端,后台,以及数据库。虽然是简洁版 但是可以参考其中的代码源,能够帮助我们少走弯路(This KTV includes front end, backstage, and database.)
- 2017-12-11 20:32:29下载
- 积分:1
-
GetCPUID
VB源码,利用VB直接得到CPU的ID号(get cpu id)
- 2009-10-16 16:58:29下载
- 积分:1