Authorware 代码.docVIP

用户登录 变量初始化： totaluser:=[张三,李四,王五,孙二] 欢迎画面显示图标附属计算图标： totaluser:=ReadExtFile(FileLocation^user.txt) if Find(UserName,totaluser)=0 then welcome:=新朋友，欢迎第一次进入这个程序! AppendExtFile(FileLocation^user.txt,UserName) else welcome:=欢迎你,老朋友 end if EraseAll() if Month=1|Month=3|Month=5|Month=7|Month=9|Month=11|Month=12 then monthday:=31 else if Month=2 then monthday:=28 else if Month=4|Month=6|Month=8|Month=10 then monthday:=30 end if 控制声音的停止和播放 初始化： music:=0 state:=0 button1_label:=播放 button2_label:=暂停 播放： if MediaPlaying@音乐 then music:=1 button1_label:=播放 else MediaPlay(IconID@音乐) button1_label:=停止 end if 暂停： state:=~state if state then MediaPause(IconID@音乐,TRUE) button2_label:=继续 else MediaPause(IconID@音乐,FALSE) button2_label:=暂停 end if 设置演示窗口的屏幕分辨率 初始化： CurrentDispSet:=alGetCurrentDispSet() --取得当前显示器的分辨率 OldScreen:=Replace(x, ,CurrentDispSet) --分解分辨率参数 AllDispSet:=alGetDispSet() --取得当前显示器能显示的所有分辨率 old_screen:=[] --存储原始分辨率各参数 set_screen:=[] --存储设置分辨率各参数 设置屏幕分辨率： result:=SystemMessageBox(WindowHandle, 你目前的显示器分辨率为:^CurrentDispSet^,\r是否需要将分辨率更改为:800x600x32x75?, 更改分辨率?, 65) -- 1=OK, 2=Cancel if result=1 then alChangeRes(800,600,32,75) end if ResizeWindow(360,220) --设置演示窗口大小 分辨率列表： {AllDispSet} 取得并设置分辨率： SetDisp:=WordClicked --将鼠标单击分辨率列表所取得的一行内容存入setdisp中 if SetDisp0 then --判断鼠标是否点击到了分辨率列表 result:=SystemMessageBox(WindowHandle, 确实要将分辨率设成^SetDisp^?, 确认, 33) -- 1=OK, 2=Cancel --提示是否更改分辨率 if result=1 then --确定更改 repeat with i:=1 to 4 --以下循环分解点击的分辨率 set_screen[i]:=GetWord(i,Replace(x, ,SetDisp)) end repeat alChangeRes(set_screen[1],set_screen[2],set_screen[3],set_screen[4]) --根据点击更改显示器分辨率 end if else --鼠标未点击到分辨率列表 SystemMessageBox(WindowHandle, 未选择要设置的分辨率,请重新选择!, 错误, 64) -- 1=OK end if 还原： repeat with i:=1 to 4 --循环分解分辨率 old_screen[i]:=GetWord(i,OldScreen) end repeat alChangeRes(old_screen[1],old_screen[2],old_screen[3],old_screen[4]) --更改分