'Actiity module
' Pour INTERFACE ETHERNET LCD

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 Button1 As Button	  
	Dim Button2 As Button	 
	Dim Button3 As Button
	Dim Button4 As Button
	Dim Button5 As Button
	Dim EditText1 As EditText
	Dim EditText2 As EditText
	Dim EditText3 As EditText
	Dim EditText4 As EditText
	Dim Button8 As Button
	Dim Button7 As Button
	Dim RadioButton1 As RadioButton
	Dim RadioButton2 As RadioButton
	
	Dim NBRE_CARAC As Byte
	Dim Button9 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")   
	
	EditText1.SingleLine=True ' Force une seule ligne pour EditText1.
	EditText1.Wrap=False
	
	EditText2.SingleLine=True ' Force une seule ligne pour EditText2.
	EditText2.Wrap=False
	
	EditText3.SingleLine=True ' Force une seule ligne pour EditText3.
	EditText3.Wrap=False
	
	EditText4.SingleLine=True ' Force une seule ligne pour EditText4.
	EditText4.Wrap=False
	
	RadioButton2.Checked=True  ' On valide par défaut la saisie sur 20 caractères
	NBRE_CARAC=20 ' On définit par défaut 20 caractères dans la saisie des Edittext.
	
	
    Activity.Title="Interface Ethernet LCD" ' 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 Button1_Click  ' Bouton permettant de transmre la chaine de caractères n°1 au LCD.
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		Dim CHAINE As String
		CHAINE="1"&EditText1.Text  ' Récupère le contenu de EditText1
		DATA = CHAINE.GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet)  
End Sub



Sub Button2_Click  ' Bouton permettant de transmettre la chaine de caractères n°2 au LCD.
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		Dim CHAINE As String
		CHAINE="2"&EditText2.Text  ' Récupère le contenu de EditText2
		DATA = CHAINE.GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 	
End Sub


Sub Button4_Click  ' Bouton permettant de transmettre la chaine de caractères n°3 au LCD.
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		Dim CHAINE As String
		CHAINE="3"&EditText3.Text  ' Récupère le contenu de EditText3
		DATA = CHAINE.GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 		
End Sub


Sub Button5_Click  ' Bouton permettant de transmettre la chaine de caractères n°4 au LCD.
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		Dim CHAINE As String
		CHAINE="4"&EditText4.Text  ' Récupère le contenu de EditText4
		DATA = CHAINE.GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 	
End Sub



Sub Button6_Click ' Efface le LCD
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA ="C".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 		
End Sub



Sub Button8_Click  ' Rétro éclairage OFF
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA ="F".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 	
End Sub



Sub Button7_Click  ' Rétro éclairage ON
		Dim Packet As UDPPacket							
		Dim DATA() As Byte		
		DATA ="N".GetBytes("UTF8")
		Packet.Initialize(DATA, IP, PORT) 
		UDPSocket1.Send(Packet) 		
End Sub



Sub Button9_Click  ' Effacer le texte tapé au sein des 4 champs de saisie.
	EditText1.Text=""
	EditText2.Text=""
	EditText3.Text=""
	EditText4.Text=""
End Sub



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

	Activity.Finish   ' Quitter l'application
End Sub



Sub EditText1_TextChanged (Old As String, New As String) ' Limitation à 16 ou 20 caractères
    Dim CARAC As String
    CARAC = EditText1.Text
    If CARAC.Length > NBRE_CARAC Then  
      EditText1.Text = CARAC.SubString2(0,(NBRE_CARAC-1)) 
      EditText1.SelectionStart = (NBRE_CARAC-1)
      ToastMessageShow("Limité à " & NBRE_CARAC & " caractères",False)
    End If
End Sub



Sub EditText2_TextChanged (Old As String, New As String) ' Limitation à 16 ou 20 caractères
    Dim CARAC As String
    CARAC = EditText2.Text
    If CARAC.Length > NBRE_CARAC Then  ' Limitation à 40 caractères
      EditText2.Text = CARAC.SubString2(0,(NBRE_CARAC-1)) 
      EditText2.SelectionStart = (NBRE_CARAC-1)
      ToastMessageShow("Limité à " & NBRE_CARAC & " caractères",False)
    End If	
End Sub



Sub EditText3_TextChanged (Old As String, New As String) ' Limitation à 16 ou 20 caractères
    Dim CARAC As String
    CARAC = EditText3.Text
    If CARAC.Length > NBRE_CARAC Then  ' Limitation à 40 caractères
      EditText3.Text = CARAC.SubString2(0,(NBRE_CARAC-1)) 
      EditText3.SelectionStart = (NBRE_CARAC-1)
      ToastMessageShow("Limité à  " & NBRE_CARAC & "  caractères",False)
    End If	
End Sub



Sub EditText4_TextChanged (Old As String, New As String) ' Limitation à 16 ou 20 caractères
    Dim CARAC As String
    CARAC = EditText4.Text
    If CARAC.Length > NBRE_CARAC Then  ' Limitation à 40 caractères
      EditText4.Text = CARAC.SubString2(0,(NBRE_CARAC-1)) 
      EditText4.SelectionStart = (NBRE_CARAC-1)
      ToastMessageShow("Limité à  " & NBRE_CARAC & "  caractères",False)
    End If	
End Sub



Sub RadioButton2_CheckedChange(Checked As Boolean)  ' L'utilisateur a sélectionné 20 caractères maxi.
	NBRE_CARAC=20
	ToastMessageShow("Saisie limitée à 20 caractères",False)
End Sub



Sub RadioButton1_CheckedChange(Checked As Boolean) ' L'utilisateur a sélectionné 16 caractères maxi.
	NBRE_CARAC=16
	ToastMessageShow("Saisie limitée à 16 caractères",False)
End Sub