精易论坛

标题: 求助啊 [打印本页]

作者: vcenio    时间: 2013-11-22 14:18
标题: 求助啊
.版本 2
.支持库 ePY
.程序集 窗口程序集1
.程序集变量 原文, 文本型
.程序集变量 文, 文本型
.子程序 __启动窗口_创建完毕

原文 = 编辑框1.内容
文 = 原文
.子程序 _编辑框1_内容被改变
原文 = 编辑框1.内容
文 = 原文

.子程序 _按钮1_被单击
.局部变量 随机, 整数型
.局部变量 结果, 整数型
.局部变量 显示, 文本型
.局部变量 文长, 整数型
.局部变量 显示文字, 文本型

.如果 (标签1.标题 = “已完”)
    延时 (1000)
    返回 ()
.否则
.如果结束
文长 = 取文本长度 (文)
.循环判断首 ()
    随机 = 取随机数 (1, 文长)
    .判断开始 (文长 < 2)
        跳出循环 ()
    .默认
    .判断结束
    结果 = 随机 % 2
.循环判断尾 (结果 = 1)
标签1.标题 = “ ” + 取文本中间 (文, 随机 - 1, 2)
显示文字 = 取文本中间 (文, 随机 - 1, 2)
标签2.标题 = 取字拼音 (显示文字)
文 = 文本替换 (文, 随机 - 1, 2, “”)
.如果 (文长 < 2)
    延时 (200)
    标签1.标题 = “已完”

.否则
.如果结束


.子程序 _按钮3_被单击
.如果 (按钮3.标题 = “拼音显示”)
    按钮3.标题 = “拼音关闭”
    标签2.可视 = 真
.否则
    按钮3.标题 = “拼音显示”
    标签2.可视 = 假
--------------------------------
请问 那个“返回()”应该换成什么才能达到回到最开始的时候,好重新输入,重新开始。还有那个“取字拼音()”,应该怎么做?他显示的是“不能将“文本型 数组”数据转换到“文本型”数据。


作者: 粉蝴蝶软件    时间: 2013-11-22 14:18
好了 看看是不是这样

承接服务器、客户端、ERP办公系统、智能回复系统、2D游戏引擎等等各类软件的编写。

新手学习请进群:251539517  本群不支持模块,滥用模块的勿进
高手绕道

123.rar

7.75 KB, 下载次数: 1


作者: 粉蝴蝶软件    时间: 2013-11-22 14:21
把源码传上来看看
作者: 粉蝴蝶软件    时间: 2013-11-22 14:25
直接回调子程序~! 你可以试下的
作者: vcenio    时间: 2013-11-22 14:27
xm198858 发表于 2013-11-22 14:21
把源码传上来看看

123.rar (4.16 KB, 下载次数: 1)



作者: vcenio    时间: 2013-11-22 14:45
xm198858 发表于 2013-11-22 14:40
好了 看看是不是这样

承接服务器、客户端、ERP办公系统、智能回复系统、2D游戏引擎等等各类软件的编写 ...

光是“取拼音()”没办法显示音调啊,所以我才需要换成“取字拼音()”
作者: 粉蝴蝶软件    时间: 2013-11-22 14:48
vcenio 发表于 2013-11-22 14:45
光是“取拼音()”没办法显示音调啊,所以我才需要换成“取字拼音()”

691335216 这里说的类~! 没理解明白你的意思




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4