examplesdlg.frm

PLC相关-656M.zip

            Info.Text = "VERWENDEN DER S7STATION-METHODE COMPILE" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Die Station 'Relativity' wird compiliert und die " _
            & "SDBs werden erzeugt." & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Vor diesem Beispiel bitte 'Rack1' ausf黨ren!!."
            UnDoExampleBtn.Enabled = False
        
        
        Case "Rack1"
            Info.Text = "ANLEGEN VON RACKS UND ERMITTLUNG IHRER DATEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "In der Station 'relativity' des Projekts 'reptiles' werden einige " _
            & "Racks angelegt."
            UnDoExampleBtn.Enabled = True
            
            
        Case "Module1"
            Info.Text = "MODULE IN RACKS STECKEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "In den 3 Racks der Station 'relativity' wird jeweils eine " _
            & "Stromversorgung in Steckplatz 1 gesteckt"
            UnDoExampleBtn.Enabled = True
            
        Case "Module2"
            Info.Text = "VERBINDEN VON RACKS MITTELS ANSCHALTUNGSBAUGRUPPEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Die Racks der Station 'relativity' werden durch Anschaltungsbaugruppen " _
            & "miteinander verbunden."
            UnDoExampleBtn.Enabled = True
            
        Case "Module3"
            Info.Text = "STECKEN EINER CPU, DIE EIN SUBMODUL ENTH腖T" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "In Rack 0, Slot 2 der Station 'relativity' wird eine CPU gesteckt, " _
            & "die ein Submodul enth鋖t."
            UnDoExampleBtn.Enabled = True
            
        Case "Address1"
            Info.Text = "ADRESSEN ERMITTELN UND VER腘DERN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Im Rack 'Gecko' wird eine Wegerfassungsbaugruppe gesteckt und " _
            & "die Ein- und Ausgangsadressen in einen Dialog dargestellt."
            UnDoExampleBtn.Enabled = False

        Case "SubSystem1"
            Info.Text = "SUBSYSTEM-DATEN AUSGEBEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Im Beispiel Module3 wurde eine CPU mit Submodul angelegt. " _
            & "Dem Submodul wurde ein neu erzeugtes SubSystem zugeordenet. " _
            & "Dieses SubSytem wird jetzt ermittelt und die Daten ausgegeben. "
            UnDoExampleBtn.Enabled = False
            
        Case "Slave1"
            Info.Text = "ERZEUGEN VON DP-SLAVES UND ERMITTLUNG IHRER DATEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Im SubSystem 1 der Station 'Relativity' werden 2 DP-Slaves " _
            & "gesteckt."
            UnDoExampleBtn.Enabled = True
        
        Case "Slave2"
            Info.Text = "VERWENDEN VON GSD-DATEIEN" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Im SubSystem 1 der Station 'Relativity' werden 2 Slaves " _
            & "gesteckt. Diesmal werden GSD-Dateien verwendet."
            UnDoExampleBtn.Enabled = True
            
        Case "TerminalBlock1"
            Info.Text = "VERWENDEN EINES S7TERMINALBLOCKS" & Chr(13) & Chr(10) _
            & Chr(13) & Chr(10) _
            & "Es wird eine ET 200L Baugruppe in die Station 'relativity' " _
            & "eingef黦t. In dieser Baugruppe wird dann ein Terminalblock " _
            & "eingef黦t."
            UnDoExampleBtn.Enabled = True
    End Select
End Sub


Private Sub ExampleList_KeyUp(keycode As Integer, shift As Integer)
    Call ExampleList_Click
End Sub


