开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 561|回复: 6
收起左侧

[易源码分享] 子程序 hk条_颠倒

[复制链接]
结帖率:0% (0/2)
发表于 2020-8-24 22:14:44 | 显示全部楼层 |阅读模式   山东省德州市
.版本 2
.子程序 hk条_颠倒, 整数型, 公开, 放在 _hk条1_位置被改变 下面 ;hk条_颠倒 (hk条1, 0)
.参数 hk条, hk条, , hk条1
.参数 返回值, 整数型, 可空, 默认 0;返回值:0,100 反 100;。1,10 反 10;。2,10 反 100。
.局部变量 hk位置, 整数型

.判断开始 (返回值 = 1)
    .判断开始 (hk条.位置 = 0)
        hk位置 = 10
    .判断 (hk条.位置 = 1)
        hk位置 = 9
    .判断 (hk条.位置 = 2)
        hk位置 = 8
    .判断 (hk条.位置 = 3)
        hk位置 = 7
    .判断 (hk条.位置 = 4)
        hk位置 = 6
    .判断 (hk条.位置 = 5)
        hk位置 = 5
    .判断 (hk条.位置 = 6)
        hk位置 = 4
    .判断 (hk条.位置 = 7)
        hk位置 = 3
    .判断 (hk条.位置 = 8)
        hk位置 = 2
    .判断 (hk条.位置 = 9)
        hk位置 = 1
    .判断 (hk条.位置 = 10)
        hk位置 = 0
    .默认

    .判断结束

.判断 (返回值 = 2)
    .判断开始 (hk条.位置 = 0)
        hk位置 = 100
    .判断 (hk条.位置 = 1)
        hk位置 = 90
    .判断 (hk条.位置 = 2)
        hk位置 = 80
    .判断 (hk条.位置 = 3)
        hk位置 = 70
    .判断 (hk条.位置 = 4)
        hk位置 = 60
    .判断 (hk条.位置 = 5)
        hk位置 = 50
    .判断 (hk条.位置 = 6)
        hk位置 = 40
    .判断 (hk条.位置 = 7)
        hk位置 = 30
    .判断 (hk条.位置 = 8)
        hk位置 = 20
    .判断 (hk条.位置 = 9)
        hk位置 = 10
    .判断 (hk条.位置 = 10)
        hk位置 = 0
    .默认

    .判断结束

