松下plc与vb点虐松下plc两种编程软件

7款plc编程软件介绍？

1、欧姆龙plc编程软件

专注于为中小企业提供网站建设、做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业松滋免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了数千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

欧姆龙plc编程软件集成了CX-ProgrammerV9.5，能够为欧姆龙PLC编程提供全面的软件支持，本版本为最新版，全面支持32/64位WIN8系统，为多国语言版，支持简体中文。能为网络、可编程终端及伺服系统、电子温度控制等进行设置。适用于已具有电气系统知识（电气工程师或等同者）的负责安装FA系统者、负责设计FA系统者和负责管理和维护FA系统者使用。

2、三菱PLC编程软件

三菱PLC编程软件适用于Q、QnU、QS、QnA、AnS、AnA、FX等全系列可编程控制器。三菱PLC编程软件GXDeveloper定位为可编程控制器综合开发平台，支持梯形图、指令表、SFC、ST及FB、Label语言程序设计，网络参数设定，可进行程序的线上更改、监控及调试，具有异地读写PLC程序功能。三菱公司目前最新PLC编程软件。

3、西门子step7

STEP7是西门子的最经典的编程软件，其中对应着西门子S7-300/400系列，属于西门子旧款PLC的代表作。STEP7具有以下功能:硬件配置和参数设置、通讯组态、编程、测试、启动和维护、文件建档、运行和诊断功能等。STEP7的所有功能均有大量的在线帮助，用鼠标打开或选中某一对象，按F1可以得到该对象的相关帮助。

在STEP7中，用项目来管理一个自动化系统的硬件和软件。STEP7用SIMATIC管理器对项目进行集中管理，它可以方便地浏览SIMATICS7、M7、C7和WinAC的数据。实现STEP7各种功能所需的SIMATIC软件工具都集成在STEP7中。

4、西门子博途

TIA博途是全集成自动化软件TIAportal的简称，是西门子工业自动化集团发布的一款全新的全集成自动化软件。它是业内首个采用统一的工程组态和软件项目环境的自动化软件，几乎适用于所有自动化任务。借助该全新的工程技术软件平台，用户能够快速、直观地开发和调试自动化系统。

5施耐德编程软件

UnityProXL是施耐德电气自动化的核心产品，它是新一代软硬件自动化平台。其全新的独创设计缩短了开发时间，处理器的灵活性可以实现更高的性能。基于开放性以及对工具的协同式应用，Unity在软件开发和控制系统运行上达到了更高水平，它将生产率的提高放在首位。

6、松下plc编程软件

松下FP系列PLC编

VB点虐程序发送数据给PLC（求高手赐教！！！）

a = (":010612000020C70D0A")'这里肯定有问题

括号必须在引号里面，不然编译不过的

你的问题是没有发送确认符，一般串口指令末尾都有换行确认符vbCr，下位机接收到vbCr后才认为是一条完整指令，改成下面的试验

Dim a As String = ":010612000020C70D0A" vbCr

大佬，求助松下fp7plc与电脑PC端通信

松下不是有PC通讯解决方案吗？

我之前用的VB.NET的代码：

Imports System.Net

Imports System.Runtime.InteropServices

Public Class Form1

Dim Handle1 As Int32

Dim EntLink As Boolean

Dim ScanCount As Long

Dim PLC As New NaisTcpFp.PlcClient 'TCP:NaisTcpFp.DLL/COM:NaisComFP.DLL

Public Declare Function timeGetTime Lib "winmm.dll" () As UInt32

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Short

Me.CenterToScreen()

cmbReadMry.Items.Clear()

cmbReadMry.Items.Add("WX")

cmbReadMry.Items.Add("WY")

cmbReadMry.Items.Add("WR")

cmbReadMry.Items.Add("DT")

cmbWriteMry.Items.Clear()

cmbWriteMry.Items.Add("WX")

cmbWriteMry.Items.Add("WY")

cmbWriteMry.Items.Add("WR")

cmbWriteMry.Items.Add("DT")

cmbBitMry.Items.Clear()

cmbBitMry.Items.Add("X")

cmbBitMry.Items.Add("Y")

cmbBitMry.Items.Add("R")

cmbBitMry.Items.Add("D")

cmbReadType.Items.Clear()

cmbReadType.Items.Add("INT16")

cmbReadType.Items.Add("UINT16")

cmbReadType.Items.Add("DINT32")

cmbReadType.Items.Add("HEX32")

cmbReadType.Items.Add("REAL32")

cmbReadType.Items.Add("BIN16")

cmbWriteType.Items.Clear()

cmbWriteType.Items.Add("INT16")

cmbWriteType.Items.Add("UINT16")

cmbWriteType.Items.Add("DINT32")

cmbWriteType.Items.Add("HEX32")

cmbWriteType.Items.Add("REAL32")

cmbWriteType.Items.Add("BIN16")

For i = 0 To 15 Step 1

cmbBit.Items.Add("Bit" i)

Next i

cmbReadMry.SelectedIndex = 3

cmbWriteMry.SelectedIndex = 3

cmbBitMry.SelectedIndex = 1

cmbBit.SelectedIndex = 0

cmbReadType.SelectedIndex = 0

cmbWriteType.SelectedIndex = 0

lstRead.Items.Clear()

txtWrite.Text = ""

End Sub

Private Sub butLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butLink.Click

Dim re As Short

Dim restr As String = ""

