Traduction pgr en francais

david -  
jax008 Messages postés 93 Statut Membre -
bonjour qqun pourraist me traduire chaque ligne de ce code en francais
me dire ce qui fais a chaque fois svp important j'ai examen demain aider moi merci
Private Sub Valider_Click()

Dim x As Integer

Dim interval, interval_tmp As Integer

For x = 0 To 4

If x < 3 Then

interval_tmp = CInt(Nombre(x).Text) - Nombre(x + 1).Text

End If

If interval_tmp <> interval And interval <> "" Then

Resultat.Caption = "Suite illogique"

Exit Sub

ElseIf interval = "" Then

interval = interval_tmp

End If

Next x

If interval < 0 Then

Resultat.Caption = "Suite croissante d'interval " & CStr(-1 * interval)

ElseIf interval > 0 Then

Resultat.Caption = "Suite décroissante d'interval " & CStr(-1 * interval)

End If

End Sub
A voir également:

4 réponses

SirHill Messages postés 4070 Statut Contributeur 543
 
C'est du Vébé ?
0
select Messages postés 82 Statut Membre 17
 
Alors si j'ai bien compris le but de ce programme est de regarder la saisie des 5 objets nombres dans ton formulaires pour savoir si les chiffres saisient sont une suite logique ou non

Pour realiser ca
On fait une boucle et on met dans la variable interval_tmp la soustraction en le premier element de nombre et l'element nombre suivant
ensuite on compare la variable interval_tmp a la variable interval

Dim x As Integer <--- Declaration de la variable x comme entier

Dim interval, interval_tmp As Integer <--- Declaration de la variable interval,interval_tmp comme entier

For x = 0 To 4 <--- Boucle permetant de reproduire de 0 à 4 fois les instructions comprises en cette ligne et la ligne Next x

If x < 3 Then <<<---- si x est inferieure a 4 faire l'instruction en dessous

interval_tmp = CInt(Nombre(x).Text) - Nombre(x + 1).Text <------ La tu dois certainement avoir un formulaire avec un objet s'appelant nombre si le champ de ton formulaire
on met dans la variable interval_tmp le resultat de la soustraction de l'element nombre et de l'element nombre suivant

End If -<<< fin du test if

If interval_tmp <> interval And interval <> "" Then <- si la variable interval_tmp est differente de la variable interval et que la variable interval est differente de vide

Resultat.Caption = "Suite illogique" on considere que la suite est illogique

Exit Sub

ElseIf interval = "" Then si la variable interval est vide on place la variable de la interval_tmp

interval = interval_tmp

End If

Next x -<<<< Fin de la boucle For

If interval < 0 Then si la variable interval est inferieure a 0

Resultat.Caption = "Suite croissante d'interval " & CStr(-1 * interval) c'est une suite croissante

ElseIf interval > 0 Then si la variable interval est superieure a 0

Resultat.Caption = "Suite décroissante d'interval " & CStr(-1 * interval) la suite est decroissante

End If

End Sub

J'espere avoir pu t'aider :os
mais si tu n'as aucune notion de programmation ca ne doit pas etre evident a comprendre :os

Bon courrage

select
0
********
 
Biographie :
Piet Mondrian est né le 7 mars 1872 en Hollande. Son père le destine à l'enseignement et il obtient un diplôme pour l'enseignement du dessin.
En 1892, il a 20 ans et part étudier la peinture à l'Académie des Beaux-arts d'Amsterdam.
Il commence par créer des paysages réalistes avant d’évoluer vers une forme de fauvisme et de divisionnisme; il remplace alors la couleur naturelle par la couleur pure.
Dès ses débuts il a un goût prononcé pour la structure linéaire et l'opposition rigoureuse de
l'horizontal et du vertical.
Intéressé par les nouvelles tendances artistiques, dont le cubisme, il s'installe à Paris en 1912 où il découvre Cézanne, Braque et Picasso. Il se livre à des abstractions et dépasse même l'expérience de l'abstraction pour aboutir à une juxtaposition de lignes et de couleurs sans aucun rappel de la réalité. Ces lignes deviendront des verticales et des horizontales ; les couleurs se limiteront aux trois fondamentales, le rouge, le jaune, le bleu et occuperont des carrés ou des rectangles.
En 1914, il repart en Hollande au chevet de son père mais est contraint d’y rester deux ans à cause de la guerre.
De retour à Paris en 1919, il renonce à cette grille et se tourne vers le néoplasticisme.
A l'approche de la deuxième guerre mondiale, il part à Londres, puis il s'installe à New York. Durant les deux dernières années de sa vie, libéré des obsessions qui lui faisaient multiplier les lignes noires, il supprime la couleur noire de ses tableaux.
0
jax008 Messages postés 93 Statut Membre 11
 
je v etre aussi bete que l'anonyme qui a poster une biographie qui n'interessent personnent. c a dire raviver une discussion vielle de 2ans nes ce pas ^^.
0