Haz una pregunta
  Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

01/11/2009 #1


Duda al programar pic16f887 en mikrobasic
Hola compañeros del foro.
tengo una aplicacion domestica con un pic 16f887 pero me surgen algunos contratiempos...
quiero activar y desactivar 4 puertos (rd0-rd3) con 4 pulsadores (rb0-rb3) respectivamente.
Con la aplicacion que tengo hecha solo puedo encender los puertos pero no apagarlos..Me dice alguien donde esta el fallo??
La configuracion del pic es:
HS_OSC
WDT_OFF
LVP_OFF
Código:
dim oldstate, oldstate1, oldstate2, oldstate3 as BYTE
main:

ANSEL = 0
ANSELH = 0
TRISB = 0xFF
TRISD = 0x00
PORTD = 0

while true

      if (Button(PORTB, 0, 10, 1)) then
         oldstate=1
      end if
      if (oldstate and Button(PORTB, 0, 10, 0)) then
         PORTD.0 = NOT PORTD.0
         oldstate = 0
      end if

      if (Button(PORTB, 1, 1, 1)) then
         oldstate1=1
      end if
      if (oldstate1 and Button(PORTB, 1, 1, 0)) then
         PORTD.1 = NOT (PORTD.1)
         oldstate1 = 0
      end if

      if (Button(PORTB, 2, 1, 1)) then
         oldstate2=1
      end if
      if (oldstate2 and Button(PORTB, 2, 1, 0)) then
         PORTD.2 = NOT PORTD.2
         oldstate2 = 0
      end if

      if (Button(PORTB, 3, 1, 1)) then
         oldstate3=1
      end if
      if (oldstate3 and Button(PORTB, 3, 1, 0)) then
         PORTD.3 = NOT (PORTD.3)
         oldstate3 = 0
      end if

wend
end.
Muchas gracias a todos
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.