Les if...

Signaler
Messages postés
31
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
20 juin 2003
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Intro:
voici une programmation qui consite, a changer une shape (shape1) de backcolor selon des données inscrites ds 3 zones de textes(Text1, Text2, Text3) en cliquant sur le bouton Command1.

But:
Si une valeur est suppérieur ou égale a 256 un message derreru apparait ds un label(label1) comme quoi il est trop gros mais...

Problème:
J'ai esseyer de mette une programmation qui em^pêcherai de mettre inférieur`ou égale à: -1

Programation(vb 5):
Voici ma programmation,

Private Sub Command1_Click()
Shape1.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text)
If Val(Text1.Text) >= 256 Or Val(Text2.Text) >= 256 Or Val(Text3.Text) >= 256 Or Val(Text1.Text) <= -1 Or Val(Text2.Text) <= -1 Or Val(Text3.Text) <= -1 Then Label1.Caption = "Une des valeurs est trop grosse! Elles doivent se tenir entre 0 et 255." Else Label1.Caption = ""
End Sub

MErci d'avance pour vos réponses

3 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
essaye val(text1.text) <0 tout simplement, si ce ne marche pas, réponds à ce message

DARK SIDIOUS
0
Messages postés
31
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
20 juin 2003

:shock) T'inquiète j'ai dejas esseye au part avant

et ca me dis | Erreur d'execution '5';
Argument ou procédure incorecte
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Essaie :
Text1.Text = (Val(Text1.Text) + 256) Mod 256

au lieu de -1 tu auras 255
0