Shop OBEX P1 Docs P2 Docs Learn Events
New Project with three familiar devices — Parallax Forums

New Project with three familiar devices

Buck RogersBuck Rogers Posts: 2,187
edited 2014-02-03 08:58 in BASIC Stamp
Hello!
New project time here.
So I've gone and wired together a PAL16L8 and a HDSP0762 and an SN74LS194. They are managed via program running on the BS2 that promptly arranges for the shifting of data into the register.

The whole business at work can be seen here:


And the view of the breadboard while working can be seen here:
Photo_013014_002.jpg


And the code used is here:
' {$STAMP BS2}
' {$PBASIC 2.5}
X VAR Word
FOR X=1 TO 255
TOGGLE 2
'delvr :
'PULSOUT X, 7
SHIFTOUT 0, 1, MSBFIRST, [X]
 'GOTO delvr
NEXT
END
1024 x 768 - 104K

Comments

  • Buck RogersBuck Rogers Posts: 2,187
    edited 2014-01-31 17:45
    Hello!
    New project time here.
    So I've gone and wired together a PAL16L8 and a HDSP0762 and an SN74LS194. They are managed via program running on the BS2 that promptly arranges for the shifting of data into the register.

    The whole business at work can be seen here:


    And the view of the breadboard while working can be seen here:
    Photo_013014_002.jpg


    And the code used is here:
    ' {$STAMP BS2}
    ' {$PBASIC 2.5}
    X VAR Word
    FOR X=1 TO 255
    TOGGLE 2
    'delvr :
    'PULSOUT X, 7
    SHIFTOUT 0, 1, MSBFIRST, [X]
     'GOTO delvr
    NEXT
    END
    


    Hello!
    Update! I've updated the code, and the shift register. It's now a SN74S195. Photo and video to follow.

    [video=youtube_share;nTMP_RPkRmg]

    And the photo is of:
    Photo_013114_001.jpg




    And here's the updated code:
    ' {$STAMP BS2}
    ' {$PBASIC 2.5}
    X VAR Word
    DO
    FOR X=1 TO 255
    TOGGLE 2
    'delvr :
    'PULSOUT X, 7
    SHIFTOUT 0, 1, MSBFIRST, [X]
    PAUSE 20
     'GOTO delvr
    NEXT
    LOOP
    END
    

    The added pause instruction enables the display to update.Why? That's not for this talented fellow to ponder.
    1024 x 768 - 88K
  • trookstrooks Posts: 228
    edited 2014-02-01 04:12
    Your counter seems to be stuck and why are the LEDs not rippling?<G>
  • Buck RogersBuck Rogers Posts: 2,187
    edited 2014-02-03 08:58
    trooks wrote: »
    Your counter seems to be stuck and why are the LEDs not rippling?<G>

    Hello!
    Which video were you looking at? First one became second one, with different shift register. That one does much as you're expecting.
Sign In or Register to comment.