Add a variable:
[code:1:6d58754dab]Dim Zs As Bit
Dim Bz As Byte
Dim Bz1 As Byte[/code:1:6d58754dab]
The full code but because no PORTA.7 does not blink?
[code:1:6d58754dab]$regfile = "m16adef.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize=32
Config Pind.0 = Output : Led_0 Alias Portd.0 : Led_0 = 0
Config Pind.1 = Output : Led_1 Alias Portd.1 : Led_1 = 0
Config Pina.7 = Output : Led_7 Alias Porta.7 : Led_7 = 0
Config Pinc.0 = Input : Boton Alias Pinc.0 : Boton = 1
Dim N As Word
Dim Boton As Bit
Dim Zs As Bit
Dim Bz As Byte
Dim Bz1 As Byte
Config Timer0 = Timer , Prescale = 64
On Timer0 T0_isr
Enable Timer0
Enable Interrupts
Do
If Boton = 0 Then Gosub Blinkeando Else Porta.7 = 1
Zs = 0
Loop
Blinkeando:
If Zs = 1 Then
Incr Bz
If Bz > 50 Then
Bz = 0
End If
If Bz = 1 Then Portd.0 = 0
If Bz = 4 Then Portd.0 = 1
Incr Bz1
If Bz1 > 55 Then
Bz1 = 0
End If
If Bz1 = 1 Then Portd.1 = 0
If Bz1 = 5 Then Portd.1 = 1
End If
Return
T0_isr:
Zs = 1
Incr N
If N >= 50 Then
Toggle Porta.7
N = 0
End If
Return
End
[/code:1:6d58754dab]
:roll: :roll: :roll:
↧
