精易论坛

标题: 易语言仿写b站up程序员血月python教程实战项目。 [打印本页]

---

作者: 飞龙雪狐    时间: 2023-4-6 18:04
标题: 易语言仿写b站up程序员血月python教程实战项目。

大家好。我是用易语言仿写了b站up的python实战练习项目，用很基础的知识写的。大家如果仿写的话可以用高阶知识来写。请大家多批评指教我。

仿python血月课程实战项目而做的人物信息系统.e.zip

2023-4-6 18:01 上传

点击文件名下载附件

下载积分: 精币 -2 枚

2.73 KB, 下载次数: 69, 下载积分: 精币 -2 枚

---

作者: 飞龙雪狐    时间: 2023-4-6 18:07

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
数组1	文本型	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
功能选择	整数型
i	整数型
记录文本	文本型
新信息	文本型
索引	整数型

记录文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\数据收集记录.txt”))
调试输出 (记录文本)
数组1 ＝ 分割文本 (记录文本, “,”, )
调试输出 (数组1)
标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符 )
标准输出 (, “请输入选择功能：”)
功能选择 ＝ 到整数 (标准输入 ())
判断 (功能选择 ＝ 1)
计次循环首 (取数组成员数 (数组1), i)
标准输出 (, 数组1 [i] ＋ #换行符 )
计次循环尾 ()
调试输出 (数组1)
标准输入 ()
判断 (功能选择 ＝ 2)
标准输出 (, “请输入新建人物信息：”)
加入成员 (数组1, 标准输入 ())
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 3)
标准输出 (, “请输入cha询人物姓名：”)
新信息 ＝ 标准输入 ()
计次循环首 (取数组成员数 (数组1), i)
调试输出 (数组1 [i])
如果真 (取文本左边 (数组1 [i], 4) ＝ 新信息)
标准输出 (, 数组1 [i])
跳出循环 ()

计次循环尾 ()
标准输入 ()
判断 (功能选择 ＝ 4)
标准输出 (, “请输入修改人物信息索引：”)
索引 ＝ 到整数 (标准输入 ())
标准输出 (, “欲修改人物信息请输入：”)
新信息 ＝ 标准输入 ()
插入成员 (数组1, 索引, 新信息)
删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
判断 (功能选择 ＝ 5)
标准输出 (, “请输入当前欲删除人物信息索引：”)
标准输入 ()
删除成员 (数组1, 到整数 (标准输入 ()), )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 0)
标准输出 (, “稍后退出”)
标准输入 ()
结束 ()
判断 (功能选择 ＝ 9)
标准输出 (, 记录文本)
标准输入 ()



标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符 )
标准输出 (, “请输入选择功能：”)
功能选择 ＝ 到整数 (标准输入 ())
判断 (功能选择 ＝ 1)
计次循环首 (取数组成员数 (数组1), i)
标准输出 (, 数组1 [i] ＋ #换行符 )
计次循环尾 ()
调试输出 (数组1)
标准输入 ()
判断 (功能选择 ＝ 2)
标准输出 (, “请输入新建人物信息：”)
加入成员 (数组1, 标准输入 ())
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 3)
标准输出 (, “请输入cha询人物姓名：”)
新信息 ＝ 标准输入 ()
计次循环首 (取数组成员数 (数组1), i)
调试输出 (数组1 [i])
如果真 (取文本左边 (数组1 [i], 4) ＝ 新信息)
标准输出 (, 数组1 [i])
跳出循环 ()

计次循环尾 ()
标准输入 ()
判断 (功能选择 ＝ 4)
标准输出 (, “请输入修改人物信息索引：”)
索引 ＝ 到整数 (标准输入 ())
标准输出 (, “欲修改人物信息请输入：”)
新信息 ＝ 标准输入 ()
插入成员 (数组1, 索引, 新信息)
删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
判断 (功能选择 ＝ 5)
标准输出 (, “请输入当前欲删除人物信息索引：”)
标准输入 ()
删除成员 (数组1, 到整数 (标准输入 ()), )
调试输出 (数组1)
记录文本 ＝ “”
计次循环首 (取数组成员数 (数组1), i)
记录文本 ＝ 记录文本 ＋ 数组1 [i] ＋ 到半角 (“,”)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))
标准输入 ()
判断 (功能选择 ＝ 0)
标准输出 (, “稍后退出”)
标准输入 ()
结束 ()
判断 (功能选择 ＝ 9)
标准输出 (, 记录文本)
标准输入 ()


