江中游按键精灵论坛教学
江中游老师QQ：2426410388；2025177703；390941087；微信：bauuia；抖音：275982100
江中游电脑版按键论坛教学总录：http://bbs.anjian.com/showtopic-697741-1.aspx
江中游安卓手机系统教学总录： http://bbs.anjian.com/showtopic-699643-1.aspx
第2部分 第3课 薛定谔的汤姆猫——UI变量
零基础教你快速做一个打怪辅助
u大概框架：
u取随机数，当随机数小于100时代表辐射增加，如果辐射值达到10000时，砸碎氰化物玻璃瓶，猫上天堂
u
u连接符：&
u在按键中连接符是非常重要的，它可以连接常量、变量等数据，大家一定要把连接符搞明白
u标签提示：
u标签可以做为界面提示的一种方式，标签也可以直接提示整数，如果使用常量或变量连接那么就一定要使用&连接符
uForm1.标签提示.Caption =
"辐射中：" & 叠加值
u进度条：
u进度条是按百分比增加的，所以在增加时我们通常是按百分比进行计算的，公式如下：
u100/最大值*每次增加到的值
u每次增加到的值=本次增加值+上次增加值 （叠加值）
u注意：进度条要在循环中使用才能达到效果
Dim 辐射值, 叠加值, 进度条长度
进度条长度 = Form1.进度条.Width
TracePrint 进度条长度
叠加值 = 0
Randomize
Do
Delay 10
辐射值 = Int((500 - 1 + 1) * Rnd + 1)
// TracePrint 辐射值
If 辐射值 < 100 Then
TracePrint "辐射了..............."
叠加值 = 叠加值 + 辐射值
TracePrint 叠加值
Form1.标签提示.Caption = "辐射中：" & 叠加值
Form1.进度条.Value = 100 / 10000 * 叠加值
Form1.猫1.Left = 进度条长度 / 10000 * 叠加值
Form1.猫2.Left = 进度条长度 / 10000 * 叠加值
End If
If 叠加值 > 10000 Then
// TracePrint "巴比Q.........."
Form1.标签提示.Caption = "完蛋了，芭比Q............"
Exit Do
End If
Loop
闽公网安备 35010002000112号