'Activity module
' Controleur Ethernet.

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 
	Dim MDP As String
	
	Dim Timer1 As Timer ' Timer pour la lecture en boucle des données: In analog, In digit et température.
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 Label1 As Label
	Dim Label2 As Label
	Dim Label3 As Label
	Dim Label4 As Label
	Dim Label5 As Label
	Dim Label6 As Label
	Dim Label7 As Label
	Dim Label8 As Label
	Dim Label9 As Label
	Dim Label10 As Label
	Dim Label11 As Label
	Dim Label12 As Label
	Dim Button6 As Button
	Dim Button11 As Button
	Dim Button2 As Button
	Dim Button7 As Button
	Dim Button12 As Button
	Dim Button3 As Button
	Dim Button8 As Button
	Dim Button13 As Button
	Dim Button4 As Button
	Dim Button9 As Button
	Dim Button14 As Button
	Dim Button5 As Button
	Dim Button10 As Button
	Dim Button15 As Button
	Dim Button16 As Button
	Dim Button21 As Button
	Dim Button26 As Button
	Dim Button17 As Button
	Dim Button22 As Button
	Dim Button18 As Button
	Dim Button23 As Button
	Dim Button28 As Button
	Dim Button19 As Button
	Dim Button24 As Button
	Dim Button29 As Button
	Dim Button20 As Button
	Dim Button25 As Button
	Dim Button30 As Button
	Dim Button31 As Button
	Dim Button34 As Button
	Dim Button37 As Button
	Dim Button32 As Button
	Dim Button35 As Button
	Dim Button38 As Button
	Dim Button33 As Button
	Dim Button36 As Button
	Dim Button39 As Button
	Dim Button40 As Button
	Dim Button41 As Button
	Dim Button42 As Button
	Dim Button59 As Button
	Dim Button65 As Button
	Dim Button60 As Button
	Dim Button66 As Button
	Dim Button61 As Button
	Dim Button67 As Button
	Dim Button62 As Button
	Dim Button68 As Button
	Dim Button63 As Button
	Dim Button69 As Button
	Dim Button64 As Button
	Dim Button70 As Button
	Dim Button43 As Button
	Dim Button51 As Button
	Dim Button44 As Button
	Dim Button52 As Button
	Dim Button45 As Button
	Dim Button53 As Button
	Dim Button46 As Button
	Dim Button54 As Button
	Dim Button47 As Button
	Dim Button55 As Button
	Dim Button48 As Button
	Dim Button56 As Button
	Dim Button49 As Button
	Dim Button57 As Button
	Dim Button50 As Button
	Dim Button58 As Button
	Dim Button71 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Main")   
	
	'* 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
		MDP="ABCDEFGHIJKLMNOP" ' Mot de passe par defaut composé toujours de 16 caractères !!!
		
		UDPSocket1.Initialize("UDP",PORT, 100) ' ReceiveBufferSize = 100
		
		Timer1.Initialize("Timer1",1000) ' Time = 1 seconde
		Timer1.Enabled=True ' Active le Timer1.
	End If	
	
    Activity.Title="Controleur Ethernet Domotique" ' Titre de l'application

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


End Sub



Sub Timer1_Tick  ' Récupération.
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"INPUT").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub



