la gare de mohemadia

Private Sub
Form_load()


LblD.Caption = Date


LblT.Caption = Time()


cbovil.AddItem "Rabat"


cbovil.AddItem "Casablanca"


cbovil.AddItem "AlJadida"


cbovil.AddItem "Marrakech"


cbovil.AddItem "Agadir"


cbovil.AddItem "Nador"


cbovil.AddItem "Méknès"


cbovil.AddItem "Fès"


LstBV.AddItem LblT.Caption


cmdcs.Enabled = False


End Sub





Private Sub
optenf_click()


cbovil.Enabled = True


End Sub


Private Sub
optadu_click()


cbovil.Enabled = True


End Sub


Private Sub
optetu_click()


cbovil.Enabled = True


End Sub


Private Sub cbovil_click()


If cbovil.ListIndex = -1 Then


MsgBox "il faut
choisir une ville", "erreur"


End If


End Sub





Private Sub
optAS_click()


Dim TS As Double


Select Case cbovil.Text


Case "Rabat"


TS = 59


Case "Casablanca"


TS = 46


Case "AlJadida"


TS = 40


Case "Marrakech"


TS = 99


Case "Agadir"


TS = 146


Case "Nador"


TS = 302


Case "Méknès"


TS = 87


Case "Fès"


TS = 92


End Select


If optenf.Value = True Then


TS = TS - (TS * 63.5 / 100)


TS = TS * (1 - 63.5 / 100)


End If


If optetu.Value = True Then


TS = TS - (TS * 17.6 / 100)


TS = TS * (1 - 17.6 / 100)


End If


If optadu.Value = True Then


TS = TS


End If


Lbltari.Caption = TS


TxtNB.Enabled = True


TxtNB.SetFocus


End Sub


Private Sub optAR_click()


Dim AR As Double


Select Case cbovil.Text


Case "Rabat"


AR = 102


Case "Casablanca"


AR = 82


Case "AlJadida"


AR = 78


Case "Marrakech"


AR = 182


Case "Agadir"


AR = 282


Case "Nador"


AR = 600


Case "Méknès"


AR = 171


Case "Fès"


AR = 180


End Select


Lbltari.Caption = AR


TxtNB.Enabled = True


TxtNB.SetFocus


End Sub


Private Sub txtNB_change()


If Val(TxtNB.Text) < 0 Or Not
IsNumeric(TxtNB.Text) Then


MsgBox "entrer une valeur
correcte", 32 + 0, "erreur"


TxtNB.Text = " "


TxtNB.SetFocus


End If


Lblpri.Caption = Val(TxtNB.Text) *
Val(Lbltari.Caption)


cmdajt.Enabled = True


End Sub


Private Sub cmdajt_click()


Dim typvoy As String


Dim natvoy As String


If optenf.Value = True Then


typvoy = "Enfant"


End If


If optAS.Value = True Then


natvoy = "AS"


End If


If optAR.Value = True Then


natvoy = "AR"


End If


If optadu.Value = True Then


typvoy = "Adulte"


End If


If optAS.Value = True Then


natvoy = "AS"


End If


If optAR.Value = True Then


natvoy = "AR"


End If


If optetu.Value = True Then


typvoy = "Etudiant"


End If


If optAS.Value = True Then


natvoy = "AS"


End If


If optAR.Value = True Then


natvoy = "AR"


End If


LstBV.AddItem (cbovil.Text & TxtNB.Text
& typvoy & "Pour un" & natvoy & "à" &
Lblpri.Caption & "DH")


Lblrec.Caption = Val(Lblrec.Caption)
+ Val(Lblpri.Caption)


cmdcs.Enabled = True


End Sub





Private Sub cmdquit_click()


End


End Sub





Private Sub cmdcs_Click()


TxtNB.Text = " "


Lbltari.Caption = " "


Lblpri.Caption = " "


cmdajt.Enabled = False


optenf.Value = False


optadu.Value = False


optetu.Value = False


optAS.Value = False


optAR.Value = False


cmdquit.SetFocus


cbovil.Text = "choisir"


End Sub