logiciel qui a partir de 2 points donne les coordonnées d'un vecRésolu

Question

Bonjour a tous je suis nouveau dans le monde de la programmation et comme l'indique le titre je cherche avec visual basic 2010 a crée un logiciel qui en entrant les coordonnées de 2 points renverait les coordonnées du vecteur coorespondant j'aimerais que mon logiciel ressemble a cela:un bouton calculer et 4 texte box qui permettrai de renter les cordonnées des 2 points et enfin faire ne sorte que si l'utilisateur rentre des lettres au lieu de chiffre un message erreur apparait. j'ai deja fais un code (je sais pas si c'est trops juste) mais je n'arrive pas a finir au niveau de la formule de la fin ou les soustraction me bloque si vous pouviez m'aider se serait sympa a vous ;) merci Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Verification() Then Me.reponse.Text = "Les coordonnées du vecteur seront: " & Calcul(Me.Xa, Me.Xb.Text, Me.Ya, Me.Yb) & "?" Else Me.erreur.Visible = True End If End Sub '''

''' Vérifie les quatres textbox de la page, regarde si elles sont remplies et si des nombres ont été entrés '''

''' Vrai si pas d'erreur, faux si une erreur ''' Function Verification() As Boolean Dim Bon As Boolean = True If Me.Xa Is Nothing Or Not IsNumeric(Me.Xa) Then Bon = False End If If Me.Xb Is Nothing Or Not IsNumeric(Me.Xb) Then Bon = False End If If Me.Ya Is Nothing Or Not IsNumeric(Me.Ya) Then Bon = False End If If Me.Yb Is Nothing Or Not IsNumeric(Me.Yb) Then Bon = False End If Return Bon End Function '''

''' Calcule les coordonnées d'un vecteur en fonction de Xa, Xb, Ya, et Yb '''

''' Xa ''' Xb ''' Ya ''' Yb ''' Function Calcul(ByVal Xa As Double, ByVal Xb As Double, ByVal Ya As Double, ByVal Yb As Double) As Double Dim coordonnées As Double coordonnées = (Xa Soustraction Xb) And (Xb - Yb) Return coordonnées End Function Private Function Calcul(ByVal textBox As TextBox, ByVal p2 As String, ByVal textBox1 As TextBox, ByVal textBox2 As TextBox) As String Throw New NotImplementedException End Function End Class

BunoCS · Answer

Hello,

Je me suis permis d'éditer ton message afin d'ajouter les balises code. On gagne beaucoup en lisibilité. Plus d'infos ici

alexfer01 · Answer

merci pour cela BrunoCS
aurait tu une idée pour modifier la ligne 44 car je ne sais pas comment symboliser la soustraction et mon probleme est en partie la car sur visual basic a se niveau du code il me dit que que c'est "expected" et je sais pas ce que cela veut dire .
ou alors le problème viendrait de la ligne 41 42 
merci

BunoCS · Answer

Je ne fais pas de VB, mais:
- tu dis que coordonnées est un Double. J'en doute... 
- une petite faute de frappe. Les coordonnées d'un vecteur sont, si je ne m'abuse: (Xb - Xa) , (Yb - Ya)

jordane45 · Answer

Bonjour,

Qu'est censé faire le AND de ton calcul ?
-> AND permet de faire des tests LOGIQUES
-> Si tu veux faire de la concaténation essayes plutot avec le " & "


Que représente "soustraction" ?
Un " - " ne suffirait pas ?

ucfoutu · Answer

Bonjour,
J'ai pour ma part des difficultés à comprendre ce que sont les coordonnées d'un vecteur.
Les coordonnées ne peuvent que concerner un point.
 Un vecteur est délimité par deux points (donc deux fois des coordonnées).
Que veut alors très exactement dire :
"en entrant les coordonnées de 2 points renverait les coordonnées du vecteur coorespondant" 
????
Si ces deux points sont les extrémités, on en connaît déjà, par définition, les coordonnées.
Si ces deux points ne sont pas les extrémités d'un vecteur, ils ne sauraient que permettre de déterminer l'équation linéaire de la droite à laquelle ils appartiennent. Or, une droite est infinie  et je vois mal comment on pourrait savoir à quel vecteur de cette droite (elle en comporte une infinité) on pourrait dire que ces deux points appartiennent.
Je suis donc perplexe et crois que tu n'a pas su exposer clairement ton problème. Peux-tu essayer d'être plus précis ?

 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

alecfer01 · Answer

voila je viens de modifier comme ce que tu as mis BrunoCS mais maintenand une nouvelle erreur s'afiche au niveau de
                              , (Xb - Yb)
il me dit "end of statement expected" ça veut dir quoi en comment y remédier?

NHenry · Answer

Bonsoir,

Concernant le code :
En VB.NET pensez à activer "Option Explicit" et "Option Strict"
De plus, retire l'import automatique de l'espace de nom "Microsoft.VisualBasic" (onglet "Références" dans les propriétés du projet).

Ensuite, corriges un peu ton code : 
IsNumeric -> Double.TryParse (ou Integer.TryParse, ...)

jordane45 · Answer

Perso, pour le retour de la fonction j'utiliserai STRING.


Et pour le "calcul".. un truc du genre :

Co1 = xb - xa
Co2 = yb - ya
Coordonnees = Co1 & "," & Co2

alecfer01 · Answer

salut a tous en effet je viens d'esayer ta solution jordane45 qui est apparament juste mais juste comme dans mon code avant je n'ai jamais utilisé Co1 et Co2 il me met un message d'erreur que ce n'est pas declared donc ou faut t'il que je rajoute c'est deux variable

alecfer01 · Answer

HHenry je n'ai pas tout a fait saisi ce que vous vouliez dire par 

En VB.NET pensez à activer "Option Explicit" et "Option Strict" 
De plus, retire l'import automatique de l'espace de nom "Microsoft.VisualBasic" (onglet "Références" dans les propriétés du projet). 

j'ai une version anglaise et malheureusement je ne trouve pas cet onglet
de plus ou activetons  "Option Explicit" et "Option Strict" 
merci  de votre aide

cs_ShayW · Answer

Bonjour
le tool bar 
project ->en bas properties> compile 
et change option strict ON et option explicit On
ensuite  tu as l'onglet reference  clique dessus
dans la listbox en bas tu as une liste des réferences coché
décoche microsoft visual basic 


isnumeric n'est pas utilisé en vb.net
tu as le integer.tryparse qui converti un string en integer si
celui ci est numerique 
ex dim ref as integerif interger.tryparse("2233",ref) then   elseend if

cs_ShayW · Answer

aussi je te conseille de suivre ce cours 

http://plasserre.developpez.com/cours/vb-net/
bon courage

ucfoutu · Answer

Excusez-moi, mais je reste "largué".
S'agit-il ?
1) de la recherche de la méthode/calculs mathématique adaptée ?
Et dans ce cas : impossible de répondre si n'est pas définie la "correspondance" en cause, qui peut être le résultat, entre autres, d'une projection (d'un type défini), d'une translation, d'une rotation, d'une homothétie, etc ...)
 2) si ce n'est pas le point 1) qui pose problème :
----a) est-ce l'écriture des instructions pour appliquer ces calculs (donc déjà arrêtés et connus, quel que soit leur objet), qui pose problème ?
pourquoi alors avoir même parlé d'autres choses que d'opérations à écrire en code (qu'elles concernent ou non des vecteurs) ?
----b) est-ce simplement une  représentation visuelle du résultat final sous forme d'une chaîne de caractères concaténant divers résultats et des signes (parenthèses, virgule) , qui pose problème ?
et dans ce cas, la question aurait simplement être "comment construire une chaîne de caractères composée de valeurs de variables et d'autres caractères ?"; sans même parler de calculs et encore moins de vecteurs


PS : en informatique, on utilise en général une structure pour définir un vecteur

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

alexfer01 · Answer

re a tous en fait je veux simplement calculer a partir de 2 points donnés les coordonnées d'un vecteur 
en gros j'ai réaliser ce programme sur une calculette 
en definissant
 4 variable
et le calul Xa-Ya et Xb-Yb
et ça sort le resultat sous la forme 
coordonnées du vecteur (X;Y)

alexfer01 · Answer

j'ai donc aprés modification obtenu se code mais le message erreur reste en permanence afficher comme pour Les coordonnées du vecteur seront:
et de plus quand je clique sur calculer rien ne se passe

alexfer01 · Answer

j'ai maintenad ce code Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Verification() Then Me.reponse.Text = "Les coordonnées du vecteur seront: " & Calcul(Me.Xa, Me.Xb.Text, Me.Ya, Me.Yb) & "?" Else Me.erreur.Visible = True End If End Sub '''

''' Vérifie les quatres textbox de la page, regarde si elles sont remplies et si des nombres ont été entrés '''

''' Vrai si pas d'erreur, faux si une erreur ''' Function Verification() As Boolean Dim Bon As Boolean = True If Me.Xa Is Nothing Or Not IsNumeric(Me.Xa) Then Bon = False End If If Me.Xb Is Nothing Or Not IsNumeric(Me.Xb) Then Bon = False End If If Me.Ya Is Nothing Or Not IsNumeric(Me.Ya) Then Bon = False End If If Me.Yb Is Nothing Or Not IsNumeric(Me.Yb) Then Bon = False End If Return Bon End Function '''

''' Calcule les coordonnées d'un vecteur en fonction de Xa, Xb, Ya, et Yb '''

''' Xa ''' Xb ''' Ya ''' Yb ''' Function Calcul(ByVal Xa As Double, ByVal Xb As Double, ByVal Ya As Double, ByVal Yb As Double) As Double Dim coordonnées coordonnées = Xb - Xa & "," & Yb - Ya Return CDbl(coordonnées) End Function Private Function Calcul(ByVal textBox As TextBox, ByVal p2 As String, ByVal textBox1 As TextBox, ByVal textBox2 As TextBox) As String Throw New NotImplementedException End Function End Class

ucfoutu · Answer

Désolé, mais je persiste et signe à ne pas comprendre :
"en fait je veux simplement calculer a partir de 2 points donnés les coordonnées d'un vecteur" 
les coordonnées de QUEL vecteur ? défini comment ?
Ou je suis complètement débile, ou ... (!!!) ...

ucfoutu · Answer

Et lorsque je lis ceci :
Function Calcul(ByVal Xa As Double, ByVal Xb As Double, ByVal Ya As Double, ByVal Yb As Double) As Double
Dim coordonnées
coordonnées = Xb - Xa & "," & Yb - Ya
Return CDbl(coordonnées)

j'ai un oeil qui "joue à belbètche" et l'autre qui "marque les points" !
(un salut amical à ceux qui connaissent cette expression bien de chez moi ! Ils sont aujourd'hui probablement très peu nombreux, pour ne pas dire extrêmement rares).

jordane45 · Answer

Je ne comprends toujours pas où est la difficulté..

Je t'ai demandé de transformer le retour de ta fonction en STRING ...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.reponse.Text = "Les coordonnées du vecteur seront: " & Calcul(Me.Xa.Text, Me.Xb.Text, Me.Ya.Text, Me.Yb.Text) & "?"

End Sub

Function Calcul(ByVal Xa, ByVal Xb, ByVal Ya, ByVal Yb) As String
        Dim coordonnees As String
        coordonnees = (Xb - Xa) & "," & (Yb - Ya)
        Return coordonnees
    End Function

cgsi3 · Answer

Bonjour a tous,
Juste pour info, a tout ceux qui possède le framework 4.5,
la structure vector est dédié a cela (elle fonctionne avec des Double)

http://msdn.microsoft.com/en-us/library/system.windows.vector(v=vs.110).aspx

La structure Point, quand a elle ne se limite qu'au integer

http://msdn.microsoft.com/fr-fr/library/system.drawing.point(v=vs.110).aspx

mais les méthodes des 2 structures sont complémentaires en vérifiant bien la précision des résultats voulus


A signaler aussi la fonction ToString
Dim vector1 As New Vector(20, 30)

' vectorString is equal to "20,30".
Dim stringResult As String = vector1.ToString()

ucfoutu · Answer

Bonjour, cgsi3,
Il est certain (voir mon post-scriptum dans mon message du  7 févr. 2014 à 06:25) qu'une structure (existante ou que l'on peut définir) ad hoc est ce qui convient.
Mais plus on avance dans la discussion et plus on a le sentiment qu'il veut simplement afficher une chaîne de caractères de représentation du vecteur et que son problème est alors tout bêtement celui de la cvonstruct-ion d'une chaîne par concaténation de valeurs/variables et de caractères (le B.A.BA, donc) !

ucfoutu · Answer

" Salut juste pourrai tu me dire de que tu veux dire par chaîne de caractère"

La question que tu poses là est analogue à celle que poserait un "pêcheur" à un autre et qui serait :
"pourrais-tu me dire ce qu'est un hameçon ?" 
ou encore :
"peux-tu m'expliquer ce qu'est la différence entre ce que je pêche et ce dans quoi je pêche ?" 
Non, mais ...Vraiment ?
"aaaaa" est une chaîne de caractères
3 est un numérique
listbox est un objet listbox
etc ...

"3" est une chaîne de caractères
une variable x contient, selon son type, une chaîne de caractères ou un numérique, etc ...
Et ceci : quel que soit le langage de développement utilisé !

Je te laisse là, personnellement, si tu le veux bien, hein ...(suis vieux, fatigué, et peu près à transformer cette discussion en enseignement des bases ...). Excuse-moi.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Zermelo · Answer

Bonjour Whismeril.

Je considère deux points P et Q, ainsi que le vecteur V = Q - P. Sur un formulaire nommé "Accueil", je dépose
- un contrôle tBoxPx As TextBox, pour saisir l'abscisse xp du point P
- un contrôle tBoxPy As TextBox, pour saisir l'ordonnée yp du point P
- un contrôle tBoxQx As TextBox, pour saisir l'abscisse xq du point Q
- un contrôle tBoxQy As TextBox, pour saisir l'ordonnée yq du point Q
- un contrôle tBoxVx As TextBox, pour afficher la composante horizontale xv du vecteur V
- un contrôle tBoxVy As TextBox, pour afficher la composante horizontale yv du vecteur V
- un contrôle bClc As Button, dont la propriété Text est "Calculer"
Puis j'écris le code suivant, et je le teste.

Public Class Accueil    Private Sub bClc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bClc.Click        Dim xp As Double, yp As Double, xq As Double, yq As Double, Ok As Boolean        Dim xv As Double, yv As Double        Ok = Double.TryParse(tBoxPx.Text, xp)        If Ok Then Ok = Double.TryParse(tBoxPy.Text, yp)        If Ok Then Ok = Double.TryParse(tBoxQx.Text, xq)        If Ok Then Ok = Double.TryParse(tBoxQy.Text, yq)        If Ok Then            xv = xq - xp : tBoxVx.Text = xv.ToString            yv = yq - yp : tBoxVy.Text = yv.ToString        Else            MessageBox.Show("Erreur de saisie")        End If    End SubEnd Class

Cordialement.

Logiciel qui a partir de 2 points donne les coordonnées d'un vec

23 réponses

Votre réponse

Discussions similaires