Differenze tra le versioni di "Rilevare se la scheda audio sta processando dati audio"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per rilevare se una o più schede audio, e quali loro dispositivi, stanno processando dati audio, è possibile utilizzare questo codice: '''Public''' Sub Main() Dim i As ...') |
|||
Riga 1: | Riga 1: | ||
− | Per rilevare se una o più schede audio, e quali loro dispositivi, stanno processando dati audio, è possibile utilizzare questo codice: | + | Per rilevare se una o più schede audio, e quali loro dispositivi, stanno eventualmente processando dati audio, è possibile utilizzare questo codice: |
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Versione delle 11:39, 26 ott 2013
Per rilevare se una o più schede audio, e quali loro dispositivi, stanno eventualmente processando dati audio, è possibile utilizzare questo codice:
Public Sub Main() Dim i As Integer Dim ss As New String[] Dim j As Byte Dim s As String ' Verifica innanzitutto quante schede audio sono rilevate dal sistema: i = Dir("/proc/asound", "card*", gb.Directory).Count Print "Il sistema ha rilevato num. " & i & " Schede audio:" ' Quindi verifica quali dispositivi di quali schede audio stanno eventualmente processando segnali audio: ss = Split(File.Load("/proc/asound/cards"), Chr(10)) For j = 0 To (ss.Count / 2) Step 2 Print "\n\n"; ss[j] If j > 0 Then Dec j For Each s In Dir("/proc/asound/card" & j, "pcm*p", gb.Directory) Print "Device: "; s If File.Load("/proc/asound/card" & j &/ s & "/sub0/status") Like "*RUNNING*" Then Print "Questo dispositivo della scheda audio sta processando segnali audio !" Else Print "Questo dispositivo della scheda audio non sta processando alcun segnale audio." Endif Next Next End