|
| 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 » | |
02-09-2009, 19.38.48 | #16 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Scaricati il file zippato e lancia l'applicativo compilato ... Meravilgioso (Y) |
03-09-2009, 14.54.58 | #17 |
Junior Member
Registrato: 31-03-2009
Loc.: Genova
Messaggi: 61
|
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) |
03-09-2009, 15.13.04 | #18 |
Gold Member
Registrato: 07-01-2002
Loc.: Milano
Messaggi: 2.863
|
Hai provato anche ad usare l'alternativa ....:
Set coltemp = GetObject("Winmgmts:root\WMI").ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature ") |
03-09-2009, 16.04.12 | #19 |
Junior Member
Registrato: 31-03-2009
Loc.: Genova
Messaggi: 61
|
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 |
03-09-2009, 16.38.59 | #20 |
Gold Member
Registrato: 07-01-2002
Loc.: Milano
Messaggi: 2.863
|
Rimane la questoine sopra .. : hai provato la dichiarazione alternativa di coltemp ?
|
03-09-2009, 18.32.22 | #21 |
Junior Member
Registrato: 31-03-2009
Loc.: Genova
Messaggi: 61
|
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 |
03-09-2009, 18.43.30 | #22 |
Gold Member
Registrato: 07-01-2002
Loc.: Milano
Messaggi: 2.863
|
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...
|
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
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 |