The PIC Project Page

First look outside with a PIC16F628(A)

Page: 1 2 3 4 5 6 7

You are ready to program

Copy and Pastable code

Be sure to create a new project first.
For a review of creating projects please go here
Paste BELOW your program name!

PROGRAM NAME CREATED VIA NEW PROJECT!!
COPY AND PASTE FROM NEXT LINE DOWN
'*********************
Sub Procedure Dlay100
Delay_ms(100)
End Sub
'*********************
Sub Procedure scroll
  PortB = %01001001
  Dlay100
  PortB = %10010010
  Dlay100
  PortB = %00100100
  Dlay100
End Sub
'*********************
Sub Procedure Sw1
 While Testbit(PortA,2) = 0
  PortB = %11110000
  Dlay100
  PortB = %00000000
  Dlay100
 Wend
End Sub
'*********************
Main:
  TrisB = %00000000
  TrisA = %00001111
  CMCON = %00000111
  If Testbit(PortA,2) = 0 Then
     Sw1
  End If
  scroll
Goto Main
End.

PIC Home

Next Chapter

Page: 1 2 3 4 5 6 7

Robodyssey and the Robodyssey logo are trademarks of Robodyssey Systems, LLC
PIC is a registered trademark of Microchip Technology Inc. in the U.S. and other countries.
MikroBasic is a registered trademark of mikroElectronika Inc. in the U.S. and other countries.

Home Product Catalog Shopping Cart Resources Links

Code Page Policies Gallery