用易语言写一个二十四节气cha询小程序

编程小白白gezi

精易论坛发一些内容我还不怎么会排版，勿怪

大家想用练习可以搜索大米api尝试自己去写一下

写的过去中用网易助手解析获取易代码的时候，解析json数据是一层一层的，所以需要逐级调用方法，不可能一下子拿到。这里要注意

然后就是这里练习了组合框的使用，我本来想默认选中第一个节气的，但是设置为0的时候好像也不生效不知道什么原因。

还有就是有没有办法让编辑框里面的文字自动换行，这里希望知道的大佬指点一下。

直接看代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
结果	文本型
局_网址	文本型
节气日期	文本型
节气诗句	文本型
节气习俗	文本型
节气yiji	文本型
节气介绍	文本型
节气美食	文本型

' 局_网址 ＝ “https://api.qqsuu.cn/api/dm-jieqi?word=” ＋ 选中的节气 ＋ “&apiKey=3012517e0084bff41a5078d4d2ecb4be”
' 局_网址 ＝ 编码_URL编码_JS (组合框1.内容)
结果 ＝ 功能_网页访问 (组合框1.内容)
结果 ＝ 功能_取JSON值 (结果, “data”)
节气日期 ＝ 功能_取JSON值 (结果, “day”)
节气诗句 ＝ 功能_取JSON值 (结果, “shiju”)
节气习俗 ＝ 功能_取JSON值 (结果, “xishu”)
节气yiji ＝ 功能_取JSON值 (结果, “yiji”)
节气介绍 ＝ 功能_取JSON值 (结果, “jieshao”)
节气美食 ＝ 功能_取JSON值 (结果, “meishi”)
编辑框1.内容 ＝ 节气日期
编辑框2.内容 ＝ 节气诗句
编辑框3.内容 ＝ 节气习俗
编辑框4.内容 ＝ 节气yiji
编辑框5.内容 ＝ 节气介绍
编辑框6.内容 ＝ 节气美食
' 信息框 (结果, 0, , )

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。
参数名	类 型	参考	可空	数组	备 注
选中的节气	文本型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型
处理节气	文本型

' https://api.qqsuu.cn/api/dm-jieqi?word="+选中的节气+&apiKey=ed47b457aab6e58ddaf6f2c5add9e491
处理节气 ＝ 编码_URL编码_JS (选中的节气)
局_网址 ＝ “https://api.qqsuu.cn/api/dm-jieqi?word=” ＋ 处理节气 ＋ “&apiKey=ed47b457aab6e58ddaf6f2c5add9e491”
' 局_网址 =
' 信息框 (局_网址, 0, , )
' 局_网址 = 编码
局_方式 ＝ 0
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

子程序名	返回值类型	公开	备 注
功能_取JSON值	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用
参数名	类 型	参考	可空	数组	备 注
Json数据	文本型
属性名	文本型

变量名	类 型	静态	数组	备 注
局_JSON	类_json
局_结果	逻辑型
局_类型	整数型

