Le Chant des Lettres

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12956

comme d'habitude , j'ai fait un prg qui sert a rien
mais qui est tres poetique , je trouve !!

je me suis dit que se passe t'il si je fais jouer les octets d'un fichier par du son midi !!

:lol:

ben c'est meme joli en fait !!

ce programme charge un fichier choisi par l'utilisateur (Meme des sons , des images , des fichier compresse , bref tout !!

)

et le joue !!

ecoutez , c'est souvent tres sympath en fait !

dans le listing vous pouvez changer l'instrument,

Merci a Erix14 pour ses prg , j'ai repompé le Midi dedans !

un prg 100% DD (Dobro Delirium !)

:lol:

encore REEDITER POUR 2 INSTRUMENTS (BASSE et PIANO) a 15:42

Code:

; Prg Realisé par Dobro
Declare MIDIOpen()
Declare ChargeInstrument(Canal.b,Instrument.b)
Declare SendMIDIMessage(nStatus.l,nCanal.l,nData1.l,nData2.l)
Declare PlayNoteMIDI(Canal.b,Note.b,VelociteDown.b,VelociteUp.b)

Global m_hMidiOut,m_MIDIOpen.b

MIDIOpen() : ChargeInstrument(0,806); canal , instrument 

PlayNoteMIDI(0,50,127,127)  ; note de 15 a 108






;- Window Constants
;
Enumeration
    #Window_1
EndEnumeration
;- MenuBar Constants
;
Enumeration
    #MenuBar_4
EndEnumeration

Enumeration 
    #MENU_26 
EndEnumeration

;- StatusBar Constants
;
Enumeration
    #StatusBar_0
EndEnumeration



