#include <PanelMain.h> raw


Dim caoCtrl as Object
Dim m_lVal(2) as Long

Sub Panel_INITIALIZE()
	caoCtrl = cao.AddController("USBRH", "CaoProv.StrawberryLinux.USBRH", "", "")
	Timer1.Active=1
End Sub


Sub Timer1_TIMER()
	On Error Goto ErrorProc
	Dim vntVal as Variant
	vntVal = caoCtrl.Execute("GetTempHumidTrue")
	Label1.Caption = vntVal(0)
	Label3.Caption = vntVal(1)
	Exit Sub

ErrorProc:
	Label1.Caption = "--"
	Label3.Caption = "--"
End Sub
#ifdef TP_DESIGNER
'<<--TPDESIGNER_RESERVED-->>
CAPTION=""
BG=&H754E3A
FG=&H000000
TIMEOUT=200
RELEASEMODE=0
PNLCCVER=232
COLORTYPE=1
FONTTYPE=1
BORDERSTYLE=0
add_widget 2,"Label3",330,140,250,140,&H000000,&HB0B0B0,0,1,0,"Label1",34,0,"MS UI Gothic","",1,1;
add_widget 2,"Label2",50,80,250,50,&H000000,&HB0B0B0,0,1,0,"���x(��)",16,0,"MS UI Gothic","",1,1;
add_widget 2,"Label1",50,140,250,140,&H000000,&HB0B0B0,0,1,0,"Label1",34,0,"MS UI Gothic","",1,1;
add_widget 2,"Label4",330,80,250,50,&H000000,&HB0B0B0,0,1,0,"���x(%RH)",16,0,"MS UI Gothic","",1,1;
add_widget 15,"Timer1",70,320,0,0,1000;
'<<--TPDESIGNER_RESERVED-->>
#endif