Public Sub SudOuest() Att = Att + 10 For i = 1 To 500 V = V - i * Rap: H = H - i If V + 240 > 10500 Then Rap = -Rap: NordOuest If H - 240 < 2500 Then Rap = -Rap: SudEst affich Next End Sub
If V + 240 > 10500 Then Rap = -Rap: NordOuest
If V + 240 > 10500 Then Rap = -Rap NordOuest End If
Public Sub SudOuest() Att = Att + 10 For i = 1 To 500 V = V - i * Rap: H = H - i If V + 240 > 10500 Then Rap = -Rap: NordOuest If H - 240 < 2500 Then Rap = -Rap: SudEst affich Next End Sub
Public Sub SudOuest() Dim Exit as Integer Att = Att + 10 Do V = V - 1 * Rap: H = H - 1 If V + 240 > 10500 Then Exit = 1: Exit Do If H - 240 < 2500 Then Exit = 2: Exit Do affich Loop If Exit = 1 Then Rap = -Rap: NordOuest If Exit = 2 Then Rap = -Rap: SudEst End Sub
Public Sub SudOuest() Dim Exit as Integer Att = Att + 10 Do V = V - 1 * Rap: H = H - 1 If V + 240 > 10500 Then Exit = 1: Exit Do ' Exit Do obligatoire car code en sortie de boucle If H - 240 < 2500 Then Exit = 2: Exit Do affich Loop If Exit = 1 Then Rap = -Rap: NordOuest If Exit = 2 Then Rap = -Rap: SudEst End Sub Public Sub SudOuest() Dim Exit as Integer Att = Att + 10 Do V = V - 1 * Rap: H = H - 1 If V + 240 > 10500 Then Exit Do ' Exit Do ou Exit Sub mais préférer Exit Do car boucle Do Loop If H - 240 < 2500 Then Exit Do affich Loop End Sub Public Sub TestFichier(Fichier as String) If System.IO.File.Exits(Fichier) = false then Exit Sub ' là c'est un Exit Sub obligatoire ' suite du code si le fichier existe '''''' '''''' End sub