程設計報告-Code93碼生成與識別

題目Code93碼生成與識別 四、設計結果五、總結一、課程設計目標選擇一種條碼碼制，編程實現(xiàn)條碼的生成、打印、存儲、打開、識別二、程序界面設計三、主要功能的算法實現(xiàn)說明'繪制條形碼圖形，顯示條形碼文字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’去前空白區(qū)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"條碼符號所表示的數(shù)據(jù)信息為："&vbCrLf&DataString四、設計結果如圖所示，經過設計調試可以實現(xiàn)任意條碼的輸入均能生成對應的條碼符號，并能保存、打??；打開條碼符號經過掃描后可以識別所包含的內容。利用VB軟件進行條碼程序編程，我熟悉掌握了VB環(huán)境下的基本操作，并實現(xiàn)了基本常用條碼的程序設計，編程的過程中也遇到