2. Led encendido por pulsador (MikroBasic)

2. Led encendido por pulsador (MikroBasic)

Diagrama de Circuito

Código para el Pic

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

' Area de declaración.

main:
' Programa Principal
           trisa.0 = 1             ' Configurar PORTA.0 como entrada para el pulsador
           trisb.0 = 0             ' Configurar PORTB.0 como salida para el Led
  while true
     if porta.0 = 0 then      ' Se ha oprimido el pulsador
        portb.0 = 1              ' Si es asi enciende el led
     else                            ' No esta oprimido el pulsador
        portb.0 = 0              ' No enciende el led
     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.