Textbox numerique

[Résolu]
Signaler
Messages postés
61
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
28 mai 2008
-
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
-
bonjour a tous j'ai un plusieur textbox qui me retourne une comparaison de date et je voudrait quand le textbox et négatif faire clignoter un girophare(pour le giro sa marche) j'ai essayé sa mais sa marche pas








If
TextBox282.Text < 0

Then

Feux_rouge_al.Visible =




Not
(Feux_rouge_al.Visible)Feux_rouge_et.Visible =


True

Feux_vert_et.Visible =




False






End



If

6 réponses

Messages postés
61
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
28 mai 2008

bon du coup avec se code sa marche c'est mon feux rouge qui ne marcher pas
firstDate = TextBox293.Text


secondDate =




CDate
(firstDate)TextBox291.Text = DateDiff(DateInterval.Day, Now, secondDate)


' & " jours"






If
TextBox291.Text < 0

Then






''''''''Feux rouge clignotant'''''''''

Timer_feux_vert.Stop()


Feux_vert_et.Visible =




False

Feux_vert_al.Visible =




False

Timer_feux_rouge.Interval = 500




'

Timer_feux_rouge.Start()


Feux_rouge_al.Visible =




True

Feux_rouge_et.Visible =




True






''''''''''''''''''''''''''''''''''''''
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Bonjour,

la valeur d'un texte (string) est toujours au moins égale à 0 ...


Utilise donc Val
Messages postés
61
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
28 mai 2008

mais comment utiliser val en vb8?
Messages postés
61
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
28 mai 2008

Voila mon bout de code j'ai bien essayé avec des val mais rien a faire

firstDate = TextBox293.Text


secondDate =




CDate
(firstDate)TextBox291.Text = DateDiff(DateInterval.Day, Now, secondDate) &


" jours"






If
TextBox291.Text = -3

Then

Feux_rouge_al.Visible =




Not
(Feux_rouge_al.Visible)Feux_rouge_et.Visible =


True

Feux_vert_et.Visible =




False






End



If
Messages postés
12
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
25 novembre 2007

Bonjour,
dans ton code, ta Textbox291 aura comme texte des valeurs comme "1 jours", "-3 jours"... donc ta comparaison avec -3 sera toujours fausse ("-3 jours" different de "-3"). Pour résoudre ton pb, utilise plutôt une variable pour tes comparaisons. Par exemple:
FirstDate = TextBox293.Text

secondDate =CDate
(firstDate)

dim iDeltaDate as integer

iDeltaDate=DateDiff(DateInterval.Day, Now, secondDate)

TextBox291.Text = iDeltaDate & " jours"  'pour ton affichage

ifiDeltaDate
= -3
Then

Feux_rouge_al.Visible
not (Feux_rouge_al.Visible)Feux_rouge_et.Visible True

Feux_vert_et.Visible = False

End
If
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
mais comment utiliser val en vb8?
et
Thèmes /Visual Basic 6 / Divers / Débutants / textbox numerique




Chercher l'erreur...