Qbasic怎样输入汉字 - qbasic吧

level 7

be_bester 楼主

Qbasic怎样输入汉字？求教。。

2016年08月07日 04点08分 1

level 14

起帆远航

纯dos系统下，安装中文环境如ucdos 等。如果是在 xp 或是win7等环境下，建议别用中文输入，直接使用英文吧。

2016年08月08日 03点08分 2

level 1

wlytcl

2016年10月08日 08点10分 7

level 1

wlytcl

SCREEN 12: WIDTH , 60
x=10:y=240
ch$ = "输入 <比较基准年月日> 8位数，默认年月日为20160630。"
OPEN "asc16" FOR BINARY AS #2
OPEN "hzk16f" FOR BINARY AS #1
m = 1
1 IF m > LEN(ch$) THEN 3
ss = ASC(MID$(ch$, m, 1))
IF ss < 161 THEN x = x + 1: GOTO 2
ww = ASC(MID$(ch$, m + 1, 1))
aa = ((ss - 161) * 94 + (ww - 161)) * 32 + 1
'((qu - 161) * 94& + wei - 161) * 32& + 1
SEEK #1, aa
c$ = INPUT$(32, 1)
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), 11
NEXT k
NEXT j
NEXT i
x = x + 14
m = m + 2: GOTO 1
2 SEEK #2, ss * 16 + 1
yw$ = INPUT$(16, 2)
FOR i = 1 TO 16
a = ASC(MID$(yw$, I, 1))
FOR k = 0 TO 7
code = a AND 2 ^ (7 - K)
IF code THEN PSET (x + k, y + i), 11
NEXT k
NEXT i
x = x + 8
m = m + 1: GOTO 1
3 CLOSE
#1: CLOSE #
2

2016年10月08日 08点10分 8

be_bester

什么意思？

2016年10月10日 13点10分

wlytcl

@be_bester 写程序时，直接调用二进制字库文件，写入汉字；不再用汉字输入法

2016年10月12日 09点10分

level 1

wlytcl

Screen 12 VGA显示方式，640*480； ys:十六色，color=0~15。
Width ,60 表示用Locate语句可以显示58行英文和数字。(理论上60行,实际上59行就出现滚屏)
ch$ 是想要在屏幕上显示的汉字内容（只能写一行,最多40个汉字)
x,y为显示字符串ch$的横，纵坐标的起始位置；X=0~639,Y=0~479。
hzk16f 是<汉字仿宋体> 的16针显示字库文件；asc16 是〈英文和数字〉的16针字库文件

2016年10月12日 09点10分 9