'Activity module
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 x As Int
	Dim y As Int
	Dim c As Int
	Dim x1 As Int
	Dim y1 As Int	
	Dim x2 As Int
	Dim y2 As Int
	Dim r As Int
	Dim n 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 Button2 As Button
	Dim Button1 As Button
	Dim SeekBar1 As SeekBar
	Dim SeekBar3 As SeekBar
	Dim SeekBar2 As SeekBar
	Dim Label2 As Label
	Dim Label3 As Label
	Dim Label4 As Label
	Dim Button3 As Button
	Dim Button4 As Button
	Dim Button5 As Button
	Dim SeekBar4 As SeekBar
	Dim SeekBar5 As SeekBar
	Dim SeekBar7 As SeekBar
	Dim SeekBar8 As SeekBar
	Dim SeekBar6 As SeekBar
	Dim Label1 As Label
	Dim Label5 As Label
	Dim Label7 As Label
	Dim Label8 As Label
	Dim Label6 As Label
	Dim Button6 As Button
	Dim Button7 As Button
	Dim SeekBar9 As SeekBar
	Dim Label11 As Label
	Dim SeekBar10 As SeekBar
	Dim Label12 As Label
	Dim SeekBar11 As SeekBar
	Dim Label13 As Label
	Dim SeekBar12 As SeekBar
	Dim Label14 As Label
	Dim Button8 As Button
	Dim Button9 As Button
	Dim SeekBar13 As SeekBar
	Dim SeekBar14 As SeekBar
	Dim SeekBar15 As SeekBar
	Dim Label16 As Label
	Dim Label17 As Label
	Dim Label18 As Label
	Dim EditText1 As EditText
	Dim Button10 As Button
	Dim Button11 As Button
	Dim Label20 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

	'* 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,45)
		
	End If	

	Activity.LoadLayout("Main") 

    Activity.Title="Interface Ethernet LCD Graphique" ' 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 UDP_PacketArrived (Packet As UDPPacket) ' Réception des paquets UDP
	Dim CARAC As String
	
	CARAC = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8") ' Récupère la chaine de caractères renvoyées par le PIC.
	
	Label20.Text=CARAC  ' On affiche la ligne renvoyée par l'interface LCD.
End Sub


Sub Button2_Click
	UDPSocket1.Close  ' Referme le Socket UDP.
	ExitApplication   ' Tuer l'application
End Sub


Sub Button1_Click ' Bouton "Point"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	x=SeekBar1.Value
	y=SeekBar2.Value
	c=SeekBar3.Value
	DATA = (MDP&"P"&x&"Z"&y&"Y"&c&"$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)
End Sub

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	Label2.Text="X="&SeekBar1.Value
End Sub
Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean)
	Label3.Text="Y="&SeekBar2.Value
End Sub
Sub SeekBar3_ValueChanged (Value As Int, UserChanged As Boolean)
	Label4.Text="Affich="&SeekBar3.Value
End Sub


Sub Button3_Click ' Bouton "Ligne"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	x1=SeekBar4.Value
	y1=SeekBar5.Value
	x2=SeekBar7.Value
	y2=SeekBar8.Value	
	c=SeekBar6.Value
	DATA = (MDP&"L"&x1&"Z"&y1&"Y"&x2&"X"&y2&"W"&c&"$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

Sub Button4_Click ' Bouton "Rectangle vide"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	x1=SeekBar4.Value
	y1=SeekBar5.Value
	x2=SeekBar7.Value
	y2=SeekBar8.Value	
	c=SeekBar6.Value
	DATA = (MDP&"R"&x1&"Z"&y1&"Y"&x2&"X"&y2&"W"&c&"$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

Sub Button5_Click ' Bouton "Rectangle plein"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	x1=SeekBar4.Value
	y1=SeekBar5.Value
	x2=SeekBar7.Value
	y2=SeekBar8.Value	
	c=SeekBar6.Value
	DATA = (MDP&"B"&x1&"Z"&y1&"Y"&x2&"X"&y2&"W"&c&"$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

Sub SeekBar4_ValueChanged (Value As Int, UserChanged As Boolean)
	Label1.Text="X1="&SeekBar4.Value
End Sub

Sub SeekBar5_ValueChanged (Value As Int, UserChanged As Boolean)
	Label5.Text="Y1="&SeekBar5.Value
End Sub

Sub SeekBar7_ValueChanged (Value As Int, UserChanged As Boolean)
	Label7.Text="X2="&SeekBar7.Value
End Sub

Sub SeekBar8_ValueChanged (Value As Int, UserChanged As Boolean)
	Label8.Text="Y2="&SeekBar8.Value
End Sub

Sub SeekBar6_ValueChanged (Value As Int, UserChanged As Boolean)
	Label6.Text="Affich="&SeekBar6.Value
End Sub


Sub Button6_Click ' Bouton "Cercle vide"
		Dim Packet As UDPPacket							
	Dim DATA() As Byte
	x=SeekBar9.Value
	y=SeekBar10.Value
	r=SeekBar12.Value
	c=SeekBar11.Value
	DATA = (MDP&"C"&x&"Z"&y&"Y"&r&"X"&c&"$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

Sub Button7_Click ' Bouton "Cercle plein"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	x=SeekBar9.Value
	y=SeekBar10.Value
	r=SeekBar12.Value
	c=SeekBar11.Value
	DATA = (MDP&"F"&x&"Z"&y&"Y"&r&"X"&c&"$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub


Sub SeekBar9_ValueChanged (Value As Int, UserChanged As Boolean)
	Label11.Text="X="&SeekBar9.Value
End Sub

Sub SeekBar10_ValueChanged (Value As Int, UserChanged As Boolean)
	Label12.Text="Y="&SeekBar10.Value
End Sub

Sub SeekBar12_ValueChanged (Value As Int, UserChanged As Boolean)
	Label14.Text="Rayon="&SeekBar12.Value
End Sub

Sub SeekBar11_ValueChanged (Value As Int, UserChanged As Boolean)
	Label13.Text="Affich="&SeekBar11.Value
End Sub

Sub Button8_Click ' Bouton "Paramètres du texte"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	x=SeekBar13.Value
	n=SeekBar14.Value
	c=SeekBar15.Value
	DATA = (MDP&"T"&x&"Z"&n&"Y"&c&"$").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)	
End Sub

Sub Button9_Click ' Bouton "Texte"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	DATA = (MDP&"Q"&EditText1.Text).GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

Sub SeekBar13_ValueChanged (Value As Int, UserChanged As Boolean)
	Label16.Text="Position X="&SeekBar13.Value
End Sub

Sub SeekBar14_ValueChanged (Value As Int, UserChanged As Boolean)
	Label17.Text="N° de page="&SeekBar14.Value
End Sub

Sub SeekBar15_ValueChanged (Value As Int, UserChanged As Boolean)
	Label18.Text="Affich="&SeekBar15.Value
End Sub

Sub Button10_Click  ' Bouton "Efface LCD"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	DATA = (MDP&"A").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)		
End Sub

Sub Button11_Click  ' Bouton "Rétro-éclairage LCD ON/OFF"
	Dim Packet As UDPPacket							
	Dim DATA() As Byte
	DATA = (MDP&"N").GetBytes("UTF8")
	Packet.Initialize(DATA, IP, PORT) 
	UDPSocket1.Send(Packet)
End Sub