Visual basic

Disponible uniquement sur Etudier
  • Pages : 5 (1138 mots )
  • Téléchargement(s) : 0
  • Publié le : 3 avril 2011
Lire le document complet
Aperçu du document
Visual basic = langage de programmation permettant de concevoir rapidement des applications sous Windows.
Opération de lecture
Inputbox (invite[,titre][,défaut])
Invite : message de la boîte
Titre : message dans la barre de titre
Défaut : est la valeur par défaut
Opération d’écriture
Msgbox (invite[,type bouton][,titre])

vbOKonly : OK | vbAbortRetryIgnore : Abandon, répéter et ignorer|
vbOKCancel : OK et annuler | vbYesNoCancel : oui, non et annuler |
vbYexNo : oui et non | vbCritical : Icône STOP |
vbRetryCancel : répéter et annuler | vbQuestion : icône ? |

Procédure = sous-programme qui permet de décomposer une tâche de programmation complexe en une suite de tâche plus simple.
IF : si
ELSE : sinon
ELSEIF : sinon si

Sub ech2v()
Dim aux As Integer
Dim a AsInteger
Dim b As Integer
a = InputBox("entrez la valeur de a:", "saisie", 0)
b = InputBox("entrez la valeur de b:", "saisie", 0)
aux = a
a = b
b = aux
msg = MsgBox("lanouvelle valeur de a est : " & a)
msg = MsgBox("la nouvelle valeur de b est : " & b)
End Sub

Sub ech3v()
Dim aux As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("entrez la valeur dea:", "saisie", 0)
b = InputBox("entrez la valeur de b:", "saisie", 0)
c = InputBox("entrez la valeur de c:", "saisie", 0)
aux = a
a = b
b = c
c = aux
msg = MsgBox("lanouvelle valeur de a est : " & a)
msg = MsgBox("la nouvelle valeur de b est : " & b)
msg = MsgBox("la nouvelle valeur de c est : " & c)
End Sub

Sub max2v()
Dim aux As Integer
Dim a As Integer
Dim b As Integera = InputBox("entrez la valeur de a:", "saisie", 0)
b = InputBox("entrez la valeur de b:", "saisie", 0)
If a > b Then
max = a
Else
max = b
End If
msg = MsgBox("le maximum est :" & max)
End Sub

Sub max3v()
Dim aux As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("entrez la valeur de a:", "saisie", 0)
b = InputBox("entrez la valeur de b:","saisie", 0)
c = InputBox("entrez la valeur de c:", "saisie", 0)
If a > b And a > c Then
max = a
ElseIf b >= a And b >= c Then
max = b
Else
max = c
End If
msg = MsgBox("le maximum est :" & max)
End Sub

Sub essay1()
Dim aux As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("entrez la valeur de a:", "saisie", 0)
b = InputBox("entrez la valeur deb:", "saisie", 0)
c = InputBox("entrez la valeur de c:", "saisie", 0)
If a > b Or b > c Then
a = a - b
d = b + c
Else
a = a - b
b = 0
End If
msg = MsgBox("lanouvelle valeur de a est : " & a)
msg = MsgBox("la nouvelle valeur de b est : " & b)
msg = MsgBox("la nouvelle valeur de c est : " & c)
End Sub

Sub essay()
Dim aux As Integer
Dim a As Integer
Dim b As IntegerDim c As Integer
Dim d As Integer
a = InputBox("entrez la valeur de a:", "saisie", 0)
b = InputBox("entrez la valeur de b:", "saisie", 0)
c = InputBox("entrez la valeur de c:", "saisie", 0)
d = InputBox("entrez la valeur de d:", "saisie", 0)
If (a > b Or b > c) And (d > a Or d > 5) Then
a = 0
d = b + c
Else
c = a - b
If c > 0 Then
End If
d = -d
End If
b = 0
msg =MsgBox("lanouvelle valeur de a est : " & a)
msg = MsgBox("la nouvelle valeur de b est : " & b)
msg = MsgBox("la nouvelle valeur de c est : " & c)
msg = MsgBox("la nouvelle valeur de d est : " & d)
End Sub

Sub electricity()
Sub facture()
Const FF = 18.35
Const Prix1 = 0.075
Const Prix2 = 0.055
Const Prix3 = 0.03
Dim nbkw As Integer
Dim montant AsSingle
nbkw = InputBox("Entrer le nombre de KW:")
If nbkw <= 100 Then
montant = FF + nbkw * Prix1
ElseIf nbkw <= 250 Then
montant = FF + 100 * Prix1 + (nbkw - 100) * Prix2
Else
montant = FF + 100 * Prix1 + 150 * Prix2 + (nbkw - 250) * Prix3
End If
msg = MsgBox("Le montant de la facture est' :" & montant)
End Sub

Sub paie()...
tracking img