Procedure Open_Window_1()
    If OpenWindow(#Window_1, 183, 0, 400, 200,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered , "Le Chant des Mots")
        If CreateMenu(#MenuBar_4, WindowID())
            MenuTitle("Fichier") 
            MenuItem(#MENU_26, "Ouvrir") 
        EndIf 
        If CreateStatusBar(#StatusBar_0, WindowID())
            AddStatusBarField(550)
            StatusBarText(#StatusBar_0, 0, "field")
        EndIf 
        If CreateGadgetList(WindowID())
        EndIf
    EndIf
EndProcedure

Open_Window_1()
WindowID = WindowID(#Window_1) 

; If CreateStatusBar(#StatusBar_0, WindowID())
    ; AddStatusBarField(550)
    ; StatusBarText(#StatusBar_0, 0, "field",#PB_StatusBar_Center    )
; EndIf 
; *****************************************

Repeat 
    Event=WaitWindowEvent()
     menu=EventMenuID()  
    ;gestion du menu
    If Event = #PB_Event_Menu   : ; on a clique sur un menu
        menuID = EventGadgetID(): ; lequel ??  
        Select menuID
            Case 0
                NomFichier$ = OpenFileRequester("Charger un fichier TEXT", "c:\", "*.*", 0)  
                If OpenFile(1, NomFichier$)  
                    Repeat
                        
                        Nombre = ReadByte()  
                        If Nombre<0
                            nombre1=Nombre+256
                        Else
                            nombre1=Nombre
                        EndIf
                        
                        Debug nombre1
                        If nombre1 >15 And nombre1<46
                            ChargeInstrument(0,804)
                            PlayNoteMIDI(0,nombre1+5,127,127)
                            Delay(nombre1*4)
                        EndIf  
                        If nombre1 >46 And nombre1<108 
                            ChargeInstrument(0,0)
                            PlayNoteMIDI(0,nombre1-5,127,127)
                            Delay(nombre1*4)
                        EndIf  
                    Until Eof(1)<>0 
                    EndIf
                    CloseFile(1)  
            EndSelect  
        EndIf 
        StartDrawing(WindowOutput() ) 
        Locate(0, 10) 
        DrawText(" La Musique est généré par les Octets du Fichier !!") 
        Locate(0, 50) 
        DrawText(" Vous pouvez entendre le Chants des Lettres") 
        Locate(0, 100) 
        DrawText(" Vous pouvez charger tout sorte de fichier")  
        StopDrawing() 
        
Until Event=#PB_Event_CloseWindow 


Procedure SendMIDIMessage(nStatus.l,nCanal.l,nData1.l,nData2.l)
    dwFlags.l = nStatus | nCanal | (nData1 << 8) | (nData2 << 16)
    temp.l = midiOutShortMsg_(m_hMidiOut,dwFlags);
    If temp<>0
        MessageRequester("Problème", "Erreur dans l'envoi du message MIDI",0)
    EndIf
EndProcedure
Procedure MIDIOpen()
    If m_MIDIOpen = 0
        If midiOutOpen_(@m_hMidiOut,MIDIMAPPER,0,0,0) <> 0
            MessageRequester("Problème", "Impossible d'ouvrir le périphérique MIDI",0)
        Else
            SendMIDIMessage($C0,0,0,0)
            m_MIDIOpen = 1
        EndIf
    EndIf
EndProcedure
Procedure PlayNoteMIDI(Canal.b,Note.b,VelociteDown.b,VelociteUp.b)
    If m_MIDIOpen
        SendMIDIMessage($80 | Canal,0,Note,VelociteDown)
        SendMIDIMessage($90 | Canal,0,Note,VelociteUp)
    EndIf         
EndProcedure
Procedure ChargeInstrument(Canal.b,Instrument.b)
    If m_MIDIOpen
        SendMIDIMessage($C0 | Canal,0,Instrument,0)
    EndIf         
EndProcedure

gansta93

Deux question :
A. Un son midi ne sera pas joué normalemant... normal ?
2. Comment on change d'instrument ?
Encore un graphique ?

Oliv · **Inscription:** Mer 21/Jan/2004 18:39 **Messages:** 2117

Autoexec.bat est particulièrement sympa.
Vraiment marrant

Oui Ganstra, pour ta question 1 c'est logique

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12956

Citation:

Deux question :
A. Un son midi ne sera pas joué normalemant... normal ?
2. Comment on change d'instrument ?
Encore un graphique ?

comprend pas du tout ta question A!!!

pour changer d'instrument tu va dans le listing

les ligne marque ; " ChargeInstrument(0,804) " le 804 c'est l'instrument !!

mettre un zero a la place = piano !!

gansta93

Oui c lc... si tu le dis :-)

.
Mais c vrai que c marant... mais pour la deuxième question pk j'y arrive pas ?
Arf... pour la première... enseignez-moi la logique svp :-)

.

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12956

ben pour le midi , moi je peut dire un son midi
car j'utilise un expandeur logiciel !!

mais c'est vrai qu'il sagit de code midi , pour actionner des sons

gansta93

OK... on va dire que j'ai compris :-)

.
Mais pour l'autre question, parcontre, toujours pas compris... quel listing... sois je suis bête, sois... je sais pas.

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12956

j'ai modifier un peut ma potion pour que l'instrument "Basse"
ne sonne jamais faux avec l'autre instrument !
(ha les mysteres de la musique et de l'harmonie

!! )

@ Gansta93 : il sagit de ce listing !!!!!!!

j'avais juste prevu un petit truc , mais effectivement je proposerai
une interface plus aisé , pour le choix des parametres !!

ps : : Actuellement je m'ecoute Kazaa lite !!
c'est ...... ethnique !! :lol:

ça me donne une idée , rajout de batterie et d'autre instruments !!
encore un module pour l'editeur de son de ZAPMAN

Code:

; Prg realisé par Dobro
Declare MIDIOpen()
Declare ChargeInstrument(Canal.b,Instrument.b)
Declare SendMIDIMessage(nStatus.l,nCanal.l,nData1.l,nData2.l)
Declare PlayNoteMIDI(Canal.b,Note.b,VelociteDown.b,VelociteUp.b)

Global m_hMidiOut,m_MIDIOpen.b

MIDIOpen() : ChargeInstrument(0,806); canal , instrument 

PlayNoteMIDI(0,50,127,127)  ; note de 15 a 108






;- Window Constants
;
Enumeration
    #Window_1
EndEnumeration
;- MenuBar Constants
;
Enumeration
    #MenuBar_4
EndEnumeration

Enumeration 
    #MENU_26 
EndEnumeration

;- StatusBar Constants
;
Enumeration
    #StatusBar_0
EndEnumeration



Procedure Open_Window_1()
    If OpenWindow(#Window_1, 183, 0, 400, 200,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered , "Le Chant des Mots")
        If CreateMenu(#MenuBar_4, WindowID())
            MenuTitle("Fichier") 
            MenuItem(#MENU_26, "Ouvrir") 
        EndIf 
        If CreateStatusBar(#StatusBar_0, WindowID())
            AddStatusBarField(550)
            StatusBarText(#StatusBar_0, 0, "field")
        EndIf 
        If CreateGadgetList(WindowID())
        EndIf
    EndIf
EndProcedure

Open_Window_1()
WindowID = WindowID(#Window_1) 

; If CreateStatusBar(#StatusBar_0, WindowID())
    ; AddStatusBarField(550)
    ; StatusBarText(#StatusBar_0, 0, "field",#PB_StatusBar_Center    )
; EndIf 
; *****************************************

Repeat 
    Event=WaitWindowEvent()
     menu=EventMenuID()  
    ;gestion du menu
    If Event = #PB_Event_Menu   : ; on a clique sur un menu
        menuID = EventGadgetID(): ; lequel ??  
        Select menuID
            Case 0
                NomFichier$ = OpenFileRequester("Charger un fichier TEXT", "c:\", "*.*", 0)  
                If OpenFile(1, NomFichier$)  
                    Repeat 
                        Nombre = ReadByte()  
                        If Nombre<0
                            nombre1=Nombre+256
                        Else
                            nombre1=Nombre
                        EndIf 
                         ; Main Gauche (Basse)
                        nombre1=Nombre%108 
                        If nombre1 >15 And nombre1<46
                            ChargeInstrument(0,35)
                            PlayNoteMIDI(0,nombre1-21+nombre1,127,127)
                            Delay(nombre1*2)
                        EndIf  
                         ; Main Droite
                        If nombre1 >46 And nombre1<108 
                            ChargeInstrument(0,0)
                            PlayNoteMIDI(0,nombre1-(nombre1/4),127,127)
                            Delay(nombre1*2)
                        EndIf  
                    Until Eof(1)<>0 
                    EndIf
                    CloseFile(1)  
            EndSelect  
        EndIf 
        StartDrawing(WindowOutput() ) 
        Locate(0, 10) 
        DrawText(" La Musique est généré par les Octets du Fichier !!") 
        Locate(0, 50) 
        DrawText(" Vous pouvez entendre le Chants des Lettres") 
        Locate(0, 100) 
        DrawText(" Vous pouvez charger tout sorte de fichier")  
        StopDrawing() 
        
Until Event=#PB_Event_CloseWindow 


Procedure SendMIDIMessage(nStatus.l,nCanal.l,nData1.l,nData2.l)
    dwFlags.l = nStatus | nCanal | (nData1 << 8) | (nData2 << 16)
    temp.l = midiOutShortMsg_(m_hMidiOut,dwFlags);
    If temp<>0
        MessageRequester("Problème", "Erreur dans l'envoi du message MIDI",0)
    EndIf
EndProcedure
Procedure MIDIOpen()
    If m_MIDIOpen = 0
        If midiOutOpen_(@m_hMidiOut,MIDIMAPPER,0,0,0) <> 0
            MessageRequester("Problème", "Impossible d'ouvrir le périphérique MIDI",0)
        Else
            SendMIDIMessage($C0,0,0,0)
            m_MIDIOpen = 1
        EndIf
    EndIf
EndProcedure
Procedure PlayNoteMIDI(Canal.b,Note.b,VelociteDown.b,VelociteUp.b)
    If m_MIDIOpen
        SendMIDIMessage($80 | Canal,0,Note,VelociteDown)
        SendMIDIMessage($90 | Canal,0,Note,VelociteUp)
    EndIf         
EndProcedure
Procedure ChargeInstrument(Canal.b,Instrument.b)
    If m_MIDIOpen
        SendMIDIMessage($C0 | Canal,0,Instrument,0)
    EndIf         
EndProcedure

gansta93

Bon... je déclare forfet...

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12956

bon en ecrivant en français !! c'est quoi ton problem au juste ???

gansta93

Dobro a écrit:

bon en ecrivant en français !! c'est quoi ton problem au juste ???

Bon... partons du fait que je suis stupide (on a pas à partir du fait, vu que ça doit être le cas).
Tu me parle d'un listing, mais en dessous, c tout le code... listing... aussi visible que tout ce que je peux voir (rien !)

Jacobus · **Inscription:** Mar 06/Avr/2004 10:35 **Messages:** 1493

Citation:

un prg 100% DD (Dobro Delirium !)

C'est clair !!
J'ai essayé ton machin sur une photo de ma tronche
en JPEG couleur. Ce bordel !!
Toute une symphonie d'environ 8 minutes.
Il a pas dû apprécier mon physique de rêve :lol:

Plantage ! impossible de récupérer sans le debugger.

M'enfin t'es un génie pour pondre des trucs pareils

garzul · **Inscription:** Mer 26/Mai/2004 0:33 **Messages:** 684

Super !!

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12956

@ Gansta93 :

un listing est un ensemble de ligne de code !!

tu voulais savoir comment on change l'instrument !!

dans le Code (Listing) tu as 2 lignes

Code:

ChargeInstrument(0,5)

le 5 represente l'instrument numero 5 (un piano) de la norme General Midi

qui je le rapel va de 0 a 127 !!! au dela c'est des sons rajouter par des nouvelles normes (Roland , yamaha)

donc dans mon code les lignes " ChargeInstrument(0,0) "
indique: ChargeInstrument(Canal.b,Instrument.b)

voila !!
si tu n'entend rien ça peut etre tes parametres de volume de ta carte son

@Jacobus :

Citation:

M'enfin t'es un génie pour pondre des trucs pareils Very Happy

Merci c'est super sympath !!

le plantage viens surement du fait que ma boucle des event n'est pas
mise a jour , j'ai fait ça a la vas-vite comme d'hab !! :lol:

sur le meme principe tu peut faire des dessins !!

lorsque le chiffre est entre tel et tel valeur tu trace un cercle bleu d'une certaine taille , et d'autre forme ou point de couleur pour d'autre valeur !!

cela fera des fichier qui dessineront des tableaux moderne !!
je ferai peut etre une variante un de ces quatre !!

a moins que cela ne te donne envie de t'y mettre ??

Oliv · **Inscription:** Mer 21/Jan/2004 18:39 **Messages:** 2117

Dobro a écrit:

le plantage viens surement du fait que ma boucle des event n'est pas
mise a jour , j'ai fait ça a la vas-vite comme d'hab !! :lol

Ah les génies......toujours trop d'idée en tête, çaveux toujours en faire trop à la fois. :lol:

PureBasic

Le Chant des Lettres

Qui est en ligne