欢迎来到第壹文秘! | 帮助中心 分享价值,成长自我!
第壹文秘
全部分类
  • 幼儿/小学教育>
  • 中学教育>
  • 高等教育>
  • 研究生考试>
  • 外语学习>
  • 资格/认证考试>
  • 论文>
  • IT计算机>
  • 法律/法学>
  • 建筑/环境>
  • 通信/电子>
  • 医学/心理学>
  • ImageVerifierCode 换一换
    首页 第壹文秘 > 资源分类 > DOCX文档下载
    分享到微信 分享到微博 分享到QQ空间

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

    • 资源ID:672852       资源大小:56.84KB        全文页数:10页
    • 资源格式: DOCX        下载积分:5金币
    快捷下载 游客一键下载
    账号登录下载
    三方登录下载: 微信开放平台登录 QQ登录
    下载资源需要5金币
    邮箱/手机:
    温馨提示:
    快捷下载时,如果您不填写信息,系统将为您自动创建临时账号,适用于临时下载。
    如果您填写信息,用户名和密码都是您填写的【邮箱或者手机号】(系统自动生成),方便查询和重复下载。
    如填写123,账号就是123,密码也是123。
    支付方式: 支付宝    微信支付   
    验证码:   换一换

    加入VIP,免费下载
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    《条码技术》课程设计--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码之间有很多不一样的地方,通过仔细研究,我更加了解了他们之间的区别,为我设计不一样的条码奠定了基础。

    注意事项

    本文(《条码技术》课程设计--Code25码生成与识别程序设计.docx)为本站会员(p**)主动上传,第壹文秘仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知第壹文秘(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    copyright@ 2008-2023 1wenmi网站版权所有

    经营许可证编号:宁ICP备2022001189号-1

    本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。第壹文秘仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知第壹文秘网,我们立即给予删除!

    收起
    展开