Discussion :

[polo42]

voila, je vous explique mon problème

je suis étudiant et je débute en visual basic. J'aimerais savoir pourquoi l'expression logique en rouge est toujours vraie, même si les valeurs ne sont pas dans les bornes définies

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim compt As Integer
Dim compt2 As Integer
c = 0
If j = 1 Then
  c = 0
  chargtab
ElseIf j > 1 Then
  For compt = 1 To (j - 1)
 
    For compt2 = 0 To 3
      ' aucun point ne peut être mit dans un rectangle existant[/color]
      If (X1(compt) < GX(compt2) < X4(compt)) And (Y1(compt) < GY(compt2) < Y4(compt)) Then ' <- Cette ligne
        Text3.Text = "aie"
        X1(j) = Empty
        Y1(j) = Empty
        X4(j) = Empty
        Y4(j) = Empty

merci de me répondre car là je bloque

[plegat]

Salut,

Sépare tes double inégalités en deux comparaisons liées par un AND...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a<b<c => (a<b) and (b<c)

Je ne sais même pas comment sont prises en compte des double-inégalités par VB...

[ouskel'n'or]

As-tu testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If (x1(compt) < GX(compt2) And GX(compt2) < X4(compt)) And (y1(compt) < GY(compt2) And GY(compt2) < Y4(compt)) Then
      MsgBox "Aïe"
End If

Sait-on jamais...

A+

[polo42]

Merci à tous, je suis arrivé à faire les règles de topologie.
Cependant un autre problème se pose à moi, étant donné que je suis un vrai débutant.
je n'arrive pas à utiliser la même variable d'une form à une autre.
EX: j'aimerais prendre la valeur de la variable dans la form1 et m'en resservir dans la form2.
merci pour vos réponse

[Invité]

Salut,

Il faudrait mettre cette valeur dans une variable tu déclares en Public dans un module

Starec