专业记事本（源码）

Andy丿华仔

我不多说，专业技术本，，除了打字..还有一些系统功能，一键搞定， （源码不是我开发，是我修改了别人的）本来想加自动打字...功能，可是没时间，所以就不加入      


下载地址.zip (971 Bytes, 下载次数: 82)

2014-4-27 11:56 上传

点击文件名下载附件
百度网盘
下载积分: 精币 -2 枚

忆九龙

顶楼主，很棒

码农

自动打字？不吹牛会死啊

Andy丿华仔

自动打字     原理：
读取TXT文本或者编辑框内容
利用时钟   将文本内容一个个打出来，可以用热键 暂停和开始

录制视频的时候  人家还以为你打字很快

屎神创造者

好笑

Andy丿华仔

.版本 2
.支持库 spec

.子程序 _自动打字_被选择
.局部变量 文件内容, 文本型
.局部变量 准备打字, 文本型
.局部变量 i
.局部变量 找到位置, 整数型
.局部变量 长度, 整数型

写字框.内容 ＝ “”
清除数组 (打字数组)
目前位置 ＝ 0
.如果真 (通用对话框1.打开 () ＝ 真)
    文件内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    调试输出 (文件内容)
    长度 ＝ 取文本长度 (文件内容)
    找到位置 ＝ 0
    .判断循环首 (找到位置 ＜ 长度)
        .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＜ 0 或 取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
            .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
                .如果 (取文本中间 (文件内容, 找到位置, 2) ＝ #换行符)
                    找到位置 ＝ 找到位置 ＋ 1
                .否则
                    找到位置 ＝ 找到位置 ＋ 3
                .如果结束

            .否则
                准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 2) ＋ “|”
                找到位置 ＝ 找到位置 ＋ 2
            .如果结束

        .否则
            .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 0)
                找到位置 ＝ 找到位置 ＋ 1
            .否则
                准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 1) ＋ “|”
                找到位置 ＝ 找到位置 ＋ 1
            .如果结束

        .如果结束

    .判断循环尾 ()
    打字数组 ＝ 分割文本 (准备打字, “|”, )
    时钟1.时钟周期 ＝ 100
    开始 ＝ 真
.如果真结束


.版本 2

.子程序 _时钟1_周期事件

目前位置 ＝ 目前位置 ＋ 1
写字框.加入文本 (打字数组 [目前位置])
.如果真 (目前位置 ＝ 取数组成员数 (打字数组))
    时钟1.时钟周期 ＝ 0

    开始 ＝ 假


.版本 2

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (开始 ＝ 真)
    .如果真 (参数一 ＝ 打字开关开启)
        时钟1.时钟周期 ＝ 100
    .如果真结束
    .如果真 (参数一 ＝ 打字开关关闭)
        时钟1.时钟周期 ＝ 0


.版本 2

.子程序 __启动窗口_创建完毕
.版本 2
.支持库 shellEx

打字开关开启 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键)
打字开关关闭 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)

编程唐少

自动打字早就实现了。。。。

Andy丿华仔

我都说不是我开发的，，，heike这个名称 我没改

Andy丿华仔

我都说不是我开发的，，，heike这个名称 我没改

Andy丿华仔

Andy丿华仔 发表于 2014-4-27 12:59
我都说不是我开发的，，，heike这个名称 我没改

当你改源码时，除了完善源码，，作者名字或者QQ和软件名字（不含作者）  你改那个比较快？