应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » C/C++ » 【求助完毕】一段数据采集程序转换（赠送50金币）
北京石油化工学院2026年研究生招生接收调剂公告
31/1返回列表
查看: 263  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

li343

至尊木虫 (职业作家)

[交流] 【求助完毕】一段数据采集程序转换（赠送50金币）

谁能帮我将下面这段VB程序转为VC，赠送50金币。

一段数据采集程序。代码如下：

Function readGAM60Value(mingling As String) As Double
    Dim i%, j%, k%, Buf$, d
    Dim InByte As String
    Dim OutB() As Byte
    Dim aa As String
    Dim bb, cc As String
    Dim value As Double
    MSComm1.PortOpen = True
    MSComm1.InBufferCount = 0
    MSComm1.OutBufferCount = 0
    MSComm1.PortOpen = False
    Buf = ""
    Buf = Trim(mingling)
    i = Len(Buf)
    k = 1
        ReDim OutB(i / 2 - 1)
        j = 0
        Do While i > 0
            OutB(j) = CByte("&H" & Mid(Buf, k, 2))
            k = k + 2
            i = i - 2
            j = j + 1
        Loop
        MSComm1.PortOpen = True
        MSComm1.InBufferCount = 0
        MSComm1.Output = OutB
        d = 0
        While d < 9000000
          d = d + 1
        Wend
        InByte = MSComm1.Input
        MSComm1.PortOpen = False
        If Mid(InByte, 1, 1) = "+" Then
        aa = Mid(InByte, 2, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 2, 1) = "+" Then
        aa = Mid(InByte, 3, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 3, 1) = "+" Then
        aa = Mid(InByte, 4, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 4, 1) = "+" Then
        aa = Mid(InByte, 5, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 5, 1) = "+" Then
        aa = Mid(InByte, 6, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 6, 1) = "+" Then
        aa = Mid(InByte, 7, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 7, 1) = "+" Then
        aa = Mid(InByte, 8, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 8, 1) = "+" Then
        aa = Mid(InByte, 9, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 9, 1) = "+" Then
        aa = Mid(InByte, 10, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 10, 1) = "+" Then
        aa = Mid(InByte, 11, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 11, 1) = "+" Then
        aa = Mid(InByte, 12, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 12, 1) = "+" Then
        aa = Mid(InByte, 13, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 13, 1) = "+" Then
        aa = Mid(InByte, 14, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 14, 1) = "+" Then
        aa = Mid(InByte, 15, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 15, 1) = "+" Then
        aa = Mid(InByte, 16, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        If Mid(InByte, 16, 1) = "+" Then
        aa = Mid(InByte, 17, 10)
        value = Val(aa)
        readGAM60Value = value * 0.01
        Exit Function
        End If
        
End Function


'获取角度
Private Sub Huoqujiaodu_Click()
Dim jiaodu As Double
jiaodu = readGAM60Value("2330300D"
Text1.Text = jiaodu
End Sub

[ Last edited by li343 on 2009-11-18 at 12:21 ]
回复此楼

» 猜你喜欢
1楼 2009-09-25 14:23:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
li343(金币+2,VIP+0):谢谢，你的意见。这样以来程序响应速度有点慢。我还是倾向于用VC直接来编。 9-26 09:29
wangen994(金币+2,VIP+0):辛苦了，欢迎常来 9-26 09:52
li343(金币+48,VIP+0):非常感谢！ 9-28 09:58
gwdavid(金币+2,VIP+0):谢谢！ 9-28 23:21
1.将该vb代码模块包装成COM控件，就可以在vc中加在调用了。
2.把VB做成Dll文件，在VC中调用就可以了
赞一下(40人) 回复此楼
努力学习！以正当途径！获得需要的知识！
2楼2009-09-26 09:21:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
小木虫(金币+0.5):给个红包，谢谢回帖交流
gwdavid(金币+3,VIP+0):谢谢！ 9-28 23:21
jove1782(金币+1,VIP+0):鼓励参与 9-29 15:21
li343(金币+50,VIP+0):非常感谢！ 9-29 21:33
改了一下午的代码，发现vb转vc难度很大，很多类型和函数没有，我提个折中的方案，就是在vc里面用shellexecute来调vb编译的exe文件或者直接读取它的结果文件，你看行不行，这个方法，我以前用过的
赞一下(27人) 回复此楼
努力学习！以正当途径！获得需要的知识！
3楼2009-09-28 21:22:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 li343 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 343求调剂 +4 爱羁绊 2026-03-28 4/200 2026-03-28 17:44 by wxiongid
[考研] 070305高分子化学与物理 304分求调剂 +4 c297914 2026-03-28 4/200 2026-03-28 15:06 by 果果妈咪
[考研] 308求调剂 +7 墨墨漠 2026-03-27 7/350 2026-03-28 07:43 by 热情沙漠
[考研] 331环境科学与工程求调剂 +3 熠然好运气 2026-03-27 3/150 2026-03-28 04:11 by fmesaito
[考研] 0703化学求调剂，各位老师看看我！！！ +5 祁祺祺 2026-03-25 5/250 2026-03-27 21:44 by 东方猪猪
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
[考研] 348求调剂 +4 小懒虫不懒了 2026-03-27 5/250 2026-03-27 12:47 by 果果妈咪
[考研] 303求调剂 +7 安忆灵 2026-03-22 8/400 2026-03-27 11:46 by sanrepian
[论文投稿] Journal of Mechanical Science and Technology +3 Russ_ss 2026-03-25 5/250 2026-03-27 10:49 by 陆小果画大饼
[考研] 一志愿吉大071010，316分求调剂 +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[考研] 求调剂 一志愿 本科 北科大 化学 343 +6 13831862839 2026-03-24 7/350 2026-03-26 22:57 by 不吃魚的貓
[考研] 321求调剂 +6 Ymlll 2026-03-24 6/300 2026-03-26 20:50 by 不吃魚的貓
[考研] 一志愿 南京邮电大学 288分 材料考研 求调剂 +3 jl0720 2026-03-26 3/150 2026-03-26 13:39 by zzll406
[考研] 一志愿天津大学339材料与化工求调剂 +3 江往卖鱼 2026-03-26 3/150 2026-03-26 09:42 by 王小欠i
[考研] 打过很多竞赛，085406控制工程300分，求调剂 +3 askeladz 2026-03-26 3/150 2026-03-26 09:08 by 给你你注意休息
[有机交流] 有机合成求助 20+3 FENGSHUJEI 2026-03-23 5/250 2026-03-24 19:31 by 88817753
[考研] 344求调剂 +3 desto 2026-03-24 3/150 2026-03-24 10:09 by 搏击518
[考研] 一志愿重庆大学085700资源与环境，总分308求调剂 +7 墨墨漠 2026-03-23 8/400 2026-03-23 20:36 by Creta
[考研] 求调剂 +5 Zhangbod 2026-03-21 7/350 2026-03-22 13:13 by Zhangbod
信息提示
关闭
请填处理意见
关闭