version
6.50
0
Form1
478
588

1
RegistryDesktop.dll
1
RegistryDevice.dll
1
reg:Registry
0
Sub designer
addform(Form1,"Form1","",220,220,220)@
addtimer(form1,Timer1,95,135,500)@
addtextbox(form1,TextBox1,40,80,150,45,"TextBox1",255,255,255,0,0,0,True,True,True,12)@
End Sub
@EndOfDesignText@

Sub Globals
key		=""	'-- value key
oldkey 	="" '-- refresh only if change
End Sub
'----------------------------------------------------------
Sub App_Start
	Form1.Show	
	If Not(cPPC) Then
		Msgbox("Only on Pocket please !")
		AppClose
	End If	
	Reg.New1
	'---- the register key
	Reg.RootKey(Reg.rtLocalMachine)
	key = "Software\HTC\HTCSensor\GSensor"
	form1.Text = "port/land"
	'---- refresh
    Timer1.Interval = 1000 'milliseconds
    Timer1.Enabled = True
End Sub
'----------------------------------------------------------
Sub moulinette

	valkey	= reg.GetValue(key,"EventChanged") 
	If oldkey <> valkey Then
	 form1.refresh
	 textbox1.Top	= form1.Height/2
	 textbox1.left	= 0
	 textbox1.width	= form1.Width
	 
	 Select valkey
	 	Case 65536 : textbox1.text = valkey & " LAND_RIGHT"
	  	Case 65537 : textbox1.text = valkey & " LAND_LEFT"
		Case 65538 : textbox1.text = valkey & " PORTRAIT_UP"
		Case 65539 : textbox1.text = valkey & " PORTRAIT_DOWN"
		Case 65540 : textbox1.text = valkey & " BACK"
		Case 65541 : textbox1.text = valkey & " HORIZON"
	 End Select	
	 oldkey = valkey
	End If
End Sub
'----------------------------------------------------------
Sub Timer1_Tick
	moulinette
End Sub