Interfaces
Publié : ven. 11/juin/2010 14:20
bonjour a tous le monde, je suis en train de crée de petit interface
pour un futur programmes, ceci sont en faite des modules qui
seron assembler dans un unique programme
qu'elle est le but de faire des module:
crée sont programme petit a petit un peut comme du lego
mieux s'y retrouvé dans sont code et le programme
construction plus aiser
mon premier module est un module de condition:
certe il peut être très certainement racourci et améliorer
si vous avez des idée, si vous voulez le perféctionner
il évolura au fur et a mesure du temps
je compte faire beaucoup de module
comme celui-ci
pour un futur programmes, ceci sont en faite des modules qui
seron assembler dans un unique programme
qu'elle est le but de faire des module:
crée sont programme petit a petit un peut comme du lego
mieux s'y retrouvé dans sont code et le programme
construction plus aiser
mon premier module est un module de condition:
certe il peut être très certainement racourci et améliorer
si vous avez des idée, si vous voulez le perféctionner
il évolura au fur et a mesure du temps
je compte faire beaucoup de module
comme celui-ci
Code : Tout sélectionner
Enumeration
#Text_37
#Text_39
#Text_40
#condition
#si_la_variable
#nom_variable_condition
#est_nest_pas_variable
#opperateur
#commande
#si_la_commande
#commande_sexecute_ou_pas
#valeur_variable_condition
#valeur_autre_variable_condition
#valeur_de_la_variable
#une_autre_variable
#option_gadget_Si
#option_gadget_SinonSi
#Button_ok_5
#Button_annuler_5
#fin_de_condition
#Sinon
EndEnumeration
Procedure.l nom_variable_numerique(nom_variable_numerique$)
longueur_nom_variable = Len(nom_variable_numerique$)
For veriffication = 1 To longueur_nom_variable
extraction$ = Mid(nom_variable_numerique$, veriffication, 1)
If veriffication = 1
If extraction$ = "0" Or extraction$ = "1" Or extraction$ = "2"Or extraction$ = "3"Or extraction$ = "4"Or extraction$ = "5" Or extraction$ = "6"Or extraction$ = "7"Or extraction$ = "8"Or extraction$ = "9"
MessageRequester("erreur !", "attention erreur !, le nom de la variable numérique n'est pas valide " + Chr(13) + " le nom d'une variable ne peut pas commancer par un chiffre", 48)
ProcedureReturn 0
EndIf
EndIf
If extraction$ = "a" Or extraction$ = "b" Or extraction$ = "c" Or extraction$ = "d" Or extraction$ = "e" Or extraction$ = "f" Or extraction$ = "g" Or extraction$ = "h" Or extraction$ = "i" Or extraction$ = "j" Or extraction$ = "k" Or extraction$ = "l" Or extraction$ = "m" Or extraction$ = "n" Or extraction$ = "o" Or extraction$ = "p" Or extraction$ = "q" Or extraction$ = "r" Or extraction$ = "s" Or extraction$ = "t" Or extraction$ = "u" Or extraction$ = "v" Or extraction$ = "w" Or extraction$ = "x" Or extraction$ = "y" Or extraction$ = "z"
ElseIf extraction$ = "A" Or extraction$ = "B" Or extraction$ = "C" Or extraction$ = "D" Or extraction$ = "E" Or extraction$ = "F" Or extraction$ = "G" Or extraction$ = "H" Or extraction$ = "I" Or extraction$ = "J" Or extraction$ = "K" Or extraction$ = "L" Or extraction$ = "M" Or extraction$ = "N" Or extraction$ = "O" Or extraction$ = "P" Or extraction$ = "Q" Or extraction$ = "R" Or extraction$ = "S" Or extraction$ = "T" Or extraction$ = "U" Or extraction$ = "V" Or extraction$ = "W" Or extraction$ = "X" Or extraction$ = "Y" Or extraction$ = "Z"
ElseIf extraction$ = "0" Or extraction$ = "1" Or extraction$ = "2"Or extraction$ = "3"Or extraction$ = "4"Or extraction$ = "5" Or extraction$ = "6"Or extraction$ = "7"Or extraction$ = "8"Or extraction$ = "9"
ElseIf extraction$ = "_"
Else
MessageRequester("erreur !", "attention erreur !, le nom de la variable numérique n'est pas valide " + Chr(13) + " caractère invalide a la position " + Str(veriffication), 48)
ProcedureReturn 0
EndIf
nom_de_la_variable_numerique$ = nom_de_la_variable_numerique$ + extraction$
Next
ProcedureReturn 1
EndProcedure
Procedure.l nom_variable_alpha_numerique(nom_variable_alpha_numerique$)
longueur_nom_variable = Len(nom_variable_alpha_numerique$)
For veriffication = 1 To longueur_nom_variable
extraction$ = Mid(nom_variable_alpha_numerique$, veriffication, 1)
If veriffication = 1
If extraction$ = "0" Or extraction$ = "1" Or extraction$ = "2"Or extraction$ = "3"Or extraction$ = "4"Or extraction$ = "5" Or extraction$ = "6"Or extraction$ = "7"Or extraction$ = "8"Or extraction$ = "9"
MessageRequester("erreur !", "attention erreur !, le nom de la variable alpha_numérique n'est pas valide " + Chr(13) + " le nom d'une variable ne peut pas commancer par un chiffre", 48)
ProcedureReturn 0
EndIf
EndIf
If veriffication <> longueur_nom_variable
If extraction$ = "$"
MessageRequester("erreur !", "attention erreur !, le nom de la variable alpha_numérique n'est pas valide" + Chr(13) + " caractère invalide a la position " + Str(veriffication), 48)
ProcedureReturn 0
EndIf
EndIf
If veriffication = longueur_nom_variable
If extraction$ <> "$"
MessageRequester("erreur !", " attention erreur !, le nom de la variable alpha_numérique n'est pas valide " + Chr(13) + " le nom de la variable alpha-numérique doit impérativement" + Chr(13) + " ce tèrminer par le caractère suivent: $", 48)
ProcedureReturn 0
EndIf
EndIf
If extraction$ = "a" Or extraction$ = "b" Or extraction$ = "c" Or extraction$ = "d" Or extraction$ = "e" Or extraction$ = "f" Or extraction$ = "g" Or extraction$ = "h" Or extraction$ = "i" Or extraction$ = "j" Or extraction$ = "k" Or extraction$ = "l" Or extraction$ = "m" Or extraction$ = "n" Or extraction$ = "o" Or extraction$ = "p" Or extraction$ = "q" Or extraction$ = "r" Or extraction$ = "s" Or extraction$ = "t" Or extraction$ = "u" Or extraction$ = "v" Or extraction$ = "w" Or extraction$ = "x" Or extraction$ = "y" Or extraction$ = "z"
ElseIf extraction$ = "A" Or extraction$ = "B" Or extraction$ = "C" Or extraction$ = "D" Or extraction$ = "E" Or extraction$ = "F" Or extraction$ = "G" Or extraction$ = "H" Or extraction$ = "I" Or extraction$ = "J" Or extraction$ = "K" Or extraction$ = "L" Or extraction$ = "M" Or extraction$ = "N" Or extraction$ = "O" Or extraction$ = "P" Or extraction$ = "Q" Or extraction$ = "R" Or extraction$ = "S" Or extraction$ = "T" Or extraction$ = "U" Or extraction$ = "V" Or extraction$ = "W" Or extraction$ = "X" Or extraction$ = "Y" Or extraction$ = "Z"
ElseIf extraction$ = "0" Or extraction$ = "1" Or extraction$ = "2"Or extraction$ = "3"Or extraction$ = "4"Or extraction$ = "5" Or extraction$ = "6"Or extraction$ = "7"Or extraction$ = "8"Or extraction$ = "9"
ElseIf extraction$ = "_" Or extraction$ = "$"
Else
MessageRequester("erreur !", "attention erreur !, le nom de la variable alpha_numérique n'est pas valide" + Chr(13) + " caractère invalide a la position " + Str(veriffication), 48)
ProcedureReturn 0
EndIf
nom_de_la_variable_alpha_numerique$ = nom_de_la_variable_alpha_numerique$ + extraction$
Next
ProcedureReturn 1
EndProcedure
Procedure.l nom_constante(nom_constante$)
longueur_nom_constante = Len(nom_constante$)
For veriffication = 1 To longueur_nom_constante
extraction$ = Mid(nom_constante$, veriffication, 1)
If veriffication = 1
If extraction$ <> "#"
MessageRequester("erreur !", "attention erreur !, le nom de la constante n'est pas valide " + Chr(13) + Chr(13) + " le nom d'une constante doit impérativement" + Chr(13) + " commancer par le caractère suivent: #", 48)
ProcedureReturn 0
EndIf
EndIf
If veriffication = 2
If extraction$ = "0" Or extraction$ = "1" Or extraction$ = "2"Or extraction$ = "3"Or extraction$ = "4"Or extraction$ = "5" Or extraction$ = "6"Or extraction$ = "7"Or extraction$ = "8"Or extraction$ = "9"
MessageRequester("erreur !", " attention erreur !, le nom de la constante n'est pas valide " + Chr(13) + " le nom d'une constante ne peut pas commancer par un chiffre ", 48)
ProcedureReturn 0
EndIf
EndIf
If veriffication > 1
If extraction$ = "#"
MessageRequester("erreur !", "attention erreur !, le nom de la constante n'est pas valide" + Chr(13) + " caractère invalide a la position " + Str(veriffication), 48)
ProcedureReturn 0
EndIf
EndIf
If extraction$ = "a" Or extraction$ = "b" Or extraction$ = "c" Or extraction$ = "d" Or extraction$ = "e" Or extraction$ = "f" Or extraction$ = "g" Or extraction$ = "h" Or extraction$ = "i" Or extraction$ = "j" Or extraction$ = "k" Or extraction$ = "l" Or extraction$ = "m" Or extraction$ = "n" Or extraction$ = "o" Or extraction$ = "p" Or extraction$ = "q" Or extraction$ = "r" Or extraction$ = "s" Or extraction$ = "t" Or extraction$ = "u" Or extraction$ = "v" Or extraction$ = "w" Or extraction$ = "x" Or extraction$ = "y" Or extraction$ = "z"
ElseIf extraction$ = "A" Or extraction$ = "B" Or extraction$ = "C" Or extraction$ = "D" Or extraction$ = "E" Or extraction$ = "F" Or extraction$ = "G" Or extraction$ = "H" Or extraction$ = "I" Or extraction$ = "J" Or extraction$ = "K" Or extraction$ = "L" Or extraction$ = "M" Or extraction$ = "N" Or extraction$ = "O" Or extraction$ = "P" Or extraction$ = "Q" Or extraction$ = "R" Or extraction$ = "S" Or extraction$ = "T" Or extraction$ = "U" Or extraction$ = "V" Or extraction$ = "W" Or extraction$ = "X" Or extraction$ = "Y" Or extraction$ = "Z"
ElseIf extraction$ = "0" Or extraction$ = "1" Or extraction$ = "2"Or extraction$ = "3"Or extraction$ = "4"Or extraction$ = "5" Or extraction$ = "6"Or extraction$ = "7"Or extraction$ = "8"Or extraction$ = "9"
ElseIf extraction$ = "_" Or extraction$ = "#"
Else
MessageRequester("erreur !", "attention erreur !, le nom de la constante n'est pas valide" + Chr(13) + " caractère invalide a la position " + Str(veriffication), 48)
ProcedureReturn 0
EndIf
nom_de_la_constante$ = nom_de_la_constante$ + extraction$
Next
ProcedureReturn 1
EndProcedure
Procedure condition()
OpenWindow(#condition, 415, 186, 592, 214, "Condition...", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
OptionGadget(#option_gadget_Si, 250, 15, 50, 20, "Si:")
OptionGadget(#option_gadget_SinonSi, 300, 15, 100, 20, "Sinon Si:")
TextGadget(#Text_40, 50, 69, 50, 20, "la valeur:")
OptionGadget(#si_la_variable, 20, 40, 72, 20, " la variable:")
OptionGadget(#si_la_commande, 20, 125, 90, 20, " la commande: ")
StringGadget(#nom_variable_condition, 95, 40, 200, 20, "")
SendMessage_(GadgetID(#nom_variable_condition), #EM_LIMITTEXT, 250, 0)
ComboBoxGadget(#est_nest_pas_variable, 300, 39, 115, 20)
ComboBoxGadget(#opperateur, 419, 39, 151, 20)
StringGadget(#valeur_variable_condition, 95, 65, 200, 20, "")
TextGadget(#Text_39, 329, 69, 100, 20, "une autre variable:")
StringGadget(#valeur_autre_variable_condition, 419, 65, 151, 20, "")
SendMessage_(GadgetID(#valeur_autre_variable_condition), #EM_LIMITTEXT, 250, 0)
ComboBoxGadget(#commande_sexecute_ou_pas, 450, 125, 120, 20)
StringGadget(#commande, 110, 125, 335, 20, "")
TextGadget(#Text_37, 140, 105, 285, 15, "Couper puis Collez ici la Commande en question de l'éditeur:", #PB_Text_Center)
ButtonGadget(#Button_ok_5, 155, 175, 115, 25, "Valider la Condition")
ButtonGadget(#Button_annuler_5, 280, 175, 120, 25, "Annuler la Condition")
OptionGadget(#valeur_de_la_variable, 20, 66, 20, 20, "")
OptionGadget(#une_autre_variable, 305, 66, 20, 20, "")
SetGadgetState(#option_gadget_Si, 1)
AddGadgetItem(#opperateur, -1, "égale à")
AddGadgetItem(#opperateur, -1, "supérieur à")
AddGadgetItem(#opperateur, -1, "superieur ou égale à")
AddGadgetItem(#opperateur, -1, "inferieur à")
AddGadgetItem(#opperateur, -1, "inferieur ou égale à")
AddGadgetItem(#opperateur, -1, "différent de")
AddGadgetItem(#est_nest_pas_variable, -1, "est")
AddGadgetItem(#est_nest_pas_variable, -1, "n'est pas")
AddGadgetItem(#commande_sexecute_ou_pas, -1, "s'éxécute")
AddGadgetItem(#commande_sexecute_ou_pas, -1, "ne s'éxécute pas")
SetGadgetState(#est_nest_pas_variable, 0)
SetGadgetState(#opperateur, 0)
SetGadgetState(#commande_sexecute_ou_pas, 0)
SetGadgetState(#si_la_variable, 1)
SetGadgetState(#valeur_de_la_variable, 1)
DisableGadget(#nom_variable_condition, 0)
DisableGadget(#est_nest_pas_variable, 0)
DisableGadget(#opperateur, 0)
DisableGadget(#valeur_variable_condition, 0)
DisableGadget(#commande, 1)
DisableGadget(#commande_sexecute_ou_pas, 1)
DisableGadget(#valeur_autre_variable_condition, 1)
DisableGadget(#valeur_variable_condition, 0)
Repeat ; Start of the event loop
reprise_du_programme_condition:
Event8 = WaitWindowEvent() ; This line waits until an event is received from Windows
WindowID8 = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
GadgetID8 = EventGadget() ; Is it a gadget event?
EventType8 = EventType() ; The event type
option_gadget_Si = GetGadgetState(#option_gadget_Si)
option_gadget_SinonSi = GetGadgetState(#option_gadget_SinonSi)
condition_si_la_variable = GetGadgetState(#si_la_variable)
condition_si_la_commande = GetGadgetState(#si_la_commande)
condition_est_nest_pas_variable = GetGadgetState(#est_nest_pas_variable)
condition_opperateur = GetGadgetState(#opperateur)
condition_commande_sexecute_ou_pas = GetGadgetState(#commande_sexecute_ou_pas)
condition_valeur_de_la_variable = GetGadgetState(#valeur_de_la_variable)
condition_une_autre_variable = GetGadgetState(#une_autre_variable)
texte_est_nest_pas_variable$ = GetGadgetItemText(#est_nest_pas_variable, condition_est_nest_pas_variable)
texte_opperateur$ = GetGadgetItemText(#opperateur, condition_opperateur)
texte_commande$ = GetGadgetText(#commande)
texte_sexecute_ou_pas_commande$ = GetGadgetItemText(#commande_sexecute_ou_pas, condition_commande_sexecute_ou_pas)
texte_nom_variable_condition$ = GetGadgetText(#nom_variable_condition)
texte_valeur_variable_condition$ = GetGadgetText(#valeur_variable_condition)
texte_valeur_autre_variable_condition$ = GetGadgetText(#valeur_autre_variable_condition)
If Event8 = #PB_Event_Gadget
If GadgetID8 = #si_la_variable
DisableGadget(#valeur_de_la_variable, 0)
DisableGadget(#une_autre_variable, 0)
If condition_valeur_de_la_variable = 1
DisableGadget(#valeur_variable_condition, 0)
ElseIf condition_une_autre_variable = 1
DisableGadget(#valeur_autre_variable_condition, 0)
EndIf
DisableGadget(#nom_variable_condition, 0)
DisableGadget(#est_nest_pas_variable, 0)
DisableGadget(#opperateur, 0)
DisableGadget(#commande, 1)
DisableGadget(#commande_sexecute_ou_pas, 1)
DisableGadget(#une_autre_variable, 0)
ElseIf GadgetID8 = #nom_variable_condition
ElseIf GadgetID8 = #est_nest_pas_variable
ElseIf GadgetID8 = #opperateur
ElseIf GadgetID8 = #valeur_variable_condition
ElseIf GadgetID8 = #si_la_commande
DisableGadget(#nom_variable_condition, 1)
DisableGadget(#est_nest_pas_variable, 1)
DisableGadget(#opperateur, 1)
DisableGadget(#valeur_variable_condition, 1)
DisableGadget(#commande, 0)
DisableGadget(#commande_sexecute_ou_pas, 0)
DisableGadget(#valeur_de_la_variable, 1)
DisableGadget(#une_autre_variable, 1)
DisableGadget(#valeur_autre_variable_condition, 1)
ElseIf GadgetID8 = #une_autre_variable
DisableGadget(#valeur_autre_variable_condition, 0)
DisableGadget(#valeur_variable_condition, 1)
ElseIf GadgetID8 = #valeur_de_la_variable
DisableGadget(#valeur_autre_variable_condition, 1)
DisableGadget(#valeur_variable_condition, 0)
ElseIf GadgetID8 = #commande_sexecute_ou_pas
ElseIf GadgetID8 = #valeur_variable_condition
ElseIf GadgetID8 = #option_gadget_Si
ElseIf GadgetID8 = #option_gadget_SinonSi
ElseIf GadgetID8 = #Button_ok_5
If condition_si_la_variable = 1
If texte_nom_variable_condition$ = ""
MessageRequester("Attention...", " aucun nom de variable n'a été entrée, veuillez en entrée un !", 64)
Goto reprise_du_programme_condition
EndIf
If FindString(texte_nom_variable_condition$, "$", 1)
If nom_variable_alpha_numerique(texte_nom_variable_condition$)
type_variable_1$ = "$"
If condition_valeur_de_la_variable = 1
longueur_valeur_variable = Len(texte_valeur_variable_condition$)
If longueur_valeur_variable = 1
texte_valeur_variable_condition$ = "aucune"
Else
recherche_premier_caractere$ = Mid(texte_valeur_variable_condition$, 1, 1)
If recherche_premier_caractere$ = Chr(34)
recherche_dernier_caractere$ = Mid(texte_valeur_variable_condition$, longueur_valeur_variable, 1)
If recherche_dernier_caractere$ = Chr(34)
Else
MessageRequester("Attention, valeur incorecte !", " la valeur de la variable alpha-numérique doit contenire un guillemet a sa fin", 48)
Goto reprise_du_programme_condition
EndIf
Else
MessageRequester("Attention, valeur incorecte !", " la valeur de la variable alpha-numérique doit contenire un guillemet a son début", 48)
Goto reprise_du_programme_condition
EndIf
EndIf
Else
type_variable_2$ = "$"
EndIf
Else
Goto reprise_du_programme_condition
EndIf
ElseIf FindString(texte_nom_variable_condition$, "#", 1)
If nom_constante(texte_nom_variable_condition$)
type_variable_1$ = "#"
Else
Goto reprise_du_programme_condition
EndIf
Else
If Not FindString(texte_nom_variable_condition$, "$", 1) And Not FindString(texte_nom_variable_condition$, "#", 1)
If nom_variable_numerique(texte_nom_variable_condition$)
type_variable_1$ = " "
If condition_valeur_de_la_variable = 1 ; GetGadgetState(#valeur_de_la_variable)
If texte_valeur_variable_condition$ = ""
MessageRequester("Attention...", " aucune valeur de variable n'a été entrée, veuillez en entrée une !", 64)
Goto reprise_du_programme_condition
EndIf
longueur_texte_valeur_variable_condition = Len(texte_valeur_variable_condition$)
recherche_premier_caractere$ = Mid(texte_valeur_variable_condition$, 1, 1)
If recherche_premier_caractere$ = "-"
depart = 2
EndIf
For veriffication = depart To longueur_texte_valeur_variable_condition
caractere$ = Mid(texte_valeur_variable_condition$, veriffication, 1)
nombre_de_points = CountString(texte_valeur_variable_condition$, ".")
If nombre_de_points > 1
MessageRequester("Attention, cette valeur est incorecte " + location$ + " !", " vous ne pouvez entrez qu'une seule virgule a la fois !", 48)
Goto reprise_du_programme_condition
EndIf
If caractere$ <> "0" And caractere$ <> "1" And caractere$ <> "2" And caractere$ <> "3" And caractere$ <> "4" And caractere$ <> "5" And caractere$ <> "6" And caractere$ <> "7" And caractere$ <> "8" And caractere$ <> "9" And caractere$ <> "." And caractere$ <> "" And caractere$ <> ""
MessageRequester("attention !", " Cette valleur n'est pas compatible avec cette variable", 64)
Goto reprise_du_programme_condition
Else
EndIf
Next
ElseIf condition_une_autre_variable = 1 ; GetGadgetState(#une_autre_variable)
If texte_valeur_autre_variable_condition$ = ""
MessageRequester("Attention...", " aucun nom de variable n'a été entrée, veuillez en entrée un !", 64)
Goto reprise_du_programme_condition
EndIf
If FindString(texte_valeur_autre_variable_condition$, "$", 1)
If nom_variable_alpha_numerique(texte_valeur_autre_variable_condition$)
type_variable_2$ = "$"
Else
Goto reprise_du_programme_condition
EndIf
ElseIf FindString(texte_valeur_autre_variable_condition$, "#", 1)
If nom_constante(texte_valeur_autre_variable_condition$)
type_variable_2$ = "#"
Else
Goto reprise_du_programme_condition
EndIf
Else
If Not FindString(texte_valeur_autre_variable_condition$, "$", 1) And Not FindString(texte_valeur_autre_variable_condition$, "#", 1)
If nom_variable_numerique(texte_valeur_autre_variable_condition$)
type_variable_2$ = " "
Else
Goto reprise_du_programme_condition
EndIf
EndIf
EndIf
EndIf
Else
Goto reprise_du_programme_condition
EndIf
EndIf
EndIf
If type_variable_1$ = " " And type_variable_2$ = "$"
MessageRequester("Attention, type incompatible", " ces deux type de variable ne sont pas compatible !", 48)
Goto reprise_du_programme_condition
ElseIf type_variable_1$ = " " And type_variable_2$ = "#"
ElseIf type_variable_1$ = " " And type_variable_2$ = " "
ElseIf type_variable_1$ = "$" And type_variable_2$ = "$"
ElseIf type_variable_1$ = "$" And type_variable_2$ = " "
ElseIf type_variable_1$ = "$" And type_variable_2$ = "#"
ElseIf type_variable_1$ = "#" And type_variable_2$ = "$"
ElseIf type_variable_1$ = "#" And type_variable_2$ = " "
ElseIf type_variable_1$ = "#" And type_variable_2$ = "#"
Else
EndIf
If type_variable_1$ = "$"
type_variable_1$ = "Variable alpha-numérique"
ElseIf type_variable_1$ = "#"
type_variable_1$ = "constante"
ElseIf type_variable_1$ = " "
type_variable_1$ = "Variable numérique"
EndIf
If type_variable_2$ = "$"
type_variable_2$ = "Variable alpha-numérique"
ElseIf type_variable_2$ = "#"
type_variable_2$ = "constante"
ElseIf type_variable_2$ = " "
type_variable_2$ = "Variable numérique"
EndIf
If option_gadget_Si = 1
condition$ = "Si"
ElseIf option_gadget_SinonSi = 1
condition$ = "Sinon Si"
EndIf
If condition_valeur_de_la_variable = 1
If FindString(texte_nom_variable_condition$, "$", 1)
SetClipboardText(condition$ + " la " + type_variable_1$ + " [" + texte_nom_variable_condition$ + "] " + texte_est_nest_pas_variable$ + " " + texte_opperateur$ + " la valeur " + Chr(34) + texte_valeur_variable_condition$ + Chr(34))
Else
SetClipboardText(condition$ + " la " + type_variable_1$ + " [" + texte_nom_variable_condition$ + "] " + texte_est_nest_pas_variable$ + " " + texte_opperateur$ + " la valeur " + texte_valeur_variable_condition$)
EndIf
ElseIf condition_une_autre_variable = 1
If FindString(texte_valeur_autre_variable_condition$, "$", 1)
If nom_variable_alpha_numerique(texte_valeur_autre_variable_condition$)
type_variable_2$ = "$"
Else
Goto reprise_du_programme_condition
EndIf
ElseIf FindString(texte_valeur_autre_variable_condition$, "#", 1)
If nom_constante(texte_valeur_autre_variable_condition$)
type_variable_2$ = "#"
Else
Goto reprise_du_programme_condition
EndIf
Else
If Not FindString(texte_valeur_autre_variable_condition$, "$", 1) And Not FindString(texte_valeur_autre_variable_condition$, "#", 1)
If nom_variable_numerique(texte_valeur_autre_variable_condition$)
type_variable_2$ = " "
Else
Goto reprise_du_programme_condition
EndIf
EndIf
EndIf
If type_variable_2$ = "$"
type_variable_2$ = "Variable alpha-numérique"
ElseIf type_variable_2$ = "#"
type_variable_2$ = "constante"
ElseIf type_variable_2$ = " "
type_variable_2$ = "Variable numérique"
EndIf
SetClipboardText(condition$ + " la " + type_variable_1$ + " [" + texte_nom_variable_condition$ + "] " + texte_est_nest_pas_variable$ + " " + texte_opperateur$ + " la " + type_variable_2$ + " [" + texte_valeur_autre_variable_condition$ + "]")
EndIf
ElseIf condition_si_la_commande = 1
If texte_commande$ = ""
MessageRequester("Attention...", " aucune commande n'a été entrée, veuillez en entrée une !", 64)
Goto reprise_du_programme_condition
Else
SetClipboardText(condition$ + " la commande: " + "'" + texte_commande$ + "' " + texte_sexecute_ou_pas_commande$ + " corectement")
EndIf
EndIf
Event8 = #PB_Event_CloseWindow
ElseIf GadgetID8 = #Button_annuler_5
Event8 = #PB_Event_CloseWindow
EndIf
EndIf
Until Event8 = #PB_Event_CloseWindow ; End of the event loop
CloseWindow(#condition)
EndProcedure
condition()
; IDE Options = PureBasic 4.40 (Windows - x86)
; Folding = AAAAAAAAAA-
; EnableXP
; EnableUser
; EnableOnError
; Executable = Condition.exe
; EnableCompileCount = 79
; EnableBuildCount = 1
; EnableExeConstant