Problem in Tension/compression

[Darrel Taylor]

Oi vey!
Where'd the 7-segment come from?

Oh well.

        B1 = ABS(LastW0) DIG 0    
        B2 = ABS(LastW0) DIG 1
        B3 = ABS(LastW0) DIG 2
        B4 = ABS(LastW0) DIG 3
        B5 = ABS(LastW0) DIG 4

- or -

        W4 = ABS(LastW0)
        B1 = W4 DIG 0    
        B2 = W4 DIG 1
        B3 = W4 DIG 2
        B4 = W4 DIG 3
        B5 = W4 DIG 4

<br>

[precision]

Oh..Thanks Sir Darrel Taylor.

working fine now. but how i show "-" sign for tension measurements.

One thing more , just for information.

my encoder is 1000 PPR
CHIP 18F4550
XTAL mount 20 mhz

__CONFIG    _CONFIG1H, _FOSC_HSPLL_HS_1H
DEFINE OSC 20

I lose the count in > 5 RPM with above code.

And if mount XTAL 20 mhz
and if i code

__CONFIG    _CONFIG1H, _FOSC_HSPLL_HS_1H
DEFINE OSC 3

this is work up to 20 RPM. No counts lose.
Is DEFINE OSC 3 will increase the speed of PIC ?

.

[Darrel Taylor]

18F4550
20Mhz crystal (22pF caps)

Use ...

@   __CONFIG    _CONFIG1L, _PLLDIV_5_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L
@   __CONFIG    _CONFIG1H, _FOSC_HSPLL_HS_1H
DEFINE OSC 48

<br>

[precision]

how i show "-" sign for tension measurements. I mean when count below Zero.

.

[Darrel Taylor]

If LastW0.15 = 1 then the result is negative.

I'm not familiar with your display, so I don't know how to show the minus sign.
<br>

[precision]

Thanks a million Sir Darrel Taylor. My project is over.

i add this line,

If LastW0.15 = 1 then 
   E6 = $BF
    ELSE
   E6 = $FF
 ENDIF
  
        HC_Latch=0
        shiftout HC_data, HC_Clk, MSBFIRST,[E1,E2,E3,E4,E5,E6]        
        pauseus 1
         HC_Latch=1
                
        '---------------------------------------
       ' endif   
         GOTO LOOP

Now my next step is "Calibration Factor" with Pitch of machine's screw.
I will start it Using Floating Point
Thanks again.

[Darrel Taylor]

I doubt that you need to use Floating Point.
It's a real pain.

Do you know the numbers yet?
pulses/mm or something like that?
<br>