1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Select Case ecran1.box_utilisateur.Text.ToUpper
Case ecran1.box_utilisateur.Text.ToUpper = "BONJOUR"
ecran1.pierre_parle.Text = discours_pierre(2)
validation(0) = True
Case ecran1.box_utilisateur.Text.ToUpper = "SALUT"
ecran1.pierre_parle.Text = discours_pierre(3)
validation(0) = True
Case ecran1.box_utilisateur.Text.ToUpper = "BONJOURNO"
ecran1.chat_pierre.Text = discours_pierre(5)
validation(0) = True
Case ecran1.box_utilisateur.Text.ToUpper = "HELLO"
ecran1.pierre_parle.Text = discours_pierre(6)
validation(0) = True
Case Else
ecran1.pierre_parle.Text = discours_pierre(4)
End Select
End sub |