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
LE TROLL
Sub Form_Unload(Cancel As Integer) Cancel = -1 End Sub
Sub Form_Load() x = MsgBox("Bonjour ", vbYes) If x <> vbNo Then Call Form_Load End Sub -------------
"andre.araste" a écrit dans le message de news: 41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
Sub Form_Unload(Cancel As Integer)
Cancel = -1
End Sub
Sub Form_Load()
x = MsgBox("Bonjour ", vbYes)
If x <> vbNo Then Call Form_Load
End Sub
-------------
"andre.araste" <andre.araste@wanadoo.fr> a écrit dans le message de news:
41f646d1$0$18844$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.
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.
Sub Form_Unload(Cancel As Integer) Cancel = -1 End Sub
Sub Form_Load() x = MsgBox("Bonjour ", vbYes) If x <> vbNo Then Call Form_Load End Sub -------------
"andre.araste" a écrit dans le message de news: 41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
Clive Lumb
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
A noyer quelque part dans un exemple
Dim I, J, K As Integer I = 10 J = I / 9 K = I / 9 If J = K Then MsgBox "Bravo" Else MsgBox "VB ne sait pas compter" End If
"andre.araste" <andre.araste@wanadoo.fr> a écrit dans le message de
news:41f646d1$0$18844$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.
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.
A noyer quelque part dans un exemple
Dim I, J, K As Integer
I = 10
J = I / 9
K = I / 9
If J = K Then
MsgBox "Bravo"
Else
MsgBox "VB ne sait pas compter"
End If
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
A noyer quelque part dans un exemple
Dim I, J, K As Integer I = 10 J = I / 9 K = I / 9 If J = K Then MsgBox "Bravo" Else MsgBox "VB ne sait pas compter" End If
ng
Salut,
et oui il faut bien faire attention car en vb6.0
Dim I, J, K As Integer
n'est certainement pas équivalent à
Dim I As Integer, J As Integer, K As Integer
Cette une erreur qu'on ne voit pas que chez les débutant des fois :)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Clive Lumb wrote:
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
A noyer quelque part dans un exemple
Dim I, J, K As Integer I = 10 J = I / 9 K = I / 9 If J = K Then MsgBox "Bravo" Else MsgBox "VB ne sait pas compter" End If
Salut,
et oui il faut bien faire attention car en vb6.0
Dim I, J, K As Integer
n'est certainement pas équivalent à
Dim I As Integer, J As Integer, K As Integer
Cette une erreur qu'on ne voit pas que chez les débutant des fois :)
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Clive Lumb wrote:
"andre.araste" <andre.araste@wanadoo.fr> a écrit dans le message de
news:41f646d1$0$18844$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.
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.
A noyer quelque part dans un exemple
Dim I, J, K As Integer
I = 10
J = I / 9
K = I / 9
If J = K Then
MsgBox "Bravo"
Else
MsgBox "VB ne sait pas compter"
End If
Cette une erreur qu'on ne voit pas que chez les débutant des fois :)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Clive Lumb wrote:
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
A noyer quelque part dans un exemple
Dim I, J, K As Integer I = 10 J = I / 9 K = I / 9 If J = K Then MsgBox "Bravo" Else MsgBox "VB ne sait pas compter" End If
Guy DETIENNE
Salut ;O)
On pourrait aussi attirer l'attention sur le fait que VB passe ses paramètres de procédures par référence (ce qui est étrange) si on ne lui dit pas le contraire, ce qui peut selon le cas poser de gros soucis et du fil à retordre à celui qui n'est pas au courant.
Private Sub Command1_Click()
Dim a As Long
a = 1 Call toto(a) 'devrait retourner 1 mais retourne 2 car la variable 'a' a changé de valeur via la procédure Toto MsgBox a
End Sub
Public Sub toto(n As Long)
n = n + 1
End Sub
Guy
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien. >
Salut ;O)
On pourrait aussi attirer l'attention sur le fait que VB passe ses
paramètres de procédures par référence (ce qui est étrange) si on ne lui dit
pas le contraire, ce qui peut selon le cas poser de gros soucis et du fil à
retordre à celui qui n'est pas au courant.
Private Sub Command1_Click()
Dim a As Long
a = 1
Call toto(a)
'devrait retourner 1 mais retourne 2 car la variable 'a' a changé de
valeur via la procédure Toto
MsgBox a
End Sub
Public Sub toto(n As Long)
n = n + 1
End Sub
Guy
"andre.araste" <andre.araste@wanadoo.fr> a écrit dans le message de
news:41f646d1$0$18844$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.
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.
>
On pourrait aussi attirer l'attention sur le fait que VB passe ses paramètres de procédures par référence (ce qui est étrange) si on ne lui dit pas le contraire, ce qui peut selon le cas poser de gros soucis et du fil à retordre à celui qui n'est pas au courant.
Private Sub Command1_Click()
Dim a As Long
a = 1 Call toto(a) 'devrait retourner 1 mais retourne 2 car la variable 'a' a changé de valeur via la procédure Toto MsgBox a
End Sub
Public Sub toto(n As Long)
n = n + 1
End Sub
Guy
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien. >
ng
Salut,
Dans le même ordre d'idée :
Option Explicit
Private Sub Form_Load() Dim strMaChaine As String Dim strMaChaine2 As String
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String) As String Dim i As Long i = InStr(1, sCh, sQuoi, vbTextCompare) If i > 0 Then sCh = Mid$(sCh, i + Len(sQuoi)) i = InStr(1, sCh, sEtQuoi, vbTextCompare) If (i - 1) > 0 Then sCh = Left$(sCh, i - 1) End If Entre = sCh End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Guy DETIENNE wrote:
Salut ;O)
On pourrait aussi attirer l'attention sur le fait que VB passe ses paramètres de procédures par référence (ce qui est étrange) si on ne lui dit pas le contraire, ce qui peut selon le cas poser de gros soucis et du fil à retordre à celui qui n'est pas au courant.
Private Sub Command1_Click()
Dim a As Long
a = 1 Call toto(a) 'devrait retourner 1 mais retourne 2 car la variable 'a' a changé de valeur via la procédure Toto MsgBox a
End Sub
Public Sub toto(n As Long)
n = n + 1
End Sub
Guy
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
Salut,
Dans le même ordre d'idée :
Option Explicit
Private Sub Form_Load()
Dim strMaChaine As String
Dim strMaChaine2 As String
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String) As
String
Dim i As Long
i = InStr(1, sCh, sQuoi, vbTextCompare)
If i > 0 Then
sCh = Mid$(sCh, i + Len(sQuoi))
i = InStr(1, sCh, sEtQuoi, vbTextCompare)
If (i - 1) > 0 Then sCh = Left$(sCh, i - 1)
End If
Entre = sCh
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Guy DETIENNE wrote:
Salut ;O)
On pourrait aussi attirer l'attention sur le fait que VB passe ses
paramètres de procédures par référence (ce qui est étrange) si on ne
lui dit pas le contraire, ce qui peut selon le cas poser de gros
soucis et du fil à retordre à celui qui n'est pas au courant.
Private Sub Command1_Click()
Dim a As Long
a = 1
Call toto(a)
'devrait retourner 1 mais retourne 2 car la variable 'a' a changé de
valeur via la procédure Toto
MsgBox a
End Sub
Public Sub toto(n As Long)
n = n + 1
End Sub
Guy
"andre.araste" <andre.araste@wanadoo.fr> a écrit dans le message de
news:41f646d1$0$18844$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.
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.
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String) As String Dim i As Long i = InStr(1, sCh, sQuoi, vbTextCompare) If i > 0 Then sCh = Mid$(sCh, i + Len(sQuoi)) i = InStr(1, sCh, sEtQuoi, vbTextCompare) If (i - 1) > 0 Then sCh = Left$(sCh, i - 1) End If Entre = sCh End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Guy DETIENNE wrote:
Salut ;O)
On pourrait aussi attirer l'attention sur le fait que VB passe ses paramètres de procédures par référence (ce qui est étrange) si on ne lui dit pas le contraire, ce qui peut selon le cas poser de gros soucis et du fil à retordre à celui qui n'est pas au courant.
Private Sub Command1_Click()
Dim a As Long
a = 1 Call toto(a) 'devrait retourner 1 mais retourne 2 car la variable 'a' a changé de valeur via la procédure Toto MsgBox a
End Sub
Public Sub toto(n As Long)
n = n + 1
End Sub
Guy
"andre.araste" a écrit dans le message de news:41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
andre.araste
Bonjour
Merci aux différentes personnes qui m'ont répondu. Je vais pouvoir travailler sur les cas présentés. -- Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
"andre.araste" a écrit dans le message de news: 41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
Bonjour
Merci aux différentes personnes qui m'ont répondu. Je vais pouvoir
travailler sur les cas présentés.
--
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.
"andre.araste" <andre.araste@wanadoo.fr> a écrit dans le message de news:
41f646d1$0$18844$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.
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.
Merci aux différentes personnes qui m'ont répondu. Je vais pouvoir travailler sur les cas présentés. -- Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
"andre.araste" a écrit dans le message de news: 41f646d1$0$18844$
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.
Merci et ... Bonne réception.
http://perso.wanadoo.fr/andre.araste/ Membre du Club Win's: http://www.clubwins.org Avertissement: Je ne vends rien.
