吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 409|回复: 12
收起左侧

[求助] 易语言新手求助

[复制链接]
sixgod666 发表于 2024-12-20 21:16
运行发现,输入数字不显示月份文字,这个错在哪里呀,小白求教

.子程序 _启动窗口_创建完毕

编辑框_月份.输入方式 = 1  ' 设置编辑框只能输入数字
编辑框_月份.是否允许多行 = 0  ' 设置编辑框为单行模式,便于按回车键操作
编辑框_月份.获取焦点 ()  ' 让编辑框初始获取焦点,方便直接输入

.子程序 编辑框_月份_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 输入月份, 整数型
.局部变量 月份文字, 文本型

.如果真 (键代码 = #回车键)  ' 判断按下的键是否为回车键

.如果真结束
输入月份 = 到整数 (编辑框_月份.内容)  ' 获取编辑框中输入的内容并转为整数
.如果 (输入月份 ≥ 1 且 输入月份 ≤ 12)  ' 判断输入月份是否在合理范围
    .判断开始 (输入月份)  ' 这里使用“判断开始”来替代之前有误的“选择”语句写法

    .判断 (输入月份 = 1)
        月份文字 = “孟春”
    .判断 (输入月份 = 2)
        月份文字 = “仲春”
    .判断 (输入月份 = 3)
        月份文字 = “季春”
    .判断 (输入月份 = 4)
        月份文字 = “孟夏”
    .判断 (输入月份 = 5)
        月份文字 = “仲夏”
    .判断 (输入月份 = 6)
        月份文字 = “季夏”
    .判断 (输入月份 = 7)
        月份文字 = “孟秋”
    .判断 (输入月份 = 8)
        月份文字 = “仲秋”
    .判断 (输入月份 = 9)
        月份文字 = “季秋”
    .判断 (输入月份 = 10)
        月份文字 = “孟冬”
    .判断 (输入月份 = 11)
        月份文字 = “仲冬”
    .判断 (输入月份 = 12)
        月份文字 = “季冬”
    .默认
        月份文字 = “未知月份”
    .判断结束

.否则
    月份文字 = “输入月份错误,请输入01 - 12的整数”
.如果结束

标签_结果.标题 = 月份文字  ' 将这里的属性改为"标题",用于设置标签显示的文字内容
返回 (真)
返回 (假)

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

Co19Lin 发表于 2024-12-20 21:28
学什么易语言呀?现在python标识符都支持中文了。
 楼主| sixgod666 发表于 2024-12-20 21:31
Co19Lin 发表于 2024-12-20 21:28
学什么易语言呀?现在python标识符都支持中文了。

想弄一个小软件呢,但是ai给的,我放进去运行错了,不知道哪里错了
fly526 发表于 2024-12-20 21:39
 楼主| sixgod666 发表于 2024-12-20 22:03

没看明白,我的哥
小奥 发表于 2024-12-20 22:08
输入方式=3
允许多行=假
[C] 纯文本查看 复制代码
.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

编辑框_月份.输入方式 = 3  ' 设置编辑框只能输入数字
编辑框_月份.是否允许多行 = 假  ' 设置编辑框为单行模式,便于按回车键操作
编辑框_月份.获取焦点 ()  ' 让编辑框初始获取焦点,方便直接输入


.子程序 _编辑框_月份_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 输入月份, 整数型
.局部变量 月份文字, 文本型

.如果真 (键代码 = #回车键)  ' 判断按下的键是否为回车键
    输入月份 = 到整数 (编辑框_月份.内容)  ' 获取编辑框中输入的内容并转为整数
    .如果 (输入月份 ≥ 1 且 输入月份 ≤ 12)  ' 判断输入月份是否在合理范围
        .判断开始 (输入月份 = 1)
            月份文字 = “孟春”
        .判断 (输入月份 = 2)
            月份文字 = “仲春”
        .判断 (输入月份 = 3)
            月份文字 = “季春”
        .判断 (输入月份 = 4)
            月份文字 = “孟夏”
        .判断 (输入月份 = 5)
            月份文字 = “仲夏”
        .判断 (输入月份 = 6)
            月份文字 = “季夏”
        .判断 (输入月份 = 7)
            月份文字 = “孟秋”
        .判断 (输入月份 = 8)
            月份文字 = “仲秋”
        .判断 (输入月份 = 9)
            月份文字 = “季秋”
        .判断 (输入月份 = 10)
            月份文字 = “孟冬”
        .判断 (输入月份 = 11)
            月份文字 = “仲冬”
        .判断 (输入月份 = 12)
            月份文字 = “季冬”
        .默认
            月份文字 = “未知月份”
        .判断结束

    .否则
        月份文字 = “输入月份错误,请输入01 - 12的整数”
    .如果结束
    标签_结果.标题 = 月份文字  ' 将这里的属性改为"标题",用于设置标签显示的文字内容
    返回 (假)


.如果真结束
返回 (真)

bxcbxiwadrw 发表于 2024-12-20 23:30
[Asm] 纯文本查看 复制代码
.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

月份内容.获取焦点 ()
月份内容.是否允许多行 = 假

.子程序 _月份内容_内容被改变
.局部变量 月份, 整数型

月份 = 到整数 (月份内容.内容)
.如果真 (月份 ≥ 1 且 月份 ≤ 12)
    .判断开始 (月份 = 1)
        结果内容.内容 = “孟春”
    .判断 (月份 = 2)
        结果内容.内容 = “仲春”
    .判断 (月份 = 3)
        结果内容.内容 = “季春”
    .判断 (月份 = 4)
        结果内容.内容 = “孟夏”
    .判断 (月份 = 5)
        结果内容.内容 = “仲夏”
    .判断 (月份 = 6)
        结果内容.内容 = “季夏”
    .判断 (月份 = 7)
        结果内容.内容 = “孟秋”
    .判断 (月份 = 8)
        结果内容.内容 = “仲秋”
    .判断 (月份 = 9)
        结果内容.内容 = “季秋”
    .判断 (月份 = 10)
        结果内容.内容 = “孟冬”
    .判断 (月份 = 11)
        结果内容.内容 = “仲冬”
    .判断 (月份 = 12)
        结果内容.内容 = “季冬”
    .默认

    .判断结束

.如果真结束
.如果真 (月份 < 1 或 月份 > 12)
    结果内容.内容 = “输入月份错误,请输入01 - 12的整数”
.如果真结束
.如果真 (月份内容.内容 = “”)
    结果内容.内容 = “请输入月份”
.如果真结束
willieny 发表于 2024-12-20 23:37
编辑框_月份.输入方式 = 1  ' 设置编辑框只能输入数字
编辑框_月份.是否允许多行 = 0  ' 设置编辑框为单行模式,便于按回车键操作

编辑框输入方式设置为1,则将编辑框设置为只读模式,不能输入,需要设置为3.整数文本输入
编辑框是否允许多行的参数为真和假,不是0和1,,需要设置为假

另外不建议用按键触发子程序,可以尝试使用编辑框内容被修改
修改了个例程,仅供参考
https://wwue.lanzoue.com/iQxRW2immlwd
Junlee 发表于 2024-12-20 23:56
子程序 编辑框_月份_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 输入月份, 整数型
.局部变量 月份文字, 文本型

编辑框_月份_按下某键, 逻辑型 这个前面少个下划线  应该是 _编辑框_月份_按下某键

QQ20241220-235547.jpg


key0527 发表于 2024-12-21 01:47
编辑框的属性里直接就可以设置属性,还需要创建窗口完成事件再设置一次????这学的是真新手!
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2025-1-2 19:53

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

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