如何在QB程序中输入汉字？ - qbasic吧

level 1

璐村惂鐢ㄦ埛_00a1ARC馃惥楼主

有相关软件的同仁请共享一下啊，谢谢

2005年11月14日 08点11分 1

level 0

218.89.199.*

记事本里输进去

2005年11月24日 14点11分 2

level 0

218.89.199.*

不可能！输入后是乱码。

2005年11月27日 00点11分 3

level 0

218.89.199.*

Win98附带有汉字支持系统，在C:\下输入Pdos95就可以了

2005年11月27日 04点11分 4

level 0

218.89.199.*

还是使用UCDOS吧。

2005年12月30日 14点12分 5

level 0

218.89.199.*

SDFWEE

2006年02月08日 08点02分 6

level 1

spy_hai

我不知道，请详细讲解，谢谢

2006年02月13日 03点02分 7

level 0

218.89.199.*

最好是用UCDOS或天汇等支持中文输入的DOS系统进行操作QB,我们在学校上机都是用的UCDOS来编程的,里面用ALT+F2-6可以切换中英文输入,也支持显示.但在DOS下编的程序,拿到WINDOS下运行的话,中文部分会是乱码

2006年05月09日 07点05分 8

level 1

郑京

ddddd,真好！！！

2006年05月16日 05点05分 9

level 0

218.89.199.*

DECLARE FUNCTION bin2binstr$ (b%) 'note:请把"ucdos"的字体文件复制出来。 DIM a%(16) DIM bstr1$(16) DIM bstr$(16) SCREEN 12 CLS OPEN "HZK16" FOR BINARY AS #1 FOR offs = 1 TO 500000 STEP 32 'offs = 45120 LOCATE 1, 1 w = INT(offs / 32) MOD 94 q = INT(INT(offs / 32) / 94) PRINT q, w SEEK #1, offs FOR rec = 1 TO 16 GET #1, , a%(rec) ' PRINT HEX$(a%(rec)) NEXT rec FOR i = 1 TO 16 bstr1$(i) = bin2binstr$(a%(i)) bstr$(i) = RIGHT$(bstr1$(i), 8) + LEFT$(bstr1$(i), 8) ' PRINT bstr$(i) NEXT i 'INPUT aa x = 200 FOR i = 1 TO 16 FOR j = 1 TO 16 IF MID$(bstr$(i), j, 1) = "1" THEN PSET (j + x, i + 60), 2 ELSE PRESET (j + x, i + 60) END IF IF MID$(bstr$(i), j, 1) = "1" THEN PSET (j + x - 1, i + 59), 13 END IF NEXT j NEXT i 'NPUT aa FOR delay = 1 TO 80000: NEXT delay CLS NEXT offs FUNCTION bin2binstr$ (b%) STATIC t$ = STRING$(16, "0") IF b% THEN IF b% < 0 THEN MID$(t$, 1, 1) = "1" END IF mask% = &H4000 FOR i% = 2 TO 16 IF b% AND mask% THEN MID$(t$, i%, 1) = "1" END IF mask% = mask% / 2 NEXT i% END IF bin2binstr$ = t$ END FUNCTION

2006年07月29日 04点07分 10

level 0

218.89.199.*

可以不用字符串，用and运算检测特定位，为真就画点，能快一点：
SCREEN 12
x = 1
y = 1
ch$ = "壬"
DIM text(32)
OPEN "d:\qbasic\hzk16f" FOR RANDOM AS #1 LEN = 32
FIELD #1, 32 AS c$
ss = ASC(MID$(ch$, 1, 1))
ww = ASC(MID$(ch$, 2, 1))
aa = (ss - 161) * 94 + (ww - 161)
GET #1, aa
FOR i = 0 TO 15
FOR j = 0 TO 1
a = ASC(MID$(c$, i * 2 + j + 1, 1))
FOR k = 0 TO 7
code = a AND 2 ^ (7 - k)
IF code THEN PSET (x + j * 8 + k, y + i)
NEXT
NEXT
NEXT

2010年07月29日 12点07分 11