3. Leds encendidos por pulsadores (MikroBasic)

3. Leds encendidos por pulsadores (MikroBasic)

Diagrama de Circuito

Código para el Pic

'//////////////////////////////////////////////////////////////////////
'//Título:Encendido de un LedS por pulsadores
'//Versión:mikroBasic 4.60
'//Autor: Samuel Ramsbott
'//Correo: habacuc.electronics@gmail.com
'//////////////////////////////////////////////////////////////////////
'//Descripción:Encendido de un LedS por pulsadores
'//////////////////////////////////////////////////////////////////////
program MKB3

' Area de declaración

main:
' Programa Principal
           trisa.0 = 1       ' Configurar PORTA.0 como entrada para el pulsador
           trisa.1 = 1       ' Configurar PORTA.1 como entrada para el pulsador
           trisa.2 = 1       ' Configurar PORTA.2 como entrada para el pulsador
           trisa.3 = 1       ' Configurar PORTA.3 como entrada para el pulsador
           trisa.4 = 1       ' Configurar PORTA.4 como entrada para el pulsador
           trisb.0 = 0       ' Configurar PORTB.0 como salida para el Led
           trisb.1 = 0       ' Configurar PORTB.0 como salida para el Led
           trisb.2 = 0       ' Configurar PORTB.0 como salida para el Led
           trisb.3 = 0       ' Configurar PORTB.0 como salida para el Led
           trisb.4 = 0       ' Configurar PORTB.0 como salida para el Led
    while true
'Función para PA0
     if porta.0 = 0 then      ' Se ha oprimido el pulsador
        portb.0 = 1              ' Si es así enciende el led
     else                             ' No esta oprimido el pulsador
        portb.0 = 0              ' No enciende el led
     end if
'Función para PA1
     if porta.1 = 0 then 
        portb.1 = 1         
     else                       
        portb.1 = 0         
     end if
'Función para PA2
     if porta.2 = 0 then 
        portb.2 = 1         
     else                       
        portb.2 = 0         
     end if
'Función para PA3
     if porta.3 = 0 then 
        portb.3 = 1       
     else                       
        portb.3 = 0       
     end if
'Función para PA4
     if porta.4 = 0 then 
        portb.4 = 1             
     else                       
        portb.4 = 0         
     end if
    wend
end.

Compartir en Google Plus

About habacuc.electronics

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.