• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[江中游] 【按键精灵论坛教学】第2部分 第6课 薛定谔的汤姆猫——完结 [复制链接]

1#

江中游按键精灵论坛教学

零基础教你快速做一个打怪辅助

第2部分 第6课 薛定谔的汤姆猫——完结


顶帖产生的灵异事件
u大家不要把问题搞的太复杂了,只要理解基础那么就可以做很多脚本
u学习很简单:
u遇到问题分析问题解决问题
u遇到问题:
u如何把两个子程序放到一个子程序中
u遇到问题:
u如何调换逻辑值
u遇到问题:
u返回值的目的
u注意,按键的逻辑整数值是:
utrue-1
ufalse0
源码ppt:
code.rar (, 下载次数:18)
Dim 辐射值, 叠加值, 进度条长度
Dim tmp
tmp = False
进度条长度 = 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 * 叠加值
If tmp Then
tmp = 猫在动(- 1 , 0)
Else
tmp = 猫在动(0, - 1 )
End If
End If
If 叠加值 > 10000 Then
//     TracePrint "巴比Q.........."
Form1.标签提示.Caption = "完蛋了,芭比Q............"
Form1.天.Visible = True
Exit Do
End If
Loop
Function 猫在动(m1, m2)
Form1.猫1.Visible = m1
Form1.猫2.Visible = m2
If tmp Then
Form1.猫1.Left = 进度条长度 / 10000 * 叠加值
猫在动 = False
Else
Form1.猫2.Left = 进度条长度 / 10000 * 叠加值
猫在动 = True
End If
End Function


最后编辑江中游 最后编辑于 2022-04-28 14:09:51
江中游老师拥有国内外近6000人内部VIP会员,上百万次的支持率,史上最全面、最详细、最易懂的全方位一体化终极教学
江中游QQ:2025177703;390941087;2426410388
江中游微信号:390941087;bauuia
更多更全面教学请关注江中游抖音号:32135374718;快手号:1398558462

2#

第6课了

喜欢学习
3#

不错

4#

kjkj看看第六课

5#

学习

6#

wqdqdqdq

7#

6666666

8#

................

9#

5555555555

10#

回复

11#

学习一下...........

12#

遇到问题—分析问题—解决问题

13#

膜拜了

14#

大神谢谢谢谢谢
谢谢大神

15#

774245245

16#

看看大神

17#

诚心诚意学习

18#

00000000

19#


20#


发新话题 回复该主题