alexfer01
-
Modifié par BunoCS le 6/02/2014 à 21:37
Zermelo
Messages postés378Date d'inscriptionsamedi 22 septembre 2012StatutMembreDernière intervention13 août 2017
-
12 févr. 2014 à 14:02
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
''' <summary>
''' Vérifie les quatres textbox de la page, regarde si elles sont remplies et si des nombres ont été entrés
''' </summary>
''' <returns>Vrai si pas d'erreur, faux si une erreur</returns>
''' <remarks></remarks>
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
''' <summary>
''' Calcule les coordonnées d'un vecteur en fonction de Xa, Xb, Ya, et Yb
''' </summary>
''' <param name="Xa">Xa</param>
''' <param name="Xb">Xb</param>
''' <param name="Ya">Ya</param>
''' <param name="Yb">Yb</param>
''' <remarks></remarks>
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
A voir également:
Calculer les coordonnées d'un vecteur a partir de 2 points
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 8 févr. 2014 à 10:42
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) !
Salut juste pourrai tu me dire de que tu veux dire par chaîne de caractère
Whismeril
Messages postés18991Date d'inscriptionmardi 11 mars 2003StatutContributeurDernière intervention27 mars 2024654 8 févr. 2014 à 13:21
Bonjour alexfer, il y'a des bases qu'il faut acquérir avant de commencer à développer un logiciel.
La chaine de caractères est le stockage dans une variable d'un "assemblage" de caractères, mis côte à côte.
Il s'agit du type string en vb et dans la plupart des langages.
tu trouveras un tutoriel ici, qui reprend au chapitre 4 une base sur les types de variables.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 Modifié par ucfoutu le 8/02/2014 à 13:21
" 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
Messages postés378Date d'inscriptionsamedi 22 septembre 2012StatutMembreDernière intervention13 août 201714 12 févr. 2014 à 13:13
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 Sub
End Class
Cordialement.
Zermelo
Messages postés378Date d'inscriptionsamedi 22 septembre 2012StatutMembreDernière intervention13 août 201714 12 févr. 2014 à 13:22
C'est par erreur que j'ai posté le message précédent à Whismeril. Il est en réalité destiné à alexfer01.
Toutes mes excuses.
Salut zermelo en effet je suis arrivé à un code proche du tient
En fait Mon souci qui es à la cause de mon problème est en fait que sur le Pc j'ai deux version de visual studio et je pense que le problème et aussi du à ça donc la j'ai tout des installer et je suis e train de réinstaller la version ultimate de 2010
Zermelo
Messages postés378Date d'inscriptionsamedi 22 septembre 2012StatutMembreDernière intervention13 août 201714 12 févr. 2014 à 14:02
Je te salue au passage ucfoutu, et te présente mes amitiés. Mais de grâce, ne me dis pas que tu es vieux ! Souviens-toi que nous avons le même âge ! À propos, as-tu des nouvelles de banana32 ?
8 févr. 2014 à 12:37
8 févr. 2014 à 13:21
La chaine de caractères est le stockage dans une variable d'un "assemblage" de caractères, mis côte à côte.
Il s'agit du type string en vb et dans la plupart des langages.
tu trouveras un tutoriel ici, qui reprend au chapitre 4 une base sur les types de variables.
Bonne lecture