24小时热门版块排行榜

返回列表

当前主题已经存档。

li343

至尊木虫 (职业作家)

应助: 32 (小学生)
金币: 16345.4
散金: 138
红花: 11
沙发: 1
帖子: 3033
在线: 998.3小时
虫号: 579854
注册: 2008-07-11
性别: GG
专业: 工程热物理相关交叉领域

[交流] 【求助完毕】一段数据采集程序转换（赠送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

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51003.4
红花: 238
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
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

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51003.4
红花: 238
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
小木虫(金币+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 的主题更新

返回列表