c'est un programme qui calcul le cout de la communication telephonique c'est pas un vrai programme c'est seulement un petit exemple.
Source / Exemple :
Dim trf As Double
Dim vduree As Double
Private Sub Form_Load()
'remplissage des tarifs
tarif.AddItem "matinée"
tarif.AddItem "apres midi"
tarif.AddItem "heure creuse"
tarif.AddItem "nuit"
'fin des tarifs
'remplissage des distances
distance.AddItem "la meme ville"
distance.AddItem "50-70"
distance.AddItem "70-100"
distance.AddItem "plus que 100"
'fin du remplissage des distances
Check1.Value = 0
Check2.Value = 0
tarif.Enabled = False
End Sub
Private Sub Check1_Click()
Check2.Value = 0
tarif.Enabled = False
End Sub
Private Sub Check2_Click()
tarif.Enabled = True
Check1.Value = False
End Sub
Private Sub quitter_Click()
Unload Me
End
End Sub
Private Sub valider_Click()
'il faut avoir les valeurs des tarifs et aussi des distances pour avoir le cout
'calcul du tarif
If Check1.Value = 1 Then
trf = 0.12
ElseIf Check2.Value = 1 Then
Select Case tarif.ListIndex
Case 0, 1
trf = 0.36
Case 2
trf = 0.24
Case 3
trf = 0.12
End Select
End If
'fin du calcul du tarif
'calcul du taux
Select Case distance.ListIndex
Case 0
dis = 0
Case 1
dis = 0.2
Case 2
dis = 0.35
Case 3
dis = 0.5
End Select
'fin du calcul du taux
vduree = CDbl(duree.Text)
cout.Text = (trf * vduree) + (trf * vduree * dis) & " Dh"
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.