none
comparaison multiple RRS feed

  • Question

  • bonjour

    je suis un problème de logique que je n'arrive pas à faire

     sur mon programme je voudrais que lorsque je click sur un bouton cela déplace mon lablel et je voudrais lorsque x =57,114,256,313 je puisse effectuer un code qui renvoi sur le point de départ je réussi avec 2 valeurs  et après je nage !!

    merci de voler à mon secours

    dimanche 13 mars 2016 17:39

Réponses

  • If A = 57 Or A=114 Or A=256 Then
         'Retour position
    EndIf
    

    Pas trés clair quelles sont les limites pour A.

    Peut être que la réponse doit être sur des plages? par exemples A entre 57 et 114 ou entre 114 et 256?

    If (A >0 And A<= 57) Or (A>57 And A<=114) Or (A>114 And A<=256) Then
       '
    EndIF

    • Marqué comme réponse SIMONGEORGES lundi 14 mars 2016 11:33
    lundi 14 mars 2016 09:57

Toutes les réponses

  • Essayer comme ceci:

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim IncrementX As Integer = 10
            Dim PointDepartX As Integer = 16
    
            Dim PositionLabel As Point = Label7.Location
    'Trouver la bonne taille de fenêtre pour l'animation voulue
            If PositionLabel.X < (Me.Width - Label7.Width - IncrementX) Then
                PositionLabel.X += IncrementX
            Else
                PositionLabel.X = PointDepartX
            End If
            Label7.Location = PositionLabel
            Label7.Text = "Label7 x=" & PositionLabel.X.ToString
        End Sub

    dimanche 13 mars 2016 21:19
  • merci beaucoup je viens de le tester mais il réponds pas trop à ma recherche je me suis surement mal exprimé je vous en demande pardon

    je voudrais lorsque que mon label avance si la valeur de x reçoit les valeur de 57 ou de 114 ou de 256 revient a sa position de départ qui es x=35 et y= 520

    voici le code que j'avais initié mais  il bloque  merci de votre aide

            Label1_marcel.Location = New Point(Label1_marcel.Location.X + 25, Label1_marcel.Location.Y)
            Dim A As Integer, b As Integer
            A = Label1_marcel.Location.X
            Dim c As Integer = Label1_marcel.Location.X
            b = Label1_marcel.Location.Y
    
            'MsgBox("A=" & A & "b=" & b)
    
            If A = 57 < 246 Then
    
                Label1_marcel.Location = New Point(35, 520)
                'ElseIf A > 57 And A <> 114 Then
                '    Label1_marcel.Location = New Point(35, 520)
            End If
    

    dimanche 13 mars 2016 22:40
  • If A = 57 Or A=114 Or A=256 Then
         'Retour position
    EndIf
    

    Pas trés clair quelles sont les limites pour A.

    Peut être que la réponse doit être sur des plages? par exemples A entre 57 et 114 ou entre 114 et 256?

    If (A >0 And A<= 57) Or (A>57 And A<=114) Or (A>114 And A<=256) Then
       '
    EndIF

    • Marqué comme réponse SIMONGEORGES lundi 14 mars 2016 11:33
    lundi 14 mars 2016 09:57
  • merci c tout à fait cela
    lundi 14 mars 2016 11:33