微机控制的字符放大打印
微机控制的字符放大打印 第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的中小学.