Bon voila j'ai un peu avancé et me suis rendu compte d'un problème pour la suite des événement...
Le but du programme est d'être utiliser via un écran tactile (d'où les gros boutons ^^)
Le pavé numérique sur le coté doit donc servir a rentrer les chiffre dans les ptites cases, le soucis étant que lors du click sur le "pavé numérique" je perd le focus de la case à remplir... J'ai bien pensé utiliser mon bouton suivant qui me permettrais de savoir dans quel case on se trouve, soucis si jamais l'utilisateur passe outre cette touche tout le reste se casse la gueule... sa seras bien sur la solution de dernier secours mais bon
Merci
► Afficher le texte
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: SurPriseS
Script Function:
Entretien automobile.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
;------------------------------------------------------ Include
#include <GUIConstantsEx.au3>
;------------------------------------------------------ Variable
Global $gaz
Global $bouton_next
Global $input_prix
Global $input_litre
Global $input_km
Global $i = 1
Global $g = 0
Global $bouton_valid
Global $combo_station
;------------------------------------------------------ GUI
GuiCreate ( " Entretien véhicule " , 700 , 425 ) ; fenêtre principale
GUISetState ( @SW_SHOW )
$bouton_gaz = GUICtrlCreateButton(" Gasoil ",10,10,185,40) ; Bouton gaz
GUICtrlSetFont($bouton_gaz , 24)
$bouton_entretien = GUICtrlCreateButton(" Entretien ",10,60,185,40) ; Bouton entretien
GUICtrlSetFont($bouton_entretien , 24)
$bouton_resum = GUICtrlCreateButton(" Résumé ",10,110,185,40) ; Bouton résumé
GUICtrlSetFont($bouton_resum , 24)
GUICtrlCreateGroup ( " Pavé numérique " , 10 , 160 , 185 , 260 ) ; Groupement pavé numérique
$bouton_1 = GUICtrlCreateButton("1",15,180,55,55) ; Bouton 1
GUICtrlSetFont($bouton_1, 24)
$bouton_2 = GUICtrlCreateButton("2",75,180,55,55) ; Bouton 2
GUICtrlSetFont($bouton_2 , 24)
$bouton_3 = GUICtrlCreateButton("3",135,180,55,55) ; Bouton 3
GUICtrlSetFont($bouton_3 , 24)
$bouton_4 = GUICtrlCreateButton("4",15,240,55,55) ; Bouton 4
GUICtrlSetFont($bouton_4, 24)
$bouton_5 = GUICtrlCreateButton("5",75,240,55,55) ; Bouton 5
GUICtrlSetFont($bouton_5 , 24)
$bouton_6 = GUICtrlCreateButton("6",135,240,55,55) ; Bouton 6
GUICtrlSetFont($bouton_6 , 24)
$bouton_7 = GUICtrlCreateButton("7",15,300,55,55) ; Bouton 7
GUICtrlSetFont($bouton_7, 24)
$bouton_8 = GUICtrlCreateButton("8",75,300,55,55) ; Bouton 8
GUICtrlSetFont($bouton_8 , 24)
$bouton_9 = GUICtrlCreateButton("9",135,300,55,55) ; Bouton 9
GUICtrlSetFont($bouton_9 , 24)
$bouton_0 = GUICtrlCreateButton("0",15,360,55,55) ; Bouton 0
GUICtrlSetFont($bouton_0, 24)
$bouton_virgule = GUICtrlCreateButton(",",75,360,55,55) ; Bouton virgule
GUICtrlSetFont($bouton_virgule , 24)
$bouton_entrer = GUICtrlCreateButton("«",135,360,55,55) ; Bouton entrer
GUICtrlSetFont($bouton_entrer , 24)
While 1
$msg = GUIGetMsg ( )
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $bouton_gaz
gaz()
$i = 1
GUICtrlSetState($input_prix, $GUI_focus)
Case $msg = $bouton_entretien
_GuiCtrlGroupSetState($gaz, $GUI_hide)
Case $msg = $bouton_1
GUICtrlSetState(-1,$GUI_HIDE)
Case $msg = $bouton_next
suivant()
Case $msg = $bouton_valid
valid_gaz()
EndSelect
WEnd
;------------------------------------------------------ Fonction
Func _GuiCtrlGroupSetState(ByRef $a_GroupArray, $i_State)
For $i = 1 To $a_GroupArray[0]
GUICtrlSetState($a_GroupArray[$i], $i_State)
Next
EndFunc ;==>_GuiCtrlGroupSetState
;--------------------------- Fonction gaz
Func gaz()
if $g = 1 then
_GuiCtrlGroupSetState($gaz, $GUI_show)
else
$g = 1 ;
$group_gaz =GUICtrlCreateGroup ( " Gasoil" , 205 , 10 , 490 , 410 ) ; Groupement gaz
GUICtrlSetFont($bouton_gaz , 24)
$label_plein = GUICtrlCreateLabel("Ajouter un plein : ",220,40,170,50)
GUICtrlSetFont($label_plein , 16)
$bouton_next = GUICtrlCreateButton("Suivant",220,100,170,50)
GUICtrlSetFont($bouton_next , 24)
$combo_station = GUICtrlCreateCombo(" Station ",220,240,380,25)
GUICtrlSetFont($combo_station , 24)
GUICtrlSetData(-1, "Total|Elf|Fina", " Station ")
$input_prix = GUICtrlCreateInput("Tarif",400,30,200,50)
GUICtrlSetFont($input_prix , 24)
$input_litre = GUICtrlCreateInput("Litre",400,100,200,50)
GUICtrlSetFont($input_litre , 24)
$input_km = GUICtrlCreateInput("Km",400,170,200,50)
GUICtrlSetFont($input_km , 24)
$label_prix = GUICtrlCreateLabel(" €",600,40,40,40)
GUICtrlSetFont($label_prix , 24)
$label_litre = GUICtrlCreateLabel(" L",600,100,40,40)
GUICtrlSetFont($label_litre , 24)
$label_km = GUICtrlCreateLabel(" Km",600,180,80,80)
GUICtrlSetFont($label_km , 24)
$bouton_valid = GUICtrlCreateButton("Valider",220,170,170,50)
GUICtrlSetFont($bouton_valid , 24)
global $gaz = StringSplit($label_plein & '.' & _
$combo_station & '.' & _
$label_plein & '.' & _
$input_prix & '.' & _
$input_litre & '.' & _
$input_km & '.' & _
$label_prix & '.' & _
$label_litre & '.' & _
$label_km & '.' & _
$bouton_valid & '.' & _
$bouton_next & '.' & _
$group_gaz, '.')
EndIf
EndFunc
;--------------------------- Fonction Suivant onglet gaz
func suivant()
if $i = 1 Then
GUICtrlSetState($input_litre, $GUI_focus)
$i = 2
ElseIf $i = 2 Then
GUICtrlSetState($input_km, $GUI_focus)
$i = 3
ElseIf $i = 3 Then
GUICtrlSetState($input_prix, $GUI_focus)
$i = 1
Else
GUICtrlSetState($input_prix, $GUI_focus)
$i = 1
EndIf
EndFunc
;--------------------------- Fonction valider onglet gaz
Func valid_gaz()
$read_prix = GUICtrlRead($input_prix)
$read_litre = GUICtrlRead($input_litre)
$read_km = GUICtrlRead($input_km)
$read_station = GUICtrlRead($combo_station, 1)
if $read_prix = "Tarif" OR $read_litre = "Litre" OR $read_km = "Km" Then
MsgBox(0,"","Toutes les informations ne sont pas rentrées")
Else
FileWriteLine("test.txt",$read_prix & ";" & $read_litre & ";" & $read_km & ";" & $combo_station & ";;")
GUICtrlSetData($input_prix,"Tarif")
GUICtrlSetData($input_litre,"Litre")
GUICtrlSetData($input_km,"Km")
GUICtrlSetData($combo_station," Station ")
EndIf
EndFunc
