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

Temas similares

16/09/2012 #1

Avatar de digito

Ejemplo de menù con Mikrobasic
Hola les dejo un ejemplo de como hacer menues en Mikrobasic, igualmente todo puede ser ampliado y desarrollado a gusto.

Esta es una pequena cuota para esta gran comunida.

program menu1

dim x as short

dim y as short

main:
trisa=1
trisb=0
porta=0
portb=0

x=0
y=0




inizio:

if (porta.0=1) and (porta.1=1) then
gosub proce1
end if
goto inizio


proce1:
x=x-1
y=y-1
while true

if porta.2=1 then
gosub inizio
end if

if porta.1=1 then
while porta.1=1
wend
x=x+1
delay_ms(50)

if x=1 then
portb.7=1
end if

if x=2 then
portb.6=1
end if

if x=3 then
portb.5=1
end if

if x=4 then
portb.4=1
end if

if x=5 then
portb.7=0
portb.6=0
portb.5=0
portb.4=0
x=0
end if
end if

if porta.0=1 then
while porta.0=1
wend
y=y+1
delay_ms(50)

if y=1 then
portb.3=1
end if

if y=2 then
portb.2=1
end if

if y=3 then
portb.1=1
end if

if y=4 then
portb.0=1
end if


if y=5 then
portb.0=0
portb.1=0
portb.2=0
portb.3=0
y=0
end if

end if
wend
return


end.
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.