The PIC Project Page

Testing the IRIS

Page: 1 2 3 4 5 6 7 8

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
'***********************************
Dim x as Integer

Main:
TrisB = %00000000
TrisA = %00001100
CMCON = %00000111
'***************Flashes****************
PortB = 34
Delay_ms(300)
PortB = 0
Delay_ms(300)
PortB = 34
Delay_ms(300)
PortB = 0
Delay_ms(300)
'**************************************
While True
x = 50
While x > 1
  x = x - 1
  PortA = %00000001
  Delay_us(18)
  PortA = %00000000
  Delay_us(10)
Wend
If TestBit(PortA,3) = 0 Then
  PortB = %00001000
  Delay_ms(50)
  PortB = %00000000
End if
Wend
End.

Click here to see a Quicktime movie (.mov) of the scanner in action.

PIC Home Previous Page Next Page Next Chapter

Page: 1 2 3 4 5 6 7 8

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