1.评分系统:
赋初值:
numlist:=[]
n:=0
跳转:
GoTo(IconID@"赋初值")
计算:
if n<3 then GoTo(IconID@"错误")
s:=0
repeat with i:=1 to n
s:=s+ValueAtIndex(numlist,i )
end repeat
max:=Max(numlist)
min:=Min(numlist)
v:=(s-max-min)/(n-2)
2.退出:
quit()
3.开关音乐:
mediaplay(iconid@"背景音乐")
mediapause(iconid@"背景音乐",true)
soundplaying=false
soundplaying=true
4.单击停止:
mousedown
5.窗口大小:
resizewindow(320,240)
6.返回
goto(iconid@"图标")
icon图标库7.检测按钮响应
checked@"响应"=:1或0
8.数字电影播放
初值
stopstatus:=FALSE
movierate:=10
快进
movierate:=movierate+5
stopstatus:=FALSE
GoTo(IconID@"movie")
前进
MediaSeek(IconID@"movie",MediaPosition@"movie"+2)
暂停
MediaPause(IconID@"movie",TRUE)
stopstatus:=TRUE
继续
MediaPause(IconID@"movie",FALSE)
stopstatus:=FALSE
后退
MediaSeek(IconID@"movie",MediaPosition@"movie"-2)
退出
Quit()
热区域
9.时间日期
{FullTime}
{FullDate}

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。