Sub UDP_PacketArrived (Packet As UDPPacket) ' Réception des paquets UDP
	Dim CARAC As String
	Dim CHAINE As String
	Dim INA0 As String
	Dim VINA0 As Double
	Dim INA1 As String
	Dim VINA1 As Double	
	Dim INA2 As String
	Dim VINA2 As Double
	Dim INA3 As String
	Dim VINA3 As Double
	Dim INA4 As String
	Dim VINA4 As Double
	Dim INA5 As String
	Dim VINA5 As Double	
	Dim MILLE As String
	Dim CENT As String
	Dim DIX As String
	Dim UNIT As String
	Dim TEMP As String
	Dim TEMPERATURE As Double
	Dim SIGNE As String
	
	CARAC = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")
	
	If CARAC<>" " Then     ' Doit être différent de ESPACE pour le traitement des informations reçues. 
	   
		'Label12.Text=CARAC ' Ne sert qu'au développement du programme pour afficher la chaine de caractères complete envoyée par le PIC.
    	
		CHAINE = CARAC     ' Transfert de la chaine dans une autre afin d'effectuer le traitement.
	    
		'* Traitement : INA0
		MILLE=CHAINE.SubString2(1,2) 
		CENT=CHAINE.SubString2(2,3)
		DIX=CHAINE.SubString2(3,4)
		UNIT=CHAINE.SubString2(4,5)
		INA0=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		VINA0=(5/1024) * INA0
		VINA0=Round2(VINA0, 3) ' Arrondie le résultat à 3 chiffres après la virgule
		Label1.Text="INA0: "&INA0& "  -  Tension: "&VINA0& " Volts"
		
		'* Traitement : INA1
		MILLE=CHAINE.SubString2(7,8) 
		CENT=CHAINE.SubString2(8,9)
		DIX=CHAINE.SubString2(9,10)
		UNIT=CHAINE.SubString2(10,11)
		INA1=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		VINA1=(5/1024) * INA1
		VINA1=Round2(VINA1, 3) ' Arrondie le résultat à 3 chiffres après la virgule
		Label2.Text="INA1: "&INA1& "  -  Tension: "&VINA1& " Volts"	
		
		'* Traitement : INA2
		MILLE=CHAINE.SubString2(13,14) 
		CENT=CHAINE.SubString2(14,15)
		DIX=CHAINE.SubString2(15,16)
		UNIT=CHAINE.SubString2(16,17)
		INA2=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		VINA2=(5/1024) * INA2
		VINA2=Round2(VINA2, 3) ' Arrondie le résultat à 3 chiffres après la virgule
		Label3.Text="INA2: "&INA2& "  -  Tension: "&VINA2& " Volts"			
		
		'* Traitement : INA3
		MILLE=CHAINE.SubString2(19,20) 
		CENT=CHAINE.SubString2(20,21)
		DIX=CHAINE.SubString2(21,22)
		UNIT=CHAINE.SubString2(22,23)
		INA3=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		VINA3=(5/1024) * INA3
		VINA3=Round2(VINA3, 3) ' Arrondie le résultat à 3 chiffres après la virgule
		Label4.Text="INA3: "&INA3& "  -  Tension: "&VINA3& " Volts"				
		
		'* Traitement : INA4
		MILLE=CHAINE.SubString2(25,26) 
		CENT=CHAINE.SubString2(26,27)
		DIX=CHAINE.SubString2(27,28)
		UNIT=CHAINE.SubString2(28,29)
		INA4=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		VINA4=(5/1024) * INA4
		VINA4=Round2(VINA4, 3) ' Arrondie le résultat à 3 chiffres après la virgule
		Label5.Text="INA4: "&INA4& "  -  Tension: "&VINA4& " Volts"		
		
		'* Traitement de la température T1
		MILLE=CHAINE.SubString2(32,33) 
		CENT=CHAINE.SubString2(33,34)
		DIX=CHAINE.SubString2(34,35)
		UNIT=CHAINE.SubString2(35,36)
		TEMP=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		TEMPERATURE=TEMP / 10 
		TEMPERATURE=Round2(TEMPERATURE, 1) ' Arrondie le résultat à 1 chiffre après la virgule	
		SIGNE=CHAINE.SubString2(29,30)
		If SIGNE="+" Then
			Label6.Text="T1= +"&TEMPERATURE&"°C"
		End If
		If SIGNE="-" Then
			Label6.Text="T1= -"&TEMPERATURE&"°C"
		End If
		
		'* Traitement de la température T2
		MILLE=CHAINE.SubString2(39,40) 
		CENT=CHAINE.SubString2(40,41)
		DIX=CHAINE.SubString2(41,42)
		UNIT=CHAINE.SubString2(42,43)
		TEMP=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		TEMPERATURE=TEMP / 10 
		TEMPERATURE=Round2(TEMPERATURE, 1) ' Arrondie le résultat à 1 chiffre après la virgule	
		SIGNE=CHAINE.SubString2(36,37)
		If SIGNE="+" Then
			Label7.Text="T2= +"&TEMPERATURE&"°C"
		End If
		If SIGNE="-" Then
			Label7.Text="T2= -"&TEMPERATURE&"°C"
		End If	
		
		'* Traitement de la température T3
		MILLE=CHAINE.SubString2(46,47) 
		CENT=CHAINE.SubString2(47,48)
		DIX=CHAINE.SubString2(48,49)
		UNIT=CHAINE.SubString2(49,50)
		TEMP=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		TEMPERATURE=TEMP / 10 
		TEMPERATURE=Round2(TEMPERATURE, 1) ' Arrondie le résultat à 1 chiffre après la virgule	
		SIGNE=CHAINE.SubString2(43,44)
		If SIGNE="+" Then
			Label8.Text="T3= +"&TEMPERATURE&"°C"
		End If
		If SIGNE="-" Then
			Label8.Text="T3= -"&TEMPERATURE&"°C"
		End If	
		
		'* Traitement de la température T4
		MILLE=CHAINE.SubString2(53,54) 
		CENT=CHAINE.SubString2(54,55)
		DIX=CHAINE.SubString2(55,56)
		UNIT=CHAINE.SubString2(56,57)
		TEMP=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		TEMPERATURE=TEMP / 10 
		TEMPERATURE=Round2(TEMPERATURE, 1) ' Arrondie le résultat à 1 chiffre après la virgule	
		SIGNE=CHAINE.SubString2(50,51)
		If SIGNE="+" Then
			Label9.Text="T4= +"&TEMPERATURE&"°C"
		End If
		If SIGNE="-" Then
			Label9.Text="T4= -"&TEMPERATURE&"°C"
		End If	
		
				
		'* Traitement de la température T5
		MILLE=CHAINE.SubString2(60,61) 
		CENT=CHAINE.SubString2(61,62)
		DIX=CHAINE.SubString2(62,63)
		UNIT=CHAINE.SubString2(63,64)
		TEMP=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		TEMPERATURE=TEMP / 10 
		TEMPERATURE=Round2(TEMPERATURE, 1) ' Arrondie le résultat à 1 chiffre après la virgule	
		SIGNE=CHAINE.SubString2(57,58)
		If SIGNE="+" Then
			Label10.Text="T5= +"&TEMPERATURE&"°C"
		End If
		If SIGNE="-" Then
			Label10.Text="T5= -"&TEMPERATURE&"°C"
		End If	
		
		
		'* Traitement de la température T6
		MILLE=CHAINE.SubString2(67,68) 
		CENT=CHAINE.SubString2(68,69)
		DIX=CHAINE.SubString2(69,70)
		UNIT=CHAINE.SubString2(70,71)
		TEMP=((1000*MILLE) + (100*CENT) + (10*DIX) + UNIT)
		TEMPERATURE=TEMP / 10 
		TEMPERATURE=Round2(TEMPERATURE, 1) ' Arrondie le résultat à 1 chiffre après la virgule	
		SIGNE=CHAINE.SubString2(64,65)
		If SIGNE="+" Then
			Label11.Text="T6= +"&TEMPERATURE&"°C"
		End If
		If SIGNE="-" Then
			Label11.Text="T6= -"&TEMPERATURE&"°C"
		End If		
		
					
	End If
