Begin VB.Form Form1 
   Caption         =   "SpeedFan auslesen"
   ClientHeight    =   2430
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4875
   LinkTopic       =   "Form1"
   ScaleHeight     =   2430
   ScaleWidth      =   4875
   StartUpPosition =   3  'Windows-Standard
   Begin VB.TextBox Text4 
      Height          =   2355
      Left            =   3300
      MultiLine       =   -1  'True
      TabIndex        =   2
      Top             =   60
      Width           =   1575
   End
   Begin VB.TextBox Text3 
      Height          =   2355
      Left            =   1680
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   60
      Width           =   1575
   End
   Begin VB.TextBox Text2 
      Height          =   2355
      Left            =   60
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   60
      Width           =   1575
   End
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   4920
      Top             =   60
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
Dim temp1, temp2 As Long
Dim blah As SpeedFan_Data
blah = SpeedFan_GetStatus
 
temp1 = Text2.SelStart: temp2 = Text2.SelLength
Text2.Text = ""
For x = 1 To blah.Temps
  Text2.Text = Text2.Text & "Temp" & x & ": " & blah.Temp(x - 1) & "°C" & _
    vbNewLine
Next
Text2.SelStart = temp1: Text2.SelLength = temp2
 
temp1 = Text3.SelStart: temp2 = Text3.SelLength
Text3.Text = ""
For x = 1 To blah.Fans
  Text3.Text = Text3.Text & "Fan" & x & ": " & blah.Fan(x - 1) & "RPM" & _
    vbNewLine
Next
Text3.SelStart = temp1: Text3.SelLength = temp2
 
temp1 = Text4.SelStart: temp2 = Text4.SelLength
Text4.Text = ""
Text4.Text = Text4.Text & "Vcore: " & blah.Volt(0) & "V" & vbNewLine
Text4.Text = Text4.Text & "+12V: " & blah.Volt(1) & "V" & vbNewLine
Text4.Text = Text4.Text & "3,3V: " & blah.Volt(2) & "V" & vbNewLine
Text4.Text = Text4.Text & "+5V: " & blah.Volt(3) & "V" & vbNewLine
Text4.Text = Text4.Text & "Vin2: " & blah.Volt(4) & "V" & vbNewLine
Text4.Text = Text4.Text & "5Vsb: " & blah.Volt(5) & "V" & vbNewLine
Text4.Text = Text4.Text & "Vbat: " & blah.Volt(6) & "V" & vbNewLine
Text4.SelStart = temp1: Text4.SelLength = temp2
End Sub