Progrmación De Microcontroladores Con MikroBasic

Control para una selladora de bolsas para Pan.

PROGRAM SELLADORA

'Variables de Tiempo, Conteo, Presion de Pedal, Swiche para Activar Relay

DIM nTiempo, nContar, Sw, nContar2, nTiempo2 AS BYTE

SUB PROCEDURE MOSTRAR_DIS

SELECT CASE nTiempo

CASE 0

PORTB.2=1 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=1 'AB ]

PORTB.5=1 'AB _

PORTB.6=1 'AB [

PORTB.7=1 'AR [

PORTA.1=0 'Centro -

CASE 1

PORTB.2=0 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=1 'AB ]

PORTB.5=0 'AB _

PORTB.6=0 'AB [

PORTB.7=0 'AR [

PORTA.1=0 'Centro -

CASE 2

PORTB.2=1 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=0 'AB ]

PORTB.5=1 'AB _

PORTB.6=1 'AB [

PORTB.7=0 'AR [

PORTA.1=1 'Centro -

CASE 3

PORTB.2=1 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=1 'AB ]

PORTB.5=1 'AB _

PORTB.6=0 'AB [

PORTB.7=0 'AR [

PORTA.1=1 'Centro -

CASE 4

PORTB.2=0 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=1 'AB ]

PORTB.5=0 'AB _

PORTB.6=0 'AB [

PORTB.7=1 'AR [

PORTA.1=1 'Centro -

CASE 5

PORTB.2=1 '1ro arriba -

PORTB.3=0 'AR ]

PORTB.4=1 'AB ]

PORTB.5=1 'AB _

PORTB.6=0 'AB [

PORTB.7=1 'AR [

PORTA.1=1 'Centro -

CASE 6

PORTB.2=1 '1ro arriba -

PORTB.3=0 'AR ]

PORTB.4=1 'AB ]

PORTB.5=1 'AB _

PORTB.6=1 'AB [

PORTB.7=1 'AR [

PORTA.1=1 'Centro -

CASE 7

PORTB.2=1 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=1 'AB ]

PORTB.5=0 'AB _

PORTB.6=0 'AB [

PORTB.7=0 'AR [

PORTA.1=0 'Centro -

CASE 8

PORTB.2=1 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=1 'AB ]

PORTB.5=1 'AB _

PORTB.6=1 'AB [

PORTB.7=1 'AR [

PORTA.1=1 'Centro -

CASE 9

PORTB.2=1 '1ro arriba -

PORTB.3=1 'AR ]

PORTB.4=1 'AB ]

PORTB.5=1 'AB _

PORTB.6=0 'AB [

PORTB.7=1 'AR [

PORTA.1=1 'Centro -

END SELECT

RETURN

END SUB

MAIN:

CMCON=7

TRISA=%00000000 'Puerto como Salida.

TRISB=%00000011 'Puerto B como salida y B0 y B1 como

...