' 精易模块v8.0需要先把换行替换掉！
Json数据 ＝ 子文本替换 (Json数据, 字符 (13), , , , 真)
Json数据 ＝ 子文本替换 (Json数据, 字符 (10), , , , 真)
局_结果 ＝ 局_JSON.解析 (Json数据)
如果真 (局_结果 ＝ 假)
返回 (“JSON解析失败”)
局_类型 ＝ 局_JSON.取类型 (属性名)
判断 (局_类型 ＝ 1)  ' 逻辑
返回 (局_JSON.取属性对象 (属性名))
判断 (局_类型 ＝ 2)  ' 数值
返回 (局_JSON.取属性 (属性名).取数据文本 ())
判断 (局_类型 ≠ 6)  ' 非字符串
返回 (局_JSON.取通用属性 (属性名, 真))
返回 (局_JSON.取通用属性 (属性名, ))  ' 字符串

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 结果, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 节气日期, 文本型<br /> .局部变量 节气诗句, 文本型<br /> .局部变量 节气习俗, 文本型<br /> .局部变量 节气yiji, 文本型<br /> .局部变量 节气介绍, 文本型<br /> .局部变量 节气美食, 文本型<br /> <br /> ' 局_网址 ＝ “https://api.qqsuu.cn/api/dm-jieqi?word=” ＋ 选中的节气 ＋ “&apiKey=3012517e0084bff41a5078d4d2ecb4be”<br /> ' 局_网址 ＝ 编码_URL编码_JS (组合框1.内容)<br /> 结果 ＝ 功能_网页访问 (组合框1.内容)<br /> 结果 ＝ 功能_取JSON值 (结果, “data”)<br /> 节气日期 ＝ 功能_取JSON值 (结果, “day”)<br /> 节气诗句 ＝ 功能_取JSON值 (结果, “shiju”)<br /> 节气习俗 ＝ 功能_取JSON值 (结果, “xishu”)<br /> 节气yiji ＝ 功能_取JSON值 (结果, “yiji”)<br /> 节气介绍 ＝ 功能_取JSON值 (结果, “jieshao”)<br /> 节气美食 ＝ 功能_取JSON值 (结果, “meishi”)<br /> 编辑框1.内容 ＝ 节气日期<br /> 编辑框2.内容 ＝ 节气诗句<br /> 编辑框3.内容 ＝ 节气习俗<br /> 编辑框4.内容 ＝ 节气yiji<br /> 编辑框5.内容 ＝ 节气介绍<br /> 编辑框6.内容 ＝ 节气美食<br /> ' 信息框 (结果, 0, , )<br /> <br /> <br /> <br /> <br /> <br /> .子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .参数 选中的节气, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 处理节气, 文本型<br /> <br /> ' https://api.qqsuu.cn/api/dm-jieqi?word="+选中的节气+&apiKey=ed47b457aab6e58ddaf6f2c5add9e491<br /> 处理节气 ＝ 编码_URL编码_JS (选中的节气)<br /> 局_网址 ＝ “https://api.qqsuu.cn/api/dm-jieqi?word=” ＋ 处理节气 ＋ “&apiKey=ed47b457aab6e58ddaf6f2c5add9e491”<br /> ' 局_网址 =<br /> ' 信息框 (局_网址, 0, , )<br /> ' 局_网址 = 编码<br /> 局_方式 ＝ 0<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)<br /> <br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> <br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 返回 (局_返回)<br /> <br /> <br /> <br /> <br /> .子程序 功能_取JSON值, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用<br /> .参数 Json数据, 文本型<br /> .参数 属性名, 文本型<br /> .局部变量 局_JSON, 类_json<br /> .局部变量 局_结果, 逻辑型<br /> .局部变量 局_类型, 整数型<br /> <br /> ' 精易模块v8.0需要先把换行替换掉！<br /> Json数据 ＝ 子文本替换 (Json数据, 字符 (13), , , , 真)<br /> Json数据 ＝ 子文本替换 (Json数据, 字符 (10), , , , 真)<br /> <br /> 局_结果 ＝ 局_JSON.解析 (Json数据)<br /> .如果真 (局_结果 ＝ 假)<br />     返回 (“JSON解析失败”)<br /> .如果真结束<br /> 局_类型 ＝ 局_JSON.取类型 (属性名)<br /> .判断开始 (局_类型 ＝ 1)  ' 逻辑<br />     返回 (局_JSON.取属性对象 (属性名))<br /> .判断 (局_类型 ＝ 2)  ' 数值<br />     返回 (局_JSON.取属性 (属性名).取数据文本 ())<br /> .判断 (局_类型 ≠ 6)  ' 非字符串<br />     返回 (局_JSON.取通用属性 (属性名, 真))<br /> .默认<br />     返回 (局_JSON.取通用属性 (属性名, ))  ' 字符串<br /> .判断结束

真IKUN

感谢分享，很给力！~

禅语

学习666666668888888

编程小白白gezi

来此一游 发表于 2024-8-27 22:05
日期不对

用的接口，那就是接口返回的日期有点问题

来此一游

日期不对