Conoscere il numero dei processori presenti nel proprio calcolatore leggendo il file di sistema "cpuinfo"

Da Gambas-it.org - Wikipedia.

Per conoscere il numero dei processori presenti nel proprio calcolatore leggendo il file di sistema "cpuinfo", è possibile usare il seguente codice:

Public Sub Main()

 Dim s As String
 Dim c As Short

 s = File.Load("/proc/cpuinfo")
 c = RInStr(s, "processor\x09")

 Print "Sono presenti numero: "; Scan(s[c - 1, 16], "*: *\x0a*")[1] + 1; " CPU"

End