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