|
发表于 2024-12-27 20:30:54
|
显示全部楼层
广东省广州市
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _窗口1_将被销毁,,, 对应 VB6 的 Form_Unload 事件
.局部变量 aaa, 字节型,, "5"
.局部变量 aa1, 长整数型
.局部变量 aa2, 整数型
.局部变量 aa3, 整数型
.局部变量 aa4, 整数型
.局部变量 aa5, 文本型
aa5 = "1000000"
' 易语言中没有直接对应的 Text2.Text = a5 操作,需要根据实际情况使用编辑框等控件,例如:编辑框1.内容 = aa5
' a4 = Val(a5) 这行在原代码中被注释,以下是转换思路,如果要实现此功能,可使用以下代码:
' aa4 = 到数值 (aa5)
aa1 = 到数值 (取文本右边 (aa5, 2))
aa2 = 到数值 (取文本中间 (aa5, 4, 2))
aa3 = 到数值 (取文本中间 (aa5, 2, 2))
.如果 (aa1 > 10 或 aa1 = 10)
aa1 = 求整 (aa1 ÷ 10) × 16 + 取余 (aa1, 10)
.否则
aa1 = aa1
.如果结束
.如果 (aa2 > 10 或 aa2 = 10)
aa2 = 求整 (aa2 ÷ 10) × 16 + 取余 (aa2, 10)
.否则
aa2 = aa2
.如果结束
.如果 (aa3 > 10 或 aa3 = 10)
aa3 = 求整 (aa3 ÷ 10) × 16 + 取余 (aa3, 10)
.否则
aa3 = aa3
.如果结束
aaa [0] = 255
aaa [1] = 17
aaa [2] = aa1
aaa [3] = aa2
aaa [4] = aa3
' 易语言中没有 MSComm1 控件,需要使用串口通信支持库或第三方串口通信组件,以下是使用串口通信支持库的示例
.如果 (串口1.打开 () = 真)
串口1.写出字节集 (aaa)
串口1.关闭 ()
.否则
信息框 ("串口打开失败!", 0,, )
.如果结束
' MSComm1.Settings = sett 这行在原代码中被注释,如果要实现此功能,在易语言中可使用:
' 串口1.波特率 = 9600 等设置,根据 sett 的具体内容修改波特率、数据位、停止位、校验位等设置 |
|