求教,qbasic怎么编有中文的程序
qbasic吧
全部回复
仅看楼主
level 3
比如,很简单的,用print在屏幕上显示“大家好”,而不是hello world?
我是在dos(不是windows控制台的文字界面,是真正的dos6.2)环境下编程的,运行了ucdos,能在qb里输入中文,但存为exe之后放windows上就乱码了。又尝试了文本编辑好,改后缀为.bas,还是不行,总之是乱码。
难道dos系统里就不能用中文了?
2012年11月30日 13点11分 1
level 3
这个吧没人了?
2012年12月02日 01点12分 2
level 6
ucdos 尼。。。?
2012年12月04日 15点12分 3
ucdos下可以编辑中文,exe文件在dos下也是中文,没问题的。就是不知道怎么让exe文件能在windows下也正常。
2012年12月05日 06点12分
ccdos
2013年06月27日 06点06分
level 14
楼主没看我编写的关于qbasic中显示汉字的程序吗?
REM Qbasic 显示汉字函数 for liuhaitao QQ:7552169
SCREEN 12
hz1$ = "测试用点阵字显示方法" viewhz 1, 100, hz1$, 11
REM 显示汉字的子程序,需要汉字库hzk.fnt
SUB viewhz (x0, y0, hz.word$, hzcol)
OPEN "hzk16" FOR BINARY AS #1
IF LOF(1) = 0 THEN PRINT "没有汉字库! ":END savex0 = x0: savey0 = y0
FOR now = 1 TO LEN(hz.word$)
qu = ASC(MID$(hz.word$, now, 1))
IF qu >= 161 THEN
now = now + 1
IF now > LEN(hz.word$) THEN EXIT FOR
wei = ASC(MID$(hz.word$, now, 1))
ps& = ((qu - 161) * 94& + wei - 161) * 32& + 1
SEEK #1, ps&
zimo$ = INPUT$(32, 1)
num = 1
FOR y = 0 TO 15
chr1$ = MID$(zimo$, num, 1)
num = num + 1
chr2$ = MID$(zimo$, num, 1)
num = num + 1
chr3$ = chr2$ + chr1$
LINE (x0, y0 + y)-STEP(15, 0), hzcol, , CVI(chr3$)
NEXT y
x0 = x0 + 16
ELSE
SEEK #2, qu * 16
zimo$ = INPUT$(16, 2)
FOR y = 1 TO 16
zmchr$ = CHR$(0) + MID$(zimo$, y, 1)
LINE (x0, y0 + y)-STEP(15, 0), hzcol, , CVI(zmchr$)
NEXT y
x0 = x0 + 8
END IF
NEXT now
x0 = savex0: y0 = savey0 close #1
END SUB
2013年02月08日 10点02分 5
vccnvb
2013年02月20日 10点02分
great!!
2013年09月12日 13点09分
level 8
eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
2013年02月20日 10点02分 6
level 9
在虚拟机里试了下,有点小问题:
1、IF LOF(1) = 0 THEN PRINT "没有汉字库! ":END savex0 = x0: savey0 = y0
调试有错误
后改为:
IF LOF(1) = 0 THEN
PRINT "没有汉字库! "
eixt sub
END if
savex0 = x0: savey0 = y0
2、x0 = savex0: y0 = savey0 close #1
调试有错误
后改为:
x0 = savex0: y0 = savey0:close #1(少了个":")
修改后运行成功,显汉字没有问题,呵呵,@tsliuhaitao 牛B!
2014年01月25日 06点01分 9
@wishnet 那就没问题
2014年02月06日 02点02分
1