《条码技术》课程设计-Code25码生成与识别程序设计

《条码技术》课程设计题目Code25码专业包装工程

目录一、课程设计目标····················3二、程序界面设计····················3三、程序代码设计····················4四、程序运行结果····················9五、设计心得体会····················10

程序设计目标任选一种条码码制(39码除外)，编程实现条码的生成、打印、存储、打开、识别等功能。（利用CorelDraw软件生成不同码制的条形码符号。熟悉VB编程环境下的一些基本操作和基本编程语言。利用VB编写程序实现条码的生成。利用VB编写程序实现条码的识别。)程序界面设计程序界面设计应该包括绘图、条码编译、打开图片、保存图片、打印、清空等基本内容。程序代码设计程序代码的内容：OptionExplicitPrivateCharStringAsStringPrivatest(0To9)AsStringPrivateCheckStringAsStringDimbarTextAsStringDimMaxX,MaxYAsIntegerDimStartX,StartY,EndX,EndYAsIntegerDimBSStringAsStringDimDataStringAsStringDimFileNameAsIntegerPrivateSubform_load()CharString="0123456789"st(0)="00110"''0st(1)="10001"''1st(2)="01001"''2st(3)="11000"''3st(4)="00101"''4st(5)="10100"''5st(6)="01100"''6st(7)="00011"''7st(8)="10010"''8st(9)="01010"''9FileName=1EndSubPrivateSubCommand1_Click()barText=Text1.TextPicture1.ClsDims,eAsInteger''起始符与终止符Dimi,j,K,c,x0,y0AsIntegerMaxX=0MaxY=0x0=40y0=30''''起始符Fors=1To3Picture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)x0=x0+1Nextsx0=x0+1Fors=1To3Picture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)x0=x0+1Nextsx0=x0+1Picture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)x0=x0+2''''条码DimCtrlStringAsStringForK=1ToLen(barText)CtrlString=st(InStr(1,"0123456789",Mid(barText,K,1))-1)Fori=1To5c=Int(Mid(CtrlString,i,1))Ifc=1Then''画宽条Forj=1To3*HScroll1.ValuePicture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)x0=x0+1NextjElsePicture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)''画窄条x0=x0+1EndIfx0=x0+1''画空NextiNextK''''终止符Fors=1To3Picture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)x0=x0+1Nextsx0=x0+1Picture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)x0=x0+2Fors=1To3Picture1.Line(x0,y0)-(x0,y0+100*HScroll1.Value)x0=x0+1Nextsx0=x0+1MaxX=Picture1.CurrentX+30MaxY=Picture1.CurrentY+30EndSubPrivateSubpicture1_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)StartX=xStartY=yBSString=""EndSubPrivateSubpicture1_MouseMove(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)Ifbutton=1ThenPicture1.Line(StartX,StartY)-(x,StartY),vbRedPicture1.Line(StartX,StartY+1)-(x,StartY+1),vbRedPicture1.Line(StartX,StartY+2)-(x,StartY+2),vbRedEndIfEndSubPrivateSubCommand4_Click()DimCommonDialog1SetCommonDialog1=CreateObject("MSComDlg.CommonDialog")CommonDialog1.FileName=""CommonDialog1.Filter="JPG图片(*.JPG)|*.jpg|BMP图片(*.BMP)|*.bmp|ICO图标(*.ICO)|*.ico|GIF图片(*.GIF)|*.gif"CommonDialog1.ShowSaveIfCommonDialog1.FileName<>""ThenSavePicturePicture1.Image,CommonDialog1.FileNameEndSubPrivateSubpicture1_MouseUp(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)EndX=xEndY=yBSString=""DimiAsIntegerDimcolAsColorConstantsFori=StartXToEndXcol=Picture1.Point(i,StartY-1)Ifcol>10ThenBSString=BSString&0ElseBSString=BSString&1EndIfNextCommand2_ClickEndSubPrivateSubCommand2_Click()DimStempAsStringDimc,i,j,KAsIntegerDimtemp(0To4)AsStringBSString=Mid(BSString,InStr(1,BSString,1),Len(BSString))'去前空白区0Fori=Len(BSString)To1Step-1'去后空白区0IfMid(BSString,i,1)<>0ThenBSString=Mid(BSString,1,i+1)ExitForEndIfNextK=0c=0Forj=11ToLen(BSString)-10IfMid(BSString,j,1)=0Andc<3Thentemp(K)=0K=K+1c=0ElseIfMid(BSString,j,1)=0Andc=3Thentemp(K)=1K=K+1c=0ElseIfMid(BSString,j,1)=1Andc<3Thenc=c+1EndIfIfK=5ThenK=0Stemp=""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()Picture1.ClsDimoDLGSetoDLG=CreateObject("MSComDlg.CommonDialog")WithoDLG.DialogTitle="打开文件".Filter="图片文件|*.jpg;*.bmp;*.tif".FilterIndex=1.MaxFileSize=255.ShowOpenIf.FileName<>""ThenPicture1.Picture=LoadPicture(.FileName)EndIfEndWithSetoDLG=NothingEndSubPrivateSubCommand5_Click()DimscaleModeAsIntegerscaleMode=Picture1.scaleModePicture1.scaleMode=3Printer.scaleMode=6Printer.PaintPicturePicture1.Image,0,0,Picture1.ScaleWidth,Picture1.ScaleHeight,0,0,Picture1.ScaleWidth,Picture1.ScaleHeightPrinter