-----Message d'origine-----
Bonsoir à tous
L'anticipation se réduisant au fil des heures, je
m'empresse de souhaiter un bon anniversaire à tous les
deux, avec un wagon de bisous pour Misange et un autre de
pognes pour Gilbert.
--
Amicales Salutations
"Jacquouille" a écrit
dans le message de
news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Bonsoir à tous
L'anticipation se réduisant au fil des heures, je
m'empresse de souhaiter un bon anniversaire à tous les
deux, avec un wagon de bisous pour Misange et un autre de
pognes pour Gilbert.
--
Amicales Salutations
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit
dans le message de
news:uPZmihk%23DHA.1424@TK2MSFTNGP12.phx.gbl...
Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
-----Message d'origine-----
Bonsoir à tous
L'anticipation se réduisant au fil des heures, je
m'empresse de souhaiter un bon anniversaire à tous les
deux, avec un wagon de bisous pour Misange et un autre de
pognes pour Gilbert.
--
Amicales Salutations
"Jacquouille" a écrit
dans le message de
news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Longue vie aux piliers!!!!
Mademoiselle Misange - dite Flo - et Monsieur Gilbert -
amicalement
J@@
Jacquouille wrote:Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Longue vie aux piliers!!!!
Mademoiselle Misange - dite Flo - et Monsieur Gilbert -
amicalement
J@@
Jacquouille wrote:
Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
-----Message d'origine-----
Longue vie aux piliers!!!!
Mademoiselle Misange - dite Flo - et Monsieur Gilbert -
amicalement
J@@
Jacquouille wrote:Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Encore plus près de la Vérité (!) que mes honorables
confrères, je souhaite
plein de bonnes choses à nos deux Jupiler...
heu, jubilaires...
--
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le
temps..." (Le Chat de
Geluck (enfin, je crois...))
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
"Jacquouille" a écrit
dans le message de
news: uPZmihk#Comme il n'est jamais trop tôt pour bien faire, après
une concertation
avecmoi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Encore plus près de la Vérité (!) que mes honorables
confrères, je souhaite
plein de bonnes choses à nos deux Jupiler...
heu, jubilaires...
--
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le
temps..." (Le Chat de
Geluck (enfin, je crois...))
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit
dans le message de
news: uPZmihk#DHA.1424@TK2MSFTNGP12.phx.gbl...
Comme il n'est jamais trop tôt pour bien faire, après
une concertation
avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
-----Message d'origine-----
Encore plus près de la Vérité (!) que mes honorables
confrères, je souhaite
plein de bonnes choses à nos deux Jupiler...
heu, jubilaires...
--
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le
temps..." (Le Chat de
Geluck (enfin, je crois...))
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
"Jacquouille" a écrit
dans le message de
news: uPZmihk#Comme il n'est jamais trop tôt pour bien faire, après
une concertation
avecmoi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Encore tout secoué du tremblement de terre de Baume-les-
Dames, à 30 km à l'est de Besançon (F),
je souhaite également un bon zani à tous les 2.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Jacquouille" a écrit
dans le message de
news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Encore tout secoué du tremblement de terre de Baume-les-
Dames, à 30 km à l'est de Besançon (F),
je souhaite également un bon zani à tous les 2.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit
dans le message de
news:uPZmihk%23DHA.1424@TK2MSFTNGP12.phx.gbl...
Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
-----Message d'origine-----
Encore tout secoué du tremblement de terre de Baume-les-
Dames, à 30 km à l'est de Besançon (F),
je souhaite également un bon zani à tous les 2.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Jacquouille" a écrit
dans le message de
news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Bon anniversaire à tous les deux.
"Jacquouille" a écrit
dans le message
de news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une
concertation avecmoi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui
ce quisera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur
Gilbert - -ditGeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais
doncl'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale :
MPFE.Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Bon anniversaire à tous les deux.
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit
dans le message
de news:uPZmihk%23DHA.1424@TK2MSFTNGP12.phx.gbl...
Comme il n'est jamais trop tôt pour bien faire, après
une
concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui
ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur
Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais
donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale :
MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
-----Message d'origine-----
Bon anniversaire à tous les deux.
"Jacquouille" a écrit
dans le message
de news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une
concertation avecmoi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui
ce quisera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur
Gilbert - -ditGeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais
doncl'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale :
MPFE.Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Bons Anniversaires Flo et Gilbert:-)
Bon Anniche versaire pour GeeDee tout seul
ainsi qu'à Modeste
Bisous à Misange
Amicalement
Sitting Hoax
-----Message d'origine-----
Bons Anniversaires Flo et Gilbert:-)
Bon Anniche versaire pour GeeDee tout seul
ainsi qu'à Modeste
Bisous à Misange
Amicalement
Sitting Hoax
-----Message d'origine-----
Bons Anniversaires Flo et Gilbert:-)
Bon Anniche versaire pour GeeDee tout seul
ainsi qu'à Modeste
Bisous à Misange
Amicalement
Sitting Hoax
Comme il n'est jamais trop tôt pour bien faire, après une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
Comme il n'est jamais trop tôt pour bien faire, après une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
Comme il n'est jamais trop tôt pour bien faire, après une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
Bon, alors juste une samba pour le mardi gras
ça nous fera voyager dans les rues de Rio
fermez les yeux et imaginez vous au carnaval:-))
'**************
Private Type MIDIOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * 32
wTechnology As Integer
wVoices As Integer
wNotes As Integer
wChannelMask As Integer
dwSupport As Long
End Type
Private Declare Function midiOutGetDevCaps Lib _
"winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID _
As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long
Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer
Private Declare Function MidiOutClose Lib "winmm.dll" _
Alias "midiOutClose" (ByVal hMidiOut As Long) As Long
'-------------------------------
Private Declare Function MidiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" (lphMidiOut As _
Long, ByVal uDeviceID As _
Long, ByVal dwCallback As _
Long, ByVal dwInstance As _
Long, ByVal dwFlags As Long) As Long
'-------------------------------
Private Declare Function MidiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" (ByVal hMidiOut As _
Long, ByVal dwMsg As Long) As Long
'---------------------------------------------------
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Dim hMidiOut As Long
Public lanote As Integer
Sub samba()
'
batterie = Array(48, 47, 56, 55)
Randomize
For i = 1 To 250
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
Randomize
x = batterie(Int(Rnd * 4))
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 1, 2, 0
xxx = CInt(x)
For z = 1 To 15
On Error GoTo fin
Randomize
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
Sleep (Rnd * 150 + 70)
Next
Sleep (150)
For z = 1 To 10
For u = 1 To 5
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 30, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
Next
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 20, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (Rnd * 200)
Next
For z = 1 To 10
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 15, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
Next
Next
fin:
MidiOutClose hMidiOut
End Sub
'*****************
Amicalement
Sitting Hoax
"Modeste" a écrit dans le message de
news:07ae01c3fae4$965890e0$
Déçu....
Déçu....
contrairement au saint du jour, j'attendais une fanfare
mais comparativement au saint du 18-4 tout le monde n'est
pas parfait...-----Message d'origine-----
Bons Anniversaires Flo et Gilbert:-)
Bon Anniche versaire pour GeeDee tout seul
ainsi qu'à Modeste
Bisous à Misange
Amicalement
Sitting Hoax
Bon, alors juste une samba pour le mardi gras
ça nous fera voyager dans les rues de Rio
fermez les yeux et imaginez vous au carnaval:-))
'**************
Private Type MIDIOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * 32
wTechnology As Integer
wVoices As Integer
wNotes As Integer
wChannelMask As Integer
dwSupport As Long
End Type
Private Declare Function midiOutGetDevCaps Lib _
"winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID _
As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long
Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer
Private Declare Function MidiOutClose Lib "winmm.dll" _
Alias "midiOutClose" (ByVal hMidiOut As Long) As Long
'-------------------------------
Private Declare Function MidiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" (lphMidiOut As _
Long, ByVal uDeviceID As _
Long, ByVal dwCallback As _
Long, ByVal dwInstance As _
Long, ByVal dwFlags As Long) As Long
'-------------------------------
Private Declare Function MidiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" (ByVal hMidiOut As _
Long, ByVal dwMsg As Long) As Long
'---------------------------------------------------
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Dim hMidiOut As Long
Public lanote As Integer
Sub samba()
'laurent.daures@wanadoo.fr
batterie = Array(48, 47, 56, 55)
Randomize
For i = 1 To 250
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
Randomize
x = batterie(Int(Rnd * 4))
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 1, 2, 0
xxx = CInt(x)
For z = 1 To 15
On Error GoTo fin
Randomize
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
Sleep (Rnd * 150 + 70)
Next
Sleep (150)
For z = 1 To 10
For u = 1 To 5
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 30, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
Next
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 20, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (Rnd * 200)
Next
For z = 1 To 10
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 15, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
Next
Next
fin:
MidiOutClose hMidiOut
End Sub
'*****************
Amicalement
Sitting Hoax
"Modeste" <Gee-dee-@discussions.microsoft.com> a écrit dans le message de
news:07ae01c3fae4$965890e0$a101280a@phx.gbl...
Déçu....
Déçu....
contrairement au saint du jour, j'attendais une fanfare
mais comparativement au saint du 18-4 tout le monde n'est
pas parfait...
-----Message d'origine-----
Bons Anniversaires Flo et Gilbert:-)
Bon Anniche versaire pour GeeDee tout seul
ainsi qu'à Modeste
Bisous à Misange
Amicalement
Sitting Hoax
Bon, alors juste une samba pour le mardi gras
ça nous fera voyager dans les rues de Rio
fermez les yeux et imaginez vous au carnaval:-))
'**************
Private Type MIDIOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * 32
wTechnology As Integer
wVoices As Integer
wNotes As Integer
wChannelMask As Integer
dwSupport As Long
End Type
Private Declare Function midiOutGetDevCaps Lib _
"winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID _
As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long
Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer
Private Declare Function MidiOutClose Lib "winmm.dll" _
Alias "midiOutClose" (ByVal hMidiOut As Long) As Long
'-------------------------------
Private Declare Function MidiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" (lphMidiOut As _
Long, ByVal uDeviceID As _
Long, ByVal dwCallback As _
Long, ByVal dwInstance As _
Long, ByVal dwFlags As Long) As Long
'-------------------------------
Private Declare Function MidiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" (ByVal hMidiOut As _
Long, ByVal dwMsg As Long) As Long
'---------------------------------------------------
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Dim hMidiOut As Long
Public lanote As Integer
Sub samba()
'
batterie = Array(48, 47, 56, 55)
Randomize
For i = 1 To 250
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
Randomize
x = batterie(Int(Rnd * 4))
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 1, 2, 0
xxx = CInt(x)
For z = 1 To 15
On Error GoTo fin
Randomize
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
Sleep (Rnd * 150 + 70)
Next
Sleep (150)
For z = 1 To 10
For u = 1 To 5
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 30, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
Next
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 20, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (Rnd * 200)
Next
For z = 1 To 10
Randomize
x = batterie(Int(Rnd * 4))
xxx = CInt(x)
MidiOutShortMsg hMidiOut, RGB(153, xxx, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 1, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 15, 127)
MidiOutShortMsg hMidiOut, RGB(153, xxx + 6, 127)
Sleep (100)
Next
Next
fin:
MidiOutClose hMidiOut
End Sub
'*****************
Amicalement
Sitting Hoax
"Modeste" a écrit dans le message de
news:07ae01c3fae4$965890e0$
Déçu....
Déçu....
contrairement au saint du jour, j'attendais une fanfare
mais comparativement au saint du 18-4 tout le monde n'est
pas parfait...-----Message d'origine-----
Bons Anniversaires Flo et Gilbert:-)
Bon Anniche versaire pour GeeDee tout seul
ainsi qu'à Modeste
Bisous à Misange
Amicalement
Sitting Hoax
bons zanis à vous deux flo et geedee, longue vie et bien des plaisirs,
un flo de modeste bisou*
isabelle
Comme il n'est jamais trop tôt pour bien faire, après une concertation
avec
moi-même, nous avons décidé d'un commun accord d'écrire aujourd'hui ce
qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de Monsieur
Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
bons zanis à vous deux flo et geedee, longue vie et bien des plaisirs,
un flo de modeste bisou*
isabelle
Comme il n'est jamais trop tôt pour bien faire, après une concertation
avec
moi-même, nous avons décidé d'un commun accord d'écrire aujourd'hui ce
qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de Monsieur
Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
bons zanis à vous deux flo et geedee, longue vie et bien des plaisirs,
un flo de modeste bisou*
isabelle
Comme il n'est jamais trop tôt pour bien faire, après une concertation
avec
moi-même, nous avons décidé d'un commun accord d'écrire aujourd'hui ce
qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de Monsieur
Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
-----Message d'origine-----
Bonsoir à tous
L'anticipation se réduisant au fil des heures, je
m'empresse de souhaiter un bon anniversaire à tous les
deux, avec un wagon de bisous pour Misange et un autre de
pognes pour Gilbert.
--
Amicales Salutations
"Jacquouille" a écrit
dans le message de
news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.
-----Message d'origine-----
Bonsoir à tous
L'anticipation se réduisant au fil des heures, je
m'empresse de souhaiter un bon anniversaire à tous les
deux, avec un wagon de bisous pour Misange et un autre de
pognes pour Gilbert.
--
Amicales Salutations
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit
dans le message de
news:uPZmihk%23DHA.1424@TK2MSFTNGP12.phx.gbl...
Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
.
-----Message d'origine-----
Bonsoir à tous
L'anticipation se réduisant au fil des heures, je
m'empresse de souhaiter un bon anniversaire à tous les
deux, avec un wagon de bisous pour Misange et un autre de
pognes pour Gilbert.
--
Amicales Salutations
"Jacquouille" a écrit
dans le message de
news:uPZmihk%Comme il n'est jamais trop tôt pour bien faire, après
une concertation avec
moi-même, nous avons décidé d'un commun accord d'écrire
aujourd'hui ce qui
sera demain:
Le ZANI de Mademoiselle Misange - dite Flo - et de
Monsieur Gilbert - -dit
GeeDee.
L'un embrassant l'autre et celle-ci lui rendant sa
bise, je fais donc
l'économie de bisoux. Un seul pour les deux.
Après tout, c'est le carême, non?
Longue vie à ces deux piliers qui soutiennent notre
cathédrale : MPFE.
Jacques1er.
--
Jacquouille conseille : http://www.excelabo.net
.