Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Programmazione

Notices

Rispondi
 
Strumenti discussione
Vecchio 02-09-2009, 19.38.48   #16
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne è un gioiello raroLoryOne è un gioiello raroLoryOne è un gioiello raro
Qui c'è molto di più di quello che fa al caso tuo: http://www.freevbcode.com/ShowCode.Asp?ID=9411
Scaricati il file zippato e lancia l'applicativo compilato ... Meravilgioso (Y)
LoryOne non è collegato   Rispondi citando
Vecchio 03-09-2009, 14.54.58   #17
mandrak
Junior Member
 
Registrato: 31-03-2009
Loc.: Genova
Messaggi: 61
mandrak promette bene
Ciao
Ho provato a inserire il seguente codice nell'evento Load:
_____
Private Sub Form_Load()
Dim coltemp
Dim objtemp
Set coltemp = GetObject("Winmgmts:").ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature ")
For Each objtemp In coltemp
List1.AddItem "Temp =" & objtemp.CurrentTemperature
Next
Set coltemp = Nothing
Set objtemp = Nothing

End Sub
___________

ma mi restituisce il seguente errore di "automazione":
Errore di run time : -2147217392 (80041010)
mandrak non è collegato   Rispondi citando
Vecchio 03-09-2009, 15.13.04   #18
P8257 WebMaster
Gold Member
 
Registrato: 07-01-2002
Loc.: Milano
Messaggi: 2.863
P8257 WebMaster promette bene
Hai provato anche ad usare l'alternativa ....:

Set coltemp = GetObject("Winmgmts:root\WMI").ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature ")
P8257 WebMaster non è collegato   Rispondi citando
Vecchio 03-09-2009, 16.04.12   #19
mandrak
Junior Member
 
Registrato: 31-03-2009
Loc.: Genova
Messaggi: 61
mandrak promette bene
Ciao
Ho inserito il seguente codice nell' evento load della form:
Private Sub Form_Load()
Dim coltemp
Dim objtemp
Set coltemp = GetObject("Winmgmts:").ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature ")
For Each objtemp In coltemp
List1.AddItem "Temp =" & objtemp.CurrentTemperature
Next
Set coltemp = Nothing
Set objtemp = Nothing

Al Run, mi restituisce un errore di "automazione" errore di run time -2147217392
mandrak non è collegato   Rispondi citando
Vecchio 03-09-2009, 16.38.59   #20
P8257 WebMaster
Gold Member
 
Registrato: 07-01-2002
Loc.: Milano
Messaggi: 2.863
P8257 WebMaster promette bene
Rimane la questoine sopra .. : hai provato la dichiarazione alternativa di coltemp ?
P8257 WebMaster non è collegato   Rispondi citando
Vecchio 03-09-2009, 18.32.22   #21
mandrak
Junior Member
 
Registrato: 31-03-2009
Loc.: Genova
Messaggi: 61
mandrak promette bene
Scusate prima avevo scritto due volte la stessa risposta.
(quando ho scritto la prima risposta sembrava che non l'avesse inserita e
l'ho ridigitata tutta, non mi ero accorto che c'erano due pagine).

Allora ... ho provato l'altenativa e funge.

Private Sub Form_Load()
Dim coltemp
Dim objtemp
Dim temperatura As Integer
Set coltemp = GetObject("Winmgmts:root\WMI").ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature ")
For Each objtemp In coltemp
temperatura = (objtemp.CurrentTemperature - 2732) / 10#
List1.AddItem "Temp =" & temperatura
Next
Set coltemp = Nothing
Set objtemp = Nothing
End Sub

Ho però dovuto inserire la formuma perche mi dava un valore di oltre 2000 °C
Con la formula mi risponde con 22 °C, già più accettabile ma forse troppo basso.
per verificare dovrei accedere al bios per sapere il valore corretto e poi adattare la formula, comunque funziona.
grazie di tutto.
Guarderò anche il link http://www.freevbcode.com/ShowCode.Asp?ID=9411
grazie
mandrak non è collegato   Rispondi citando
Vecchio 03-09-2009, 18.43.30   #22
P8257 WebMaster
Gold Member
 
Registrato: 07-01-2002
Loc.: Milano
Messaggi: 2.863
P8257 WebMaster promette bene
Il valore che ti restituisce è già il valore del bios, è sicuramente sbagliato (a meno che tu non raffreddi il pc utilizzando il liquido) perché tutti i sensori hanno dei grandi margini di errore, dipendono dalla qualità dei sensori stessi, da dove i sensori sono piazzati e dalla versione del software del bios...
P8257 WebMaster non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
Crociera virtuale intorno al mondo, unico bagaglio... fantasia! Lionsquid Chiacchiere in libertà 1492 24-04-2009 09.08.28
revoca dello Status di Obiettori di Coscienza top gun Chiacchiere in libertà 101 12-09-2005 19.10.47
BUONA PASQUA , celebrazione di un evento. Giorgio Drudi Chiacchiere in libertà 78 27-03-2005 13.18.05
beep al boot maefe Hardware e Overclock 6 08-11-2003 12.06.56

Orario GMT +2. Ora sono le: 13.34.11.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.