GETRC with xmega128d4

boeseturbo · Joined: 23 Jul 2007 Posts: 46

Hi friends,

I tried to make cap. touchsensor (I use 1k 100nF like in helpfile). This working on mega328PB very good, but same code on XMEGA128D4 isn working.

Dim W As Word

Do

'the first parameter is the PIN register.

'the second parameter is the pin number the resistor/capacitor is connected to

'it could also be a variable!

W = Getrc(pind , 4)

Print W

Wait 1

W is also zero on xmega.

Has anybody a solution for this?

Cheers

Jan

(BASCOM-AVR version : 2.0.7.8 )

albertsm · Joined: 09 Apr 2004 Posts: 5922 Location: Holland

try to use a virtual port. (config VPORT0)

boeseturbo · Joined: 23 Jul 2007 Posts: 46

Hi Mark,

can you send me a sample?

I tried this and have no luck with it Sad

enniom · Joined: 20 Oct 2009 Posts: 537

Have you seen my dog?

0
\___/
/\ /\

??

boeseturbo · Joined: 23 Jul 2007 Posts: 46

boeseturbo · Joined: 23 Jul 2007 Posts: 46

so,

I rewrite lib.... include attachment... Than it will work (in this case for Portb)...

$lib "getRc_xmega_PINB.lib"

touch=getrc(pinB,7)

Cheers

NOTE : nice to share but notice that it is not allowed to publish the libs without prior permission. MCS will check this.

you replaced code like
Ldd r22,Z+1 ; get DDRx
with
Lds r22,DDRB ; get DDRx

that is nice but not the proper way.

MSX · Joined: 17 Nov 2005 Posts: 5

I did it "by hand":

Printpix52 · Joined: 18 Jun 2014 Posts: 282 Location: D.F.

MSX · Joined: 17 Nov 2005 Posts: 5

Yes, right.

Porta.5 = Output to Charge the capacitor

then wait 10ms, or better 100ms

then switch the port as Input

Porta.5 = Input, and turn the avr pull-down on.

Then test how long it takes to discharge the capacitor.