level 3
比如,很简单的,用print在屏幕上显示“大家好”,而不是hello world?
我是在dos(不是windows控制台的文字界面,是真正的dos6.2)环境下编程的,运行了ucdos,能在qb里输入中文,但存为exe之后放windows上就乱码了。又尝试了文本编辑好,改后缀为.bas,还是不行,总之是乱码。
难道dos系统里就不能用中文了?
2012年11月30日 13点11分
1
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