gamepad tester

[Unseen Machine]

Looks good to me, ill be sure to test my xbox 360 controller with it in the next couple of days and report back...

Code: (Select All)

sub resetAxisAmplitude(aa() as axis_amplitude_type)

    for i% = lbound(aa) to ubound(aa)

        aa(i%).min = 255

        aa(i%).max = 0

    next i%

end sub



sub displayTextCenter(d&,x%,y%,c&,t$)

    _dest d&

    color c&, _rgba(0,0,0,0)

    _printstring(x% - _printwidth(t$,d&)/ 2,y%),t$

end sub



sub displayTextAlignLeft(d&,x%,y%,c&,t$)

    _dest d&

    color c&, _rgba(0,0,0,0)

    _printstring(x%,y%),t$

end sub



sub displayTextAlignRight(d&,x%,y%,c&,t$)

    _dest d&

    color c&, _rgba(0,0,0,0)

    _printstring(x% - _printwidth(t$,d&),y%),t$

end sub

These should all be in one sub in my head, an Allignment flag dictating left middle or right, it'll save the select cases youve got handling it too...other wise...nice work! 

John