PEAK-System Forum

Code: Select all

'------------------------------------------------------------------------------
'FILE DESCRIPTION: A description was not provided.
'------------------------------------------------------------------------------

Sub SiemensRockerSwitchTest()

'DESCRIPTION: Sample macro to send a sinus signal
  If Not Connections(1).IsEnabled Then
    MsgBox "Please enable the TestNet connection!",,"Error"     
    PrintToOutputWindow "Please enable the TestNet connection!"
	Exit Sub
  End If

  Dim  StopSig, SW1, SW2, SW3
    
  ' Get the stop signal, which is set by the Stop button in the panel
  Set StopSig = Signals("Stop")
  StopSig.Value = 0
  Set SW1 = Signals("Switch1")
  SW1.Value = 1
  Set SW2 = Signals("Switch2")
  SW2.Value = 0
  Set SW3 = Signals("Switch3")
  SW3.Value = 0
  
  If StopSig Is Nothing Then
    MsgBox "Signal not found!" & vbCrLf & _
       "Please make sure that the file Test-Symbol.sym is assigned to the TestNet connection.",, _
       "Error"
       PrintToOutputWindow "Please make sure that the file Test-Symbol.sym is assigned to the TestNet connection."
    Exit Sub
  End If
  
   
  ' Run the "Highlander Switch"
  Do While StopSig.Value = 0
  
	if SW1.Value = 1 Then 
		SW2.Value = 0
		SW3.Value = 0
		PrintToOutputWindow "Drive aktiv"
		wait 300	
	end if
	
	if SW2.Value = 1 Then 
		SW1.Value = 0
		SW3.Value = 0
		PrintToOutputWindow "Neutral aktiv"
		wait 300	
	end if
	
	if SW3.Value = 1 Then 
		SW1.Value = 0
		SW2.Value = 0
		PrintToOutputWindow "R³ckwõrts aktiv"		
		wait 300	
	end if 	
	
	
 Loop
  PrintToOutputWindow "Stop pressed"
  ' Stop button was pressed!

  End Sub