1.请问PLC中VB代表什么意思？
2.从plc读取得实数怎样在vb的编写编程text中显示为浮点数，怎样生成安装文件
3.谁有VB和OMRON PLC 通信例子啊？能否发个原始代码？ 再次特别感谢！密源码
请问PLC中VB代表什么意思？
您提供的编写编程是一个关于PLC（可编程逻辑控制器）的等式和变量赋值问题。根据您提供的密源码等式和变量赋值，我们可以逐步计算出其他变量的编写编程私密源码值：给定条件：
V3.5 = 1
V1.0 = 1
VB2 =
VB = 5
我们要计算的变量：
V0.1
V2.3
VW0
VB1
VB3
VW2
VD0
根据给定条件和一些基本推理，我们可以逐步计算出这些变量的密源码缩短源码值：
V0.1 = V1.0 + VB = 1 + 5 = 6
V2.3 = V3.5 + VB2 = 1 + =
VW0 = V3.5 = 1
VB1 = VB2 + VB = + 5 =
VB3 = V3.5 + VB1 = 1 + =
VW2 = V2.3 + VB2 = + =
VD0 的值在您提供的等式中没有给出，因此无法计算。编写编程
综上所述，密源码根据给定条件，编写编程变量的密源码值为：
V0.1 = 6
V2.3 =
VW0 = 1
VB1 =
VB3 =
VW2 =
请注意，以上计算基于您提供的编写编程等式和赋值，如果有其他背景信息或等式，密源码请提供更多详细信息以获取准确的编写编程-90源码计算结果。
从plc读取得实数怎样在vb的密源码text中显示为浮点数，怎样生成安装文件
第一个问题，编写编程你直接取PLC里的标签值就可以了，不知道你用的macports 源码是什么PLC，通过OPC
server可以很方便取出数据，注意下类型就可以了，在西门子系列中，用的源码 右键是B，方式譬如
s7
[s7:connection_1]数据模块,B标签地址
第二个问题：
由于VB需要用到VB自带的库文件，所以需要打包，生成exe文件之后，
1.
选择菜单项中的
外接程序，选择外接程序管理器
2.
选中Package
and
Deployment
Wizard，在
加载行为里，选择
加载/卸载，然后点击确定
3.
再次选择菜单项中的
外接程序，这时可以看到里面有Package
and
Deployment
Wizard这个选项了，点击它，选择弹出窗体中的第一个就是Package就OK了，然后基本都是下一步
谁有VB和OMRON PLC 通信例子啊？能否发个原始代码？ 再次特别感谢！
提供一个VB.NET与OMRON以太网通讯的代码，是我项目里面复制出来的： Dim Handle1 As Int 'PLC的连接句柄Dim EntLink As Boolean '连接标志
Dim PLC As New FinsTcp.PlcClient '引用OMRON的通讯组件
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
EntLink = False
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
Dim mry As FinsTcp.PlcClient.PlcMemory = cmbReadMry.SelectedIndex + 1
Dim typ As FinsTcp.PlcClient.DataType = cmbReadType.SelectedIndex + 1
re = PLC.CmdRead(Handle1, mry, typ, CUShort(Val(txtReadAdd.Text)), CUShort(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
Dim mry As FinsTcp.PlcClient.PlcMemory = cmbWriteMry.SelectedIndex + 1
Dim typ As FinsTcp.PlcClient.DataType = cmbWriteType.SelectedIndex + 1
re = PLC.CmdWrite(Handle1, mry, typ, CUShort(Val(txtWriteAdd.Text)), CUShort(Val(txtWriteCnt.Text)), WD)
txtReWrite.Text = re.ToString
If re <> 0 Then
Timer1.Enabled = False
butScan.Text = "Cycle R/W"
End If
End Sub
