串口应用实例

串口应用实例

Private Sub commload()

On error goto errline

Counter=0

for i=0 to 16

mport=i

mscomm1.portopen=true

if mscomm1.portopen=true then

mscomm1.portopen=false

combo1.additem “ COM”+cstr(i),counter

counter=counter+1

end if

next i

combo1.listindex=0

end sub

errline:

if err.number=8005 then

combo1.additem “com”+cstr(i),counter

counter=counter+1

end if

resume next

end sub

此段代码是扫描串口，并把串口添加到combo1的里面。默认选择的是第一个扫描到的。

调入计算机存在的串口(counter++),这个很重要。随着某些变量的变化，用counter 的++来保存所有需要的变量。不管之前的变量是不是连续或者离散的。Counter 只是负责把需要的全部都记下来。用时自己选择对应需要的。

串口初始化

port=1

Mscomm1.setting=”9600,n,8,1”

Mscomm1.inbuffersize=1024

Mscomm1.outbuffersize=4096

Mscomm1.inbuffercount=0

Mscomm1.outbuffercount=0

Mscomm1.Rthreshold=1

Mscomm1.sthreshold=1

Mscomm1.inputlen=13

Mscomm1.inputmode=cominputmodebinary

Mscomm1.portopen=true

保存数据.ini and .txt文件

Dim strfilename as string

Dim savefileid as integer

Savefileid=freefile()

Strfilename=app.path+cstr(“”)+”.txt”

Open strfilename for output as # savefileid

Print # savefileid,data

Print #savefileid,time

Print #savefileid,textXX.text

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,”=”)

Cboserialport.text=Strarray(1) 读入“=”的第二项com=com2,即是com2.

Line input #saveflieid ,strinputstring

Strarray=split(strinputstring,”=”)

combobaud.text=Strarray(1)

close #savefileid

通用对话框

通用对话框是activeX控件。在部件里面。Microsoft common dialog control 6.0 Commondialog1.showopen 打开对话框

Commondialog1.showsave 打开保存对话框

Commondialog1.filename 获取打开的对话框的路径

Shell(路径) 路径是string类型.exe .com .bat文件都可以打开

CommonDialog1.Filter = "(*.*)|(*.jpg;*.gif;*.bmp)"

Image1.Picture = LoadPicture(Commondialog1.filename )

Access 打印报告

SQL视图sql语句生成对应的表

SELECT Results.Title, Results.Measurement, Results.Value, Results.Min, Results.Max, Results.Status（字段）INTO KKK（表，目的地）

FROM Results（表，源头）

WHERE Results.[_ResultsID]=(select top 1 * from (select ResultsData.[_ID]from ResultsData where ResultsData.[Serial number]=[FORMS]![F_Main]![SN] and (ResultsData.TestPassed =Yes)（条件）order by ResultsData.[_ID] asc));

多重嵌套的选择出数据

alter table ggg add date1 varchar(20)