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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171
|
Sub bonjour()
Select Case ques_j
Case "BONJOUR"
ecran1.box_reponses.Text = reponses(0)
ecran1.question.Text = ""
valid(0) = True
Case "SALUT"
ecran1.box_reponses.Text = reponses(1)
ecran1.question.Text = ""
valid(0) = True
Case "COUCOU"
ecran1.box_reponses.Text = reponses(2)
ecran1.question.Text = ""
valid(0) = True
Case "WESCH"
ecran1.box_reponses.Text = reponses(3)
ecran1.question.Text = ""
valid(0) = True
Case "WECH"
ecran1.box_reponses.Text = reponses(3)
ecran1.question.Text = ""
valid(0) = True
Case "WESH"
ecran1.box_reponses.Text = reponses(3)
ecran1.question.Text = ""
valid(0) = True
Case Else
ecran1.box_reponses.Text = reponses(4)
ecran1.question.Text = ""
End Select
End Sub
Sub niveau_ques()
Select Case ques_j
Case "EXAMINE POUBELLE"
If vu(1) = False Then
ecran1.box_reponses.Text = reponses(5)
ecran1.question.Text = ""
vu(1) = True
valid(16) = True
Else
ecran1.box_reponses.Text = reponses(14)
ecran1.question.Text = ""
End If
Case "EXAMINE JOURNAL"
If valid(1) = False Then
ecran1.box_reponses.Text = reponses(23)
ecran1.question.Text = ""
Else
ecran1.box_reponses.Text = reponses(28)
ecran1.question.Text = ""
End If
Case "EXAMINE FEUILLE"
If valid(12) = False Then
ecran1.box_reponses.Text = reponses(29)
ecran1.question.Text = ""
Else
ecran1.box_reponses.Text = reponses(53)
ecran1.question.Text = ""
End If
Case Else
valid(9) = True
ecran1.box_reponses.Text = reponses(13)
ecran1.question.Text = ""
End Select
End Sub
Sub niveau_en_cours()
ecran1.papa.Text = position_insulte
ques_j = ecran1.question.Text.ToUpper
position_insulte = InStr("plein de gros mots", ques_j)
valid_text = ecran1.question.Text
If position_insulte = 0 Then
If ecran1.box_reponses.Text <> reponses(54) Then
If compteur_porte_go <> 3 Then
If valid(0) = False Then
bonjour()
Else
niveau_ques()
End If
Else
ecran1.question.Text = ""
ecran1.box_reponses.Text = reponses(54)
End If
Else
End
End If
Else
insulte.Show()
'ecran1.Visible = False
End If
End Sub
Private Sub question_KeyDown(ByVal sender As Object, ByVal t As System.Windows.Forms.KeyEventArgs) Handles question.KeyDown
' code du formulaire
If t.KeyCode = Keys.Enter Then
niveau_en_cours()
End If
If t.KeyCode = Keys.F11 Then
question.Text = "EXAMINE"
End If
If t.KeyCode = Keys.F11 Then
question.Text = "PRENDS"
End If
If t.KeyCode = Keys.Up Then
question.Text = "NORD"
End If
If t.KeyCode = Keys.Down Then
question.Text = "SUD"
End If
If t.KeyCode = Keys.Left Then
question.Text = "GAUCHE"
End If
If t.KeyCode = Keys.Right Then
question.Text = "DROITE"
End If
End Sub |
Partager