《條碼技術(shù)》課程設(shè)計(jì)-Code25碼生成與識別程序設(shè)計(jì)

《條碼技術(shù)》課程設(shè)計(jì)題目Code25碼專業(yè)包裝工程

目錄一、課程設(shè)計(jì)目標(biāo)····················3二、程序界面設(shè)計(jì)····················3三、程序代碼設(shè)計(jì)····················4四、程序運(yùn)行結(jié)果····················9五、設(shè)計(jì)心得體會····················10

程序設(shè)計(jì)目標(biāo)任選一種條碼碼制(39碼除外)，編程實(shí)現(xiàn)條碼的生成、打印、存儲、打開、識別等功能。（利用CorelDraw軟件生成不同碼制的條形碼符號。熟悉VB編程環(huán)境下的一些基本操作和基本編程語言。利用VB編寫程序?qū)崿F(xiàn)條碼的生成。利用VB編寫程序?qū)崿F(xiàn)條碼的識別。)程序界面設(shè)計(jì)程序界面設(shè)計(jì)應(yīng)該包括繪圖、條碼編譯、打開圖片、保存圖片、打印、清空等基本內(nèi)容。程序代碼設(shè)計(jì)程序代碼的內(nèi)容：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圖標(biāo)(*.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))'去前空白區(qū)0Fori=Len(BSString)To1Step-1'去后空白區(qū)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