'Activity module
' Pour INTERFACE ETHERNET 16 OUT

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

	Dim UDPSocket1 As UDPSocket  
	Dim IP As String      
	Dim PORT As Int          
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim scvMain As ScrollView
	Dim PanelNb As Int	    : PanelNb=16        
	Dim PanelHeight As Int	: PanelHeight=45dip  

	Dim Label1 As Label       
	Dim Button1 As Button	  
	Dim Button2 As Button	 
	Dim Button3 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Dim i As Int
	
	
	'* On définit les paramètres UDP *
	If FirstTime=True Then
	    IP="192.168.0.9"    ' On définit notre IP.
		PORT=5030           ' On définit le numéro de PORT
		UDPSocket1.Initialize("UDP",PORT,10)
	End If	

	Activity.LoadLayout("Main")   
	
	'* Création et affichage de la listView *
	scvMain.Initialize(500)
	Activity.AddView(scvMain, 0, 20%y, 100%x, 75%y) 

	For i=0 To PanelNb-1
		Dim pnltest As Panel
		Dim label_Gauche As Label  
		Dim btnON As Button
		Dim btnOFF As Button
		Dim btnBistable As Button
		
		pnltest.Initialize("pnlTest")
		scvMain.Panel.AddView(pnltest,0,5dip+i*PanelHeight,100%x,PanelHeight)
		pnltest.Tag=i
		If (i Mod 2)=1 Then
			pnltest.Color=Colors.DarkGray
		Else
			pnltest.Color=Colors.Gray
		End If
		
		'* Affiche le texte "Sorties n° X" à gauche.*
		label_Gauche.Initialize("lbl_Gauche")
		pnltest.AddView(label_Gauche,10dip, 5dip, 120dip, 40dip)
		label_Gauche.Tag=i
		label_Gauche.TextSize=20
		label_Gauche.Text="Sortie n° "&(i+1)  
		'********************************************
	
	    '* Affiche les boutons ON *
		btnON.Initialize("btnON")
		pnltest.AddView(btnON,120dip, 5dip, 50dip, 40dip)
		btnON.Tag=i
		btnON.Text="ON"
		'*************************

	    '* Affiche les boutons OFF *
		btnOFF.Initialize("btnOFF")
		pnltest.AddView(btnOFF,175dip, 5dip, 50dip, 40dip)
		btnOFF.Tag=i
		btnOFF.Text="OFF"
		'*************************	
		
	    '* Affiche les boutons Bistable *
		btnBistable.Initialize("btnBistable")
		pnltest.AddView(btnBistable,230dip, 5dip, 80dip, 40dip)
		btnBistable.Tag=i
		btnBistable.Text="Bistable"
		'*************************	
		
	Next
	scvMain.Panel.Height=PanelNb*PanelHeight
	'************************************************
	
    Activity.Title="Interface Ethernet 16 OUT" ' Titre de l'application

	ToastMessageShow("IP: " & IP & " et PORT: " & PORT, False) ' Affichage furtif de l'IP et du PORT.
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
	UDPSocket1.Close  ' Referme le Socket UDP.
End Sub




Sub btnON_Click         ' Gestion des 16 Boutons ON
	Dim Send As Button
	
	Send=Sender
	
	If Send.Tag=0 Then
		Label1.Text="Bouton ON n°1"
		
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S01N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=1 Then
		Label1.Text="Bouton ON n°2"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S02N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=2 Then
		Label1.Text="Bouton ON n°3"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S03N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)
	End If	
	
	If Send.Tag=3 Then
		Label1.Text="Bouton ON n°4"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S04N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If
	
	If Send.Tag=4 Then
		Label1.Text="Bouton ON n°5"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S05N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=5 Then
		Label1.Text="Bouton ON n°6"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S06N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If
	
	If Send.Tag=6 Then
		Label1.Text="Bouton ON n°7"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S07N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=7 Then
		Label1.Text="Bouton ON n°8"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S08N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=8 Then
		Label1.Text="Bouton ON n°9"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S09N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=9 Then
		Label1.Text="Bouton ON n°10"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S10N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=10 Then
		Label1.Text="Bouton ON n°11"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S11N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=11 Then
		Label1.Text="Bouton ON n°12"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S12N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If		
	
	If Send.Tag=12 Then
		Label1.Text="Bouton ON n°13"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S13N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If
	
	If Send.Tag=13 Then
		Label1.Text="Bouton ON n°14"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S14N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)
	End If	
	
	If Send.Tag=14 Then
		Label1.Text="Bouton ON n°15"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S15N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=15 Then
		Label1.Text="Bouton ON n°16"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S16N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If		
