Gestion telephonique

Soyez le premier à donner votre avis sur cette source.

Vue 10 667 fois - Téléchargée 1 522 fois

Description

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

Codes Sources

A voir également

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.

Du même auteur (hypnotiseur)