主题:  【Authorware√精彩实例】

魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#162002/6/6 18:31:51
斑竹Y制作:
tMsOpenImageFile与文件过滤:(需要tMsControls.u32)

相关文件(rar):点这儿打开


fileio xtra与txt文件过滤(需要fileio Xtra)

相关文件(rar):点这儿打开

编辑历史:[此帖最近一次被 Y 编辑过(编辑时间:2005-05-15 11:38:24)]


lvzhiguo

职务:普通成员
等级:1
金币:1.0
发贴:136
注册:2002/2/28 9:56:47
#172002/6/6 22:02:58
宇风论坛看见有人问如何用函数读外部文本文件,没事就做了这个小程序。如果有人需要可以添加选择文件对话框就可做成 简易的读书器 次程序仅供广大朋友参考学习,请误将程序中的创意用于商用lvzhiguo(酷鱼)于2002年6月5日晚
按上下页进行翻页,也可直接输入页码,有总页码提示,而且输入错误会出现提示框 ,可按两种方式打开文本文件,程序得到5d的y\ 宇风小邓和 aw爱好者小平的指导
下载地址:

vip.5d.cn/rock/5DExample/Text.zip


另外在寻求帮助中还发现还有一种通过知识框架得到文件目录,显示目录所在所有文件,在通过点击得到所点击的哪一行而得到文件名,但复杂了因此没作为方法3,但
作为一种思路,如果有人需要可以和我联系。
在这几种方法中最简单的是利用tMsControls.u32,可惜我最初想到过,但我以为打开返回的是文件名,而不是全路径加了个filelocation,就不行然后就放弃这个方法了,
在y的例子指引下回到最初这一步。

编辑历史:[这消息被Rock编辑过(编辑时间2003-07-05 14:31:23)]


与人同乐

职务:管理员
等级:6
金币:18.0
发贴:3928
注册:2001/3/11 15:45:42
#182002/7/29 18:58:27
范例说明:树形控制用于框架导航的示例,可用于制作电子书。
范例制作:Y

相关文件(rar):点这儿打开

编辑历史:[此帖最近一次被 Y 编辑过(编辑时间:2005-05-15 11:39:10)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#192002/8/5 9:29:28
[问题] aw中如何动态的判断某文件夹下文件的格式,并使之的值返回到一组字符串中?

[解答] (Rock Studio 魔岩工作室、AW5 、虚竹)

--取得文件列表
FileString:=Catalog(FileLocation,"F")
--取得文件个数
FileNumber:=LineCount(FileString,Return)
--初始化文件后缀名记录字符串
FileFixs:=""

--取得总的文件后缀名
repeat with i:=1 to FileNumber
FileNames:=GetLine(FileString,i)
lastindex:=CharCount(FileNames)
FileFix:=SubStr(FileNames,RFind(".",FileNames)+1,CharCount(FileNames))
FileFixs:=FileFixs^FileFix^Return
end repeat

--筛选后缀名
FixsNumber:=LineCount(FileFixs)
repeat with k:=0 to FixsNumber
str:=LowerCase(GetLine(FileFixs,k))
str3:=str3^str
str1:=LowerCase(GetLine(FileFixs,k+1))
if Find(str1,str3)=0 then
fixs:=fixs^str1^Return
end if
end repeat

范例下载:
 判断文件后缀名8K

编辑历史:[这消息被Rock编辑过(编辑时间2002-08-05 23:11:04)]
[这消息被Rock编辑过(编辑时间2003-07-05 14:39:18)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#202002/8/6 10:47:28
[问题]
请问,要是这样的一种矩阵如何编程:
1,2,3,4选三个数的组合(不重复):
1,2,3
1,3,4
2,1,3
2,3,4


[解答](Rock Studio 魔岩工作室)

相关脚本:

--默认数列 ,可自己删除增加数列值
DefaultList:=[1,2,3,4,5]
--临时数列
CurrentList:=DefaultList
--随机数个数 ,可自己更改,必须不大于数列最大索引号
GetNumCount:=3
--输出结果字符串,格式为:#,#,#(以逗号分隔)
RandomNumber:=""

--取得不重复随机数
repeat with i:=1 to GetNumCount
RandomIndex:=Random(1,ListCount(CurrentList),1)
if iRandomNumber:=RandomNumber^CurrentList[RandomIndex]^","
else
RandomNumber:=RandomNumber^CurrentList[RandomIndex]
end if
DeleteAtIndex(CurrentList,RandomIndex)
end repeat


[解答二] [yufeng 小邓]
yufeng小邓的算法:
这些排列问题,如果要列出所有的可能,最好就不用随机来实现了,因为其中浪费了极大的取数时间.
下面给出从i个数中取3个数的组合的方法,假定这i个数保存在Deflist[]中且各不相同而把取出的数保存在CurList[]中
Deflist:=[1,2,3,4,5,6,7,8,9]
Curlist:=[]
p:=1
repeat with a:=1 to i-2
CurList[p][1]:=deflist[a]
repeat with b:=2 to i-1
CurList[p][2]:=defList[b]
repeat with c:=3 to i-1
CurList[p][3]:=defList[c]
end repeat
end repeat
end repeat

编辑历史:[这消息被Rock编辑过(编辑时间2002-08-07 08:59:17)]
[这消息被Rock编辑过(编辑时间2003-07-06 13:59:02)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#212002/8/6 15:54:12
网友szyz的制作的API范例:

好久不见了,好像又有了很多新人,而一些老面孔却不太常见了。看来像几位版主这样常年在这里为大家服务实属不易。
离开了很长一段时间,送大家几个自己做的例子做见面礼。
1. 多级菜单的建立
大家做多级菜单都是利用tMsControls.u32或budmenu.u32做的弹出式菜单,要想做含多级菜单的菜单栏,都是自己做一个假的菜单栏。实际上用Winapi制作更简单,而且可以在菜单栏里实现真正的多级菜单。
2. 特殊菜单的建立
1)建立可复选菜单; 2)建立图标菜单; 3)建立双排菜单;
3. 修改系统菜单
AW打包后的文件,很多人会修改其图标,但在窗口标题栏上点击右键,弹出的系统菜单上会有“About...”,要去掉它也很简单。
4. 菜单函数综合应用:建立“最近打开的文件”菜单
很多软件都有这样一个功能:系统自动记载前几次打开过的文件,显示在第一个菜单里。现在你也可以实现这样一种功能。主要技术内容包括:1.显示打开文件对话框;2.字符串的处理;3.多级菜单的建立;4.菜单内容的动态更新。
这几个范例都是关于Winapi中菜单函数的应用,是我最近一段时间的研究成果。如果大家觉得有用的话,以后我会针对一些常用的Winapi函数分门别类地做一些范例。
还有一些其他winapi函数和其他内容的范例,还有我的“积件”系统,欢迎大家到我的主页上去下载。(由于是免费空间,有时可能不好用,如果下不来的话,请换个时间试试。)
也可以从这儿下载http://www11.brinkster.com/syzy/
不能用蚂蚁或快车下载,直接用IE下载。
不过这个站点是限制流量的,每天超过16.7M,这个站点就不能浏览了,所以太大的东西最好不在这下载。请各位兄弟手下留情。

