MikroBasic

Programas desarrollados en

El propósito de este publicación es de proporcionar la información básica que se necesita saber para ser capaz de utilizar microcontroladores con éxito en la práctica. El cual no contiene ningún programa muy elaborado, tampoco dispone de diagramas circuitales complicados . Por el contrario, los siguientes ejemplos son la mejor prueba de que escribir un programa no es difícil, ni cosa de talento, sino una habilidad de “poner las piezas juntas del rompecabezas” al utilizar directivas. Tenga la seguridad de que el diseño y el desarrollo de los dispositivos generalmente siguen al método “probar-corregir-repetir” hasta llegar a los resultados deseados.

1. Led Intermitente

Diagrama de Circuito

Código para el Pic

'//////////////////////////////////////////////////////////////////////////////////////
'//Título:Led Intermitente
'//Versión:mikroBasic 4.60
'//Autor: Samuel Ramsbott
'//Correo: sedjrp3@gmail.com
'//////////////////////////////////////////////////////////////////////////////////////
'//Descripción:Encendido de un led de forma automatica...
'/////////////////////////////////////////////////////////////////////////////////////
program MKB1

' Area de declaración.

main:
'   Programa Principal
    trisb.0 = 0                       'Configurar PORTB.O como salida
    while true
          portb.0 = 1                ' B0 enciende
          delay_ms (1000)       ' Por un segundo
          portb.0 = 0                ' B0 apaga
          delay_ms (1000)       ' Por un segundo
    wend
end.

2. Led encendido por pulsador

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: sedjrp3@gmail.com
'//blog: http://rselectronicsdesing.blogspot.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.

3. Leds encendidos por pulsadores

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: sedjrp3@gmail.com
'//blog: http://rselectronicsdesing.blogspot.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.

4. Contador de 0 a 9

Diagrama de Circuito

Código para el Pic

'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'//Título: Manejo de Display conteo de 0 a 9
'//Versión:mikroBasic 4.60
'//Autor: Samuel Ramsbott
'//Correo: sedjrp3@gmail.com
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'//Descripción: Conteo automático con un display 7 Segmentos de cátodo común
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
program MKB4
' Declaración de variables
dim conteo as byte[10]
main:
' Programa Principal
     conteo[0] = 111111
     conteo[1] = 000110
     conteo[2] = %01011011
     conteo[3] = %01001111
     conteo[4] = %01100110
     conteo[5] = %01101101
     conteo[6] = %01111101
     conteo[7] = 000111
     conteo[8] = %01111111
     conteo[9] = %01100111

     trisb = 000000          ' Configura PORTB como salida

  while true
        portb = conteo[0]
        delay_ms(1000)
        portb = conteo[1]
        delay_ms(1000)
        portb = conteo[2]
        delay_ms(1000)
        portb = conteo[3]
        delay_ms(1000)
        portb = conteo[4]
        delay_ms(1000)
        portb = conteo[5]
        delay_ms(1000)
        portb = conteo[6]
        delay_ms(1000)
        portb = conteo[7]
        delay_ms(1000)
        portb = conteo[8]
        delay_ms(1000)
        portb = conteo[9]
        delay_ms(1000)
  wend
end.

Share on Google Plus

About Samuel Ramsbott

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.