Arne Basic 2k - Experiência 1 - Piscando um LED - Onde tudo começa!


Os LEDs ou “diodos emissores de luz” são dispositivos muito comuns na eletrônica. E hoje, eles estão presentes em todos os "cantos" da casa. Observe em seus eletrodomésticos, equipamentos de uso pessoal (desde que elétricos), computadores, brinquedos, TVs (algumas agora com luz de fundo com LEDs), etc. Sempre tem um "LED" em algum lugar. Pode-se até dizer que num futuro muito próximo boa parte da iluminação que utilizamos será toda feita com LEDs.

Pisca LED simples com Arne Basic 2k

Como primeira experiência faremos um LED piscar a uma freqüência de aproximadamente 2 Hz (período de 0,5 segundo). A ligação entre o LED e o Arne Basic 2k pode ser vista na figura abaixo. Como você mesmo pode ver, trata-se de um circuito bem simples. Eu recomendo a montagem do mesmo em uma matriz de contatos.


Você pode ver o código fonte logo abaixo. Este programa é um excelente exemplo da estrutura utilizada em programação BASIC utilizando o compilador BASCOM-AVR. Note que não foi feito uso de nenhum timer interno do microcontrolador. A temporização é feita através do método da "espera ocupada". Esse método foi escolhido por ser o mais simples. Não teria cabimento propor uma experiência simples como o piscar de um LED, com a utilização de um dos timers presentes no microcontrolador. Em breve vou inserir uma experiência que utilizara o timer do microcontrolador. Vamos com calma!!! Um passo de cada vez, sempre!!! São as palavras do sr. Miagui! (agora não dá mais para dizer que Karatê Kid não é da sua época!!!)

Código fonte:
'*******************************************************************************
'* Programa LED_TESTE.BAS
'* Desenvolvido por Márcio José Soares
'* para do Arne Basic 2k
'*
'* Obs.: Este programa funciona com o Arne Basic 2k
'*******************************************************************************
 
'*******************************************************************************
'Configs necessários ao microcontrolador
$crystal = 10000000
$regfile = "attiny2313.dat"
Config Portb = &B11111111
Config Portd = &B11111110
 
'*******************************************************************************
'Início do programa
Waitms 500
 
'*******************************************************************************
'Laço principal
Do
   Set Portb.0           'liga LED
   Waitms 500            'Aguarga 0,5 segundo
   Reset Portb.0        'Desliga LED
   Waitms 500           'Aguarda
 
Loop
 
End


Copyright deste conteúdo reservado para Márcio José Soares e protegido pela Lei de Direitos Autorais LEI N° 9.610, de 19 de Fevereiro de 1998. É estritamente proibida a reprodução total ou parcial do conteúdo desta página em outros pontos da internet, livros ou outros tipos de publicações comerciais ou não, sem a prévia autorização por escrito do autor.