有没有VB高手，问个问题~ 点击：1029 | 回复：17
发表于：2003-09-12 21:50:00
楼主
本人在公司做东东的时候，用VB和PLC通信，收到数据寄存器D里的数据，过来都是16进制的，偶想把它变10进制显示在TEXT里，开始用了个笨方法，就是写：
TEXT1.TEXT=MID（MSCOMM1.INPUT，6，1）*16+MID（MSCOMM1.INPUT，7，1）
哈，本人VB知识浅薄，用上面方法做的时候，第一次没换数据寄存器D里的数据还可以，显示对的，但是当我用按键控制D里的数据变化，VB马上出来什么“类型不正确”，调试的时候就是我刚写的一句话有问题，请高手指导，飞雪JJ（你不说当你是JJ，是GG也不要生气）指导拉，帮写下去，我写到：TEXT1.TEXT=MID(MSCOMM1.INPUT,6,2)的时候，调试正常的，就是出来的是16进制的数据，帮忙加点东西，改成10进制，用自定义变量没关系，偶还看的懂，应该不是太难的问题吧，不过在学校偶没学过VB（当时学的PASCL，郁闷），所以请大家帮忙指点。
啊里呀多，古大意吗司！！！
发表于：2003-07-21 21:05:00
2楼
public Function strToHex(str As String) As Integer
Dim intH, intL As Integer
intH = Asc(Mid$(str, 2, 1))
intL = Asc(Mid$(str, 3, 1))
If intH >= 48 And intH <= 57 Then
intH = intH - 48
Else
intH = intH - 65
End If
If intL >= 48 And intL <= 57 Then
intL = intL - 48
Else
intL = intL - 65
End If
strToHex = intH * 16 + intL
End Function
发表于：2003-07-22 07:10:00
9楼
哦。没问题的，其实我做的这个通信很简单的，无非就是利用VB做的按键，每个按键对应MSCOMM32控件发出一串指令。控制PLC的中间继电器至1或0，还有就是利用TIME控件定时发出接受PLC内部寄存器D里的数据的指令，然后显示在VB的TEXT控件里，所以才会问到16换10的问题哈。
你要是有兴趣，等我今天晚上回来带一部分过来（哈，其实主要都是重复，100个按键动作都是互相拷拷，改改字符串而已），发到论坛里吧，主要就是初始化那里还有的看头，也是我在网上找的，估计对飞雪JJ没多大用，但是对刚开始接触VB和PLC通信的朋友应该很有帮助，哈，不用多谢我了
发表于：2003-07-22 18:24:00
12楼
不好意思，明天出差去宁波，今天没把程序带回来，礼拜4吧，晚上把程序给大家公开，虽然不很复杂，但是也是我弄了1个礼拜多啊！刚开始做没经验，难免的。
飞雪姐姐，你的程序偶不能用啊，我把你做的函数烤过去，调试的时候说
intL=asc(mid$(str,3,1)）无效
8过偶想到了个简便方法，你看你用的上不，就是字符串改数字的
DIM A AS STRING
DIM B AS STRING
DIM C AS STRING
A=MID（MSCOMM1。INPUT，6，2）
B="&H"+A
C=val(B)
text1.text=C
哈哈，解决问题，16化10显示~~~~~~~~~
各位试试很好用的啊，用好了记得偶小飞侠啊~~~~~~~~~~~
热门招聘
相关主题
- 请教：怎样在WINCC画面中弹出...
[14604] - 做工控有钱途吗？面临择业的迷...[22478]
- 工控老鬼 图解西门子S7-300系...[7616]
- 编程技巧展示：为一求助帖用S...[7172]
- 三菱PLC视频教程 PLC学习难点...[12372]
- 自控系统设计中PLC的正确选择...[12824]
- D寄存器和R寄存器有什么区别...[10022]
- 三菱PLC仿真软件下载地址及其...[136331]
- 一位老工程师收藏的3018套PL...[10712]
- 组态王视频22讲，很详细。[8472]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
