Dans le but d'illustrer mon cours de programmation en Visual Basic, je
recherche quelques énigmes.
C'est ainsi que j'appelle une procédure qui ne veut pas tourner ou qui
présente une anomalie de fonctionnement dont la résolution fait perdre une
demi journée alors que la solution était pourtant très simple.
Mais c'est bien vrai ça !
Élémentaire Dr Watson !
Quelques mauvais souvenirs de votre propre expérience en quelque sorte.
Niveau : débutant total ou débutant moyen.
Merci et ...
Bonne réception.
andre.araste@wanadoo.fr
http://perso.wanadoo.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.
>
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jean-marc
"andre.araste" wrote in message news:41f646ef$0$19405$
Bonjour
Dans le but d'illustrer mon cours de programmation en Visual Basic, je recherche quelques énigmes.
C'est ainsi que j'appelle une procédure qui ne veut pas tourner ou qui présente une anomalie de fonctionnement dont la résolution fait perdre une demi journée alors que la solution était pourtant très simple.
Mais c'est bien vrai ça ! Élémentaire Dr Watson !
Quelques mauvais souvenirs de votre propre expérience en quelque sorte.
Niveau : débutant total ou débutant moyen.
Hello André,
voici un grand classique, de quoi faire pleurer plus d'un débutant: ' ------------------------------------------------- Option Explicit Const MAGIC = 999
' Private Sub Command1_Click() Dim ma_variable As Integer
ma_variable = 1 ModifyVariable (ma_variable) If ma_variable <> MAGIC Then MsgBox "Pourquoi ça marche pas ???? n=" & ma_variable Else MsgBox "Ca marche!! n = " & ma_variable End If End Sub ' Private Sub ModifyVariable(ByRef n As Integer) n = MAGIC End Sub ' -------------------------------------------------
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
"andre.araste" <andre.araste@wanadoo.fr> wrote in message
news:41f646ef$0$19405$8fcfb975@news.wanadoo.fr...
Bonjour
Dans le but d'illustrer mon cours de programmation en Visual Basic, je
recherche quelques énigmes.
C'est ainsi que j'appelle une procédure qui ne veut pas tourner ou qui
présente une anomalie de fonctionnement dont la résolution fait perdre une
demi journée alors que la solution était pourtant très simple.
Mais c'est bien vrai ça !
Élémentaire Dr Watson !
Quelques mauvais souvenirs de votre propre expérience en quelque sorte.
Niveau : débutant total ou débutant moyen.
Hello André,
voici un grand classique, de quoi faire pleurer plus d'un débutant:
' -------------------------------------------------
Option Explicit
Const MAGIC = 999
'
Private Sub Command1_Click()
Dim ma_variable As Integer
ma_variable = 1
ModifyVariable (ma_variable)
If ma_variable <> MAGIC Then
MsgBox "Pourquoi ça marche pas ???? n=" & ma_variable
Else
MsgBox "Ca marche!! n = " & ma_variable
End If
End Sub
'
Private Sub ModifyVariable(ByRef n As Integer)
n = MAGIC
End Sub
' -------------------------------------------------
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
"andre.araste" wrote in message news:41f646ef$0$19405$
Bonjour
Dans le but d'illustrer mon cours de programmation en Visual Basic, je recherche quelques énigmes.
C'est ainsi que j'appelle une procédure qui ne veut pas tourner ou qui présente une anomalie de fonctionnement dont la résolution fait perdre une demi journée alors que la solution était pourtant très simple.
Mais c'est bien vrai ça ! Élémentaire Dr Watson !
Quelques mauvais souvenirs de votre propre expérience en quelque sorte.
Niveau : débutant total ou débutant moyen.
Hello André,
voici un grand classique, de quoi faire pleurer plus d'un débutant: ' ------------------------------------------------- Option Explicit Const MAGIC = 999
' Private Sub Command1_Click() Dim ma_variable As Integer
ma_variable = 1 ModifyVariable (ma_variable) If ma_variable <> MAGIC Then MsgBox "Pourquoi ça marche pas ???? n=" & ma_variable Else MsgBox "Ca marche!! n = " & ma_variable End If End Sub ' Private Sub ModifyVariable(ByRef n As Integer) n = MAGIC End Sub ' -------------------------------------------------
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
Clive Lumb
"jean-marc" a écrit dans le message de news:41f64f68$0$335$
"andre.araste" wrote in message news:41f646ef$0$19405$ > Bonjour > > Dans le but d'illustrer mon cours de programmation en Visual Basic, je > recherche quelques énigmes. > > C'est ainsi que j'appelle une procédure qui ne veut pas tourner ou qui > présente une anomalie de fonctionnement dont la résolution fait perdre
une
> demi journée alors que la solution était pourtant très simple. > > Mais c'est bien vrai ça ! > Élémentaire Dr Watson ! > > Quelques mauvais souvenirs de votre propre expérience en quelque sorte. > > Niveau : débutant total ou débutant moyen.
Hello André,
voici un grand classique, de quoi faire pleurer plus d'un débutant: ' ------------------------------------------------- Option Explicit Const MAGIC = 999
' Private Sub Command1_Click() Dim ma_variable As Integer
ma_variable = 1 ModifyVariable (ma_variable) If ma_variable <> MAGIC Then MsgBox "Pourquoi ça marche pas ???? n=" & ma_variable Else MsgBox "Ca marche!! n = " & ma_variable End If End Sub ' Private Sub ModifyVariable(ByRef n As Integer) n = MAGIC End Sub ' -------------------------------------------------
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
Et voici un sur la même base qui demontre que les propriétés des contrôles ne sont pas des variables Option Explicit Const MAGIC = "Hello"
' Private Sub Command1_Click() Me.Text1.Text = "Goodbye" ModifyVariable Me.Text1.Text
End Sub ' Private Sub ModifyVariable(ByRef n As String) n = MAGIC End Sub
Clive
"jean-marc" <jean-marc.dupont@vcs-europe.com> a écrit dans le message de
news:41f64f68$0$335$ba620e4c@news.skynet.be...
"andre.araste" <andre.araste@wanadoo.fr> wrote in message
news:41f646ef$0$19405$8fcfb975@news.wanadoo.fr...
> Bonjour
>
> Dans le but d'illustrer mon cours de programmation en Visual Basic, je
> recherche quelques énigmes.
>
> C'est ainsi que j'appelle une procédure qui ne veut pas tourner ou qui
> présente une anomalie de fonctionnement dont la résolution fait perdre
une
> demi journée alors que la solution était pourtant très simple.
>
> Mais c'est bien vrai ça !
> Élémentaire Dr Watson !
>
> Quelques mauvais souvenirs de votre propre expérience en quelque sorte.
>
> Niveau : débutant total ou débutant moyen.
Hello André,
voici un grand classique, de quoi faire pleurer plus d'un débutant:
' -------------------------------------------------
Option Explicit
Const MAGIC = 999
'
Private Sub Command1_Click()
Dim ma_variable As Integer
ma_variable = 1
ModifyVariable (ma_variable)
If ma_variable <> MAGIC Then
MsgBox "Pourquoi ça marche pas ???? n=" & ma_variable
Else
MsgBox "Ca marche!! n = " & ma_variable
End If
End Sub
'
Private Sub ModifyVariable(ByRef n As Integer)
n = MAGIC
End Sub
' -------------------------------------------------
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Et voici un sur la même base qui demontre que les propriétés des contrôles
ne sont pas des variables
Option Explicit
Const MAGIC = "Hello"
'
Private Sub Command1_Click()
Me.Text1.Text = "Goodbye"
ModifyVariable Me.Text1.Text
End Sub
'
Private Sub ModifyVariable(ByRef n As String)
n = MAGIC
End Sub
"jean-marc" a écrit dans le message de news:41f64f68$0$335$
"andre.araste" wrote in message news:41f646ef$0$19405$ > Bonjour > > Dans le but d'illustrer mon cours de programmation en Visual Basic, je > recherche quelques énigmes. > > C'est ainsi que j'appelle une procédure qui ne veut pas tourner ou qui > présente une anomalie de fonctionnement dont la résolution fait perdre
une
> demi journée alors que la solution était pourtant très simple. > > Mais c'est bien vrai ça ! > Élémentaire Dr Watson ! > > Quelques mauvais souvenirs de votre propre expérience en quelque sorte. > > Niveau : débutant total ou débutant moyen.
Hello André,
voici un grand classique, de quoi faire pleurer plus d'un débutant: ' ------------------------------------------------- Option Explicit Const MAGIC = 999
' Private Sub Command1_Click() Dim ma_variable As Integer
ma_variable = 1 ModifyVariable (ma_variable) If ma_variable <> MAGIC Then MsgBox "Pourquoi ça marche pas ???? n=" & ma_variable Else MsgBox "Ca marche!! n = " & ma_variable End If End Sub ' Private Sub ModifyVariable(ByRef n As Integer) n = MAGIC End Sub ' -------------------------------------------------
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
Et voici un sur la même base qui demontre que les propriétés des contrôles ne sont pas des variables Option Explicit Const MAGIC = "Hello"
' Private Sub Command1_Click() Me.Text1.Text = "Goodbye" ModifyVariable Me.Text1.Text
End Sub ' Private Sub ModifyVariable(ByRef n As String) n = MAGIC End Sub
Clive
jean-marc
"andre.araste" wrote in message news:41f646ef$0$19405$
Bonjour
Dans le but d'illustrer mon cours de programmation en Visual Basic, je recherche quelques énigmes.
Une autre, niveau débutant:
Private Sub Command1_Click() Dim i As Integer Debug.Print "VB sait compter à l'endroit jqa 10" For i = 1 To 10 Debug.Print i Next i
Debug.Print "VB sait compter à l'envers jqa 10" For i = 10 To 1 Debug.Print i Next i End Sub
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
"andre.araste" <andre.araste@wanadoo.fr> wrote in message
news:41f646ef$0$19405$8fcfb975@news.wanadoo.fr...
Bonjour
Dans le but d'illustrer mon cours de programmation en Visual Basic, je
recherche quelques énigmes.
Une autre, niveau débutant:
Private Sub Command1_Click()
Dim i As Integer
Debug.Print "VB sait compter à l'endroit jqa 10"
For i = 1 To 10
Debug.Print i
Next i
Debug.Print "VB sait compter à l'envers jqa 10"
For i = 10 To 1
Debug.Print i
Next i
End Sub
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
