lecture du son du mixage stereo

[GETF]

bonjour a tout et a tous
je code un programme qui a besoin de lire le DATA que mon pc me lance dans les oreille
j'aimerais que les donné arrive dans une AllocateMemory() en résolution 16-bit (si possible pour le 16-bit)
et j'ai pas trouvé se que je voulais sauf de la lecture de DATA qui viens d'internet avec FModex (pureradio si c'est sa)
si un de vous pouvais me donné de l'aide pour les qu'elle que ligne de code qui me manque
merci

cordialement GetFunction("antidecodeur")

[GETF]

vous pouvais m'aidé
ou c'est pas possible
il me faudrait juste les ligne de code qui me manque
il doit y avoir une zone dans la RAM qui a le sont avant de le donné a la puce son
y a t'il une api sur windows qui peu me la donné

version de PB 5.00 full-version 64x

[kernadec]

Bonjour GETF
je sais pas si c'est possible de récupérer le mixage
quand le drivers audio n'as pas été installé avec l'option mixage.

J'ai réglé le problème de mon NetBook Packard Bell "dot"se windows7 32bit
qui n'as pas l'option mixage installée d'origine, mais juste le mode micro...
En allant chez Realtek télécharger le driver "hight definition audio"
j'ai obtenu le mixage audio sur le Netbook.... trop cool...

En fait Windows installe une version de base avec le micro par défaut
et les mises à jours depuis Microsoft n'y change rien...on reste avec le micro

ps: je suis allé chez Realtek, Car c'est le concepteur de la carte son de ma carte mère
Et en téléchargeant les pilotes complets et à jours on obtient le mixage
j'ai évité d'aller chez Packard Bell pour ré-obtenir le pilote d'origine, qui lui est sans mixage.
je pense que pour les autres constructeurs, c'est la même chose...

Cordialement

[GETF]

oui mais se que je veux c'est récupéré le son qui viens du micro et/ou du pc
donc j'ai dit mixage stéréo par habitude
pour résumé je veux lire le data qui viens de la carte son
il y a une API qui peu me faire sa ?

vue que PB peu nous faire écouté du son dans les programme qu'on code
je ne sais pas si il y a possibilité de programmer un truc
qui ressemble a un enregistreur audio
il y a des logiciel qui arrive bien a le faire
je ne vois pas pourquoi nous on peu pas avec PB
je doit utilisé de l'ASM dans mon code ?
faire un rec du son et sélectionné l'entré et/ou sorti son du pc que on veux utilisé
c'est trop dur ?
on peu diffusé mais pas rec ni select l'entré/sorti
@fred voila de quoi t'occupé ajouté des fonction a la lib qui nous permet le select l'entré/sorti
un peu comme sa

setsoundouput(ID)
(et l'ID serai la sorti audio de notre chois)
soundouputbuffer(*buffer,longeur [,cannal])
setsoundinput(ID, *buffer ,longeur)
(pour c'est 2 la, la zone memoir (*buffer) serai mise a jour tout seul)

on va encore me dire que c'est pas bien
sinon il y a une solution ?

[kernadec]

as tu essayé ce code du forum anglais
http://www.purebasic.fr/english/viewtop ... 27&t=54647

voir aussi ce post pour la capture audio
http://www.purebasic.fr/english/viewtop ... =12&t=7009

cordialement

[GETF]

merci
mais autre problème qui viens d'arrivé
voila le code

Code : Tout sélectionner

;http://purebasic.fr/english/viewtopic.php?p=409247#p409247
IncludeFile"MeterGadget.pbi"

EnableExplicit

#Title = "Line_In_Monitor"
#MainWin = 0
#MainMenu = 0

Enumeration ;menu items
   #MenuItemExit = 0
   #Mono = 1
   #Stereo = 2
EndEnumeration

Enumeration ; gadgets
   #Meter_Left
   #Meter_Right
   #ChkBox_L
   #ChkBox_R
EndEnumeration

Global hWindow, threadID, threadID2, audioSemaphore, meterSemaphore
Global wpa.l, lpa.l
Global lBuf, nDev, size, nBuf = 8
Global *buffer, *wave, *audioBuffer = AllocateMemory(32768)
Global format.WAVEFORMATEX
Global Dim inHdr.WAVEHDR(nBuf - 1)

Procedure Verify(result, text.s)
   If result = 0
      MessageRequester("Fatal Error!", "Unable to execute --> " + text)
      End
   EndIf
   ProcedureReturn result
EndProcedure

Procedure GUI_CALLBACK(hWnd.l, Msg.l, wParam.l, lParam.l)
   
   If Msg = #MM_WIM_DATA
      wpa = wParam
      lpa = lParam
      SignalSemaphore(audioSemaphore) ; trigger for AUDIO_LOOP()
   EndIf
   
   ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

Procedure INIT_GUI()
   Protected WinWidth  = 540
   Protected WinHeight = 220 + MenuHeight()
   Protected  Flags = #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget
   hWindow = Verify(OpenWindow(#MainWin, 0, 0, WinWidth, WinHeight, #Title, Flags), "OpenWindow")
   Verify(CreateMenu(#MainMenu, WindowID(#MainWin)), "CreateMenu")
   MenuTitle("File")
      MenuItem(#MenuItemExit, "Exit")
   MenuTitle("Config")
      MenuItem(#Mono, "Mono")
      MenuItem(#stereo, "Stereo")
      SetMenuItemState(#MainMenu, #Stereo, #True)
   
   Flags = #MTR_STYLE_VU | #MTR_STYLE_LED
   Verify(MeterGadget(#Meter_Left, 10, 10, 250, "Left", Flags), "MeterGadget")
   Verify(MeterGadget(#Meter_Right, 280, 10, 250, "Right", Flags), "MeterGadget")
   
   CheckBoxGadget(#ChkBox_L, 010, 185, 120, 25, "Enable Smoothing")
   CheckBoxGadget(#ChkBox_R, 280, 185, 120, 25, "Enable Smoothing")
   
   SetWindowCallback(@GUI_CALLBACK())
EndProcedure

Procedure INIT_CAPTURE()
   Protected i, lBufopt.f, refreshTime.i, result
   
   If IsThread(threadID) <> 0 : PauseThread(threadID) : EndIf
   
   refreshTime = 85 ; approximate meter refresh rate in milliseconds
   
   With format
      \nChannels = GetMenuItemState(#MainMenu, #Stereo) + 1
      \nSamplesPerSec = 11025
      \wFormatTag = #WAVE_FORMAT_PCM
      \wBitsPerSample = 16
      \cbSize = 0
      \nBlockAlign = (\nChannels * \wBitsPerSample) / 8
      \nAvgBytesPerSec = \nSamplesPerSec * \nBlockAlign
   
      ; calculate optimum buffer size using approximate refreshTime
      lBufopt = 2 * \nSamplesPerSec * (refreshTime / 1000) * \nChannels
      ; actual buffer size must be a power of 2
      ; this calculates the next larger power of 2 from lBufopt
      lBuf = Pow(2, Int(Log(lBufopt) / Log(2)) + 1)
   EndWith
   
   If #MMSYSERR_NOERROR = waveInOpen_(@*wave,#WAVE_MAPPER,@format,hWindow,#Null,#CALLBACK_WINDOW|#WAVE_FORMAT_DIRECT)
      For i = 0 To nBuf - 1
         inHdr(i)\lpData = AllocateMemory(lBuf)
         inHdr(i)\dwBufferLength = lBuf
         waveInPrepareHeader_(*wave, inHdr(i), SizeOf(WAVEHDR))
         waveInAddBuffer_(*wave, inHdr(i), SizeOf(WAVEHDR))
      Next
      
      If waveInStart_(*wave) : Verify(#False, "waveInStart") : EndIf
   EndIf
   
   If IsThread(threadID) <> 0 : ResumeThread(threadID) : EndIf
   
EndProcedure

Procedure CAPTURE_STOP()
   Protected i
   
   If *wave
      waveInReset_(*wave)
      waveInStop_(*wave)
      For i = 0 To nBuf - 1
         If inHdr(i)\lpData
            waveInUnprepareHeader_(*wave,inHdr(i),SizeOf(WAVEHDR))
            FreeMemory(inHdr(i)\lpData)
            inHdr(i)\lpData = 0
         EndIf
      Next
      waveInClose_(*wave)
   EndIf
   
EndProcedure

Procedure EVENT_LOOP()
   Protected Quit = #False
   
   Repeat
      Select WaitWindowEvent()
         Case #PB_Event_CloseWindow
            Quit = #True
            
         Case #PB_Event_Menu
            Select EventMenu()
               Case #MenuItemExit : Quit = #True
               Case #Mono
                  SetMenuItemState(#MainMenu, #Mono, #True)
                  SetMenuItemState(#MainMenu, #Stereo, #False)
                  CAPTURE_STOP() : INIT_CAPTURE()
               Case #Stereo
                  SetMenuItemState(#MainMenu, #Mono, #False)
                  SetMenuItemState(#MainMenu, #Stereo, #True)
                  CAPTURE_STOP() : INIT_CAPTURE()
            EndSelect
            
         Case #PB_Event_Gadget
            Select EventGadget()
               Case #ChkBox_L
                  If GetGadgetState(#ChkBox_L) : SetMeterSmoothing(#Meter_Left, 8)
                  Else : SetMeterSmoothing(#Meter_Left, 0)
                  EndIf
               Case #ChkBox_R
                  If GetGadgetState(#ChkBox_R) : SetMeterSmoothing(#Meter_Right, 8)
                  Else : SetMeterSmoothing(#Meter_Right, 0)
                  EndIf
            EndSelect
         
      EndSelect
      
   Until Quit = #True
   
EndProcedure

Procedure METER_REFRESH()
   Protected maxL, maxR, ch, i, amp, inc, limit, value.w
   
      inc = format\nChannels * 2
      limit = lBuf - inc
      maxL = 0 : maxR = 0 : i = 0
      
      For ch = 1 To format\nChannels
         Repeat
            value = PeekW(*audioBuffer + i)
            If value < 0 : value = -value  : EndIf
            If value > maxR : maxR = value : EndIf
            i + inc
         Until i > limit
         
         If ch = 1 : Swap maxL, maxR : EndIf
         i = 2
         limit + 2
      Next ch
      maxL * 100 / 32767 + 1
      maxR * 100 / 32767 + 1
      SetMeterState(#Meter_Left, maxL)
      SetMeterState(#Meter_Right, maxR)
   
EndProcedure

Procedure AUDIO_LOOP(null)
   Protected *hWave.WAVEHDR
   Repeat
      WaitSemaphore(audioSemaphore)
      
      *hWave = lpa
      *buffer = *hWave\lpData
      size = *hWave\dwBytesRecorded
      
      waveInAddBuffer_(wpa, *hWave, SizeOf(WAVEHDR))
      
      If *buffer <> 0
         CopyMemory(*buffer, *audioBuffer, size)
      EndIf
      
      METER_REFRESH()
   ForEver
EndProcedure

audioSemaphore = CreateSemaphore(0)
threadID = CreateThread(@AUDIO_LOOP(), #Null) ; THREAD TO HANDLE CALLBACK

INIT_GUI()
INIT_CAPTURE()
EVENT_LOOP()

End

sa me dit

la procédure spécifie dans @procedurname n'a pas le(s)......

et des que je l’enlève sa marche pas
si tu sais faire un code simple avec sa
-init
-lecture
et que tous sa le transfert dans un AllocateMemory(65535)
car je sais pas comment faire juste pour avoir l'essentiel
avec un truc comme sa
si sa peu être dans un Thread le init et la lecture avec un Sémaphore pour evité que je me retrouve avec du data qui bouge pendant que je tape l'incruste dans la memoir
je sais pas travaillé avec du Thread + Sémaphore
(ps: évite le super flux)

[kernadec]

bonjour
là, tu est passé au tableau de bord

déjà l'audio, je ne suis pas un virtuose.
en plus, c'est pas ma période ou j'ai vraiment du temps par cela

mais sur le forum anglais avec une recherche "record audio"
tu devrais trouver ton bonheur

déjà la bonne version de "MeterGadget.pbi"
http://www.purebasic.fr/english/viewtop ... 12&t=54117

et puis un truc comme portaudio
http://www.purebasic.fr/english/viewtop ... 12&t=40769

Cordialement

[GETF]

désolé de te le dire
mais il y a pas de code avec l'essentiel
c'est juste pour une lecture et c'est tous
c'est qu'une carte son
zut a la fin
je vais jamais finir se que je voulais
DE L'AIDE SVP
il y a aussi sur le fofo anglais qui veux la même chose
et rien sauf du super flux
de
1- les GUI_CallBack() marche pas
2- il y a déjà des oublie de partout
3- des fonction qui on été inventé même si j'inclue les autre fichier
4- et des pointeur qui on comme valeur 0
se n'est pas pour rien si je demande de l'aide
ooh que sa me gave
bref on positive
qui peu m'aidé ?

[kernadec]

bonsoir GETF
regarde ce code, il met un son en mémoire et l’enregistre ensuite...
Cordialement

Code : Tout sélectionner

; http://www.purearea.net/pb/CodeArchiv/Music+Movie/Wave/MakeSound.pb
; http://www.purebasic.fr/english/viewtopic.php?f=13&t=53610&start=15

; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=871
; Author: GPI (updated for PB3.91+ by Andre, updated for PB 4.00 by Andre)
; Date: 03. May 2003
; OS: Windows
; Demo: Yes
;Modified to make it write out the sound file

Structure WAVE
  wFormatTag.w
  nChannels.w
  nSamplesPerSec.l
  nAvgBytesPerSec.l
  nBlockAlign.w
  wBitsPerSample.w
  cbSize.w
EndStructure


Procedure WriteSound(filename$, *mem)
  If CreateFile(0, filename$)  
    WriteData(0, *mem, MemorySize(*mem))
    CloseFile(0)
  EndIf
EndProcedure

Procedure MakeSound(id, Frequency, duration);
  SoundValue.b
  w.f; // omega ( 2 * pi * frequency)
  #Mono = $0001;
  #SampleRate = 11025; // 8000, 11025, 22050, or 44100
  #RiffId = "RIFF";
  #WaveId =  "WAVE";
  #FmtId =   "fmt ";
  #DataId =  "data";
  
  WaveFormatEx.WAVE
  WaveFormatEx\wFormatTag = #WAVE_FORMAT_PCM;
  WaveFormatEx\nChannels = #Mono;
  WaveFormatEx\nSamplesPerSec = #SampleRate;
  WaveFormatEx\wBitsPerSample = $0008;
  WaveFormatEx\nBlockAlign = (WaveFormatEx\nChannels * WaveFormatEx\wBitsPerSample) / 8
  WaveFormatEx\nAvgBytesPerSec = WaveFormatEx\nSamplesPerSec * WaveFormatEx\nBlockAlign;
  WaveFormatEx\cbSize = 0;
  
  DataCount = (duration * #SampleRate) / 1000; // sound data
  RiffCount = 4 + 4 + 4 + SizeOf(WAVE) + 4 + 4 + DataCount
  
  *MS = AllocateMemory(RiffCount + 100)
  i = 0
  
  PokeS(*MS+i, #RiffId): i + 4   ;'RIFF'
  PokeL(*MS+i, RiffCount): i + 4 ;file Data size
  PokeS(*MS+i, #WaveId):i + 4   ;'WAVE'
  PokeS(*MS+i, #FmtId):i + 4    ;'fmt '
  TempInt = SizeOf(WAVE);
  PokeL(*MS+i, TempInt):i + 4   ;TWaveFormat data size
  
  PokeW(*MS+i, WaveFormatEx\wFormatTag):i + 2; WaveFormatEx record
  PokeW(*MS+i, WaveFormatEx\nChannels):i + 2
  PokeL(*MS+i, WaveFormatEx\nSamplesPerSec):i + 4
  PokeL(*MS+i, WaveFormatEx\nAvgBytesPerSec):i + 4
  PokeW(*MS+i, WaveFormatEx\nBlockAlign):i + 2
  PokeW(*MS+i, WaveFormatEx\wBitsPerSample):i + 2
  PokeW(*MS+i, WaveFormatEx\cbSize):i + 2
  
  PokeS(*MS+i, #DataId):i + 4   ;'data'
  PokeL(*MS+i, DataCount):i + 4 ;sound data size
  
  ;{Calculate And write out the tone signal}  // now the Data values
  
  w = 2 * #PI * Frequency;  omega
  For j = 0 To DataCount - 1
    ;// wt = w *j /SampleRate
    ;SoundValue := 127 + trunc(127 * Sin(j * w / SampleRate));
    SoundValue = 127 + 127 * Sin(j * w / #SampleRate);
    PokeB(*MS+i, SoundValue):i + 1;
  Next
  
  CatchSound(id, *MS)
  ProcedureReturn *MS
EndProcedure

Procedure QuitSound(id, *mem)
  StopSound(id)
  FreeSound(id)
  FreeMemory(*mem)
EndProcedure

InitSound()

freq = 300 ; Set the frequency
time = 1000 ; Set duration
*mysound = MakeSound(0, freq, time)

PlaySound(0)
Delay(2000)

WriteSound("mysound.wav", *mysound)
QuitSound(0, *mysound)

[GETF]

bon merci de m’avoir fais perde mon temps
je veux lire le data qui viens de ma carte son
et pas crée un fichier wave
donc tu stop la
car la je manque de temps je doit finir pour le 31 au soir
c'est claire ?!
bref il y a un codeur
je pense a toi @dordo si tu peu m'aidé

[Backup]

bon merci de m’avoir fais perde mon temps
je veux lire le data qui viens de ma carte son
et pas crée un fichier wave
donc tu stop la
car la je manque de temps je doit finir pour le 31 au soir
c'est claire ?!
bref il y a un codeur
je pense a toi @dordo si tu peu m'aidé

surement pas !!

tu ne demande pas de l'aide , tu l'exiges !
des gens te répondent , tu les envois Chier ...
tu dis que tu perd ton temps , mais qu'est-ce-qui peux bien te faire penser que je vais perdre le miens a te répondre ?
en plus tu n'es meme pas capable de citer mon Pseudo correctement ....



alors ,meme si tu me payais, je ne t'aiderai pas ! j'hallucine

car la je manque de temps je doit finir pour le 31 au soir
c'est claire ?!

on s'en tape de tes impératifs , t'es sur un forum Libre ici ,personne n'est a ta botte
tes problemes ne sont pas les notres ! surement pas avec ta méthode diplomatique a 2 balles

pour ma part , t'es grillé (dans le tiroir comme dirai notre Cpl-Bator )

[GETF]

j'ai jamais dit que c'est obligé
mais je voulais juste de l'aide
mais vue que je ne suis pas désiré sur le fofo
je vous dit a bientôt
merci a se qui m'on aidé il y a bien des temps

@Fred merci pour se bijoux pour la programmation
je t'oubli pas, je voudrai juste que tu supprime GETF de se forum

[Backup]

fait pas ta victime en plus !

tu demande de l'aide , kernadec prends le temps d'essayer de te répondre
ça ne te conviens pas ; et tu dis qu'en plus ça te fait perdre du temps !!! ??

faudrai peut etre pas inverser les roles ...

ça n'a rien a voir avec le fait d'etre "désiré" sur le Forum ..
que t'y soit ou pas .... que j'y soit ou pas , ça ne changera rien ...
si tu remercie les gens qui cherchent a t'aider par des "bon merci de m’avoir fais perde mon temps"
quelque soit le Forum , tu aura le meme type de réponse que la mienne !

faudrai arreter de "Profiter" des gens , en les méprisants en plus
si aujourd'hui je participe moins niveau code, c'est en parti a cause d'atitude comme la tienne !
je ne suis surement pas le seul ...

[falsam]

je code un programme qui a besoin de lire le DATA que mon pc me lance dans les oreille

se que je veux c'est récupéré le son qui viens du micro et/ou du pc
je ne sais pas si il y a possibilité de programmer un truc
qui ressemble a un enregistreur audio

Donc on est d'accord, il s'agit bien d'un enregistreur de son.

Je pense que Kernadec a même été plus que patient avec toi.

Code : Tout sélectionner

404 not found

Vouloir oublier quelqu'un, c'est y penser. (Jean de La Bruyère)