begin process at 2012 02 16 04:39:49
  Trouver un code source :
 
dans
 
Accueil > 

Tutoriels

 > 

Tutoriaux

 > DÉBUTER EN VB

DÉBUTER EN VB


 Information sur le tutoriel

Note :
7 / 10 - par 8 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

 Description

Présentation pour débutant sur Visual Basic, comment passer de l'algo à Visual Basic

Tutorial

!!! Pensez à regarder mon précédent tutorial sur l’algorithmique en général pour pouvoir faire les comparaisons avec le VB !!!

 

 

I) Visual Basic.

 

Ce langage est développé par Microsoft, il est utilisé dans Word, Excel, Access pour automatiser les taches (VBA) Il existe aussi la logiciel VB basic (5.0, 6.0, 7.0 (VB .Net) pour développer ses propres logiciels.

 

VB utilise des projets regroupant toutes des informations utiles pour le programme que l'on souhaite créer. Il est mémorisé dans un fichier .vbp .Un programme va être mémorisé dans un module. Un module à l'extension ".bas".

 

On doit créer un projet par exercice

Penser à renommer les modules.

 

II) ALGO > VB.

Pour le type entier, on a soit "integer" qui permet de coder sur 2 octets, soit "long" sur 4 octets.

Pour le type "réel" il y a 2 choix: "Single" sur 4 octets, ou "Double" sur 8 Octets

Pour le type chaîne, c'est "string"

Pour le type booléen, c'est  "Boolean"

 

Pour le "+, -, *, /, ^", ils restent pareils

Le "Div" se dit "\"

Modulo = "mod"

Partie entière = "int"

"<, >, >=, <=" restent pareil

 

"&" reste pareil

 

Pour milieu: "mid"

Pour gauche, c'est "left"

Pour droite, c'est "right"

 

Pour le rang "InStr"

 

Pour le CV_chaîne, c'est "Str"

Pour le CV_nombre, c'est soit "val" soit "cint" soit "vlng" soit "cdec" soit "csng"

 

Pour le "non" c'est "not"

Pour le "et" c'est "and"

Pour le "ou" c'est "or"

 

Pour l'affectation, c'est le symbole "="

 

Pour le "saisir" c'est "inputbox" ("[a]=inputbox (["valeur à saisir"])

Pour afficher du texte dans le logiciel: "debug.print"" "

Pour afficher du texte sur une fenêtre d'erreur ou information: "msgbox "" "

 

 

III) Programme principal.

 

Algo nom

            Const

            Var

Debut

            Instructions

Fin

 

En VB ça devient :

 

Sub main ()

            Const1

            Const2

            Dim1

            Dim2

Instructions

End sub ()

 

 

 

 

 

IV) Les Structures de contrôle.

 

Si :

if test then

            actions

else

            actions

end if

 

 

Selon :  

Select case expression

            Case expression

                        Actions

            Case expression

                        Actions

            Case else

                        Actions

End select

 

 

Pour :

For var = expdeb to expfin [step exp_pas]

            actions

next var

 

 

 

Répéter :

Do

            Actions

Loop until test

 

 

 

tant que :

while test

            Actions

wend

 

 

 

V) Les fonctions/ les procédures.

Quand on utilise le paramètre "byval" cela signifie que la procédure l'utilisera mais ne modifiera pas sa valeur

Quand le paramètre est "byref", c'est l'adresse du paramètre qui est donné à la procédure, toutes modifications sur ce paramètre entraîneront une modification définitive de sa valeur.

 

Function Nom_fonction (byval Nom_param as type_param) as Type_fonction

            .

            .

            .

            Nom_fonction = expression

End function

 

 

Sub Nom_procedure (byref ou byval Nom_param as Type param)

            .

            .

            .

End Sub

 

 

 

 

VI) exemple.

 

Sub main ()

 

Dim vala As Integer

Dim valb As Integer

Dim valc As Integer

Dim total As Long

 

vala = Msgbox("Insérez la valeur a")

valb = Msgbox("Insérez la valeur b")

valc = Msgbox("Insérez la valeur c")

 

 

total = vala + valb + valc

 

MsgBox "La somme est égale à " & CStr(total) & "."

 

 

End Sub

 Historique

08 avril 2006 14:49:14 :
problème de police ^^
12 avril 2006 20:46:09 :
modification d'erreurs

