Global Fan1_div   = 7    , Fan2_div   = 7   , Fan3_div   = 7
Global Fan1_lenght= 4    , Fan2_lenght= 4   , Fan3_lenght= 4
Global Fan1_divpos= $47  , Fan2_divpos= $47 , Fan3_divpos= $47

Graphics 800,600,0,2
SetBuffer BackBuffer()

Repeat
  Cls
  Text 20,20,"Fan Speeds: (noch verbuggt)"

  Text 20, 48 ,"Fan 1: "+GetFanSpeed(1)+" RPM"
  Text 220,48, "Fan 2: "+GetFanSpeed(2)+" RPM"
  Text 420,48, "Fan 3: "+GetFanSpeed(3)+" RPM"

  Text 20,200, "Spannung: (noch verbuggt)"
  Text 20,214+(1*14) ,"VCore A: "+GetVoltage(1)
  Text 20,214+(2*14) ,"VCore B: "+GetVoltage(2)
  Text 20,214+(3*14) ,"+3.3 V : "+GetVoltage(3)
  Text 20,214+(4*14) ,"+5 V   : "+GetVoltage(4)
  Text 20,214+(5*14) ,"+12 V  : "+GetVoltage(5)
  Text 20,214+(6*14) ,"-12 V  : "+GetVoltage(6)
  Text 20,214+(7*14) ,"-5 V   : "+GetVoltage(7)

  Text 20,400, "Temperatur: (noch verbuggt)"
  Text 20,428, "CPU: "+GetCPUTemp()+" °C"
  Text 20,442, "MB : "+GetMBTemp() +" °C"


  Flip
  Delay 1000

Forever

Function GetVoltage#(id) ; 1="vcA"  2="vcB"  3="+3.3"  4="+5" 5="+12" 6="-12" 7="-5"
 Select id
   Case 1: Return ReadData($20)*Float(0.016)
   Case 2: Return ReadData($21)*Float(0.016)
   Case 3: Return ReadData($22)*Float(0.016)
   Case 4: Return ReadData($23)*Float(0.016) / Float(0.595238)
   Case 5: Return ReadData($24)*Float(0.016) / Float(0.263157)
   Case 6: a# = Float(0.0)
           d# = ReadData($25)*Float(0.016)
           v# = 3.5
           Return (d#+v#-a#)/(1-v#)*-1
 
   Case 7: Return ReadData($26)*Float(0.016)

 End Select
End Function

Function GetFanSpeed(id)
  Select id
   Case 1:
     count = ReadData(Fan1_count)
     div = Div2Num(ReadData(Fan1_divpos) Shr 4 And 3)

     Return Int(Float(Float(1.35)*10^6)/Float(count*div))

   Case 2:
     count = ReadData(Fan2_count)
     div = Div2Num(ReadData(Fan1_divpos) Shr 6  )
     Return Int(Float(Float(1.35)*10^6)/Float(count*div))

   Case 3:
     count = ReadData(Fan3_count)
     div = Div2Num(ReadData(Fan1_divpos) Shr 6)
     Return Int(Float(Float(1.35)*10^6)/Float(count*div))

  End Select
End Function

Function GetCPUTemp()
      Return ReadData($50)
End Function

Function GetMBTemp()
      Return ReadData($27)
End Function

Function ReadData(byte)
  Out32($295,$4e)
  Out32($296,Inp32($296) Or 1)
  Out32($295,byte)
  Return Inp32($296)
End Function

Function Div2Num(a)
  r = 1
  For i = 1 To a
    r = r*2
  Next
  Return r
End Function

.lib "INPOUT32.DLL"
Out32%(PortAddress%,Value%):"Out32"
Inp32%(PortAddress%):"Inp32"

SetBuffer BackBuffer()
Timer = CreateTimer(2)
Abst = 15

Dim ArrayCPU(455)
Dim ArraySys(455)

While Not KeyHit(1)
   ;Cls
   Origin 0,0
   Color 0,0,0
      Rect 0,0,480,55   
   
   Color 255,255,255
      Text 5,10, "CPU-Fan:   " + GetCPUFanSpeed() + " RPM"
      Text 5,25, "Sys-Fan:   " + GetNforceFanSpeed() + " RPM"
   Color 255,0,0
      Text 5,40, "CPU-Temp.: " + (GetCPUTemperature()-23040) + " °C"
   Color 0,255,0
      Text 5,55, "Sys-Temp.: " + (GetSystemTemperature()-11008) + " °C"
   
   AppTitle CurrentTime$()
   
   Color 100,100,100
      For i = 0 To 7
         Line 25,100+i*Abst,480,100+i*Abst
         Text 0, 95+i*Abst, 7*Abst-i*Abst
      Next
      
   ;Color 255,0,0
      LockBuffer BackBuffer()
         WritePixelFast Counter + 25, (100+7*Abst)-(GetCPUTemperature()-23040), argb_color(1,255,0,0)
         WritePixelFast Counter + 25, (100+7*Abst)-(GetSystemTemperature()-11008), argb_color(1,0,255,0)
      UnlockBuffer BackBuffer()
         
   Counter = Counter + 1
   Flip 0
   WaitTimer Timer
Wend
End

Function ARGB_Color(Alpha,Red,Green,Blue)
   Return (Alpha*$1000000+Red*$10000+Green*$100+Blue)
End Function

.lib "nvsulib.dll"
GetSystemTemperature%() : "GetSystemTemperatureDll"
GetCPUTemperature%() : "GetCPUTemperatureDll"
GetGpuAmbientTemperatureDll%(n%) : "GetGpuAmbientTemperatureDll"
GetNforceFanSpeed%(): "GetNforceFanSpeedDll"
GetCPUFanSpeed%():"GetCPUFanSpeedDll"
GetGpuCoolerLevelDll%():"GetGpuUtilizationPercentageDll"