End Sub








Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)
	Timer1.Enabled=False ' Arrête le Timer1.
	UDPSocket1.Close  ' Referme le Socket UDP.
End Sub




'**********************
'**** TELIS 4 DUAL ****
'**********************
'**
'** VOLETS **
'**
'** Bouton "Volet 1 : OUVERTURE **
Sub Button1_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL01113$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)  
End Sub

' ** Bouton "Volet 1 : STOP **
Sub Button6_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL01213$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)  	
End Sub

'** Bouton "Volet 1 : FERMER **
Sub Button11_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL01313$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)  
End Sub

'** Bouton "Volet 2 : OUVERTURE **
Sub Button2_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL02113$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 	
End Sub

'** Bouton "Volet 2 : STOP **
Sub Button7_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL02213$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub

'** Bouton "Volet 2 : FERMER **
Sub Button12_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL02313$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub

'** Bouton "Volet 3 : OUVERTURE **
Sub Button3_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL03113$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub

'** Bouton "Volet 3 : STOP **
Sub Button8_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL03213$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 	
End Sub

'** Bouton "Volet 3 : FERMER **
Sub Button13_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL03313$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub

'** Bouton "Volet 4 : OUVERTURE **
Sub Button4_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL04113$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 	
End Sub

'** Bouton "Volet 4 : STOP **
Sub Button9_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL04213$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 	
End Sub

'** Bouton "Volet 4 : FERMER **
Sub Button14_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL04313$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 	
End Sub

'** Bouton "Tous les Volets : OUVERTURE **
Sub Button5_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL05113$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub

'** Bouton "Tous les Volets : STOP **
Sub Button10_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL05213$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub

'** Bouton "Tous les Volets : FERMER **
Sub Button15_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL05313$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet) 
End Sub