Private Sub Form_Load()
    Dim item As ListItem
    Dim list As ListItems
    ' Initialisiere Liste
    ExampleList.Icons = ImageList1
    ExampleList.SmallIcons = ImageList2
    ExampleList.View = lvwList
    
    Set list = ExampleList.ListItems
    Call list.add(, "Collection", "Collection", "Std", "Std")
    Call list.add(, "Projects1", "Projects 1", "Std", "Std")
    Call list.add(, "Projects2", "Projects 2", "Std", "Std")
    Call list.add(, "Projects3", "Projects 3", "Std", "Std")
    Call list.add(, "Project", "Project", "Std", "Std")
    Call list.add(, "Load", "Load", "Std", "Std")
    Call list.add(, "Stations1", "Stations 1", "Std", "Std")
    Call list.add(, "Stations2", "Stations 2", "Std", "Std")
    Call list.add(, "Station1", "Station 1", "Std", "Std")
    Call list.add(, "Station2", "Station 2", "Std", "Std")
    Call list.add(, "Station3", "Station 3", "Std", "Std")
    Call list.add(, "Station4", "Station 4", "Std", "Std")
    Call list.add(, "Station6", "Station 6", "Std", "Std")
    Call list.add(, "Rack1", "Rack 1", "Std", "Std")
    Call list.add(, "Module1", "Module 1", "Std", "Std")
    Call list.add(, "Module2", "Module 2", "Std", "Std")
    Call list.add(, "Module3", "Module 3", "Std", "Std")
    Call list.add(, "Address1", "Address 1", "Std", "Std")
    Call list.add(, "SubSystem1", "SubSystem 1", "Std", "Std")
    Call list.add(, "Slave1", "Slave 1", "Std", "Std")
    Call list.add(, "Slave2", "Slave 2", "Std", "Std")
    Call list.add(, "TerminalBlock1", "TerminalBlock ", "Std", "Std")
    
    ExampleList_Click
End Sub


Private Sub ExampleList_DblClick()
    Dim item As ListItem
    Set item = ExampleList.SelectedItem
    
    Select Case item.key
        Case "Collection"
            Call ExampleCollection
            
        Case "Projects1"
            Call ExampleProjects1
        Case "Projects2"
            Call ExampleProjects2
        Case "Projects3"
            Call ExampleProjects3
           
        Case "Project"
            Call ExampleProject
        Case "Load"
            Call ExampleLoad
            
        Case "Stations1"
            Call ExampleStations1
        Case "Stations2"
            Call ExampleStations2
        
        Case "Station1"
            Call ExampleStation1
        Case "Station2"
            Call ExampleStation2
        Case "Station3"
            Call ExampleStation3
        Case "Station4"
            Call ExampleStation4
        Case "Station6"
            Call ExampleStation6
            
        Case "Rack1"
            Call ExampleRack1
            
        Case "Module1"
            Call ExampleModule1
        Case "Module2"
            Call ExampleModule2
        Case "Module3"
            Call ExampleModule3
            
        Case "Address1"
            Call ExampleAddress1
            
        Case "SubSystem1"
            Call ExampleSubSystem1
            
        Case "Slave1"
            Call ExampleSlave1
        Case "Slave2"
            Call ExampleSlave2
            
        Case "TerminalBlock1"
            Call ExampleTerminalBlock
    End Select
End Sub


Private Sub UnDoExampleBtn_Click()
    Dim item As ListItem
    Set item = ExampleList.SelectedItem
    
    Select Case item.key
        Case "Projects1"
            Call UndoExampleProjects
        Case "Projects2"
            Call UndoExampleProjects
            
        Case "Stations1"
            Call UndoExampleStations1
        Case "Stations2"
            Call UndoExampleStations2
            
        Case "Rack1"
            Call UndoExampleRack1
            
        Case "Module1"
            Call UndoExampleModule1
        Case "Module2"
            Call UndoExampleModule2
        Case "Module3"
            Call UndoExampleModule3
            
        Case "Address1"
            Call UndoExampleAddress1
            
        Case "Slave1"
            Call UndoExampleSlave
        Case "Slave2"
            Call UndoExampleSlave
        
        Case "TerminalBlock1"
            Call UndoExampleSlave

    End Select
    
End Sub