I have just started working with PIC and my first project is a two led flasher. I write in BASIC and use the mikrobasic compiler for PIC. The first two patterns work but when I try to lite both the leds at the same time, they don't go on!
Here is my code:
------------------------------------------------------------
program dom_led_show3
const q = 80
const m = 50
const n = 300
const s = 50
const d = 80
const l = 40
dim y as byte
dim p as byte
dim j as byte
trisa = 0
main:
inc(y)
delay_ms(q)
porta.3 = 1
delay_ms(s)
porta.3 = 0
delay_ms(q)
porta.2 = 1
delay_ms(s)
porta.2 = 0
if y=10 then
goto ver1
else
goto main
end if
VER1:
inc(p)
delay_ms(d)
porta.3 = 1
delay_ms(m)
porta.3 = 0
delay_ms(d)
porta.3 = 1
delay_ms(m)
porta.3 = 0
delay_ms(n)
porta.2 = 1
delay_ms(m)
porta.2 = 0
delay_ms(d)
porta.2 = 1
delay_ms(m)
porta.2 = 0
if p=7 then
p=0
y=0
goto vere
else
goto ver1
end if
VERe:
inc(j)
porta = 1
delay_ms(l)
porta = 0
delay_ms(l)
if j=20 then
j=0
goto main
else
goto vere
end if
end.
-------------------------------------------
In main: the leds alternate, in ver1: they flash twice...delay...then the other the same. In vere3rd section) they are supposed to light at the same time and go off at the same time very quickly, but they don't light up.
The leds are super-bright blue >5mm. They work fine in other patterns, but not in the third one.
could someone please tell me what I am doing wrong?