Commentaires

Commentaire de econs le 12/04/2006 11:14:34 administrateur CS

> !!! Pensez à regarder mon précédent tutorial sur l’algorithmique en général pour pouvoir
> les comparaisons avec le VB !!!

Il s'agit ici de VOIR les comparaisons, pas de POUVOIR, ou à la rigueur de POUVOIR VOIR.


Le type retourné par une InputBox est STRING.

Quand tu fais la somme de tes éléments entrés à la main, il faudrait utiliser
total = Val(vala) + Val(valb) + Val(valc)
Mais VB arrive à faire ce genre de tour de magie.

Attention, es-tu sûr que la somme de 3 nombres de type Long est un nombre de type Long ??? A partir du moment où tu en additionnes 2, tu as un risque de dépassement de capacité.

De plus, dans le cas présent, si je rentre "a" ou "salut" dans l'inputbox, ben ... patatra !

Pour ton tutorial, ce que tu as mis suffit largement.
Mais il faut garder à l'esprit qu'un algorithme doit sans cesse être repensé, et que même quand c'est simple, çà nécessite de la réflexion. Ton dernier p'tit code peut ainsi facilement est mis à mal par un testeur.


Commentaire de blinix123 le 12/04/2006 20:44:08

Oui je sais, tu a raison on peut facilement me casser il n'y a pas d'erreur en soi, juste des choses a modifier si l'on veut faire un vrai programme, ici il s'agit d'un tuto pour débutant et je pense qua ca suffit, je n'ai pas mis les outils ou les codes de verifications de saisie de l'utilisateurs, sinon je rentre dans d'autres themes...! c'est un tutorial pour débutant fait par un débutant ^^

Commentaire de econs le 18/04/2006 11:04:27 administrateur CS

Y'a pas de mal à être débutant, on est tous passés par là un jour.
C'était juste une note pour dire que même quand c'est simple, çà doit être pensé et repensé.

Commentaire de draluorg le 08/05/2006 23:55:44

Salut a tous,

Ptite correction au passage.. lol


Dim ValA As Long
Dim ValB As Long
Dim ValC As Long
Dim Total As Double
Dim InputResult As String

InputResult = InputBox("Insérez la valeur a")
If Not IsNumeric(InputResult) Then MsgBox ("Valeur invalide!"): Exit Sub
ValA = CLng(InputResult)

InputResult = InputBox("Insérez la valeur b")
If Not IsNumeric(InputResult) Then MsgBox ("Valeur invalide!"): Exit Sub
ValB = CLng(InputResult)

InputResult = InputBox("Insérez la valeur c")
If Not IsNumeric(InputResult) Then MsgBox ("Valeur invalide!"): Exit Sub
ValC = CLng(InputResult)

Total = ValA + ValB + ValC

MsgBox "La somme est égale à " & CStr(Total)


++

Commentaire de jcharles78 le 07/12/2006 15:23:51

bonjour blinix123

concernant ton operation avec les chiffres a b c  le resultats es surprenant en addition
Dim a
Dim b
Dim c
a= inputbox("nombre a")
b=  Inputbox("nombre b")
c = Inputbox(" nombre c")
Total =(a+b+c )
Msgbox"le resultat est egale à " & Cstr(total)& ". "
quans je rentre a=10 , b=3, c=5 le resultat est 1035
alors que la soustraction disivion et multiplication fonctionnent
merci beaucoup pour ta réponse
a+

Commentaire de badraddine le 18/12/2006 15:34:09

bonjour SVP comment on peut charger un combo a partir d'un champ

Commentaire de charles78 le 21/12/2006 19:29:19

bonjour a toutes et tous

voila j ai un pb je travaille avec microsoft vissual basic ... celui qui es avec les macro sous word 2000  et a chaque fois que je test un prog que l on dit pour debutant en  "copier coller" ca ne fonctionne jamais  j aimerais avoir votre avis
merci de bien repondre

Commentaire de zananemohamed le 13/02/2007 21:25:35

Pour avoir la somme numèrique il faut déclarer a,b,c As Long

Commentaire de julienmcsd95600 le 02/01/2008 20:49:09


merci pour la correction ( draluorg )

Commentaire de steward le 22/10/2008 00:34:43

extrat

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,109 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales