domingo, 25 de octubre de 2015
4-Encender 8 leds
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 20/10/2015 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
trisb=0 ; habilito todos los puertos b
POOL ;creo una subrutina llamada vladi
portb=% 00000001 ;habilito un 1 logico en el puerto b0
pause 250 ;por un tienpo de 250 milisegundos
portb=% 00000010 ;habilito un 1 logico en el puerto b1
pause 250 ;por un tienpo de 250 milisegundos
portb=% 00000100 ;habilito un 1 logico en el puerto b2
pause 250 ;por un tienpo de 250 milisegundos
portb=% 00001000 ;habilito un 1 logico en el puerto b3
pause 250 ;por un tienpo de 250 milisegundos
portb=% 00010000 ;habilito un 1 logico en el puerto b4
pause 250 ;por un tienpo de 250 milisegundos
portb=% 00100000 ;habilito un 1 logico en el puerto b5
pause 250 ;por un tienpo de 250 milisegundos
portb=% 01000000 ;habilito un 1 logico en el puerto b6
pause 250 ;por un tienpo de 250 milisegundos
portb=% 10000000 ;habilito un 1 logico en el puerto b7
pause 250 ;por un tienpo de 250 milisegundos
goto POOL ;ir a la subrutina POOL
end
Suscribirse a:
Comentarios (Atom)






