1、 商业自动化课程设计EAN 条码的生成（把商品编码生成 EAN 条码）1用计算机程序自动生成 EAN13 条码1） 开发工具自选；2） 采用 A 类编码规则和 C 类编码规则，外形尺寸符合 /接近 EAN 标准；3） 程序运行后先探出弹出商品编码输入界面，按确定按钮后显示条码的界面。4） 打印条码，测量外形尺寸。2用计算机程序自动生成 EAN13 条码1） 开发工具自选2） 采用 B 类编码规则和 C 类编码规则，外形尺寸符合/ 接近 EAN 标准；3） 程序运行后先探出弹出商品编码输入界面，按确定按钮后显示条码的界面。4） 打印条码，测量外形尺寸。3用计算机程序自动生成 EAN8 条码1）
2、开发工具自选；2） 采用 A 类编码规则和 C 类编码规则，外形尺寸符合 /接近 EAN 标准；3） 程序运行后先探出弹出商品编码输入界面，按确定按钮后显示条码的界面；4） 打印条码，测量外形尺寸。4用计算机程序自动生成 EAN8 条码1） 开发工具自选；2） 采用 B 类编码规则和 C 类编码规则，外形尺寸符合/ 接近 EAN 标准；3） 程序运行后先探出弹出商品编码输入界面，按确定按钮后显示条码的界面；4） 打印条码，测量外形尺寸。附 1：EAN 编码规则另外：起始符的逻辑值为 101，终止符的逻辑值为 101，中间分割符的逻辑值为 01010。附 2：EAN 码外形尺寸EAN 码的编译（
3、把条码编译成商品编码）5假设已获得 EAN 条码的二值图像文件，图像无噪音无缺陷无污染，请画出条码编译程序的流程图。注 1：条码图形与图像文件的原点坐标可能有夹角；条码可能是 EAN13 码也可能是 EAN8 码；条码的左资料码可能用 A 类编码也可能用 B 类编码。注 2：二值图像文件: 图像坐标(x,y)的像素值为 0 or1，0 为白色，1 为黑色。附 1：EAN 编码规则另外：起始符的逻辑值为 101，终止符的逻辑值为 101，中间分割符的逻辑值为 01010。二维点阵码的生成6二维点阵如图 1 所示，请编写自动生成如图 2 所示的 3*3 二维点阵码的计算机程序。1）开发工具自选（若
4、所选开发工具无画圆/点命令 /函数，可利用他人编写的画圆子程序）2）a 、b 、r 尺寸可在程序里赋值，a b r ；3）每个点的位置 D、R 、U 、L ，可在程序里赋值，也可以从输入界面上输入。7. 二维点阵如图 1 所示，请利用 ANOTO 公司的中间脚本文件自动生成如图 2所示的 3*3 二维点阵码。该中间脚本文件可以用记事本打开也可以用 GSVIEW 打开，用记事本打开则显示其脚本文件内容（附 1） ，文件中包含有点阵起始位置、点的方位、点阵尺寸的内容（见文件中的中文说明） ，改变该内容即可获得不同的点阵；脚本文件用GSVIEW 打开则显示点阵的图形并打印点阵。要求：1）修改脚本文件
5、中的点阵尺寸，使输入打印的点阵足以人为识别。2）编写计算机程序利用脚本文件和 GSVIEW 自动生成 3*3 二维点阵，即：在程序内给每个点的位置赋值或通过输入界面输入每个点的位置，打开脚本文件自动替换脚本文件内点的位置的内容，保存修改内容，用 GSVIEW 打开文件显示和打印 3*3 二维点阵。3）开发工具自定。注：1）GSVIEW 的安装程序和 ANOTO 公司的中间文件的电子版另外给。2）脚本文件的部分内容修改后不影响 GSVIEW 显示点阵，可根据需要自己尝试改动。附 1：脚本文件%!PS-Adobe-3.0%BoundingBox: (atend)%HiResBoundingBox:
6、 (atend)%Creator: GAPAT v2.50%Gapat: -oC:Documents and Settingsdell桌面cun.ps -l -pk2cmy -q -dpi 600 -dotrad 0.0300mm -dotoffset 0.0500mm -aC:Documents and Settingsdell桌面数码笔China_Fire_Depart_83.85.X.X.oal -aC:Program FilesAdobeAcrobat%Gapat: 7.0Acrobatplug_insAnotoFDTpen_utility_26.0.0.100.pal%Title:
7、China Fire Department Pilot %LanguageLevel: 2 %Pages: (atend)%DocumentProcessColors: Cyan Magenta Yellow Black%DocumentCustomColors: (AnotoPattern)%CMYKCustomColor: 0 0 0 1 (AnotoPattern)% Contents of this document is either copyright Anoto AB 2004 or by its respective owners% Some parts of this doc
8、ument might be generated by% Artifex Ghostscript 8.60 (2007-08-01)% Copyright (C) 2007 Artifex Software, Inc. All rights reserved.% Note that ghostscript is not shipped with this product in whole or in parts. Ghostscript% is optional for this product to function and is up to the end user to install.
9、 This product,% source, algorithms and parts of the output is not public or free in any respect and many of% the solutions, methods and algorithms are patented or pending.%EndComments%BeginProlog% k to cmy color colorseparation (c) Copyright Anoto AB 2004/srgbF 33 -1 roll 1 exch sub repeat 3 copy ad
10、d add 2.97 ge 33 -1 roll 0.01 sub repeat if 0 setcmykcolor bind def/scmykF dup dup 6 2 roll add 5 -1 roll exch 5 1 roll add 4 1 roll add 3 1 roll 33 -1 roll 1 exch sub dup 0 lt pop 0 if repeat srgbF bind def% This copyright applies to everything between here and the %EndProlog:% Copyright (C) 2004 a
11、rtofcode LLC, Benicia, CA. All rights reserved.%BeginResource: procset GS_epswrite_2_0_1001/GS_epswrite_2_0_1001 80 dict dup begin/PageSize 2 array def/setpagesize PageSize aload pop 3 index eq exch4 index eq and pop pop pop PageSize dup 15 -1 roll put 0 4 -1 roll put dup null eq false dup where ife
12、lse exch get exec pop/setpagedevice where pop 1 dict dup /PageSize PageSize put setpagedevice /setpage where pop PageSize aload pop pageparams 3 exch pop repeatsetpageififelseifelseifelse bind def/!bind defbind def/#load def!/N/counttomark #/rG33 -1 roll 255 divrepeat srgbF!/G255 div dup dup srgbF!/
13、K0 G!/r6dup 3 -1 roll rG!/r5dup 3 1 roll rG!/r3dup rG!/w/setlinewidth #/J/setlinecap #/j/setlinejoin #/M/setmiterlimit #/d/setdash #/i/setflat #/m/moveto #/l/lineto #/c/rcurveto #/pN 2 idivN -2 roll rlinetorepeat!/PN 0 gtN -2 roll moveto pif!/hp closepath!/HP closepath!/lx0 rlineto!/ly0 exch rlineto
14、!/v0 0 6 2 roll c!/y2 copy c!/re4 -2 roll m exch dup lx exch ly neg lx h!/3 index neg 3 index neg!/fP fill!/f*P eofill!/sH stroke!/SP stroke!/q/gsave #/Q/grestore #/rfre fill!/YP clip newpath!/Y*P eoclip newpath!/rYre Y!/|=pop exch 4 1 roll 3 array astore cvx exch 1 index def exec!/|exch string read
15、string |=!/+dup type/nametype eq2 index 7 add -3 bitshift 2 index mulif!/currentfile #/$+ |!/B2 copy stringreadstring popaload pop 4 array astore cvx3 1 rollrepeat pop pop true!/Ix1 0 0 1 11 -2 roll exch neg exch negexch!/,true exch Ix imagemask!/Iffalse exch Ix imagemask!/Iexch Ix image!/Icexch Ix
16、false 3 colorimage!/F/Columns counttomark 3 add -2 roll/Rows exch/K -1/BlackIs1 true/CCITTFaxDecode filter!/FX array/packedarray where pop packedarrayarray astore readonly ifelse bdef/findcmykcustomcolor where pop/findcmykcustomcolor % c m y k name findcmykcustomcolor array5 MakeReadOnlyArray bdef i
17、felse/setoverprint where pop/setoverprint % boolean setoverprint -pop bdef ifelse/setcustomcolor where popL1? /setcustomcolor % array tint setcustomcolor -exchaload pop pop4 4 index mul 4 1 roll repeat5 -1 roll popsetcmykcolor bdef/setcustomcolor % customcolorarray tintexch exch /Separation exch dup
18、 4 get exch /DeviceCMYK exch0 4 getinterval exch /dup load exch cvx mul exch dup/forall load /pop load dup cvx setcolorspace setcolor bdef ifelse ifelse/ik 0 def /iy 0 def /im 0 def /ic 0 def/imagetint % converts cmyk to grayscale equiv w/red book formula% called by setcmykcolor and customcolorimage procs.ic .3 mul
