GESTION TELEPHONIQUE

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

Télécharger le zip