cs_mabrouklepoux
Messages postés84Date d'inscriptionlundi 6 novembre 2000StatutMembreDernière intervention25 juillet 20081 26 déc. 2006 à 12:27
juste une remarque pour ken (340.3 c'est dans l'air, or là on à un mélange air/eau, donc à priori plus rapide, Vs dans eau = 1400 et des patates). quoi qu'il en soit, c'est un peu "je savais pas quoi dire alors je dis ca", que d'arranger à meme pas un %... bon, ok, moi aussi j'ai pas gd chose à apporter ! la vitesse du son sous la pluie est inapproximable. on peut juste conjecturer qu'elle sera > 340, et que plus il pleuvra, plus elle le sera.
La culture c'est comme la confiture ...
à part ca, il est marrant ce code
Mabrouk, Spécialiste Es question dont tout le monde se fout
vbromanoff
Messages postés26Date d'inscriptionjeudi 21 août 2003StatutMembreDernière intervention27 septembre 2014 29 nov. 2006 à 12:30
Oui, je sais bien : au Burkina non plus les orages ne sont pas plus rectilignes... mais si tu lis l'ensemble des commentaires qui ont été déposés, tu te rendras compte que Jupiter, à défaut d'être pris en compte dans les calculs, a au moins fait l'objet d'une prise de conscience de leur biaisement. Cf. mon comment à ECONS : "ECONS, oui je sais bien que la précision est très médiocre : en plus de la position de l'éclair dans le nuage il y a aussi l'aspect du trajet du nuage ou du changement de la vitesse ou de la direction du vent qui biaisent le calcul par exemple."
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 23 nov. 2006 à 22:10
Ouais ...
Je vois que dans ce monde dans lequel les situations sont de plus en plus souvent anarchiques, on trouve encore (au moins...) des choses qui avancent tout droit et au pas cadencé, sans jamais penser à s'arrêter pour souffler ( ou tonner ?).
Je dois être très malchanceux car (notamment au Gabon) j'ai souvent vu un orage faire du surplace malencontreux pendant plus d'une demie-heure...à moins de 400 mètres au-dessus de ma maison. J'en ai même vu un faire un large cercle et revenir après s'être éloigné.
Et le chef d'orchestre (M. Jupiter) ? je ne le vois pas dans ces calculs (et pourtant.... il devrait être bien présent, avec ses caprices....)
cs_RENAUD34
Messages postés18Date d'inscriptionlundi 17 mai 2004StatutMembreDernière intervention 4 octobre 2007 2 oct. 2006 à 10:45
pensez à mettre un onduleur ou une prise anti-foudre avant de vous amuser avec vos ordis les jours d'orage...
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 1 oct. 2006 à 21:18
Bonsoir à tous,
C'est un peu comme on évalue la distance d'un orage, de tête ?!
Vous savez comment faire ?
Il suffit de compter à partir de l'éclair, le temps en seconde au coup de tonnerre ; puis de multiplier par 3, puis par 100. Et on obtiens la distance approximative à l'orage à soi, en mètre... Bien sur, on peut faire un peu plus précis : utiliser un chronomètre, et multiplier par 340 m/s et des brouettes (vitesse du son)...
L'idée est originale, et serait très sympas dans un tuto sur VB. Je retiens, et je note 10 ! pour encouragement aussi.
Bon, maintenant tout a été dit sur le typage des données : c'est à reprendre. JE pense qu''il faudrait aussi OPTION EXPLICIT, pour bien faire...
Je pense également que le "DoEvents" est un peu superflu ici.
Amicalement,
Us.
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 30 sept. 2006 à 12:44
Salut, Cstr convertit une expression numérique en srtring.
Par exemple, dans "texte6 = Text2.Text - dis2", on attribue la valeur du texte de Text2.text + la valeur de dis2 à text6.
J'ai estimé que Text6 devait être une string (vu son nom), mais en fait, c'est ambigüe :
Si text6 est une valeur numérique, alors inutile d'utiliser Cstr. Mais si c'est une string, alors on n'affecte généralement pas directement une valeur numérique, bien que VB l'accepte, mais on attribue une string (qui a été obtenue par conversion de la valeur numérique à l'aide de Cstr).
Donc il y a des problèmes lors des déclarations de variables : tout est du Variant, on ne sait pas quelles sont les variables utilisées en String et les variables utilisées en Double.
Je conseille de mettre une minuscule devant le nom de la variable, pour réperer facilement son type.
Ex :
Dim sMaString As String
Dim bChoix As Boolean
Dim iVar As Integer
Dim dCalcul As Double
....
@+
vbromanoff
Messages postés26Date d'inscriptionjeudi 21 août 2003StatutMembreDernière intervention27 septembre 2014 30 sept. 2006 à 12:30
Tout d'abord merci pour vos commentaires ; mais j'ai toujours eu des soucis de propreté de mes codes ; en ce moment l'appli que je développe est énorme et je m'y perds tellement il y a de Call et de fonctions partout...
VIOLENT_KEN, à quoi correspond le "Cstr" dans "sTexte=Cstr(Val(Text2.Text)-dis2)" ?
ECONS, oui je sais bien que la précision est très médiocre : en plus de la position de l'éclair dans le nuage il y a aussi l'aspect du trajet du nuage ou du changement de la vitesse ou de la direction du vent qui biaisent le calcul par exemple.
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 30 sept. 2006 à 00:27
(je tiens juste à rectifier mes fautes dans mon post précédent)
* Salut, "Dim sec1, sec2, dis1, dis2, resultat, texte6" est plutôt mal codé.
* 340.3 est déjà mieux
Voilà, @+
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 30 sept. 2006 à 00:19
Salut,
Si un éclair se produit à l'avant du nuage, puis ensuite un autre à l'arrière, tu auras l'impression que le nuage s'éloigne, alors que ce n'est pas forcément le cas.
Cette évaluation ne peut être valable que si les éclairs ont toujours lieu au même endroit dans le nuage.
Sinon, mêmes remarques que Violent_Ken. Heureusement que VB fait n'importe quoi avec les typages, çà permet de faire fonctionner malgré tout ton programme.
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 29 sept. 2006 à 13:42
Salut, "Dim sec1, sec2, dis1, dis2, resultat, texte6" est plutôt. Le Variant est un type qui ne doit pas être utilisé dans ce genre de cas.
Du code du genre
texte6 = Text2.Text - dis2
est très peu propre.
Mieux vaut
Dim sTexte As String
sTexte=Cstr(Val(Text2.Text)-dis2)
Et 340 est une valeur très approximative de la vitesse du son. (340.3 est dékà mieux).
@+
clubpsr
Messages postés21Date d'inscriptionsamedi 15 février 2003StatutMembreDernière intervention 2 septembre 2008 29 sept. 2006 à 10:13
Cela change des programmes informatiques pour l'informatique. Voilà au moins une autre application concrète de ce que peut apporter un ordinateur.
Je n'ai pas pu l'essayer en vraie grandeur mais comme un ordinateur doit (dans la mesure du possible) faire les chose automatiquement pourquoi ne pas automatiser les 2 boutons "Éclair", "Tonnerre" ? Une Webcam qui détecte l'éclair et un micro qui détecte le son, plus un petit graphique des mesures avec une modélisation de l'évolution des distances. Voilà avec tout ça on frisera la perfection.
26 déc. 2006 à 12:27
La culture c'est comme la confiture ...
à part ca, il est marrant ce code
Mabrouk, Spécialiste Es question dont tout le monde se fout
29 nov. 2006 à 12:30
23 nov. 2006 à 22:10
Je vois que dans ce monde dans lequel les situations sont de plus en plus souvent anarchiques, on trouve encore (au moins...) des choses qui avancent tout droit et au pas cadencé, sans jamais penser à s'arrêter pour souffler ( ou tonner ?).
Je dois être très malchanceux car (notamment au Gabon) j'ai souvent vu un orage faire du surplace malencontreux pendant plus d'une demie-heure...à moins de 400 mètres au-dessus de ma maison. J'en ai même vu un faire un large cercle et revenir après s'être éloigné.
Et le chef d'orchestre (M. Jupiter) ? je ne le vois pas dans ces calculs (et pourtant.... il devrait être bien présent, avec ses caprices....)
2 oct. 2006 à 10:45
1 oct. 2006 à 21:18
C'est un peu comme on évalue la distance d'un orage, de tête ?!
Vous savez comment faire ?
Il suffit de compter à partir de l'éclair, le temps en seconde au coup de tonnerre ; puis de multiplier par 3, puis par 100. Et on obtiens la distance approximative à l'orage à soi, en mètre... Bien sur, on peut faire un peu plus précis : utiliser un chronomètre, et multiplier par 340 m/s et des brouettes (vitesse du son)...
L'idée est originale, et serait très sympas dans un tuto sur VB. Je retiens, et je note 10 ! pour encouragement aussi.
Bon, maintenant tout a été dit sur le typage des données : c'est à reprendre. JE pense qu''il faudrait aussi OPTION EXPLICIT, pour bien faire...
Je pense également que le "DoEvents" est un peu superflu ici.
Amicalement,
Us.
30 sept. 2006 à 12:44
Par exemple, dans "texte6 = Text2.Text - dis2", on attribue la valeur du texte de Text2.text + la valeur de dis2 à text6.
J'ai estimé que Text6 devait être une string (vu son nom), mais en fait, c'est ambigüe :
"texte6 = Text2.Text - dis2
Text6.Text = Abs(texte6)"
Si text6 est une valeur numérique, alors inutile d'utiliser Cstr. Mais si c'est une string, alors on n'affecte généralement pas directement une valeur numérique, bien que VB l'accepte, mais on attribue une string (qui a été obtenue par conversion de la valeur numérique à l'aide de Cstr).
Donc il y a des problèmes lors des déclarations de variables : tout est du Variant, on ne sait pas quelles sont les variables utilisées en String et les variables utilisées en Double.
Je conseille de mettre une minuscule devant le nom de la variable, pour réperer facilement son type.
Ex :
Dim sMaString As String
Dim bChoix As Boolean
Dim iVar As Integer
Dim dCalcul As Double
....
@+
30 sept. 2006 à 12:30
VIOLENT_KEN, à quoi correspond le "Cstr" dans "sTexte=Cstr(Val(Text2.Text)-dis2)" ?
ECONS, oui je sais bien que la précision est très médiocre : en plus de la position de l'éclair dans le nuage il y a aussi l'aspect du trajet du nuage ou du changement de la vitesse ou de la direction du vent qui biaisent le calcul par exemple.
30 sept. 2006 à 00:27
* Salut, "Dim sec1, sec2, dis1, dis2, resultat, texte6" est plutôt mal codé.
* 340.3 est déjà mieux
Voilà, @+
30 sept. 2006 à 00:19
Si un éclair se produit à l'avant du nuage, puis ensuite un autre à l'arrière, tu auras l'impression que le nuage s'éloigne, alors que ce n'est pas forcément le cas.
Cette évaluation ne peut être valable que si les éclairs ont toujours lieu au même endroit dans le nuage.
Sinon, mêmes remarques que Violent_Ken. Heureusement que VB fait n'importe quoi avec les typages, çà permet de faire fonctionner malgré tout ton programme.
29 sept. 2006 à 13:42
Du code du genre
texte6 = Text2.Text - dis2
est très peu propre.
Mieux vaut
Dim sTexte As String
sTexte=Cstr(Val(Text2.Text)-dis2)
Et 340 est une valeur très approximative de la vitesse du son. (340.3 est dékà mieux).
@+
29 sept. 2006 à 10:13
Je n'ai pas pu l'essayer en vraie grandeur mais comme un ordinateur doit (dans la mesure du possible) faire les chose automatiquement pourquoi ne pas automatiser les 2 boutons "Éclair", "Tonnerre" ? Une Webcam qui détecte l'éclair et un micro qui détecte le son, plus un petit graphique des mesures avec une modélisation de l'évolution des distances. Voilà avec tout ça on frisera la perfection.
Encore bravo pour l'idée (pourtant toute bête)