Differenze tra le versioni di "Rilevare se la scheda audio sta processando dati audio"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
Per rilevare se una o più schede audio, e quali loro dispositivi, stanno eventualmente 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: | ||
| + | Private Const ASOUND As String = "/proc/asound" | ||
| + | |||
| + | |||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Dim c As Byte | Dim c As Byte | ||
Dim ss As New String[] | Dim ss As New String[] | ||
| − | Dim | + | Dim ca, pc, su As String |
| − | |||
| − | |||
<FONT color=gray>' ''Verifica innanzitutto quante schede audio sono rilevate dal sistema:''</font> | <FONT color=gray>' ''Verifica innanzitutto quante schede audio sono rilevate dal sistema:''</font> | ||
Print "Il sistema ha rilevato num. " & Dir(aso, "card*", gb.Directory).Count & " Schede audio:" | Print "Il sistema ha rilevato num. " & Dir(aso, "card*", gb.Directory).Count & " Schede audio:" | ||
| − | ss = Split(File.Load( | + | ss = Split(File.Load(ASOUND &/ "cards"), gb.NewLine) |
Repeat | Repeat | ||
| Riga 24: | Riga 25: | ||
For c = 0 To ss.Max | For c = 0 To ss.Max | ||
Print "\n\n"; ss[c] | Print "\n\n"; ss[c] | ||
| − | For Each ca In Dir( | + | For Each ca In Dir(ASOUND, "card*", gb.Directory) |
| − | For Each pc In Dir( | + | For Each pc In Dir(ASOUND &/ ca, "pcm*p", gb.Directory) |
Print " [Dispositivo ]: " &/ ca &/ "\e[1m"; pc | Print " [Dispositivo ]: " &/ ca &/ "\e[1m"; pc | ||
| − | For Each su In Dir( | + | For Each su In Dir(ASOUND &/ ca &/ pc, "sub*", gb.Directory) |
| − | If InStr(File.Load( | + | If InStr(File.Load(ASOUND &/ ca &/ pc &/ su &/ "status"), "RUNNING") > 0 Then |
Print "\e[32mQuesto dispositivo della scheda audio sta processando segnali audio !\e[0m" | Print "\e[32mQuesto dispositivo della scheda audio sta processando segnali audio !\e[0m" | ||
Else | Else | ||
Versione delle 12:56, 31 ago 2020
Per rilevare se una o più schede audio, e quali loro dispositivi, stanno eventualmente processando dati audio, è possibile utilizzare questo codice:
Private Const ASOUND As String = "/proc/asound"
Public Sub Main()
Dim c As Byte
Dim ss As New String[]
Dim ca, pc, su As String
' Verifica innanzitutto quante schede audio sono rilevate dal sistema:
Print "Il sistema ha rilevato num. " & Dir(aso, "card*", gb.Directory).Count & " Schede audio:"
ss = Split(File.Load(ASOUND &/ "cards"), gb.NewLine)
Repeat
If InStr(ss[c], "]:") == 0 Then
ss.Remove(c, 1)
Else
Inc c
Endif
Until c == ss.Count
' Individua il dispositivo della scheda audio che sta eventualmente processando segnali audio:
For c = 0 To ss.Max
Print "\n\n"; ss[c]
For Each ca In Dir(ASOUND, "card*", gb.Directory)
For Each pc In Dir(ASOUND &/ ca, "pcm*p", gb.Directory)
Print " [Dispositivo ]: " &/ ca &/ "\e[1m"; pc
For Each su In Dir(ASOUND &/ ca &/ pc, "sub*", gb.Directory)
If InStr(File.Load(ASOUND &/ ca &/ pc &/ su &/ "status"), "RUNNING") > 0 Then
Print "\e[32mQuesto dispositivo della scheda audio sta processando segnali audio !\e[0m"
Else
Print "\e[0m\e[31mQuesto dispositivo della scheda audio non sta processando alcun segnale audio.\e[0m"
Endif
Next
Next
Next
Next
End