re = PLC.EntLink(Trim(txtLocalIP.Text), Val(txtLocalPort.Text), Trim(txtRemoteIP.Text), Val(txtRemotePort.Text), "DEMO", Handle1)

txtReLink.Text = re.ToString

If re = 0 Then

EntLink = True

MsgBox("PLC联接成功! ")

Else

EntLink = False

MsgBox("PLC联接失败: " restr)

End If

End Sub

Private Sub butClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butClose.Click

Dim re As Short

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

re = PLC.DeLink(Handle1)

txtReClose.Text = re.ToString

End Sub

Private Sub butRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butRead.Click

Dim re As Short

Dim i As Short

Dim RD() As Object

ReDim RD(Val(txtReadCnt.Text - 1))

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

re = PLC.CmdRead(Handle1, 1, cmbReadMry.SelectedIndex + 1, cmbReadType.SelectedIndex + 1, Val(txtReadAdd.Text), Val(txtReadCnt.Text), RD)

txtReRead.Text = re.ToString

lstRead.Items.Clear()

For i = 0 To UBound(RD) Step 1

If Not IsNothing(RD(i)) Then lstRead.Items.Add(RD(i))

Next i

If re 0 Then

Timer1.Enabled = False

butScan.Text = "Cycle R/W"

End If

End Sub

Private Sub butWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butWrite.Click

Dim re As Short

Dim i As Short

Dim temp() As String

Dim WD() As Object

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

ReDim WD(Val(txtWriteCnt.Text) - 1)

temp = Split(txtWrite.Text, vbCrLf)

For i = 0 To UBound(WD) Step 1

If i UBound(temp) Then

WD(i) = 0

Else

WD(i) = Trim(temp(i))

End If

Next i

re = PLC.CmdWrite(Handle1, 1, cmbWriteMry.SelectedIndex + 1, cmbWriteType.SelectedIndex + 1, Val(txtWriteAdd.Text), Val(txtWriteCnt.Text), WD)

txtReWrite.Text = re.ToString

If re 0 Then

Timer1.Enabled = False

butScan.Text = "Cycle R/W"

End If

End Sub

Private Sub butScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butScan.Click

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

Timer1.Enabled = Not Timer1.Enabled

If Timer1.Enabled Then

ScanCount = 0

butScan.Text = "Stop R/W"

Else

butScan.Text = "Cycle R/W"

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Timer1.Enabled = False

Dim tim As Integer = timeGetTime

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

Call butRead_Click(Nothing, Nothing)

Call butWrite_Click(Nothing, Nothing)

If (Val(txtReRead.Text) 0) Or (Val(txtReWrite.Text) 0) Then

butScan.Text = "Cycle R/W"

Exit Sub

Else

ScanCount += 1

txtScanCnt.Text = ScanCount

txtScanPrd.Text = (timeGetTime - tim) "ms"

End If

Timer1.Enabled = True

End Sub

Private Sub butBitTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitTest.Click

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

Dim rd As Boolean

Dim re As Short

re = PLC.Bit_Test(Handle1, 1, cmbBitMry.SelectedIndex + 1, Val(txtBitAdd.Text), cmbBit.SelectedIndex, rd)

txtBitTest.Text = rd

txtReBit.Text = re

End Sub

Private Sub butBitSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitSet.Click

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

Dim re As Short

re = PLC.Bit_Set(Handle1, 1, cmbBitMry.SelectedIndex + 1, Val(txtBitAdd.Text), cmbBit.SelectedIndex)

txtReBit.Text = re

End Sub

Private Sub butBitRst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butBitRst.Click

If Not EntLink Then

MsgBox("还未与PLC建立联接！")

Exit Sub

End If

Dim re As Short

re = PLC.Bit_Reset(Handle1, 1, cmbBitMry.SelectedIndex + 1, Val(txtBitAdd.Text), cmbBit.SelectedIndex)

txtReBit.Text = re

End Sub

End Class

如何将松下PLC如FP2SH,和个人电脑连起来，我的意思是想在个人电脑上用VB写一个操作界面，用电脑来当触摸屏

自然是选个PLC以太网模块，用网线和个人电脑的网卡链接（有的型号需要专用网卡）。1、需要熟悉你所用的PLC程序、功能、控制工艺。2、需要知道VB转换成以太网通讯的编程关系。3、不是触摸屏是鼠标点击屏。4、有点难度和门槛。祝成功！！！

文章题目：松下plc与vb点虐松下plc两种编程软件
新闻来源：http://6mz.cn/article/ddjsddd.html

网站建设知识

松下plc与vb点虐松下plc两种编程软件

7款plc编程软件介绍？

VB点虐程序发送数据给PLC（求高手赐教！！！）

大佬，求助松下fp7plc与电脑PC端通信

如何将松下PLC如FP2SH,和个人电脑连起来，我的意思是想在个人电脑上用VB写一个操作界面，用电脑来当触摸屏

其他资讯

网站建设知识

松下plc与vb点虐 松下plc两种编程软件

7款plc编程软件介绍？

VB点虐 程序发送数据给PLC（求高手赐教！！！）

大佬，求助松下fp7plc与电脑PC端通信

如何将松下PLC如FP2SH,和个人电脑连起来，我的意思是想在个人电脑上用VB写一个操作界面，用电脑来当触摸屏

其他资讯

松下plc与vb点虐松下plc两种编程软件

VB点虐程序发送数据给PLC（求高手赐教！！！）