PureBoard

Verfasst: **13.12.2004 16:09**

Sääärs! (

)

Ich wollte mal fragen, wie man in PB die Prozessortemperatur und Co.( z.B. Drehzahl der Lüfter, Temperatur im Gehäuse usw) abfragen kann.

Danke im Vorraus (<-richtig?)!!!

Christian

Verfasst: **13.12.2004 16:45**

Das ist gar nicht so einfach. Du musst durch Inline-Assembler auf das BIOS zugreifen und dort irgendwo die Daten auslesen.

Die entsprechende Doku dazu gibts bei deinem Mainboard-Hersteller. (Falls er sie rausrückt

)

Greetz Laurin

Verfasst: **13.12.2004 16:56**

Aber es muss doch eine universelle Variante geben, sonst würde z.B. SpeedFan ja nur auf ganz wenigen PCs laufen

Verfasst: **13.12.2004 17:29**

Ich hatte mal ne indirekte Temperatur-Lautstärke-Mapping-Geschichte gemacht.
Also Temperatur als Lautstärke abgebildet.
Dazu braucht man allerdings ne Soundkarte und n Schraubenzieher.
(und gute Nerven

)

Code: Alles auswählen

; PB4.10 
; Prozessortemperaturmapping auf den Gehörgang 
; BENUTZUNG AUF EIGENE GEFAHR 
; 
Enumeration 
#Window_0 
#Button_2 
#Text_0 
#Button_3 
#Button_4 
#Text_2 
EndEnumeration 

Procedure MCI(command.s) 
  result=mciSendString_(command,@buffer$,256,0) 
  ProcedureReturn result 
EndProcedure 

Procedure RecordIt(d) 
  MCI("open new type waveaudio alias aua") 
  MCI("set aua time format ms") 
  MCI("record aua from 0 to "+Str(d)+" wait") 
  MCI("save aua c:\aua.wav") 
  MCI("close aua") 
EndProcedure 


If OpenWindow(#Window_0, 337, 62, 600, 300, "MM - Prozessortemperatur feststellen",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
  If CreateGadgetList(WindowID(#Window_0)) 
    ButtonGadget(#Button_2, 490, 200, 60, 20, "Ende") 
    TextGadget(#Text_0, 20, 10, 370, 120, "") 
    ButtonGadget(#Button_3, 20, 110, 340, 60, "6. Hier drücken") 
    ButtonGadget(#Button_4, 20, 200, 340, 30, "7. Wiedergabe") 
    DisableGadget(#BUTTON_4,1) 
    TextGadget(#Text_2, 20, 250, 370, 30, "") 
    
  EndIf 
EndIf 
text.s="1. Mikrofon anschliessen."+Chr(10) 
text  +"2. Mikrofon als Aufnahmegerät auswählen."+Chr(10) 
text  +"3. Gehäuse aufschrauben und "+Chr(10) 
text  +"4. Wiedergabelautstärke auf Maximum stellen."+Chr(10) 
text  +"5. Prozessor vorsichtig mit Fingerspitze des kleinen rechten Fingers berühren."+Chr(10)+Chr(10) 
text  +"DANN" 
SetGadgetText(#Text_0,text) 

Repeat 
  Event = WaitWindowEvent() 
  If Event = #PB_Event_Gadget 
    GadgetID = EventGadget() 
    If GadgetID = #Button_2 
      End 
    ElseIf GadgetID = #Button_3 
      DisableGadget(#Text_0,1) 
      DisableGadget(#Button_3,1) 
      SetGadgetText(#Button_3,"Aufnahme läuft") 
      RecordIt(3000) 
      DisableGadget(#Button_4,0) 
      SetGadgetText(#Button_3,"6. Hier drücken") 
    ElseIf GadgetID = #Button_4 
      DisableGadget(#Button_4,0) 
      SetGadgetText(#Button_4,"Wiedergabe") 
      PlaySound_("c:\aua.wav",0,#SND_FILENAME|#SND_SYNC) 
      DisableGadget(#Button_4,1) 
      SetGadgetText(#Button_4,"7. Wiedergabe") 
      DisableGadget(#Button_3,0) 
      DisableGadget(#Text_0,0) 
      SetGadgetText(#Text_2,"Wenn das jetzt LAUT war dann ist der Prozessor recht warm.") 
    EndIf 
  EndIf 
Until Event = #PB_Event_CloseWindow 
End

Verfasst: **13.12.2004 17:38**

@bobobo
1.)

Krasses Avatar!

2.) Hehe... ich kann ja in mein Prog schreiben, dass der User den PCV aufschrauben, ein Mikro anschließen und dann auf <Aufnahme> klicken soll... Dann mach das Prog den Rest vollautomatisch

Öhm... weiß sonst irgendjemand, wie man das macht??

Verfasst: **13.12.2004 19:14**

Laurin hat dir schon den richtigen Tipp gegeben!

Verfasst: **13.12.2004 21:57**

Es gibt aber auch eine MBM5.dll , die man sich runterladen kann.
Es soll dazu auch ein Delphi-Source geben mit der man diese abfragen
können soll. Zwar habe ich die DLL, aber noch keinen Source gefunden.
Habe zwar was über Plugins gefunden, aber das ist es nicht
http://mbm.livewiredev.com/index3.html
http://mbm.livewiredev.com/mbmplugincode.html
MfG Falko

Verfasst: **14.12.2004 11:48**

glubschi90 hat geschrieben: Danke im Vorraus (<-richtig?)!!!

Fast, wird nur mit einem r geschrieben
Also: vielen Dank im Voraus

PureBoard

CPU-Temperatur und Co.

CPU-Temperatur und Co.

Re: CPU-Temperatur und Co.