返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 数组1, 文本型, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 功能选择, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 记录文本, 文本型<br /> .局部变量 新信息, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> 记录文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\数据收集记录.txt”))<br /> 调试输出 (记录文本)<br /> 数组1 ＝ 分割文本 (记录文本, “,”, )<br /> 调试输出 (数组1)<br /> 标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符)<br /> 标准输出 (, “请输入选择功能：”)<br /> 功能选择 ＝ 到整数 (标准输入 ())<br /> .判断开始 (功能选择 ＝ 1)<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         标准输出 (, 数组1 <i> ＋ #换行符)<br />     .计次循环尾 ()<br />     调试输出 (数组1)<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 2)<br />     标准输出 (, “请输入新建人物信息：”)<br />     加入成员 (数组1, 标准输入 ())<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 3)<br />     标准输出 (, “请输入cha询人物姓名：”)<br />     新信息 ＝ 标准输入 ()<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         调试输出 (数组1 <i>)<br />         .如果真 (取文本左边 (数组1 <i>, 4) ＝ 新信息)<br />             标准输出 (, 数组1 <i>)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     标准输入 ()<br /> .判断 (功能选择 ＝ 4)<br />     标准输出 (, “请输入修改人物信息索引：”)<br />     索引 ＝ 到整数 (标准输入 ())<br />     标准输出 (, “欲修改人物信息请输入：”)<br />     新信息 ＝ 标准输入 ()<br />     插入成员 (数组1, 索引, 新信息)<br />     删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br /> <br /> .判断 (功能选择 ＝ 5)<br />     标准输出 (, “请输入当前欲删除人物信息索引：”)<br />     标准输入 ()<br />     删除成员 (数组1, 到整数 (标准输入 ()), )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 0)<br />     标准输出 (, “稍后退出”)<br />     标准输入 ()<br />     结束 ()<br /> .判断 (功能选择 ＝ 9)<br />     标准输出 (, 记录文本)<br />     标准输入 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> 标准输出 (, “*************” ＋ #换行符, “人物信息系统1.0版” ＋ #换行符, “功能：” ＋ #换行符, “1.显示所有人物的信息” ＋ #换行符, “2 新建人物信息” ＋ #换行符, “3 cha询人物信息” ＋ #换行符, “4 修改人物信息” ＋ #换行符, “5 删除人物信息” ＋ #换行符, “0 退出系统” ＋ #换行符, “*************” ＋ #换行符 ＋ “人物信息格式说明：姓名：性别：年龄” ＋ #换行符 ＋ “中文输入法打开方式：ctrl+空格键” ＋ #换行符)<br /> 标准输出 (, “请输入选择功能：”)<br /> 功能选择 ＝ 到整数 (标准输入 ())<br /> .判断开始 (功能选择 ＝ 1)<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         标准输出 (, 数组1 <i> ＋ #换行符)<br />     .计次循环尾 ()<br />     调试输出 (数组1)<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 2)<br />     标准输出 (, “请输入新建人物信息：”)<br />     加入成员 (数组1, 标准输入 ())<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 3)<br />     标准输出 (, “请输入cha询人物姓名：”)<br />     新信息 ＝ 标准输入 ()<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         调试输出 (数组1 <i>)<br />         .如果真 (取文本左边 (数组1 <i>, 4) ＝ 新信息)<br />             标准输出 (, 数组1 <i>)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     标准输入 ()<br /> .判断 (功能选择 ＝ 4)<br />     标准输出 (, “请输入修改人物信息索引：”)<br />     索引 ＝ 到整数 (标准输入 ())<br />     标准输出 (, “欲修改人物信息请输入：”)<br />     新信息 ＝ 标准输入 ()<br />     插入成员 (数组1, 索引, 新信息)<br />     删除成员 (数组1, 到整数 (标准输入 ()) ＋ 1, )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br /> <br /> .判断 (功能选择 ＝ 5)<br />     标准输出 (, “请输入当前欲删除人物信息索引：”)<br />     标准输入 ()<br />     删除成员 (数组1, 到整数 (标准输入 ()), )<br />     调试输出 (数组1)<br />     记录文本 ＝ “”<br />     .计次循环首 (取数组成员数 (数组1), i)<br />         记录文本 ＝ 记录文本 ＋ 数组1 <i> ＋ 到半角 (“,”)<br />     .计次循环尾 ()<br />     写到文件 (取运行目录 () ＋ “\数据收集记录.txt”, 到字节集 (记录文本))<br />     标准输入 ()<br /> .判断 (功能选择 ＝ 0)<br />     标准输出 (, “稍后退出”)<br />     标准输入 ()<br />     结束 ()<br /> .判断 (功能选择 ＝ 9)<br />     标准输出 (, 记录文本)<br />     标准输入 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

---

作者: 飞龙雪狐    时间: 2023-4-6 18:07

飞龙雪狐 发表于 2023-4-6 18:07
[e=0].版本 2
.支持库 spec

用两个循环。第一个执行完后还可以再操作一次

---

作者: afd    时间: 2023-4-6 20:51
用macbook装虚拟机搞易语言，不费劲吗

---

作者: 飞龙雪狐    时间: 2023-4-6 21:00

afd 发表于 2023-4-6 20:51
用macbook装虚拟机搞易语言，不费劲吗

几年前装的。就凑合用了。 我才接触编程两个月

---

作者: 飞龙雪狐    时间: 2023-4-6 21:00

afd 发表于 2023-4-6 20:51
用macbook装虚拟机搞易语言，不费劲吗

你批评我的代码吧

---

作者: 夏亿    时间: 2023-4-6 22:32
支持开源~！感谢分享

---

作者: a358498501    时间: 2023-4-6 23:37
支持开源~！感谢分享

---

作者: 396384183    时间: 2023-4-7 01:00
感谢分享

---

作者: 治愈勇者    时间: 2023-4-7 05:15
来看看

---

作者: wjswzj0    时间: 2023-4-7 10:19
感谢分享

---

作者: 码畜    时间: 2023-4-7 11:14
血月？抖音那个？他除了会百du还会什么？ERP是什么都不知道都要百du，当时我也是惊呆了

---

作者: 飞龙雪狐    时间: 2023-4-7 12:07

码畜 发表于 2023-4-7 11:14
血月？抖音那个？他除了会百du还会什么？ERP是什么都不知道都要百du，当时我也是惊呆了 ...

他在b站也有号，他讲的都很基础。他自己水平也不太高

---

作者: 码畜    时间: 2023-4-7 13:52

飞龙雪狐 发表于 2023-4-7 12:07
他在b站也有号，他讲的都很基础。他自己水平也不太高

是啊，最重要的是什么？自己水平不高还收课费，就跟他讨论和交流都费劲，都要百du找答案，误人子弟就不道德

---

作者: 飞龙雪狐    时间: 2023-4-7 15:01

码畜 发表于 2023-4-7 13:52
是啊，最重要的是什么？自己水平不高还收课费，就跟他讨论和交流都费劲，都要百du找答案，误人子弟就不道 ...

我只白嫖他的视频。收费800。 我是不会支fu这钱的

---

作者: 飞龙雪狐    时间: 2023-4-7 15:01

飞龙雪狐 发表于 2023-4-7 15:01
我只白嫖他的视频。收费800。 我是不会支fu这钱的

支fu。 刚才打错了

---

作者: benbenyw    时间: 2023-4-7 17:11
你怎么在macos里开XP的？parallels desktop吗？我一直俩电脑倒腾，你这个稳定吗？

---

作者: zhangx1aoxi    时间: 2023-4-7 17:22
感谢分享

---

作者: 飞龙雪狐    时间: 2023-4-7 17:38

benbenyw 发表于 2023-4-7 17:11
你怎么在macos里开XP的？parallels desktop吗？我一直俩电脑倒腾，你这个稳定吗？ ...

virtualbox虚拟机。 你直接安装装双系统就好了

---

作者: imoling    时间: 2023-4-7 19:20

码畜 发表于 2023-4-7 13:52
是啊，最重要的是什么？自己水平不高还收课费，就跟他讨论和交流都费劲，都要百du找答案，误人子弟就不道 ...

其实不是水平问题，是人很垃圾，吹牛逼超厉害，刷抖音偶然刷到，就看到他在骂人，各种吹牛逼说其他人怎么怎么脑残不会学不会，意思自己怎么怎么牛逼= =！

---

作者: yxl2008    时间: 2023-4-8 13:15
感谢分享，下载学习！！！

---

作者: xue1995    时间: 2023-4-11 14:51
苹果电脑怎么运行易语言？

---

作者: jianfengxu    时间: 2023-4-11 22:07

xue1995 发表于 2023-4-11 14:51
苹果电脑怎么运行易语言？

很明显 人家装了个虚拟机。。。

---

作者: 指尖流淌    时间: 2023-4-12 09:16

afd 发表于 2023-4-6 20:51
用macbook装虚拟机搞易语言，不费劲吗

现在的苹果笔记本的CPU有些是arm平台的 不能安装WIN系统了

---

作者: CSL跳舞软件系统    时间: 2023-4-12 14:30
看这有点东西

---

作者: 精易论坛龙    时间: 2023-4-14 07:49
感谢分享

---

作者: 飞龙雪狐    时间: 2023-4-14 12:46

CSL跳舞软件系统 发表于 2023-4-12 14:30
看这有点东西

请前辈指导

---

作者: sanclyj    时间: 2023-4-14 13:37
python教程实战项目

---

作者: 飞龙雪狐    时间: 2023-4-15 18:01

sanclyj 发表于 2023-4-14 13:37
python教程实战项目

b站 up 程序员血月

---

作者: hdb1217    时间: 2023-6-10 14:17
#在这里快速回复# 多谢分享

---

作者: ttjy888    时间: 2024-1-23 23:06
血月我认识

---

作者: zitan    时间: 2024-4-17 13:15

感谢分享

---

作者: zitan    时间: 2024-4-17 13:16

感谢分享

---

作者: LeonX    时间: 2025-4-13 16:01
感谢分享

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4