Aktuelle Zeit: 26.10.2020 09:12

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 8 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: CPU-Temperatur und Co.
BeitragVerfasst: 13.12.2004 16:09 
Offline

Registriert: 04.09.2004 01:43
Wohnort: Würzburg
Sääärs! ( :mrgreen: )

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?)!!! :D

Christian

_________________
PureBasic 4.30


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags:
BeitragVerfasst: 13.12.2004 16:45 
Offline
Benutzeravatar

Registriert: 23.09.2004 18:04
Wohnort: /dev/eth0
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 :mrgreen: )


Greetz Laurin

_________________
Now these points of data make a beautiful line.
And we're out of beta. We're releasing on time.


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags:
BeitragVerfasst: 13.12.2004 16:56 
Offline

Registriert: 04.09.2004 01:43
Wohnort: Würzburg
Aber es muss doch eine universelle Variante geben, sonst würde z.B. SpeedFan ja nur auf ganz wenigen PCs laufen :roll:

_________________
PureBasic 4.30


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags:
BeitragVerfasst: 13.12.2004 17:29 
Offline
jaAdmin
Benutzeravatar

Registriert: 13.09.2004 17:48
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 :mrgreen: )


Code:
; 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

_________________
‮pb aktuell5.7 - windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.


Zuletzt geändert von bobobo am 13.03.2008 21:14, insgesamt 2-mal geändert.

Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags:
BeitragVerfasst: 13.12.2004 17:38 
Offline

Registriert: 04.09.2004 01:43
Wohnort: Würzburg
@bobobo
1.)
:lol: :lol: :lol: Krasses Avatar! :mrgreen:

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 :mrgreen:

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

_________________
PureBasic 4.30


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags:
BeitragVerfasst: 13.12.2004 19:14 
Offline

Registriert: 05.09.2004 18:47
Laurin hat dir schon den richtigen Tipp gegeben!


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags:
BeitragVerfasst: 13.12.2004 21:57 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
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

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: CPU-Temperatur und Co.
BeitragVerfasst: 14.12.2004 11:48 
Offline
Admin
Benutzeravatar

Registriert: 08.09.2004 13:19
Wohnort: Ludwigsburg
glubschi90 hat geschrieben:
Danke im Vorraus (<-richtig?)!!!

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

_________________
Beginne jeden Tag als ob es Absicht wäre!
Bild
BILDblog


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 8 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 12 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye