No output with Shift Module

[bitfogav]

I'm trying to output a byte using the Shift module but I'm not getting any Clock or Output. Am I missing something?

Code: Select all

#option SHIFT_MAX = 8
#option SHIFT_CLOCK = 2

imports shift

const myValue = 160

Sub Main()
   high(D10)
   shift.SetOutput(D11)
   shift.SetClock(D13)
   shift.Out(LsbFirst,myValue,1)
   low(D10)
End Sub

[David John Barker]

I think another 8 bit library has sneaked into the distro - sorry about that. I've attached a new "shift.bas" library. Just overwrite the old one with the new version - you should be able to find it under:

c:\<install folder>\library

Can you let me know if it works OK for you.

[bitfogav]

Can you let me know if it works OK for you.

No this hasn't fixed it Dave

[David John Barker]

I'm sure this is the correct fix, it's tested hereOK. You need to

Close the IDE
Delete the previous shift library
c:\<install folder>\library\shift.bas
Find the MCU16 folder
c:\install folder>\library\MCU16
Copy the unzipped shift folder
c:\install folder>\library\MCU16\Shift\shift.bas
Restart the IDE

Again, let me know if this works for you...

[bitfogav]

Yes that fixed it this time David, there was no Folder Shift originally in MCU16..

My Test Code:

Code: Select all

' Options
#option SHIFT_MAX = 8
#option SHIFT_CLOCK = 2

' Imports section...
imports shift

dim myValue as byte

Sub Main()
   myvalue = &HAA
   
   shift.SetOutput(D11)
   shift.SetClock(D13)
   
   shift.Out(LsbFirst,myValue,8)
           
   while true
   end while
End Sub

shiftTest.jpg (31.49 KiB) Viewed 10044 times