微机控制的字符放大打印

微机控制的字符放大打印 微机控制的字符放大打印 第8卷第一期, 】993年2月 扎,I}社. _,7—7g 微机控制的字符放大打印 赵健 —— 一一一 f{: 目前,个人电脑日益普及,硬件更新换代很快,但由于软件没有相应快的发展,汁算机在生 产和生活中的应用有待开发.本文介绍了用BASIC语言编制的字符放大打印程序,可以打印出 正常情况下无法打印出的超级放大字体.卓符葡芙不以2.8cm藁虿倍放大,在宽 行打印机上可打出56cm×56era,美观大方的超大字母,对于封面设计,条幅装潢均有参考价 值,实打字体见图.本程序已在APPLEI机上通过,经修改两条命令语句后,可:~IBMPC及其 兼容机上快速运行打印. 程序如下: REM哪^R^CI'E日GING INPUTWaDTtt:IX:fPLrrI正NI刑}Y 1NPuT恤:}D;INPuTSFOr(OWN),M$ INPL,rs】?日CE:A$ A=ASC(LEFr$(A$,1)) FoRT=lTOtr~(A$):B$=MlD$(A$,T,】) F0RR=1TO90 READC$,C(1),c(2),c(3),c(4),c(5).c(6),c(7) IFB$?380 1FB$一c$11120 NEXTR REnDRE X$=M$ 1FM$一OWN"11X$=C$ FORQ--1TO7 FDRK=8T00rEP—l IF2一K<c(Q)THEN190 】《9一K)=0:o啪210 J(9一K)一1:c(Q'=C(Q)一2K 1Fc(Q)】删400 NEXTK mRT1一】TDX PR.LNTTAB((63—1.5*Y)*D/(LEN(X$))+1), FORW=lTDF(O):lFJ(w):0THEN FORl—lTO2*Y pRINT(HR$(27)Ic}lR$(】5)IX$ NEXTI GOEO330 FORl=】TO2*Y 文稿收到R期:1992—11】8 FOR11一】TOLEN(X$) PRINT"_:NEXTT】 NEXTl N?rW PRINT:NEXTTI;NEXTQ FoRH=l02$X:PRlNT:NEXTH N?rT FORH一】TO75:PRINT:NEXTH;END FDRH=】TO7*X:PRINT;NEXTH G?360 F(Q)一9一K:GOTO220. D^TA6,255.290,274,274,274,274,23] D^TA.1.1.1,l,l,l,l DATA.】25,l3l,258,258,290,】63,101 D^TA",505,37,35,34,35,37,505 D,512,274,274,274,274,274,258 D^T^1T|,2,2,2.5l2,2,2,2 DATAW,256,257,129,65,129,257,256 DATAU.,512,257,257.257,257.257,257 D^1_A,69,】3.,274.274,274,l63,? DA1_A,l25,131,258,258,l3j,125 DA1A.512,7.9,l7,33,lg3t5l2 n^TAFw.512.】8,l8,l8,l8,2,】 DATA,512,】7,17,41.69,l31,258 DATA,512.274.274,274,274,274.239 DATA.512.258,258,258,258,】3】,】25 ?^TAH".512,l7,l7,】7,l7,】7,5l2 D^1_AM,512,7,】3,25.13,7,512 DATA,5,3,2,354,l8,l】,5 D^工uJ.128,l29,257.257.257,l29,l28 . ?渤瑚枷啪湖啪蚕;删删咖?啪啪?咖啪啪? 如卸卸如邬印帅?瑚m?姗??毛暑??娜?啪 78赵健:微机控制的字符放大打印 600DATA…R,512,18j8,50,82?6,2717帅DATA',1,57,69.69,69,61,65, 610DATApo,512,18,18,18,l8,18,15",】.1.】28.73,73,49,l, 620DATA,l25,l3l,258.258322,131,381.".1.1.57,69,6969,】. 630DATA1.129,258.258,256,2,2…d,1,49,73,73,128,1,1 610DATA,8,9,17,181,】7,9,8750DATA,1,1.57,85,85.89,】, 650DATA,61.65,129,257,l29,65,64",1,257,137,127.10,3.1. 660DATA",388.69,41,17,41,69,388g,1,1,185,293,293,249,1 670DATA,368.322,290,274.266.262.260,7f,0D^h,1,1,128.9.121,65.1, l",258,258,258.512,258,258,258,i'.11,9,123,65,1,1, ,l25,l31,258,258,258,131691.65,】29,123,1,1,1 6811DATA1,】.1,261,259,512,257.257.770DATA…k,1,1,l28.】7,4l,69.1, .261,387.322,290,274,267,261.I",1,1,128,65,33.1,1, *,69,4l,17.512,17.41,69,5,121,5,121.5,121,l 690DATA",66,130,258.2"14,2}6,】50,100,780DATAn,1,5.121,5,l21,1.1, .33,49.U,37,35,512,33,,l,l,57,69,69,57.1. .160,274.274,274,274,274,226,l,261,249,37,37,25,1 700DATA,193.289,305,297,293.291.194,790DATA,1,25,37.37,249,265.1. DATA,258.130,66,34,l8.10,8,"rn,1,l,12l,17,9,9,j DATA"8JJ.69,171,274.274,271.】71,69800DATA,1,1,73,85.85,37,1, 71UDATA",263.138,7412,26.10.7,.1,】,9,63,73.33,J "=" ,d】,41,41,41,41,41,41,810DATA.】,61,65,65.6l,65,】, j,1.】,1.384,】,j,l,1.1.61,65,61,1,1 720DATA,l25,131,290,271,266.131.125,820DATAw".1,65,41,49,65.61,1, #",l,1,385,385,385.1,1.】,1.157,289,161,125.1 730DATA"+",17.17,l7,512,17,17.17,8鲫DATA.9.69,U,l7,4l,69,33, , ,49,49,d9,49,I9,49,49,840DATA,1.69,1叭,85,77.69,l n ,269,141.65,】9.9,197,】95850D 程序的原理是利用9×7点阵中,相应字符点的数和表示字符的,每一个条点都用一个9位 二进制数表示,7个这样的数即完整地表示了一个字符用户可以修改或补充字符. 程序20到40语句,分别由操作者输入需要打印字体内容及大小的有关数据如长度Length (1×n),宽度width(1Xn),打印字符左边距space(0--1.9),打印字符拼成点spot如"*"(若输入 OWn,则打印出的字符均由相应字母或数字组成),打印内容sen?ce.从6O语句到400语句分各 种情况,经判断与循环,进行字符的点打印.4l0语句及以后,是有关字符的点阵数据26O语句 的功能是使打印字符的拼成点紧密结合在一起,即所谓压缩打,使字符美观清晰.此外还可通 过控制行距,斜度,打印更多类型的字体,控制参数依打印机而定.本打印机是SakateSP一 1000,对Fx一8O和Fx10.均可用. (上接67页)自己动脑筋安装使用,这样,既验证了知识理论,又有利于开拓学生的思维,开发智 能,培养学生的创造能力. (3)培养学生勤俭节约的观念,微型化实验最大的一个特点就是:试剂用量仅为常规实验 的几十分之一.因此,它不仅能节约试剂,囡陋就简,而且能够节约时间,使学生有做更多实验 的机会,使学生得到更多的锻炼.同时,也大大缓解了目前经费不足的矛盾 (d)废液少,有利于环保.用微型化实验制备以上各物质并试验其性质.由于仪器微型化, 使用试剂量小,全封闭吸收,废液,废气排放量极少,有利于实验者健康和环保.这一优点,更适 合条件差的学校开设微型化实验. 总之,微型化实验实现了中学化学实验的系统化,全封闭吸收.通过这些实验,不仅能培养 学生的节约思想,系统的思维,刨造力,而且也能增强学生的环保意识和时间观念.笔者深 信,微型化学实验在不久的将米就能被推广到,-;k的中.