程设计报告-Code93码生成与识别.docVIP

《条码技术》课程设计

题目Code93码生成与识别

程序设计

专业

班级

学号

姓名

指导教师

目录

课程设计目标

程序设计界面

主要功能的算法实现说明

设计结果

总结

课程设计目标

选择一种条码码制，编程实现条码的生成、打印、存储、打开、识别等功能，并熟悉VB环境，实现所需的功能要求。

程序界面设计

1、打开VB编程平台。

2、选择“标准EXE”，然后点击“打开”。

3、熟悉编程平台窗口。

4、设计条码生成软件界面。

5、添加代码，实现条码符号的生成。

主要功能的算法实现说明

显示Code93条码程序

PrivateSubCommand1_Click()

IfCheckUserInput()=FalseThenExitSub

DrawCode93

EndSub

PrivateSubDrawCode93()

绘制条形码图形，显示条形码文字BarText，宽条与窄条比bsTime，字符间距chDiv，

缩放比例dscale,是否显示文字showText

DimbsTimeAsInteger

DimdScaleAsInteger

DimchDivAsInteger

DimShowTextAsInteger

bsTime=BarSpaceTime

dScale=HScroll1.Value

MaxX=0

MaxY=0

chDiv=CharDiv

ShowText=Check2.Value

Picture1.Picture=LoadPicture()清空加载的图片

Picture1.Cls清空图片框内容

DimI,J,K,H,T,X0,Y0AsInteger

最小高度是长度的15%，但不得小于6.4mm，每个字符有3个宽条空，6个窄条空

H=Len(barText)*((bsTime*3+6)+chDiv)-chDiv

IfH6.4Then

H=8

Else

H=CInt(H*0.4)此处取长度的40%

EndIf

X0=30*dScale

Y0=30

DimCtrlStringAsString

ForI=1ToLen(barText)

CtrlString=st(InStr(1,CharString,Mid(barText,I,1))-1)

ForJ=1To9

T=Int(Mid(CtrlString,J,1))

IfT=1Then表示画窄条

ForK=1TodScale

Picture1.Line(X0,Y0)-(X0,Y0+H*dScale)

X0=X0+1

Next

Else表示要画窄空条

X0=X0+1*dScale

EndIf

Next

MaxX=Picture1.CurrentX+30*dScale

MaxY=Picture1.CurrentY+30

Picture1.CurrentX=Picture1.CurrentX-7*dScale

IfShowText=1ThenPicture1.PrintMid(barText,I,1)

Picture1.CurrentX=Picture1.CurrentX+7*dScale

Next

EndSub

打印条码图片

PrivateSubCommand2_Click()

将图片框的内容以图形方式打印

DimscaleModeAsInteger

scaleMode=Pict