微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题推荐一个小应用程序
栏目软件操作与技巧
作者辽宁 张强
发布1993-04-02
  本程序打印字体和字型的变化,是用AA来代表ASCII的数值,通过对AA变量ASCII码数值的控制,达到改变字体和字型的目的。在这里当AA=65时,ASCII码65是大写的“A”;当AA=97时,ASCII码的97是小写的“a”。对于ASCII码值的控制,可参考ASCII码表进行调整。也可以采用BASIC语言编程实现。
  附:计算机内字体打印应用程序。
  SET TALK OFF
  SET DEVI TO SCRE
  DD=1
  DO WHILE.T.
  DO CASE
  CASE DD=1
  AA=65
  CASE DD=2
  AA=97
  CASE DD=3
  EXIT
  ENDCASE
  DO WHILE .T.
  SET DEVI TO PRINT
  BB=CHR(AA)
  M=PROW()
  @ M,1 SAY CHR(27)+'I&BB'
  @ M+1,0 SAY '&BB朝阳电业局计划科计算机'
  AA=AA+1
  M=M+1
  IF AA>84.AND.DD=1. OR.AA〉116.AND.DD=2
  EXIT
  ENDIF
  ENDDO
  @ M+2,4 SAY
  DD=DD+1
  ENDDO
  SET DEVI TO SCRE
  RETU
  (辽宁 张强)