Electronica

ENTORNO DE DESARROLLO Y PROGRAMACIÓN EN PIC BASIC PARA MICROCONTROLADORES

1

2

3

4

5

6

7

8

9

10

11

12

13

11101001

14

DIM DIM DIM DIM

A B X Y

AS AS AS AS

BIT BYTE WORD LONG

DIM A(10) AS BYTE

RESERVE 20

DIM A AS BYTE DIM B AS WORD A = B.HB A = B.LB B.HB = A B.LB = A B = A

'Esto es lo mismo que A = B

'Esto tambiénborra el byte alto de la variable B

DIM DIM B = B = A.0

A AS BYTE B AS BIT A.1 A.7 = A.5

TRISA.1 = 0 TRISB = 0 PORTA.1 = 1 PORTB = 255 STATUS.RP0 = 1 INTCON.INTF = 0

RA = 0xFF RB0 = 1

15

DIM X AS WORD DIM Y AS BYTE X = 0x3F Y = POINTER(X) Y = Y + 0x55 X = X - 1 POINTER(X) = Y Y = 0xAA X = X - 1 POINTER(X) = Y

SYMBOL LED1 = PORTB.0

PORTB.0 = 1

LED1 = 1

DIM DIM A = B =B =

A AS BIT B AS BYTE TRUE 0x55 %01010101

DIM A AS WORD CONST PI = 314 A = PI

16

HIGH PORTB.0 LOW ADCON0.ADON TOGGLE OPTION_REG.INTEDG

DIM DIM DIM A = B = X = X =

A AS WORD B AS WORD X AS WORD 123 A * 234 2 (12345 - B * X) / (A + B)

DIM A AS WORD A = 3600 A = SQR(A)

DIM DIM DIM X = X = X = X = X = X = X =

A AS BIT B AS BIT X AS BIT NOT A A AND B A OR B A XOR B A NAND BA NOR B A NXOR B AS WORD AS WORD OR B = PORTC AND %11110000

DIM A DIM B A = A PORTB

17

18

AllDigital

TRISA = %11111111 TRISB = %00000000 TRISB = 0

TRISB = %11000111

19

loop: Goto

WaitMs

500

WaitMs

PORTB.0 = 0

Goto Loop Loop

20

WaitMS

SYMBOL

21

22

PORTB.0 = PORTA.0

23

IF condición THEN instrucción IF THEN condición condiciónTHEN IF - THEN

instrucción

ALLDIGITAL TRISA = %11111111 DIM A AS BYTE DIM TOTAL AS BYTE

'Voy a usar todos los pines como E/S. 'Todo el PORTA como entradas 'Declaro la variable "A" como BYTE 'Declaro la variable "TOTAL" como BYTE

24

TOTAL = 10 A = 2

'Le asigno el valor 10 a la variable "TOTAL" 'Le asigno el valor 2 a la variable "A"

IF PORTA.4 = 1 THEN A = 4 TOTAL = TOTAL + A'Sumo a "TOTAL" el valor de "A"

BYTE TOTAL A

THEN PORTA TOTAL

A

PORTA.4 = 1 PORTA 4

PORTA.4 1 TOTAL

PORTA.4 = 0

TOTAL

IF IF IF IF IF

A = B THEN PORTA.0 = 1 B > A THEN A = B B = 5 THEN A = 0 (A = 0) OR (B = 5) THEN C = 2 PORTA.0 THEN PORTB.3 = 0 PORTA.0 PORTA.0 = 1.

IF-THEN IF condición THEN instrucción 1 instrucción 2 ... instrucción n ENDIF

ENDIF

THEN

ENDIFcondición

DIM DIM DIM DIM DIM

A AS BYTE B AS BYTE C AS BYTE D AS BYTE TOTAL AS BYTE

'Declaro 'Declaro 'Declaro 'Declaro 'Declaro

la la la la la

variable variable variable variable variable

"A" como BYTE "B" como BYTE "C" como BYTE "D" como BYTE "TOTAL" como BYTE

TOTAL = 0 A = 2

'Le asigno el valor 0 a la variable "TOTAL" 'Le asigno el valor 2 a la variable "A"

25

B =5 C = 1 D = 0

'Le asigno el valor 5 a la variable "B" 'Le asigno el valor 1 a la variable "C" 'Le asigno el valor 0 a la variable "D"

IF A = 2 THEN A = B + (C * D) TOTAL = A * B ENDIF

A = 2 A TOTAL TOTAL A THEN-ENDIF

ELSE IF condición THEN instrucciónv 1 instrucciónv 2 ... instrucciónv n ELSE instrucciónf 1 instrucciónf 2 ... instrucciónf n ENDIF THEN ELSE ENDIF ELSE ELSEALLDIGITAL

'Voy a usar todos los pines como E/S.

TRISA = %11111111 'Todo el PORTA como entradas DIM A AS BYTE 'Declaro la variable "A" como BYTE DIM TOTAL AS BYTE 'Declaro la variable "TOTAL" como BYTE TOTAL = 10 A = 2 'Le asigno el valor 10 a la variable "TOTAL" 'Le asigno el valor 2 a la variable "A"

IF PORTA.4 = 1 THEN A = 4 TOTAL = TOTAL + 5 ELSE A = 0 TOTAL = TOTAL + 15 ENDIF

A = 4PORTA.4 = 1 TOTAL = TOTAL + 5

A = 0

26

TOTAL = TOTAL + 15 ENDIF IF-THEN-ELSE-ENDIF

IF PORTB.1 = 1 THEN IF A = 2 THEN A = B + (C * D) TOTAL = A * B ELSE A = 0 ENDIF ELSE A = 19 ENDIF IF-THEN-ELSE-ENDIF

FOR variable = valor_inicial TO valor_final STEP paso instruccion1 instruccion2 ... instruccionn NEXT variable

DIM A AS BYTE DIM TOTAL AS WORD TOTAL = 0

'Declaro la variable "A"...