|
|
主题: 【Authorware√精彩实例】
|
魔岩
职务：版主
等级：6
金币：34.0
发贴：4453
|
#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
|
#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
|
#182002/7/29 18:58:27
范例说明：树形控制用于框架导航的示例，可用于制作电子书。 范例制作：Y
相关文件(rar)：点这儿打开
编辑历史:[此帖最近一次被 Y 编辑过(编辑时间:2005-05-15 11:39:10)]
|
魔岩
职务：版主
等级：6
金币：34.0
发贴：4453
|
#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
|
#202002/8/6 10:47:28
[问题]
请问，要是这样的一种矩阵如何编程：
１，２，３，４选三个数的组合（不重复）：
１，２，３
１，３，４
２，１，３
２，３，４
[解答]（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
|
#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
|
#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
|
#232002/8/23 19:56:07
编辑历史:[这消息被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
|
#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
|
#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
|
#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
|
#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
|
#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
|
#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
|
#302002/9/13 14:56:21
宇风 寒冰的ODBC例子： ODBC范例下载
编辑历史:[这消息被Rock编辑过(编辑时间2003-07-06 14:49:24)]
[这消息被Rock编辑过(编辑时间2003-07-06 14:50:33)]
|