.默认
    ' --------------------------------------------------
    .判断开始 (hk条.位置 = 0)
        hk位置 = 100
    .判断 (hk条.位置 = 1)
        hk位置 = 99
    .判断 (hk条.位置 = 2)
        hk位置 = 98
    .判断 (hk条.位置 = 3)
        hk位置 = 97
    .判断 (hk条.位置 = 4)
        hk位置 = 96
    .判断 (hk条.位置 = 5)
        hk位置 = 95
    .判断 (hk条.位置 = 6)
        hk位置 = 94
    .判断 (hk条.位置 = 7)
        hk位置 = 93
    .判断 (hk条.位置 = 8)
        hk位置 = 92
    .判断 (hk条.位置 = 9)
        hk位置 = 91
    .判断 (hk条.位置 = 10)
        hk位置 = 90
    .判断 (hk条.位置 = 11)
        hk位置 = 89
    .判断 (hk条.位置 = 12)
        hk位置 = 88
    .判断 (hk条.位置 = 13)
        hk位置 = 87
    .判断 (hk条.位置 = 14)
        hk位置 = 86
    .判断 (hk条.位置 = 15)
        hk位置 = 85
    .判断 (hk条.位置 = 16)
        hk位置 = 84
    .判断 (hk条.位置 = 17)
        hk位置 = 83
    .判断 (hk条.位置 = 18)
        hk位置 = 82
    .判断 (hk条.位置 = 19)
        hk位置 = 81
    .判断 (hk条.位置 = 20)
        hk位置 = 80
    .判断 (hk条.位置 = 21)
        hk位置 = 79
    .判断 (hk条.位置 = 22)
        hk位置 = 78
    .判断 (hk条.位置 = 23)
        hk位置 = 77
    .判断 (hk条.位置 = 24)
        hk位置 = 76
    .判断 (hk条.位置 = 25)
        hk位置 = 75
    .判断 (hk条.位置 = 26)
        hk位置 = 74
    .判断 (hk条.位置 = 27)
        hk位置 = 73
    .判断 (hk条.位置 = 28)
        hk位置 = 72
    .判断 (hk条.位置 = 29)
        hk位置 = 71
    .判断 (hk条.位置 = 30)
        hk位置 = 70
    .判断 (hk条.位置 = 31)
        hk位置 = 69
    .判断 (hk条.位置 = 32)
        hk位置 = 68
    .判断 (hk条.位置 = 33)
        hk位置 = 67
    .判断 (hk条.位置 = 34)
        hk位置 = 66
    .判断 (hk条.位置 = 35)
        hk位置 = 65
    .判断 (hk条.位置 = 36)
        hk位置 = 64
    .判断 (hk条.位置 = 37)
        hk位置 = 63
    .判断 (hk条.位置 = 38)
        hk位置 = 62
    .判断 (hk条.位置 = 39)
        hk位置 = 61
    .判断 (hk条.位置 = 40)
        hk位置 = 60
    .判断 (hk条.位置 = 41)
        hk位置 = 59
    .判断 (hk条.位置 = 42)
        hk位置 = 58
    .判断 (hk条.位置 = 43)
        hk位置 = 57
    .判断 (hk条.位置 = 44)
        hk位置 = 56
    .判断 (hk条.位置 = 45)
        hk位置 = 55
    .判断 (hk条.位置 = 46)
        hk位置 = 54
    .判断 (hk条.位置 = 47)
        hk位置 = 53
    .判断 (hk条.位置 = 48)
        hk位置 = 52
    .判断 (hk条.位置 = 49)
        hk位置 = 51
    .判断 (hk条.位置 = 50)
        hk位置 = 50
    .判断 (hk条.位置 = 51)
        hk位置 = 49
    .判断 (hk条.位置 = 52)
        hk位置 = 48
    .判断 (hk条.位置 = 53)
        hk位置 = 47
    .判断 (hk条.位置 = 54)
        hk位置 = 46
    .判断 (hk条.位置 = 55)
        hk位置 = 45
    .判断 (hk条.位置 = 56)
        hk位置 = 44
    .判断 (hk条.位置 = 57)
        hk位置 = 43
    .判断 (hk条.位置 = 58)
        hk位置 = 42
    .判断 (hk条.位置 = 59)
        hk位置 = 41
    .判断 (hk条.位置 = 60)
        hk位置 = 40
    .判断 (hk条.位置 = 61)
        hk位置 = 39
    .判断 (hk条.位置 = 62)
        hk位置 = 38
    .判断 (hk条.位置 = 63)
        hk位置 = 37
    .判断 (hk条.位置 = 64)
        hk位置 = 36
    .判断 (hk条.位置 = 65)
        hk位置 = 35
    .判断 (hk条.位置 = 66)
        hk位置 = 34
    .判断 (hk条.位置 = 67)
        hk位置 = 33
    .判断 (hk条.位置 = 68)
        hk位置 = 32
    .判断 (hk条.位置 = 69)
        hk位置 = 31
    .判断 (hk条.位置 = 70)
        hk位置 = 30
    .判断 (hk条.位置 = 71)
        hk位置 = 29
    .判断 (hk条.位置 = 72)
        hk位置 = 28
    .判断 (hk条.位置 = 73)
        hk位置 = 27
    .判断 (hk条.位置 = 74)
        hk位置 = 26
    .判断 (hk条.位置 = 75)
        hk位置 = 25
    .判断 (hk条.位置 = 76)
        hk位置 = 24
    .判断 (hk条.位置 = 77)
        hk位置 = 23
    .判断 (hk条.位置 = 78)
        hk位置 = 22
    .判断 (hk条.位置 = 79)
        hk位置 = 21
    .判断 (hk条.位置 = 80)
        hk位置 = 20
    .判断 (hk条.位置 = 81)
        hk位置 = 19
    .判断 (hk条.位置 = 82)
        hk位置 = 18
    .判断 (hk条.位置 = 83)
        hk位置 = 17
    .判断 (hk条.位置 = 84)
        hk位置 = 16
    .判断 (hk条.位置 = 85)
        hk位置 = 15
    .判断 (hk条.位置 = 86)
        hk位置 = 14
    .判断 (hk条.位置 = 87)
        hk位置 = 13
    .判断 (hk条.位置 = 88)
        hk位置 = 12
    .判断 (hk条.位置 = 89)
        hk位置 = 11
    .判断 (hk条.位置 = 90)
        hk位置 = 10
    .判断 (hk条.位置 = 91)
        hk位置 = 9
    .判断 (hk条.位置 = 92)
        hk位置 = 8
    .判断 (hk条.位置 = 93)
        hk位置 = 7
    .判断 (hk条.位置 = 94)
        hk位置 = 6
    .判断 (hk条.位置 = 95)
        hk位置 = 5
    .判断 (hk条.位置 = 96)
        hk位置 = 4
    .判断 (hk条.位置 = 97)
        hk位置 = 3
    .判断 (hk条.位置 = 98)
        hk位置 = 2
    .判断 (hk条.位置 = 99)
        hk位置 = 1
    .判断 (hk条.位置 = 100)
        hk位置 = 0
    .默认

    .判断结束

.判断结束

返回 (hk位置)


点评

这么麻烦吗????????直接用100减去不就得了吗?   保留地址  发表于 2020-8-25 09:28
高级模式里有个代码,可以用这个发   安徽省阜阳市  发表于 2020-8-24 22:17

结帖率:0% (0/2)
 楼主| 发表于 2021-8-24 13:19:04 | 显示全部楼层   山东省德州市
条位置块 = hk条1.最大位置 - hk条1.位置
回复 支持 反对

使用道具 举报

结帖率:0% (0/2)
 楼主| 发表于 2020-8-25 12:40:47 | 显示全部楼层   山东省德州市
冰棍好烫啊 发表于 2020-8-25 09:29
???????????????????????????????????????????????????????????????????????????????????????????????????? ...

什么意思呢???这个模块是你的原创吗?这只是我自己用的模块而已,放在这里只是方便找,没别的意思。勿怪勿怪。
回复 支持 反对

使用道具 举报

结帖率:96% (24/25)

签到天数: 1 天

发表于 2020-8-25 09:29:02 | 显示全部楼层   保留地址
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
回复 支持 反对

使用道具 举报

结帖率:83% (39/47)

签到天数: 21 天

发表于 2020-8-25 05:21:40 | 显示全部楼层   福建省宁德市
???????????????????????????????????????????
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表