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

题目Code93码生成与识别 四、设计结果五、总结一、课程设计目标选择一种条码码制，编程实现条码的生成、打印、存储、打开、识别二、程序界面设计三、主要功能的算法实现说明'绘制条形码图形，显示条形码文字BarText,宽条与窄条比bsTime,'’缩放比例dscale,是否显示文字showTextbsTime=BarSpaceTimePicturel.Picture=LoadPicture("")'清空加载的图片Picture1.Cls''清空图片框内容’’最小高度是长度的15%,但不得小于6.4mm,每个字符有3个宽条空，6个窄条空H=Len(barText)*((bsTime*3+6)+chDIfH<6.4ThenH=CInt(H*0.4)’’此处取长度的40%EndIfCtrlString=st(InStr(1,CharString,Mid(barText,I,1))-IfT=1Then’’表示画窄条Picturel.Line(X0,Y0)-(X0,YO+HNextElse’’表示要画窄空条EndIfNextMaxX=Picture1.CurrentX+30*dScalePicture1.CurrentX=Picture1.CurrentX-7*dScaleIfShowText=1ThenPicturel.PrintMid(barText,I,1)Picturel.CurrentX=Picturel.CurrentXNext2、打印条码图片PrivateSubCommand’’将图片框的内容以图形方式打印Picturel.Image,0,0,Picture1.S0,Picture1.ScaleWidtPicturel.scaleMode=scaleMode'’恢复原来保存的ScaleMode属性值3、存储条码图片SetCommonDialogl=CommonDialogl.FileName=""IfCommonDialog1.FileName<>""ThenSavePicturePicturel.Image,4、打开条码图片Picturel.Picture=LoadPEndIf5、清空条码图片6、译码代码CharString="0123456789ABCDEFGHIJKLMNOPQRSTUVW,,,,,,,,C Ks’X’YZst(46)="100110010")(/)一&Combo1.ListIndex=0’’选中第一个条目Combo2.Clear’’清空组合框的已有内容PrivateSubCommandDimI,J,KAsIntegerBSString=Mid(BSString,InStr(1,BSString,1),Len(BSStri’去前空白区0ForI=Len(BSStriIfMid(BSString,I,1)<>0ThenBSString=Mid(BSStringEndIfNextIfMid(BSString,I,1)=0ThenEndIfNextForI=1ToLen(BSString)StepBWtimes’把条宽比转化为1Nexttemp(J)=Mid(BSStrinIfJ=9ThenStemp=temp(0)&temp(1)&te&temp(5)&temp(6)&teIfEndIfNextKEndIfNextIDataString=DataStrMsgBox"条码符号所表示的数据信息为："&vbCrLf&DataString四、设计结果如图所示，经过设计调试可以实现任意条码的输入均能生成对应的条码符号，并能保存、打印；打开条码符号经过扫描后可以识别所包含的内容。利用VB软件进行条码程序编程，我熟悉掌握了VB环境下的基本操作，并实现了基本常用条码的程序设计，编程的过程中也遇到