| 查看: 264 | 回复: 2 | |||
| 当前主题已经存档。 | |||
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 ] |
回复此楼» 猜你喜欢
11408软件工程求调剂
已经有3人回复
-
一志愿211 初试270分 求调剂
已经有8人回复
-
300求调剂，材料科学英一数二
已经有6人回复
-
学硕274求调剂
已经有9人回复
-
本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以
已经有7人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有3人回复
-
317分 一志愿南理工材料工程 本科湖工大 求调剂
已经有7人回复
-
081200-11408-276学硕求调剂
已经有5人回复
-
316求调剂
已经有7人回复
-
322求调剂
已经有7人回复
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51005.2
- 红花: 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
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中调用就可以了 |
2楼2009-09-26 09:21:33
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51005.2
- 红花: 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
小木虫(金币+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文件或者直接读取它的结果文件，你看行不行，这个方法，我以前用过的 |
3楼2009-09-28 21:22:10
10