|
Une exigence de base de tout langage de programmation est la possibilité d'ajouter deux valeurs , si la valeur numérique ou les valeurs de chaîne . Visual Basic de Microsoft fournit ces deux fonctionnalités pour le programmeur . Pour les valeurs numériques , vous pouvez choisir n'importe quel nombre de types de données , y compris les nombres entiers, décimaux et d'autres , plus scientifiques, types . Quelle que soit la valeur que vous devez ajouter , Visual Basic doit être capable de gérer l'opération assez facilement. Instructions
Configuration initiale
1 démarrer l'application Visual Basic. Ouvrez votre projet existant ou cliquez sur "Nouveau projet ".
2 Déplacez votre curseur sur le menu Boîte à outils sur la gauche et double-cliquez sur deux zones de texte , un bouton et un label . Cela ajoute ces contrôles à votre formulaire dans la fenêtre de conception.
3 faites glisser les contrôles autour de la forme jusqu'à ce qu'elles soient bien alignées d'une manière qui semble organisée et logique. Les deux zones de texte tiendront saisie de l'utilisateur , l'étiquette recevra les résultats de votre code, et la touche réellement exécuter le code.
4 Double- cliquez sur le bouton sur le formulaire. La fenêtre de codage s'ouvre et l'éditeur Visual Basic positionnez votre curseur entre un cap procédure Sub et une ligne Sub End . Votre code sera entre ces lignes . Lorsque vous exécutez réellement votre programme, c'est le code qui sera exécuté lorsque vous cliquez sur le bouton.
Ajout de valeurs numériques
5 Pour ajouter des numéros , ajoutez le code suivant entre la ligne de procédure Sub et la ligne End Sub pour additionner deux nombres :
Dim Num1 , Num2 , TotalNum as Integer
Si textBox1.Text > Rien Puis
Textbox2.Text > Rien Puis
essayer et Num1.Focus ()
Num1 = Integer.Parse ( textBox1.Text )
Num2.Focus ()
Num2 = Integer.Parse ( Textbox2.Text )
TotalNum = Num1 + Num2
Label1.Text = TotalNum.ToString ()
Catch
MessageBox.Show (" Un certain nombre valide est nécessaire »)
Fin essayer et Else
MessageBox.Show (" Un nombre est nécessaire le deuxième champ " )
Return of Else
MessageBox.Show (" Un nombre est nécessaire dans le premier champ " )
Return of End If
l' instruction Dim déclare trois variables de type Integer, et le code suivant oblige l'utilisateur à entrer des valeurs numériques ou un message d' erreur est généré . En cliquant sur le bouton, le code à exécuter et analyser les chaînes de nombre d'opérations mathématiques par Visual Basic. Les chiffres sont additionnés et placés dans le champ de TotalNum , qui VB convertit ensuite à une valeur de chaîne et les lieux dans le champ Label1.Text .
6 Cliquez sur l'icône de la flèche verte pour déboguer votre projet. Votre formulaire doit ouvrir pour tester votre code.
7 Effectuer un test positif, qui est parfois appelé descendre le «chemin heureux . " Touche un certain nombre dans le premier champ et un certain nombre dans le deuxième champ. Cliquez sur le bouton . Vous devriez voir le résultat apparaître dans le champ de l'étiquette.
8 Effectuer un test négatif par des caractères alphabétiques de frappe dans un ou deux champs et cliquez sur le bouton . Vous devriez voir un message d'erreur pour tous les domaines où vous avez entré des caractères non numériques .
Ajout ( concaténation ) de chaînes de caractères
9 Insérez le code suivant entre la procédure sous tête et le End Sub ligne de fuite :
Si textBox1.Text > Rien Puis
Si Textbox2.Text > Rien Puis
Label1.Text = textBox1.Text & Textbox2.Text
Else
MessageBox.Show (" Une chaîne est nécessaire dans le deuxième champ " )
Return of Else
MessageBox.Show (" une chaîne est nécessaire dans le premier champ " )
Return of End If
Ce code vérifie que la valeur est entrée dans chaque champ puis enchaîne les deux chaînes , plaçant la chaîne résultante dans le domaine Label1.Text .
10 Cliquez sur la flèche verte pour déboguer votre projet. Votre formulaire doit ouvrir pour tester votre code.
11 Effectuer un test positif en tapant une chaîne dans le premier champ et une chaîne dans le second champ . Cliquez sur le bouton et le code doit virer les deux cordes ensemble et mettre le résultat dans le domaine Label1.Text .
12 Effectuer un test négatif en tapant rien dans un ou deux champs et cliquez sur le bouton . Vous devriez voir un message d'erreur pour un champ où tu n'as pas quelque chose touche
|
