菜单选择功能 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

DOS功能调用31H或4C所提供的一字节的返回码，通过批处理子命令IF和ERRORLEVEL对返回码进行处理，可达到自动执行一批命令的目的。在批处理文件中实现所有高级语言的菜单提示功能，使批处理文件变得更加灵活方便。先用DEBUG建立一个菜单驱动程序MENU.COM，对应地编写一个批处理文件lg.bat。具体内容和方法如下：
DEBUG
-166C:0100 MOV DX,111
-166C:0103 MOV AH,09
-166C:0105 INT 21
-166C:0107 MOV AH,01
-166C:0109 INT 21
-166C:010B MOV AH,4C
-166C:010D INT 21
-166C:010F INT 20
-166C:0111 DB '***********************'0D 0A
-166C:0131 DB '*1.Turbo Pascal 5.00*'0D 0A
-166C:0151 DB '*2.Turbo Basic 1.00*'0D 0A
-166C:0171 DB '*3.Turbo Prolog 2.00*'0D 0A
-166C:01B1 DB '*3.Turbo C 2.00*'0D 0A
-166C:01B1 DB '*4.Exit*'0D 0A
-166C:01F1 DB '***********************'0D 0A
-166C:01F1 DB 'Your choicce(0..4):'24 0D 0A 1A
-166C:0209
-RCX
CX0000
:108
-N MENU.COM
-W
Writing 0108 bytes
-Q

再建立一个批处理文件，调用菜单驱动程序，根据返回的字节码作出相应的处理。
@ECHO OFF
START
CLS
MENU
IF ERRORLEVEL 52 GOTO C
IF ERRORLEVEL 51 GOTO PRO
IF ERRORLEVEL 50 GOTO BAS
IF ERRORLEVEL 49 GOTO PAS
IF ERRORLEVEL 48 GOTO EX
CLS
GOTO START

:PAS
TURBO.EXE
GOTO START

:BAS
BASIC.EXE
GOTO START

:PRO
PROLOG.EXE
GOTO START

:C
TC.EXE
GOTO START

:EX
@ECHO ON
执行LG，屏幕左上角先出现一个菜单，并提示用户输入选择，当选择的功能执行结束，重新返回主菜单请求选择，直到选择“0”号功能，程序结束返回DOS。

第1楼　DOSLER	发表于 2008-03-09 20:28
新手上路　发帖 6　积分 18
菜单选择功能 DOS功能调用31H或4C所提供的一字节的返回码，通过批处理子命令IF和ERRORLEVEL对返回码进行处理，可达到自动执行一批命令的目的。在批处理文件中实现所有高级语言的菜单提示功能，使批处理文件变得更加灵活方便。先用DEBUG建立一个菜单驱动程序MENU.COM，对应地编写一个批处理文件lg.bat。具体内容和方法如下： DEBUG -166C:0100 MOV DX,111 -166C:0103 MOV AH,09 -166C:0105 INT 21 -166C:0107 MOV AH,01 -166C:0109 INT 21 -166C:010B MOV AH,4C -166C:010D INT 21 -166C:010F INT 20 -166C:0111 DB '**********************'0D 0A -166C:0131 DB '1.Turbo Pascal 5.00'0D 0A -166C:0151 DB '2.Turbo Basic 1.00'0D 0A -166C:0171 DB '3.Turbo Prolog 2.00'0D 0A -166C:01B1 DB '3.Turbo C 2.00'0D 0A -166C:01B1 DB '4.Exit'0D 0A -166C:01F1 DB '**********************'0D 0A -166C:01F1 DB 'Your choicce(0..4):'24 0D 0A 1A -166C:0209 -RCX CX0000 :108 -N MENU.COM -W Writing 0108 bytes -Q 再建立一个批处理文件，调用菜单驱动程序，根据返回的字节码作出相应的处理。 @ECHO OFF START CLS MENU IF ERRORLEVEL 52 GOTO C IF ERRORLEVEL 51 GOTO PRO IF ERRORLEVEL 50 GOTO BAS IF ERRORLEVEL 49 GOTO PAS IF ERRORLEVEL 48 GOTO EX CLS GOTO START :PAS TURBO.EXE GOTO START :BAS BASIC.EXE GOTO START :PRO PROLOG.EXE GOTO START :C TC.EXE GOTO START :EX @ECHO ON 执行LG，屏幕左上角先出现一个菜单，并提示用户输入选择，当选择的功能执行结束，重新返回主菜单请求选择，直到选择“0”号功能，程序结束返回DOS。