讯言源码

A. 能给我发个VB与三菱PLC通讯的源代码实例吗，非常感谢啊

Abstract: Describes all kinds of basic serial port communication methods using Visual Basic 6.0 and design of free port communication program of MITSUBISH PLC, furthermore set focus on the designing method of serial port communication through dynamic linked library in Visual Basic 6.0

Key Words: Serial port communication, PLC, Visual Basic 6.0一、引言

在工业生产中，人们常常面临着数据采集与管理。作为工厂自动化的三大支柱可编程控制器PLC（Programmable Logic Controller），由于其安全可靠，广泛的用于数据采集与控制。生产过程中，要监视PLC内部的数据与运行状况，选用市场上的人机界面或组态软件，虽然功能丰富，但大都价格昂贵，在一些中小规模的生产场合，人们希望能自己用高级语言开发一个简易实用的通信程序。微软公司推出的Visual Basic 6.0，开发串行通信程序时，有两种方法，一种是用Windows API函数，另一种是用VB支持的通信控件MSCOMM.OCX。利用Windows API函数是通过调用读写等函数来操作串口。两种比较，使用MSCOMM.OCX控件编程方便，具有更完善的发送和接收功能。这里采用了MSCOMM.OCX控件。

本文根据杭州某包装材料公司原料配料控制系统为背景，简述实现计算机与三菱FX系列PLC通信的实现过程。二、硬件与选型

日本三菱公司是国际着名的工厂自动化设备制造商，工业可编程控制器在国内市场占有率一直保持前列。项目选用三菱FX2N-64MR型PLC，SC-09电缆作为计算机与PLC通信的连线。连接电缆的9针端连接在计算机串口上，另一端连接在PLC的RS-422编程口。系统框图如图一所示：

SC-09电缆
计算机 三菱 PLC

图一

三、软件编程

软件设计主要包括PLC梯形图设计和计算机VB程序、数据库设计。计算机操作系统为Windows98，编程语言用Visual Basic 6.0，数据库选用Access97，梯形图程序在三菱PLC编程软件GPPWIN 软件环境设计。上位机软件实现计算机对PLC内部数据读取、写入参数和保存数据到数据库。

三菱FX2N型PLC编程口通信协议如下：

命令
命令字
控制元件
备注

读元件
0
X,Y,M,S,T,C,D
读字/位元件状态

写元件
1
X,Y,M,S,T,C,D
写字/位元件状态

置位
7
X,Y,M,S,T,C
位元件置位

复位
8
X,Y,M,S,T,C
位元件复位


通信格式：

起始符
命令字
首地址
数据区
结束符
和校验


波特率9600，偶校验，8位数据位，一位停止位。

在新建工程的表单上添加MSCOMM.OCX控件，初始化程序：

Private Sub Form_Load()

MSComm1.CommPort = 1 '选择COM1口

MSComm1.Settings = "9600,e,7,1"

End Sub

系统参数主画面如下图所示：

图二

数据读取子程序：

Public Function GetData(ByVal StartAddress As String, ByVal GetBytes As Integer, ByVal Hex_Bytes As String) As String

MSComm1.InputLen = GetBytes * 2 + 4

MSComm1.Output = STX + CMD_Read + StartAddress + Hex_Bytes + ETX + GetSumChk(CMD_Read + StartAddress + Hex_Bytes + ETX)

‘传送数据组成：起始符+命令+首地址+数据位+结束符+和检验码

GetData = MSComm1.Input

MSComm1.InBufferCount = 0

MSComm1.InputLen = 0

End Function

如需读取数据，通过调用GetData子程序。

参数设置程序可参考读取子程序，只是改变命令而已。

Access97数据库中包含三个表单，包括参数表、记录表、报警记录表。

通过如下子程序是将实际称量值（记录表）更新到数据库：Private Sub SaveData()

Dim i As Integer

Dim valid As Boolean

On Error Resume Next

valid = True

Data1.Recordset.AddNew

Data1.Recordset.Fields("dtime") = TimeSerial(OnHour, OnMinute, OnSecond)

Data1.Recordset.Fields("systime") = Time ‘系统时间

Data1.Recordset.Fields("get_xl") = LF(1) ‘小料当前称量值

Data1.Recordset.Fields("get_fjs") = LF(2) ‘方解石当前称量值

Data1.Recordset.Fields("get_cs") = LF(3) ‘长石当前称量值

Data1.Recordset.Fields("get_sys") = LF(4) ‘石英砂当前称量值

Data1.Recordset.Fields("get_cj") = LF(5) ‘纯碱当前称量值

On Error Resume Next

Data1.Recordset.Update ‘更新数据库记录

Data1.Recordset.MovePrevious

End Sub

程序中，LF(i)变量对应为图二系统参数表单中实称值。

保存参数子程序只是对数据库操作，程序结构可参考以上子程序。

上位机与PLC通信质量的好坏，对系统的安全可靠运行影响极大，因此，编写程序时，除了在两者之间的通信协议上保持绝对一致和采取相应的容错技术外，还要考虑系统的整体容错技术，防止系统的不正常。

四、结束语

串行通信是目前计算机与其他设备之间通信广泛采用的方式之一，传送数据准确，程序稳定运行是系统开发的主要目的。本设计中充分利用计算机和PLC的资源，在几乎不增加设备开支的情况下成功的实现上位机与PLC之间的通信。

B. 华为准备直接向客户公开5G源代码，爱立信、诺基亚为什么要反对

华为向用户公布5G源代码。

华为5G网络技术处于全球领先之后，也是遭遇到了以美国为首的“西方国家”的抵制，美国更是不断的向其他盟国施压要求将华为5G技术拒之门外，但华为创始人：“心底无私天地宽”，坦坦荡荡的华为更是直接向其客户“英国”、“德国”公开了5G源代码，这样的举措也更是赢得了英国、德国的信任，毕竟源代码作为一个科技公司而言，是最为核心的商业机密，而此次华为直接将自己的“商业机密”公开，不仅仅进一步向全世界证明，华为5G技术的领先优势，以获得更多客户的支持。

源代码是刚刚开始建网的5G技术的钥匙，是企业的最核心的商业机密，他们还指望借5G狠赚一笔。

C. 源码免杀map定位教程谢谢

1OD打开看特征码前后有什么明显的函数没有，如有，到源码找那个函数，函数附近就是特征码；
2建议重新定位特征码，好多时候都是定位不准确造成的。

D. 为什么边策在《世界电影之旅之资讯快车》里说《源代码》的剧情是sean就是恐怖分子

不是的，电影里他刚穿越回去前确实会让人有这样的怀疑，但是后面不是这样的，明显是边策自己看个预告或者拿个半桶水编辑给的稿子就念了

E. VB通讯录的设计源代码

只能做到

亲朋好友基本信息和通讯方法（包括通讯地址，邮政编码，住宿地，电话号码等）存入通讯录并提供按姓名，电话号码等查询其他信息的功能

打印就不能了

F. 看懂源代码了吗另外多出一个问题。

我前几天才看完 还是很多不明白，就是柯尔特·史蒂文的电波附在了肖恩芬特雷斯身上，你说是他们的结合体了。可是那个时间的肖恩芬特雷斯的思想哪去了？