Board logo

标题: 自动检测汉字系统是否加载的QUICK BASIC程序 [打印本页]

作者: mys     时间: 2004-2-27 00:00    标题: 自动检测汉字系统是否加载的QUICK BASIC程序
这是在某本合订本上介绍的,原来介绍用C检测,我后来用QB实现了,现在找到程序把它贴出来,只要用一个变量保存检测结果,准备好两套显示,就可以对是否有汉字系统自动适应了。

REM 在BASIC程序中自动检测汉字系统
DEF SEG = &H40
mode = PEEK(&H49)
OUT &H3CE, &H6
result = INP(&H3CF) AND &HF
PRINT "mode="; mode, "result="; result
IF mode = 3 AND result = 5 THEN
PRINT "现在于直接写屏的汉字系统中"
PRINT "现在你看到的是汉字"
ELSE
IF mode = 3 AND result = 14 THEN
PRINT "Is not any CCDOS in the memory ,It's it ?"
PRINT "So , You only see the English"
ELSE
IF mode = 18 AND result = 1 THEN
PRINT "你现在非直接写屏的汉字系统中"
ELSE
PRINT "I Can't know which display mode ."
END IF
END IF
END IF

作者: Wengier     时间: 2004-2-28 00:00
把程序中的这一行:

IF mode = 3 AND result = 5 THEN

改成:

IF mode = 3 AND (result = 1 or result = 5) THEN

吧,否则在Win9x/ME的DOS窗口中的AW97、XZL等汉字系统下,或者在纯DOS下均无法正常判断汉字系统是否加载。


作者: Kinglion     时间: 2004-3-2 00:00
我也有一段关于判断中文系统是否启动的Quick BASIC程序。改天上传供大家分享。

作者: Kinglion     时间: 2004-3-21 00:00    标题: 我的关于检测中文系统是否启动的Quick BASIC程序
CALL TestCcdos
SYSTEM

SUB TestCcdos
DIM a%(50)
DEF SEG = VARSEG(a%(0))
RESTORE
FOR I% = 0 TO 37
READ D%
IF I% = 4 THEN
D% = VARPTR(a%(49)) MOD 256
ELSEIF I% = 5 THEN
D% = VARPTR(a%(49)) / 256
END IF
POKE VARPTR(a%(0)) + I%, D%
NEXT I%

CALL ABSOLUTE(VARPTR(a%(0)))
DEF SEG
IF a%(49) = 0 THEN
PRINT
PRINT "This is a test program!"
PRINT "If you run it under Chinese System, Program will show GB Chinese char message."
PRINT
SYSTEM
ELSE
PRINT "这是一个中文测试程序!"
PRINT "版权所有:金狮计算机软件工作室 窦杰晖"
PRINT "电子邮件:kinglionsoft@idvweb.com"

END IF
END SUB

DATA &H50,&H53,&H56,&HBE,&H00,&H00,&H2E,&HC7,&H04,&H00,&H00,&HB8,&H00,&HDB,&HCD,&H2F
DATA &H3C,&HFF,&H74,&H09,&HB8,&H10,&HDB,&HCD,&H10,&H3C,&HFF,&H75,&H05,&H2E,&HC7,&H04
DATA &H01,&H00,&H5E,&H5B,&H58,&HCB





作者: xugaohui     时间: 2009-7-5 10:57
顶一下老贴。
请教大家,这样检测汉字系统是否加载后能不能新增一个DOS环境变量?
微软的方法是再调用批处理设置环境变量:http://support.microsoft.com/kb/43691/zh-cn
vbdos的Environ只能修改或删除已经存在的dos环境变量,而不能新增加环境变量。
这样很不方便,能不能直接在QB中新增一个环境变量呢?

Last edited by xugaohui on 2009-7-5 at 11:03 ]

作者: 本是     时间: 2009-7-5 12:46    标题: 不用环境变量,只要7行汇编代码就行!
不用环境变量,只要7行汇编代码就行!
mov dx,3C4h
mov al,02
out dx,al
mov dx,3C5h
in al,dx
cmp al,03
下一行用JZ 英语DOS或者JNZ 中文DOS即可。
我的VTmagik.com中就是如此操作的。
;jz EnDisp, jnz CcDisp

作者: xugaohui     时间: 2009-7-5 13:10
不懂汇编和C,我想是用一个程序检测是否为中文环境,然后设置环境变量cn=1,这样在dos下任何批处理都可以判断当然环境是否中文的,很方便做出中英文显示的批处理程序。在Qb也可以输入中英文提示。我看了Pascal也没有新增环境变理的命令。
微软的网站是总是这样的说明:http://support.microsoft.com/kb/69846/zh-cn
看powerbasic的帮助试试PEEK$ 和 POKE$解决问题,估计这个办法不太好。

经测试用PEEK$ 和 POKE$不行,因为内存中有多个程序段前缀PSP,这样就搜到很多环境变量,却不知那个是正确的。

Last edited by xugaohui on 2009-7-5 at 15:37 ]

作者: 本是     时间: 2009-7-6 00:19
6楼的汇编转BASIC如下:
REM 在BASIC程序中自动检测汉字系统
OUT &H3C4, 02
result = INP(&H3C5) AND &HF
IF result = 3 THEN
PRINT "MS/PC DOS"
ELSE
PRINT "CCDOS"
END IF
END

作者: xugaohui     时间: 2009-7-6 04:45
谢谢本是,楼上的简单有效。
vbdos本身不能设置环境变量,但system语句可以返回DOS错误号,可以在批处理很好调用,比环境变量更好使用。

作者: xugaohui     时间: 2009-7-6 23:50
继续请教本是,wbat程序在加载ccdos后,用鼠标操作时控件时有问题。怎么QBasic写个鼠标驱动是否加载的程序呢?
网上的文章太多是调用中断的。这样生成的文件太大,而且不方便。
http://support.microsoft.com/kb/37882/zh-cn
http://support.microsoft.com/kb/28171/zh-cn

作者: 本是     时间: 2009-7-7 04:53
请参考“QBASIC对QB中断调用的移植及绝对地址调用的扩展”(http://www.cn-dos.net/forum/viewthread.php?tid=48086&sid=e1w9ca

作者: byxyk     时间: 2009-7-7 06:08
bool InWinBox( )
{
_AX = 0x160a;
geninterrupt( 0x2f );
return !_AX;
}

作者: netreg     时间: 2010-11-19 15:11
学习……