高手帮我将此段VB程序翻译成C语言

2012-07-19 03:02:00 256 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

全面理解Asprise OCR：图片/条形码识别利器全面理解Asprise OCR：图片/条形码识别利器 1. OCR简介 OCR（Optical Character Recognition）——是指电子设备（例如扫描仪或数码相机）检查纸上打印的字符，通过检测暗、亮的模式确定其形状，然后用字符识别方法将形状翻译成计算机文字的过程；即，对文本资料进行扫描，然后对图像文件进行分析处理，获取文字及版面信息的过程。如何除错或利用辅助信息提高识别正确率，阅读详情

小弟乃VB菜鸟，只学过C语言。不懂，尤其是VB的运算符，很头疼。下面是代码

Public Function crc16z(ByVal txt As String, ByVal lon As Long) As Long

Dim flag As Long

Dim crc As Long

Dim car As Integer

Dim bit As Integer

Dim test As String

crc = &HFFFF&

For car = 1 To lon Step 2

crc = crc Xor getHex(Mid(txt, car, 2))

For bit = 0 To 7

flag = crc And 1&

crc = crc \ 2&

If flag = 1 Then crc = crc Xor &HA001&

Next

Next

crc16z = Int(crc And &HFFFF&)

End Function





Public Function getHex(ByVal inputString) As Byte

Dim ib As String

Dim returnValue

returnValue = 0

ib = UCase(Mid(inputString, 1, 1))

If ib = "0" Then returnValue = 0

If ib = "1" Then returnValue = 16

If ib = "2" Then returnValue = 32

If ib = "3" Then returnValue = 48

If ib = "4" Then returnValue = 64

If ib = "5" Then returnValue = 80

If ib = "6" Then returnValue = 96

If ib = "7" Then returnValue = 112

If ib = "8" Then returnValue = 128

If ib = "9" Then returnValue = 144

If ib = "A" Then returnValue = 160

If ib = "B" Then returnValue = 176

If ib = "C" Then returnValue = 192

If ib = "D" Then returnValue = 208

If ib = "E" Then returnValue = 224

If ib = "F" Then returnValue = 240

ib = UCase(Mid(inputString, 2, 1))

If ib = "0" Then returnValue = returnValue + 0

If ib = "1" Then returnValue = returnValue + 1

If ib = "2" Then returnValue = returnValue + 2

If ib = "3" Then returnValue = returnValue + 3

If ib = "4" Then returnValue = returnValue + 4

If ib = "5" Then returnValue = returnValue + 5

If ib = "6" Then returnValue = returnValue + 6

If ib = "7" Then returnValue = returnValue + 7

If ib = "8" Then returnValue = returnValue + 8

If ib = "9" Then returnValue = returnValue + 9

If ib = "A" Then returnValue = returnValue + 10

If ib = "B" Then returnValue = returnValue + 11

If ib = "C" Then returnValue = returnValue + 12

If ib = "D" Then returnValue = returnValue + 13

If ib = "E" Then returnValue = returnValue + 14

If ib = "F" Then returnValue = returnValue + 15

getHex = returnValue

End Function

...全文

ST7789T3与CST816D驱动全解析，面试技巧第11篇：嵌入式面试场景问答 10 连发。 SPI模式下，SCLK、MOSI、CS、DC、RST为必需引脚；8080模式下需连接D0-D7、WR、RD等信号线。CST816D触摸芯片通常通过I2C接口通信，需连接SCL、SDA及INT（中断）引脚。确保电源引脚（VCC、GND）稳定供电，ST7789T3典型工作电压为3.3V。显示异常时检查时序参数，如SPI时钟频率（建议≤40MHz）、数据建立时间。初始化流程需发送一系列命令序列，包括设置像素格式、扫描方向、帧率控制等。扫描方向（MADCTL）可调整显示旋转角度，需根据实际硬件布局配置。阅读详情

kerrygood

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

东方之珠 2012-08-16

打赏
举报

全是马甲啊

oshi002 2012-08-16

打赏
举报

这个东西似乎是想用于加密解密吧，好方法啊。

oshi002 2012-08-16

打赏
举报

这个东西俺倒是可以翻译出来，只是不知道有啥子作用。

嗷嗷叫的老马 2012-08-16

打赏
举报

啥情况?

zzhgb 2012-08-16

打赏
举报

+1
[Quote=引用 9 楼的回复:]

全是马甲啊
[/Quote]

bill_bull_lee 2012-07-21

打赏
举报

呵呵，从河里挑水倒井里哦。

of123 2012-07-20

打赏
举报

给你注释一下可以吗？翻译太麻烦了，很多处理是不一样的。

Public Function crc16z(ByVal txt As String, ByVal lon As Long) As Long

Dim flag As Long

Dim crc As Long

Dim car As Integer

Dim bit As Integer

Dim test As String



crc = &HFFFF& '设置 CRC 的初始值



For car = 1 To lon Step 2  '循环提取字符串中的字符，每次 2 字符（表示一个 16 进制码）

                               '相当于 for(i=1;i<=lon;i+=2)



crc = crc Xor getHex(Mid(txt, car, 2)) 'CRC 与一个十六进制数异或

                                             'getHex 将字符转为数字，Mid 与 CString.Mid 相当

For bit = 0 To 7    '内循环，对每一比特处理，相当于 for(j=0;j<8;j++)

flag = crc And 1&   '保存最低比特

crc = crc \ 2&      'CRC 右移一位，相当于 crc >>= 1;

If flag = 1 Then crc = crc Xor &HA001& 'if(flag) crc ^= 0xa001;

Next                'VB 特有的，相当于 for(j=0;j<0;j++) 后面的 }

Next                'VB 特有的，相当于 for(i=0;i<=lon;j+=2) 后面的 }



crc16z = Int(crc And &HFFFF&) '相当于 return crc; 之所以要与 0xffff，是因为 VB 没有无符号数，编写者使用了 Long 来避免负数。但他忘了，对于位处理，正数和负数是一样的。

End Function

kerrygood 2012-07-20

打赏
举报

我问的问题不是我的代码，是学习中遇到的代码。看不懂，才问的。

threenewbee 2012-07-19

打赏
举报

你的代码把
http://topic.csdn.net/u/20120718/17/ab7d222d-8a05-488d-a0ba-ef4407e14d8e.html?31208
这里面的都比下去了。

你好意思说你会写程序？

of123 2012-07-19

打赏
举报

这个 getHex 太好玩了！

Val("&H" & inputString) 不就可以了吗？

赵4老师 2012-07-19

打赏
举报

不要做A语言代码修改为B语言代码的无用功。
只需让A、B语言代码的输入输出重定向到文本文件，或修改A、B语言代码让其通过文本文件输入输出。
即可很方便地让A、B两种语言之间协调工作。

高手帮我将此段VB程序翻译成C语言

相关推荐