-> Hier kostenlos registrieren
Hallo
kann mir jemand weiter helfen, ich versuche vergeblich die Symboltabelle aus einem S7-Projekt mit Visual Basic 2010 einzulesen.
Bin Neueinsteiger mit Visual Basic 2010 und DotNetSiemensPLCToolBoxLibrary
das auslesen des Zeitstempels der Bausteine habe ich mit folgendem Code hinbekommen.
Imports DotNetSiemensPLCToolBoxLibrary.DataTypes
Imports DotNetSiemensPLCToolBoxLibrary.Communication
Imports DotNetSiemensPLCToolBoxLibrary.Projectfiles
Imports DotNetSiemensPLCToolBoxLibrary.DataTypes.Blocks.Step7V5
'Auslesen des Zeitstempels der Bausteine
Private Sub btnBlocks_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBlocks.Click
Dim S7Project As Step7ProjectV5 'Step 7 Projekt
Dim S7Folder As Projectfolders.Step7V5.BlocksOfflineFolder 'Step 7 Programmordner
Dim BlockData As Blocks.Step7V5.S7Block 'Step 7 Baustein Informationen
Dim Blocks As Object 'Step 7 zum lesen aller Bausteine aus dem Bausteinordner
S7Project = New Step7ProjectV5("D:\PlcSim\PlcSim.s7p",False)
S7Folder = S7Project.BlocksOfflineFolders(0)
Blocks = S7Folder.readPlcBlocksList
lblStep7Project.Text = "Projekt: " & S7Folder.Project.ProjectFile & " Name: " & S7Folder.Project.ProjectName
For Each Block In Blocks
BlockData = S7Folder.GetBlock(Block)
Debug.Print(Block.ToString & ": LastCodeChange: " & BlockData.LastCodeChange & " LastInterfaceChange: " & BlockData.LastInterfaceChange)
Next
End Sub
das auslesen der Symboltabelle bekomme ich nicht hin, ich weiß einfach nicht wie ich das deklarieren muß. Vielleicht könnt ihr mir sagen was ich da falsch mache oder habt ihr vielleicht ein kleines Beispiel wie es richtig funktioniert wäre euch sehr dankbar.!!!
Private Sub btnSymbolic_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSymbolic.Click
Dim S7Project As Step7ProjectV5 'Step 7 Projekt
Dim S7Folder As Projectfolders.Step7V5.BlocksOfflineFolder 'Step 7 Programmordner
S7Project = New Step7ProjectV5("D:\PlcSim\PlcSim.s7p",False)
S7Folder = S7Project.BlocksOfflineFolders(0)
lblStep7Project.Text = "Projekt: " & S7Folder.Project.ProjectFile & " Name: " & S7Folder.Project.ProjectName
Dim Symb As Projectfolders.Step7V5.S7ProgrammFolder
Dim Symbol As new Projectfolders.Step7V5.SymbolTable
For Each step7SymbolTableEntry In Symbol.SymbolTableEntrys
Debug.Print(step7SymbolTableEntry.Operand)
Next step7SymbolTableEntry
End Sub
kann mir jemand weiter helfen, ich versuche vergeblich die Symboltabelle aus einem S7-Projekt mit Visual Basic 2010 einzulesen.
Bin Neueinsteiger mit Visual Basic 2010 und DotNetSiemensPLCToolBoxLibrary
das auslesen des Zeitstempels der Bausteine habe ich mit folgendem Code hinbekommen.
Imports DotNetSiemensPLCToolBoxLibrary.DataTypes
Imports DotNetSiemensPLCToolBoxLibrary.Communication
Imports DotNetSiemensPLCToolBoxLibrary.Projectfiles
Imports DotNetSiemensPLCToolBoxLibrary.DataTypes.Blocks.Step7V5
'Auslesen des Zeitstempels der Bausteine
Private Sub btnBlocks_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBlocks.Click
Dim S7Project As Step7ProjectV5 'Step 7 Projekt
Dim S7Folder As Projectfolders.Step7V5.BlocksOfflineFolder 'Step 7 Programmordner
Dim BlockData As Blocks.Step7V5.S7Block 'Step 7 Baustein Informationen
Dim Blocks As Object 'Step 7 zum lesen aller Bausteine aus dem Bausteinordner
S7Project = New Step7ProjectV5("D:\PlcSim\PlcSim.s7p",False)
S7Folder = S7Project.BlocksOfflineFolders(0)
Blocks = S7Folder.readPlcBlocksList
lblStep7Project.Text = "Projekt: " & S7Folder.Project.ProjectFile & " Name: " & S7Folder.Project.ProjectName
For Each Block In Blocks
BlockData = S7Folder.GetBlock(Block)
Debug.Print(Block.ToString & ": LastCodeChange: " & BlockData.LastCodeChange & " LastInterfaceChange: " & BlockData.LastInterfaceChange)
Next
End Sub
das auslesen der Symboltabelle bekomme ich nicht hin, ich weiß einfach nicht wie ich das deklarieren muß. Vielleicht könnt ihr mir sagen was ich da falsch mache oder habt ihr vielleicht ein kleines Beispiel wie es richtig funktioniert wäre euch sehr dankbar.!!!
Private Sub btnSymbolic_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSymbolic.Click
Dim S7Project As Step7ProjectV5 'Step 7 Projekt
Dim S7Folder As Projectfolders.Step7V5.BlocksOfflineFolder 'Step 7 Programmordner
S7Project = New Step7ProjectV5("D:\PlcSim\PlcSim.s7p",False)
S7Folder = S7Project.BlocksOfflineFolders(0)
lblStep7Project.Text = "Projekt: " & S7Folder.Project.ProjectFile & " Name: " & S7Folder.Project.ProjectName
Dim Symb As Projectfolders.Step7V5.S7ProgrammFolder
Dim Symbol As new Projectfolders.Step7V5.SymbolTable
For Each step7SymbolTableEntry In Symbol.SymbolTableEntrys
Debug.Print(step7SymbolTableEntry.Operand)
Next step7SymbolTableEntry
End Sub