一个FOXPRO for DOS下的程序执行进度指示器 孙文硕 1997-01-01 #3　　调用方式： 　　ＤＯ　ｗｏｒｋｉｎｇ　ＷＩＴＨ　总次数，当前次数，提示１，提示２ #3　　参数说明： 　　总次数　　　　　　　数值型 　　当前次数　　　　　　数值型 　　值０　　　　　　　　指示器初始化 　　值－１　　　　　　　清除指示器 　　指示１、指示２　　　字符串，串长度不大于６０ #3　　运行环境： 　　ＦＯＸＰＲＯ　２．５Ｂ　ｆｏｒ　ＤＯＳ 　　ＰＲＯＣ　ｗｏｒｋｉｎｇ 　　ＰＡＲＡ　ｍ．ｚｏｎｇ，ｍ．ｘｉａｎ，ｍ．ｔｉｓｈ１，ｍ．ｔｉｓｈ２ 　　ＰＲＩＶ　ｍ．ｂｆｂ，ｍ．ｂｆｂ－ｃｈ，ｍ．ｌｉｅ #3　　＊格式化提示字符串＊ 　　ｍ．ｔｉｓｈ１＝ＡＬＬＴ（ｍ．ｔｉｓｈ１） 　　ｍ．ｔｉｓｈ１＝ＩＩＦ（ＬＥＮ（ｍ．ｔｉｓｈ１）；＞６０，ＬＥＦＴ（ｍ．ｔｉｓｈ１，５８）＋＇…＇；ｍ．ｔｉｓｈ１＋ＳＰＡＣ（６０－ＬＥＮ；（ｍ．ｔｉｓｈ１））） 　　ｍ．ｔｉｓｈ２＝ＡＬＬＴ（ｍ．ｔｉｓｈ２） 　　ｍ．ｔｉｓｈ２＝ＩＩＦ（ＬＥＮ（ｍ．ｔｉｓｈ２）；＞６０，ＬＥＦＴ（ｍ．ｔｉｓｈ２，５８）＋＇…＇；ｍ．ｔｉｓｈ２＋ＳＰＡＣ（６０－ＬＥＮ（ｍ．ｔｉｓｈ２））） #3　　＊计算执行程度百分比（ｍ．ｂｆｂ）＊ #3　　＊百分数（ｍ．ｂｆｂ－ｃｈ）的显示位置（ｍ．ｌｉｅ）＊ 　　ｍ．ｂｆｂ＝ｍ．ｘｉａｎ／ｍ．ｚｏｎｇ＊１００＋０．２　　　＆＆０．２是百分数舍入系数 　　ｍ．ｂｆｂ－ｃｈ＝ＬＴＲＩ（ＳＴＲ（ｍ．ｂｆｂ，３）） 　　ｍ．ｌｉｅ＝ＩＩＦ（ｍ．ｂｆｂ＊０．６／２＜１，１，ＩＮＴ（ｍ．ｂｆｂ＊０．６／２）） 　　＆＆显示在动态条的中间 #3　　＊指示器初始化＊ 　　ＩＦ　ｍ．ｘｉａｎ＝０　ＯＲ　！ＷＶＩＳ（＇ＪＤＷ＇） 　　ＤＥＦＩ　ＷＩＮＤ　ｊｄｗ　ＡＴ　１０，８　ＳＩＺＥ　３，６２　ＣＯＬＯ　ＳＣＨＥ　１０； 　　ＴＩＴＬ　执行进度指示器 　　ＮＯＦＬ　ＮＯＧＲ　ＮＯＺＯ 　　ＡＣＴＩ　ＷＩＮＤ　ｊｄｗ 　　＠２，１　ＳＡＹ　ＳＰＡＣＥ（６０）　ＣＯＬＯ　Ｂ／Ｗ 　　＆＆白色条 　　ＥＮＤＩ #3　　＊指示器的清除及运行＊ 　　ＩＦ　ｍ．ｚｏｎｇ＜ｍ．ｘｉａｎ　ＯＲ　ｍ．ｘｉａｎ＜０ 　　　　？？ＣＨＲ（７） 　　　　＝ＩＮＫＥＹ（２） 　　　　ＲＥＬＥ　ＷＩＮＤ　ｊｄｗ 　　ＥＬＳＥ 　　　　ＡＣＴＩ　ＷＩＮＤ　ｊｄｗ 　　　　＠０，１　ＳＡＹ　ｍ．ｔｉｓｈ１ 　　　　＠１，１　ＳＡＹ　ｍ．ｔｉｓｈ２ 　　　　ＩＦ　ｍ．ｂｆｂ＊０．６＜２ 　　ＩＦ　ＩＮＴ（ｍ．ｂｆｂ＊０．６）＝０ 　　　　＠２，１　ＳＡＹ　ｍ．ｂｆｂ－ｃｈ＋％＇　ＣＯＬＯ　Ｂ／Ｗ 　　　　＠２，６１　ＳＡＹ　＇　　　＇　＆＆定位光标 　　ＥＬＳＥ 　　　　＠２，１　ＳＡＹ　ｍ．ｂｆｂ－ｃｈ　ＣＯＬＯ　Ｗ／Ｂ 　　　　＠２，２　ＳＡＹ　＇％＇　　　ＣＯＬＯ　Ｂ／Ｗ　　　＆＆反象显示字符 　　　　＠２，６１　ＳＡＹ　＇　　　＇ 　　ＥＮＤＩ 　　ＥＬＳＥ 　　＠２，１　ＳＡＹ　ＳＰＡＣＥ（ＩＮＴ（ｍ．ｂｆｂ＊０．６））　ＣＯＬＯ 　　Ｗ／Ｂ 　　＠２，ｍ．ｌｉｅ　ＳＡＹ　ｍ．ｂｆｂ－ｃｈ＋＇％＇　ＣＯＬＯ　Ｗ／Ｂ 　　＠２，６１　ＳＡＹ　＇　　　＇ 　　　　ＥＮＤＩ 　　ＥＮＤＩ 　　ＲＥＴＵ #3　　＊调用举例＊ 　　ＳＥＴ　ＴＡＬＫ　ＯＦＦ 　　ｍ．ｓｓ＝０ 　　ｍ．ｅｅ＝１２０ 　　ＦＯＲ　ｍ．ｉ＝ｍ．ｓｓ　ＴＯ　ｍ．ｅｅ＋１ 　　　　＝ＩＮＫＥＹ（１） 　　　　ＤＯ　ｗｏｒｋｉｎｇ　ＷＩＴＨ　ｍ．ｅｅ，ｍ．ｉ；＇指示器运行举例…＇，ＳＴＲ（ｍ．ｅｅ，４）＋ＳＴＲ（ｍ．ｉ，４） 　　ＥＮＤＦ 　　ＳＥＴ　ＴＡＬＫ　ＯＮ 　　屏幕上显示一个有三行空间的窗口，第一和第二行为提示，第三行为长６０个字符的指示条。每一秒改变一次显示，每两秒蓝色指示条进一格，百分数随之改变。最后响铃提示，窗口清除。