开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 469|回复: 8
收起左侧

[闲聊] vb6.0转易语言代码求助

[复制链接]
结帖率:0% (0/4)
发表于 2024-12-27 12:29:40 | 显示全部楼层 |阅读模式   广东省佛山市
Private Sub Form_Unload(Cancel As Integer)
Dim aaa(0 To 4) As Byte
Dim aa1 As Long, aa2 As Integer, aa3 As Integer, aa4 As Integer
Dim aa5 As String
      aa5 = 1000000
     ' Text2.Text = a5
      ' a4 = Val(a5)
       aa1 = Val(Right(aa5, 2))

       aa2 = Val(Mid(aa5, 4, 2))
     aa3 = Val(Mid(aa5, 2, 2))
       If aa1 > 10 Or aa1 = 10 Then
         aa1 = (Int(aa1 \ 10) * 16) + (aa1 Mod (10))
       Else
         aa1 = aa1
       End If
       If aa2 > 10 Or aa2 = 10 Then
         aa2 = (Int(aa2 \ 10) * 16) + (aa2 Mod (10))
       Else
         aa2 = aa2
       End If
        If aa3 > 10 Or aa3 = 10 Then
         aa3 = (Int(aa3 \ 10) * 16) + (aa3 Mod (10))
       Else
         aa3 = aa3
       End If
        aaa(0) = 255
        aaa(1) = 17
        aaa(2) = aa1
        aaa(3) = aa2
        aaa(4) = aa3
       MSComm1.Output = aaa
'  MSComm1.Settings = sett
End Sub

结帖率:100% (14/14)

签到天数: 4 天

发表于 昨天 15:24 | 显示全部楼层   浙江省台州市
moosoo 发表于 2024-12-27 20:30
.版本 2
.程序集 窗口程序集_启动窗口

VB 的 Integer是16位整数,对应易语言“短整数型”;VB的 Long是32位整数,对应易语言“整数型”,非64位的更长的“长整数型”
回复 支持 反对

使用道具 举报

结帖率:100% (6/6)

签到天数: 3 天

发表于 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 的具体内容修改波特率、数据位、停止位、校验位等设置

点评

.程序集 窗口程序集_启动窗口 .子程序 _窗口1_将被销毁   浙江省台州市  发表于 昨天 15:22
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)

签到天数: 17 天

发表于 2024-12-27 18:31:23 | 显示全部楼层   重庆市重庆市
复制到易语言里大部分甚至都能自动转了,这是最简单的基础都不懂就算帮你转了有什么用,又没有实现啥功能..
回复 支持 反对

使用道具 举报

签到天数: 14 天

发表于 2024-12-27 17:52:46 | 显示全部楼层   湖北省武汉市
你发这个帖肯定没人理你。
回复 支持 反对

使用道具 举报

结帖率:100% (11/11)

签到天数: 9 天

发表于 2024-12-27 16:00:38 | 显示全部楼层   湖南省岳阳市
Private Sub Form_Unload(Cancel As Integer)
    ' 定义一个字节类型的数组aaa,下标范围从0到4
    Dim aaa(0 To 4) As Byte
    ' 定义长整型变量aa1,整型变量aa2、aa3、aa4,字符串变量aa5
    Dim aa1 As Long, aa2 As Integer, aa3 As Integer, aa4 As Integer
    Dim aa5 As String
   
    ' 将字符串"1000000"赋值给aa5变量
    aa5 = "1000000"
    ' 下面这行代码被注释掉了,原本可能是想将aa5的值赋给Text2控件的Text属性,但当前未执行此操作
    ' Text2.Text = a5
    ' 下面这行代码也被注释掉了,原本可能是想将aa5转换为数值类型赋值给aa4变量,但当前未执行此操作
    ' a4 = Val(a5)
   
    ' 从aa5字符串的右侧取2个字符,转换为数值后赋值给aa1变量
    aa1 = Val(Right(aa5, 2))
   
    ' 从aa5字符串的第4个字符开始取2个字符,转换为数值后赋值给aa2变量
    aa2 = Val(Mid(aa5, 4, 2))
    ' 从aa5字符串的第2个字符开始取2个字符,转换为数值后赋值给aa3变量
    aa3 = Val(Mid(aa5, 2, 2))
   
    ' 判断aa1的值是否大于10或者等于10,如果满足条件
    If aa1 > 10 Or aa1 = 10 Then
        ' 将aa1进行转换,先整除10取整后乘以16,再加上aa1除以10的余数,实现某种数值转换逻辑
        aa1 = (Int(aa1 \ 10) * 16) + (aa1 Mod 10)
    Else
        ' 如果不满足上述条件,aa1保持原值
        aa1 = aa1
    End If
   
    ' 判断aa2的值是否大于10或者等于10,如果满足条件
    If aa2 > 10 Or aa2 = 10 Then
        ' 将aa2进行类似上面aa1的转换操作
        aa2 = (Int(aa2 \ 10) * 16) + (aa2 Mod 10)
    Else
        ' 如果不满足条件,aa2保持原值
        aa2 = aa2
    End If
   
    ' 判断aa3的值是否大于10或者等于10,如果满足条件
    If aa3 > 10 Or aa3 = 10 Then
        ' 将aa3进行类似的转换操作
        aa3 = (Int(aa3 \ 10) * 16) + (aa3 Mod 10)
    Else
        ' 如果不满足条件,aa3保持原值
        aa3 = aa3
    End If
   
    ' 给数组aaa的第1个元素(下标为0)赋值为255
    aaa(0) = 255
    ' 给数组aaa的第2个元素(下标为1)赋值为17
    aaa(1) = 17
    ' 给数组aaa的第3个元素(下标为2)赋值为经过前面转换后的aa1的值
    aaa(2) = aa1
    ' 给数组aaa的第4个元素(下标为3)赋值为经过前面转换后的aa2的值
    aaa(3) = aa2
    ' 给数组aaa的第5个元素(下标为4)赋值为经过前面转换后的aa3的值
    aaa(4) = aa3
   
    ' 通过MSComm1控件将数组aaa中的数据输出,通常用于串口通信等场景发送数据
    MSComm1.Output = aaa
    ' 下面这行代码被注释掉了,原本可能是用于设置MSComm1控件的通信参数,但当前未执行此操作
    ' MSComm1.Settings = sett
End Sub
回复 支持 反对

使用道具 举报

结帖率:50% (6/12)

签到天数: 17 天

发表于 2024-12-27 15:17:24 | 显示全部楼层   山东省青岛市
闲聊
回复 支持 反对

使用道具 举报

结帖率:88% (14/16)

签到天数: 15 天

发表于 2024-12-27 14:05:25 | 显示全部楼层   河南省郑州市
那么多精b 留着过年啊 好赖发个求助帖,你发这个帖肯定没人理你。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表