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 26
|
Dim Titre As String
Dim Reponse As String
Reponse = "GET LUCKY"
Titre = Titre_Entré.Text
Titre.Replace("é", "e")
Titre.Replace("è", "e")
Titre.Replace("à", "a")
Titre.Replace("ù", "u")
Titre.Replace("'", " ")
Titre = Titre.ToUpper
Dim Comparaison As Integer = Titre.CompareTo(Reponse)
If Comparaison = 1 Then
Dim messageDialog = New MessageDialog("Bonne Réponse")
messageDialog.Commands.Add(New UICommand("Question Suivante", Sub(command)
Me.Frame.Navigate(GetType(Série_2___Question_2))
End Sub))
Else
Dim messageDialog = New MessageDialog("Mauvaise Réponse")
messageDialog.Commands.Add(New UICommand("Question Suivante", Sub(command)
Me.Frame.Navigate(GetType(Série_2___Question_2))
End Sub))
End If |
Partager