文档介绍:串口应用实例
Private mload()
On error goto errline
Counter=0
for i=0 to 16
mport=i
=true
if =true then
=false
“ COM”+cstr(i),counter
counter=counter+1
end if
next i
=0
end sub
errline:
if =8005 then
“com”+cstr(i),counter
counter=counter+1
end if
resume next
end sub
此段代码是扫描串口,bo1的里面。默认选择的是第一个扫描到的。
调入计算机存在的串口(counter++),这个很重要。随着某些变量的变化,用counter的++来保存所有需要的变量。不管之前的变量是不是连续或者离散的。Counter只是负责把需要的全部都记下来。用时自己选择对应需要的。
串口初始化
port=1
=”9600,n,8,1”
=1024
=4096
=0
=0
=1
=1
=13
=true
and .txt文件
Dim strfilename as string
Dim savefileid as integer
Savefileid=freefile()
Strfilename=+cstr(“”)+”.txt”
Open strfilename for output as # savefileid
Print # savefileid,data
Print #savefileid,time
Print #savefileid,
close #savefileid
保存数据为txt格式或者ini格式。
调出数据from txt
Dim strinputstring as string 存储从文件读入的每一行字符变量
Dim strarray
Open strfilename for input(关键字) as #savefileid
Line input #saveflieid ,strinputstring
Line input #saveflieid ,strinputstring
Line input #saveflieid ,strinputstring
Line input #saveflieid ,strinputstring
Strarray=split(strinputstring,”=”)
=Strarray(1) 读入“=”2,2.
Line input #saveflieid ,strinputstring
Strarray=split(strinputstring,”=”)
=Strarray(1)
close #savefileid
通用对话框
通用对话框是activeX控件。在部件里面。mon dialog control
打开对话框
打开保存对话框
获取打开的对话框的路径
Shell(路径) .com .bat文件都可以打开
= "(*.*)|(*.jpg;*.gif;*.bmp)"
= )
Access 打印报告
SQL视图 sql语句生成对应的表
SELECT , , , , , (字段) INTO KKK(表,目的地)
FROM Results(表,源头)
WHERE Results.[_Results