le noobs
Messages postés20Date d'inscriptionsamedi 27 mai 2006StatutMembreDernière intervention22 octobre 2013
-
23 avril 2007 à 18:50
le noobs
Messages postés20Date d'inscriptionsamedi 27 mai 2006StatutMembreDernière intervention22 octobre 2013
-
23 avril 2007 à 19:51
bonjour , voila j'ai fait ce programme et j'ai aucune réponse qui s'affiche dans mon label de réponse ... je pense que le code est bon ... qu'est-ce que j'aurais bien pu oublié ou négligé .... merçi , je précise que j'aimerais rester dans cette etat d'esprit au niveau de la logique et du déroulement de ce programme
-----------------------------------------------------------------------
Private Sub cmdc_Click()
lblr.Caption = ""
Select Case frb
Case opteb.Value = True
If optec.Value = True Then
lblr.Caption = tempon
Else
If optdc.Value = True Then
lblr.Caption = tempon * 1.36
Else
lblr.Caption = tempon * 0.68
End If
End If
Case optdb.Value = True
If optec.Value = True Then
lblr.Caption = tempon * 0.73
Else
If optdc.Value = True Then
lblr.Caption = tempon
Else
lblr.Caption = tempon * 0.5
End If
End If
Case optlsb.Value = True
If optec.Value = True Then
lblr.Caption = tempon * 1.47
Else
If optdc.Value = True Then
lblr.Caption = tempon * 2
Else
lblr.Caption = tempon
End If
End If
End Select
-----------------------------------------------------------------------
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 23 avril 2007 à 19:46
Pour ce qui est de mon code, tu as juste la Sub Init à rajouter, ensuite au lieu de faire Call Form_Load, tu fais Call Init
Ensuite pour ce qui est de tes Select Case, c'est vrai que c'est pas évident à comprendre, je pense que le plus simple c'est que tu nous dises comment les cas doivent se vérifier (mais pas en code, avec des mots) avec tel ou tel contrôle.
Pour infos, voilà comment structurer un Select Case et un If :
Select Case TaVariable
Case "1"
' Ici ce qui est a faire
si TaVariable est égal à 1
Case "Bonjour"
' Ici ce qui est a
faire si TaVariable est égal à Bonjour
Case Else
' Ici les actiobns
à faire si aucun des cas précédant n'est vérifié
End Select
' Pour ce qui est du
If :
If TaVariable = "Bonjour" Then
' Ici ce qui est a faire
si TaVariable est égal à Bonjour
ElseIf TaVariable = "1" Then
' Ici ce qui est a faire si TaVariable est égal à
1
Else
' Ici
les actiobns à faire si aucun des If précédant n'est vérifié
End If
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 23 avril 2007 à 19:02
Tu met un point d'arrêt sur la ligne --> lblr.Caption = ""
(il suffit de sélectionner cette ligne, et d'appuyer sur F9 ), ensuite lance ton programme avec F5, clique sur le bouton concerné,
VB va s'arrêter sur cette ligne.
T'as plus qu'à appuyer sur F8 pour exécuter ton code en Pas à Pas (ligne par ligne) afin de voir ce qui cloche
@++
<hr size ="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
le noobs
Messages postés20Date d'inscriptionsamedi 27 mai 2006StatutMembreDernière intervention22 octobre 2013 23 avril 2007 à 19:18
Public tempon As Integer
Private Sub cmdc_Click()
lblr.Caption = ""
Select Case frb
Case opteb.Value = True
If optec.Value = True Then
lblr.Caption = tempon
Else
If optdc.Value = True Then
lblr.Caption = tempon * 1.36
Else
lblr.Caption = tempon * 0.68
End If
End If
Case optdb.Value = True
If optec.Value = True Then
lblr.Caption = tempon * 0.73
Else
If optdc.Value = True Then
lblr.Caption = tempon
Else
lblr.Caption = tempon * 0.5
End If
End If
Case optlsb.Value = True
If optec.Value = True Then
lblr.Caption = tempon * 1.47
Else
If optdc.Value = True Then
lblr.Caption = tempon * 2
Else
lblr.Caption = tempon
End If
End If
End Select
End Sub
Private Sub cmdr_Click()
Call Form_Load
Tout est là .... c juste que je suis bloqué ... mais te casse pas la tête je vais me demerder ... j'ai deja galèrer pour faire tout ca :)
peaceeee
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 23 avril 2007 à 19:29
Salut DjFlyiA "ben tu dit rien et tu gardes la pêche. merçi quand même"
Je veux bien... moi...
Mais apparemment tu n'as même pas lu (ou compris...)
Je vois que tu continues à faire un select case de ce qdont tu n'utilises pas la valeur !!!
Celà continue donc à être sans aucine cohérence .....
Un peu comme si tu disais :
Examinons le cas des légumes que j'achète :
si la viande alors...
si le poisson, alors...
etx... sans jamais parler des différents légumes concernés.
Débutant ou pas : bonne chance dans la logique de tes réflexions, ma foi.
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 23 avril 2007 à 19:43
Comment veux-tu qu'on le devine, si l'on ne sait même pas comment (et quoi) tu veux traiter en fonctions des valeurs de frb !!!
Je crois que tu ferais mieux de nous exposer ton algorithme (écris-le d'abord) en français (sans code) d'abord... afin que l'on y voie clair (ce qui n'est pas encore le cas), plutôt que d'aligner un code "décousu".
le noobs
Messages postés20Date d'inscriptionsamedi 27 mai 2006StatutMembreDernière intervention22 octobre 2013 23 avril 2007 à 19:46
je te remercie c'est bon mec , à l'aiz j'ai un potte qui est venu chez moi pour m'aider... il va gèrer les explications , dsl de ne pas etre logique comme vous tous "programmeur" mais j'essaye... aller à plus le pro
le noobs
Messages postés20Date d'inscriptionsamedi 27 mai 2006StatutMembreDernière intervention22 octobre 2013 23 avril 2007 à 19:51
merçi mec j'ai vu clair dans l'affaire ... mais je tient a dire au professionel que meme avec se code j'y etais presque c'etais une bricole ... merçi a plus tous le monde ... peaceeee