End Sub



Sub btnOFF_Click         ' Gestion des 16 Boutons OFF
	Dim Send As Button
	
	Send=Sender
	
	If Send.Tag=0 Then
		Label1.Text="Bouton OFF n°1"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S01F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=1 Then
		Label1.Text="Bouton OFF n°2"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S02F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If	
	
	If Send.Tag=2 Then
		Label1.Text="Bouton OFF n°3"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S03F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=3 Then
		Label1.Text="Bouton OFF n°4"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S04F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If
	
	If Send.Tag=4 Then
		Label1.Text="Bouton OFF n°5"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S05F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=5 Then
		Label1.Text="Bouton OFF n°6"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S06F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=6 Then
		Label1.Text="Bouton OFF n°7"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S07F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If
	
	If Send.Tag=7 Then
		Label1.Text="Bouton OFF n°8"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S08F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=8 Then
		Label1.Text="Bouton OFF n°9"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S09F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If	
	
	If Send.Tag=9 Then
		Label1.Text="Bouton OFF n°10"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S10F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=10 Then
		Label1.Text="Bouton OFF n°11"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S11F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=11 Then
		Label1.Text="Bouton OFF n°12"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S12F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If		
	
	If Send.Tag=12 Then
		Label1.Text="Bouton OFF n°13"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S13F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If
	
	If Send.Tag=13 Then
		Label1.Text="Bouton OFF n°14"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S14F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)
	End If	
	
	If Send.Tag=14 Then
		Label1.Text="Bouton OFF n°15"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S15F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If	
	
	If Send.Tag=15 Then
		Label1.Text="Bouton OFF n°16"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S16F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If		
End Sub



Sub btnBistable_Click        ' Gestion des 16 Boutons Bistable
	Dim Send As Button
	
	Send=Sender

	If Send.Tag=0 Then
		Label1.Text="Bouton bistable n°1"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S01T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=1 Then
		Label1.Text="Bouton bistable n°2"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S02T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If	
	
	If Send.Tag=2 Then
		Label1.Text="Bouton bistable n°3"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S03T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=3 Then
		Label1.Text="Bouton bistable n°4"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S04T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)
	End If
	
	If Send.Tag=4 Then
		Label1.Text="Bouton bistable n°5"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S05T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=5 Then
		Label1.Text="Bouton bistable n°6"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S06T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If
	
	If Send.Tag=6 Then
		Label1.Text="Bouton bistable n°7"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S07T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=7 Then
		Label1.Text="Bouton bistable n°8"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S08T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=8 Then
		Label1.Text="Bouton bistable n°9"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S09T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If	
	
	If Send.Tag=9 Then
		Label1.Text="Bouton bistable n°10"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S10T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=10 Then
		Label1.Text="Bouton bistable n°11"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S11T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If	
	
	If Send.Tag=11 Then
		Label1.Text="Bouton bistable n°12"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S12T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If		
	
	If Send.Tag=12 Then
		Label1.Text="Bouton bistable n°13"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S13T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If
	
	If Send.Tag=13 Then
		Label1.Text="Bouton bistable n°14"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S14T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If	
	
	If Send.Tag=14 Then
		Label1.Text="Bouton bistable n°15"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S15T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
	End If	
	
	If Send.Tag=15 Then
		Label1.Text="Bouton bistable 16"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "S16T".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 
	End If		
End Sub



Sub Button1_Click  ' Bouton permettant de mettre toutes les sorties à l'état HAUT
		Label1.Text="Sorties ON"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "N$".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
End Sub



Sub Button2_Click  ' Bouton permettant de mettre toutes les sorties à l'état BAS
		Label1.Text="Sorties OFF"

		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA = "F$".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  	
End Sub




Sub Button3_Click     ' Bouton Quitter l'application.
	UDPSocket1.Close  ' Referme le Socket UDP

	Activity.Finish   ' Quitter l'application
End Sub