'** STORES **
'**
'** Bouton "Store 1 : Fermeture **
Sub Button16_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL01103$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)
End Sub

'** Bouton "Store 1 : Stop **
Sub Button21_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL01203$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)
End Sub

'** Bouton "Store 1 : Ouverture **
Sub Button26_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL01303$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Store 2 : Fermeture **
Sub Button17_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL02103$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Store 2 : Stop **
Sub Button22_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL02203$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Store 2 : Ouverture **
Sub Button27_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL02303$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub


'** Bouton "Store 3 : Fermeture **
Sub Button18_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL03303$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Store 3 : Stop **
Sub Button23_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL03203$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Store 3 : Ouverture **
Sub Button28_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL03103$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Store 4 : Fermeture **
Sub Button19_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL04103$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Store 4 : Stop **
Sub Button24_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL04203$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Store 4 : Ouverture **
Sub Button29_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL04303$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Tous les Store : Fermeture **
Sub Button20_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL05103$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Tous les Store : Stop **
Sub Button25_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL05203$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Tous les Store : Ouverture **
Sub Button30_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"TEL05303$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub


'*
'** Velux TRIO
'*
'** Bouton "Velux n°1 : OUVERTURE **
Sub Button31_Click
  	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0113$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Velux n°1 : STOP **
Sub Button34_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0213$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Velux n°1 : FERMER **
Sub Button37_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0313$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Velux n°2 : OUVERTURE **
Sub Button32_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0123$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Velux n°2 : STOP **
Sub Button35_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0223$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Velux n°2 : FERMER **
Sub Button38_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0323$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)			
End Sub

'** Bouton "Velux n°3 : OUVERTURE **
Sub Button33_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0133$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Velux n°3 : STOP **
Sub Button36_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0233$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Velux n°3 : FERMER **
Sub Button39_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0333$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton "Tous les Velux : OUVERTURE **
Sub Button40_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0143$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Tous les Velux : STOP **
Sub Button41_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0243$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Bouton "Tous les Velux : FERMER **
Sub Button42_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"VUX0343$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'*
'** Prises commandées BLYSS
'*
'** Prise n°1 : Eteinte **
Sub Button59_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352160$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Prise n°1 : Allumée
Sub Button65_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352161$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Prise n°2 : Eteinte **
Sub Button60_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352120$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Prise n°2 : Allumée **
Sub Button66_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352121$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Prise n°3 : Eteinte **
Sub Button61_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352100$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Prise n°3 : Allumée
Sub Button67_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352101$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Prise n°4 : Eteinte
Sub Button62_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352190$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Prise n°4 : Allumée
Sub Button68_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352191$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Prise n°5 : Eteinte
Sub Button63_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352110$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Prise n°5 : Allumée
Sub Button69_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352111$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Toutes les prises Eteintes
Sub Button64_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352080$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** Toutes les prises allumées
Sub Button70_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"BLY040740352081$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'*
'** Recepteur HF à 8 relais
'*
'** OFF : Relais n°1
Sub Button43_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000000$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** ON : Relais n°1
Sub Button51_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000001$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** OFF : Relais n°2
Sub Button44_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000002$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)			
End Sub

'** ON : Relais n°2
Sub Button52_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000003$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** OFF : Relais n°3
Sub Button45_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000004$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** ON : Relais n°3
Sub Button53_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000005$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** OFF : Relais n°4
Sub Button46_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000006$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** ON : Relais n°4
Sub Button54_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000007$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** OFF : Relais n°5
Sub Button47_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000008$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)
End Sub

'** ON : Relais n°5
Sub Button55_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000009$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)
End Sub

'** OFF : Relais n°6
Sub Button48_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000010$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** ON : Relais n°6
Sub Button56_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000011$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** OFF : Relais n°7
Sub Button49_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000012$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** ON : Relais n°7
Sub Button57_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000013$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** OFF : Relais n°8
Sub Button50_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000014$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

'** ON : Relais n°8
Sub Button58_Click
	Dim Packet As UDPPacket							
	Dim DATA() As Byte		
	DATA = (MDP&"COM"&"KUD05000015$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

'** Bouton QUITTER ***
Sub Button71_Click
	Timer1.Enabled=False ' Arrête le Timer1.
	UDPSocket1.Close     ' Referme le Socket UDP
   	ExitApplication      ' Tuer l'application	
End Sub