《条码技术》课程设计--Code25码生成与识别程序设计.docx
条码技术课程设计题目Code25码生成与识J不辨蝴专业包装工程一、课程设计目标3二、程序界面设计3三、程序代码设计4四、程序运行结果9五、设计心得体会10一、程序设计目标任选一种条码码制（39码除外），编程实现条码的生成、打印、存储、打开、识别等功能。（利用CorelDraw软件生成不同码制的条形码符号。熟悉VB编程环境下的一些基本操作和基本编程语言。利用VB编写程序实现条码的生成。利用VB编写程序实现条码的识别。）二、程序界面设计程序界面设计应该包括绘图、条码编译、打开图片、保存图片、打印、清空等基本内容。三、程序代码设计程序代码的内容：OptionExplicitPrivateCharStringAsStringPrivatest(OTo9)AsStringPrivateCheckStringAsStringDimbarTextAsStringDimMaxX,MaxYAsIntegerDimStartX,StartY,EndX,EndYAsIntegerDimBSStringAsStringDimDataStringAsStringDimFileNameAsIntegerPrivateSubform_load()CharString="0123456789”St(O)=uOOllO"0st(l)="1000,1st(2)="0100,“2st(3)=uIlOOOn,3st(4)="0010,4st(5)=uIOlOOn,5st(6)="01100,6st(7)="00011",7st(8)="10010,8st(9)=uOlOlOnn9FileName=1EndSubPrivateSubCommand1_Click()barText=TextLTextPictureLClsDims,eAsInteger”起始符与终止符Dimi,j,K,c,x,yAsIntegerMaxX=0MaxY=0x0=40yO=3O”起始符Fors=1To3Picturel.Line(x,y)-(x,y+100*HScroll1.Value)x=x+1Nextsx=x+1Fors=1To3PictureLLine(x,y)-(x,y+100*HScroll1.Value)x=x+1Nextsx=x+1PictureLLine(x,y)-(x,y+I(X)*HScroll!.Value)x=x+2”条码DimCtrlStringAsStringForK=1ToLen(barText)CtrlString=st(InStr(l,0123456789,Mid(barText,K,1)-1)Fori=1To5c=Int(Mid(CtrlString,i,1)Ifc=1Then”画宽条Forj=1To3*HScroll1.ValuePictureLLine(x,y)-(x,y+100*HScroHl.Value)x=x+1NextjElsePictureLLine(x,y)-(x,y+100*HSCrOlII.Value)”画窄条x=x+1EndIfx=x+1”画空NextiNextK”终止符Fors=1To3PictureLLine(x,y)-(x,y÷100*HScroll!.Value)x=x+1NextSx=x+1PictureLLine(x,y)-(x,y+I(X)*HScrolll.Value)x=x+2Fors=1To3PictureLLine(x,y)-(x,y+I(X)*HScrolll.Value)x=x+1Nextsx=x+1MaxX=Picturel.CurrentX+30MaxY=PictureLCurrentY+30EndSubPrivateSubpicture1_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)StartX=xStartY=yBSString=,n,EndSubPrivateSubpicture1_MouseMove(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)Ifbutton=1ThenPictureLLine(StartX,StartY)-(x,StartY),vbRedPictureLLine(StartX,StartY+l)-(x,StartY+1),vbRedPictureLLine(StartX,StartY+2)-(x,StartY+2),vbRedEndIfEndSubPrivateSubCommand4_Click()DimCommonDialoglSetCommonDialogl=CreateObject(',MSComDlg.CommonDialog")CommonDialog1.FileName=,n,CommonDialogLFilter=nJPG图片(*.JPG)*.jpgBMP图片(*.BMP)*.bmpICO图标(*.1CO)I*.icoGlF图片(*.GlF)*.gifuCommonDialog1.ShowSaveIfCommonDiaIogLFileName<>,uThenSavePicturePicturelJmage,CommonDiaIogl.FileNameEndSubPrivateSubpicture1_MouseUp(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)EndX=xEndY=yBSString="|,DimiAsIntegerDimcolAsColorConstantsFori=StartXToEndXcol=Picturel.Point(i,StartY-1)Ifcol>10ThenBSString=BSString&0ElseBSString=BSString&1EndIfNextCommand2_ClickEndSubPrivateSubCommand2_Click()DimStempAsStringDimc,i,j,KAsIntegerDimtemp(OTo4)AsStringBSString=Mid(BSString,InStr(l,BSString,1),Len(BSString)'去前空白区OFori=Len(BSString)To1SteP-去后空白区OIfMid(BSString,i,l)<>0ThenBSString=Mid(BSString,1,i+1)ExitForEndIfNextK=Oc=0Forj=11ToLen(BSString)-10IfMid(BSString,j,1)=0Andc<3Thentemp(K)=OK=K+1c=0ElseIfMid(BSString,j,1)=0Andc=3Thentemp(K)=1K=K+1c=0ElseIfMid(BSStringJ,1)=1Andc<3Thenc=c+1EndIfIfK=5ThenK=OStemp=","Stemp=temp(0)&temp(1)&temp(2)&temp(3)&temp(4)Fori=0To9Ifst(i)=StempThenDataString=DataString&Mid(CharString,i+1,1)EndIfNextiEndIfNextjMSgBOX"条码符号表示的信息为:"&vbCrLf&DataStringDataString=EndSubPrivateSubCommand3_Click()PictureLClsDimoDLGSetoDLG=CreateObject(MSComDlg.CommonDialogu)WithoDLG.DialogTitle="打开文件”.Filter="图片文件|*Jpg;*.bmp;*.tiF.Filterindex=1.MaxFileSize=255.ShowOpenIf.FileName<>,<nThenPictureLPicture=LoadPicture(TileName)EndIfEndWithSetoDLG=NothingEndSubPrivateSubCommand5_Click()DimScaleModeAsIntegerScaleMode=Picture1.scaleModePicture1.scaleMode=3PrintenscaleMode=6PrinteEPaintPicturePicturelJmage,O,O,PicturekScaleWidth,PictureLScaIeHeight,O,O,PictureLScaleWidth,PictureLScaleHeightPrintenEndDocPicture1.ScaleMode=ScaleModeEndSubPrivateSubCommand6-Click()PictureLClsPicture1.AutoRedraw=TrueSetPictureLPicture=LoadPiCtUre("")BSString=,n,EndSub四、程序运行结果0Form"条码数据生成条码打印打开保存3150331040五、设计心得体会通过这次实验让我更加熟悉了条形码的生成过程，在设计过程中虽然有许多困难，而且39码与25码之间有很多不一样的地方，通过仔细研究，我更加了解了他们之间的区别，为我设计不一样的条码奠定了基础。