编辑历史:[这消息被Rock编辑过(编辑时间2002-08-06 15:59:21)]
[这消息被Rock编辑过(编辑时间2002-08-06 16:00:25)]
[这消息被Rock编辑过(编辑时间2003-07-05 14:58:11)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#222002/8/7 8:57:45
一个国外著名Apixel.com制作的可旋转的拼图游戏范例


这个可不是简单的拼图游戏哦。。可以对拼图片进行旋转哦!!

学习要点:
列表的灵活使用妙处
如何编写有效的循环
旋转图片的解决方法

 旋转拼图范例 48KB

编辑历史:[这消息被Rock编辑过(编辑时间2002-08-07 09:53:19)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:03:31)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:04:58)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#232002/8/23 19:56:07
寒冰(李恒)制作的进度存取的例子:

vip.5d.cn/rock/5dExample/jindu.zip

编辑历史:[这消息被Rock编辑过(编辑时间2002-11-21 11:36:16)]
[这消息被Rock编辑过(编辑时间2002-11-21 11:42:01)]
[这消息被Y编辑过(编辑时间2003-05-16 23:41:27)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:35:53)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#242002/8/27 16:08:14
演示如何使用ListBox控件(范例制作:魔岩工作室 Rock Studio)

实现ListBox功能:
删除选定条目
两个ListBox 间的选定条目拷贝
设置默认条目
判断选择条目内容

2002.08.27.

范例下载:

  ListBox 控件范例 11K

编辑历史:[这消息被Y编辑过(编辑时间2003-05-16 23:42:19)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:15:00)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#252002/8/27 16:38:42
  绘制任意三角形的范例15.8K

感谢davichiu网友提供

编辑历史:[这消息被Y编辑过(编辑时间2003-05-16 23:42:45)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:21:45)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#262002/8/29 21:46:29
最经典的程序框架,出自滨滨大师之手

其中包括了音量控制程序

放在我的硬盘很久了,,再次翻上来给各位还没有的兄弟 :D


 win9x经典程序框架

编辑历史:[这消息被Y编辑过(编辑时间2003-05-16 23:43:52)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:23:40)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#272002/8/30 11:12:47
演示如何通过Link来改变图片(魔岩工作室 Rock Studio)
 Link图片范例

编辑历史:[这消息被Y编辑过(编辑时间2003-05-16 23:44:28)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:42:44)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:43:14)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#282002/9/1 2:44:17
魔岩工作室(2002-08-31)

我做的 循环滚动字幕 的演示范例

字幕文字由外部文本文件读入,并实现循环自动字幕滚动

  循环滚动字幕

编辑历史:[这消息被Rock编辑过(编辑时间2002-09-01 02:58:03)]
[这消息被Y编辑过(编辑时间2003-05-16 23:45:03)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:44:22)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#292002/9/3 0:50:45
可以同时控制WAV和MIDI音乐音量和左右声道的范例(使用了winmm.dll的函数)
假如你是在2K系统下调试设计,打包后在98系统可能不能正常运行,解决的方法是在98系统在重新打包,这样就可以保证98和2K系统都能正确运行打包文件!

范例制作:魔岩工作室 Rock Studio
制作时间:2002.09.03


 下载范例

编辑历史:[这消息被Rock编辑过(编辑时间2002-09-04 00:03:09)]
[这消息被Y编辑过(编辑时间2003-05-16 23:45:42)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:46:24)]


魔岩

职务:版主
等级:6
金币:34.0
发贴:4453
注册:2004/1/13 10:53:31
#302002/9/13 14:56:21
宇风 寒冰的ODBC例子:

 ODBC范例下载

编辑历史:[这消息被Rock编辑过(编辑时间2003-07-06 14:49:24)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:50:33)]