- 高中三年级
- 3392724
- 654
- 0
- 49 朵
- 957 个
- 64 个
- 24700
- 2015-07-27
|
1#
t
T
发表于 2016-07-13 16:47
|
|只看楼主
我去前方探探路----新版UI
- 您所在的用户组无法下载或查看附件
新版本(3.1.0)的按键已经在紧张的内测中,这次更新的内容有…….恩,总之很多就是了!当然,最主要的更新内容之一就是全新的UI界面,让我先来探探路,新版的UI究竟有何不同,第一件事,就是记录下此时的时间----2016/7/13(至于原因嘛,我可不想在新版出了后你们才看到这篇教程并亲切的称呼我为标题党)。 |
- 您所在的用户组无法下载或查看附件
当然,由于新版本的编辑器还未出来,因此我们这边先来研究新UI能帮助我们什么!需求才是第一要素嘛!相对于之前的UI界面,新版本的UI具有更多的控件,更自由的排版和更强大的功能。一 浏览器控件脚本中嵌入一个浏览器,想想都觉得高大上有木有,那么,我们能用他做什么?还记得我们之前说过的收费小精灵吗? http://bbs.anjian.com/showtopic-588364-1.aspx。收费小精灵有两种支付方式,第一种直接点击获取更多时间,用户支付后按键收取一定费用,其他的归于作者(好吧,我说出来就是了,抽成是30%,怪我咯!),还有第二种方式,作者在后台购买注册码,然后自己将注册码转卖给用户,例如一张月卡的价格是6块钱,作者卖100就可以赚到94哦!于是精明的你立马开始计算,脚本价格在20(每个月)以上的时候,使用注册码的支付方式要比直冲来的划算哦!但是使用这个方式有一个麻烦的地方,你需要自己去卖给用户,会占用大量的时间,而有了浏览器控件,我们就可以直接用浏览器控件指向售卡平台,用户需要时能直接购买,这将是多么完美的体验~- 您所在的用户组无法下载或查看附件
图中我使用的是917自动发卡平台,当然平台的选择你们可以自己选择哦! 二 按钮控件 有按钮控件,就说明有事件,我们可以在按钮点击的时候执行一个函数,这里,我们尝试着做个计算机。直接看代码! - Import "ShanHai.lua"
- UI.NewLayout ("计算器")
- UI.SetTitleText("计算器", "计算器")
- UI.AddTextView("计算器","计算器显示","",-1)
- UI.NewRow("计算器", "new_row_1")
- UI.AddButton("计算器", "btn_1", "1")
- UI.SetOnClick "btn_1", 回调fun1
- UI.AddButton("计算器", "btn_2", "2")
- UI.SetOnClick "btn_2", 回调fun2
- UI.AddButton("计算器", "btn_3", "3")
- UI.SetOnClick "btn_3", 回调fun3
- UI.NewRow "计算器", "new_row_2"
- UI.AddButton("计算器", "btn_4", "4")
- UI.SetOnClick "btn_4", 回调fun4
- UI.AddButton("计算器", "btn_5", "5")
- UI.SetOnClick "btn_5", 回调fun5
- UI.AddButton("计算器", "btn_6", "6")
- UI.SetOnClick "btn_6", 回调fun6
- UI.NewRow "计算器", "new_row_3"
- UI.AddButton("计算器", "btn_7", "7")
- UI.SetOnClick "btn_7", 回调fun7
- UI.AddButton("计算器", "btn_8", "8")
- UI.SetOnClick "btn_8", 回调fun8
- UI.AddButton("计算器", "btn_9", "9")
- UI.SetOnClick "btn_9", 回调fun9
- UI.NewRow "计算器", "new_row_4"
- UI.AddButton "计算器", "btn_退格", "退格"
- UI.SetOnClick "btn_退格", 回调fun退格
- UI.AddButton("计算器", "btn_0", "0")
- UI.SetOnClick "btn_删除", 回调fun0
- UI.AddButton "计算器", "btn_清空", "清空"
- UI.SetOnClick "btn_清空", 回调fun清空
- UI.NewRow "计算器", "new_row_5"
- UI.AddButton("计算器", "btn_+", "+")
- UI.SetOnClick "btn_+", 回调fun加
- UI.AddButton("计算器", "btn_-", "-")
- UI.SetOnClick "btn_-", 回调fun减
- UI.AddButton("计算器", "btn_=", "=")
- UI.SetOnClick "btn_=", 回调fun等于
- UI.Show("计算器")
- Function 回调fun1()
- Dim 计算机显示 = UI.GetText("计算器显示") & "1"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun2()
- Dim 计算机显示 = UI.GetText("计算器显示") &"2"
- UI.SetTextView "计算器显示",计算机显示, -1
- End Function
- Function 回调fun3()
- Dim 计算机显示 = UI.GetText("计算器显示") &"3"
- UI.SetTextView "计算器显示",计算机显示, -1
- End Function
- Function 回调fun4()
- Dim 计算机显示 = UI.GetText("计算器显示") &"4"
- UI.SetTextView "计算器显示",计算机显示, -1
- End Function
- Function 回调fun5()
- Dim 计算机显示 = UI.GetText("计算器显示") &"5"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun6()
- Dim 计算机显示 = UI.GetText("计算器显示") &"6"
- UI.SetTextView "计算器显示",计算机显示, -1
- End Function
- Function 回调fun7()
- Dim 计算机显示 = UI.GetText("计算器显示") &"7"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun8()
- Dim 计算机显示 = UI.GetText("计算器显示") &"8"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun9()
- Dim 计算机显示 = UI.GetText("计算器显示") &"9"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun0()
- Dim 计算机显示 = UI.GetText("计算器显示") &"0"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun退格()
- Dim 计算机显示 = 去除字符串最后一位(UI.GetText("计算器显示"))
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun清空()
- Dim 计算机显示 = ""
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun加()
- Dim 计算机显示 = UI.GetText("计算器显示") &"+"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun减()
- Dim 计算机显示 = UI.GetText("计算器显示") &"-"
- UI.SetTextView "计算器显示", 计算机显示, -1
- End Function
- Function 回调fun等于()
- Dim 计算机显示 = UI.GetText("计算器显示")
- Dim 结果 = ShanHai.eval(计算机显示)
- UI.SetTextView "计算器显示", 结果, -1
- End Function
- Function 去除字符串最后一位(str)
- Dim 长度 = len(str)
- 去除字符串最后一位=Left(str, 长度 - 1)
- End Function
复制代码 一个简陋的计算机就完成了!(毕竟懒癌晚期,因此BUG好多,等着你去发现哦!)- 您所在的用户组无法下载或查看附件
- 您所在的用户组无法下载或查看附件
从这些中我们能学到什么? 1. 按钮控件的使用,可以设置回调方法 2. 计算方法,直接调用山海控件的eval命令,传入字符串 3. 文本框不仅可以读还可以写! 4. 字符串的处理 嘿嘿,想知道更多吗?请继续关注本系列教程。 - 您所在的用户组无法下载或查看附件
|