ATNEL tech-forum

Re: Co jest nie tak ?

2014-04-12T20:25:09+01:00

Ale tutaj jak napisał kolega jacek

[syntax=basic4gl]Sw1 Alias Portb.3 'przypisanie SW1
Sw2 Alias Portb.4 'przypisanie SW2[/syntax]

Jeśli jakiś pin deklarujesz jako wejście to alias też piszesz jako wejście.

Statystyki: Napisane przez matrix — 12 kwi 2014, o 20:25

Re: Co jest nie tak ?

2014-04-12T20:13:51+01:00

nie rozumiem wkleilem za pomoca syntax

poprawilem jak napisal matrix i nie ma bledow

Statystyki: Napisane przez lata — 12 kwi 2014, o 20:13

Re: Co jest nie tak ?

2014-04-12T19:51:31+01:00

Przede wszystkim wklej kod za pomocą znaczników syntax i zrób wcięcia bo teraz to nie widać gdzie co się zaczyna a gdzie kończy.

A tak poza tym co napisał kol. matrix to w tych liniach masz błąd
[syntax=basic4gl]Sw1 Alias Portb.3 'przypisanie SW1
Sw2 Alias Portb.4 'przypisanie SW2[/syntax]

Statystyki: Napisane przez jacekk232 — 12 kwi 2014, o 19:51

Re: Co jest nie tak ?

2014-04-12T19:51:18+01:00

Dodaj na początku:

[syntax=basic4gl]$hwstack = 8
$swstack = 16
$framesize = 16[/syntax]

Statystyki: Napisane przez matrix — 12 kwi 2014, o 19:51

Co jest nie tak ?

2014-04-12T20:16:33+01:00

witam
wyskakuje mi tutaj error 22
co jest nie tak?

i jeszcze czy mogl bym zrobic niezalezne dwa przyciski zeby jedno nie musialo czekac na drugie
[syntax=basic4gl]$regfile = "attiny13.dat"
$crystal = 1200000
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Input
Config Pinb.4 = Input
Portb = &B00000000
Led0 Alias Portb.0 'przypisanie LED0
Led1 Alias Portb.1 'przypisanie LED1
Buz Alias Portb.2 'przypisanie Buz
Sw1 Alias Portb.3 'przypisanie SW1
Sw2 Alias Portb.4 'przypisanie SW2
Dim A As Byte 'przypisanie A
A = 0
Do
If Sw1 = 1 Then 'Jezeli sw1 = 1 to A = 1
A = 1
End If
If Sw2 = 1 Then ' Jezeli sw2=1 to A = 2
A = 2
End If
If A = 1 Then ' Jezeli A=1 to wlacz diode LED0 na 9 sekund i potem buzer na 100ms i potem diode na 900ms
Led0 = 1
Wait 9
Buz = 1
Waitms 100
Buz = 0
Waitms 900
Led0 = 0
A = 0
End If
If A = 2 Then ' Jezeli A=2 to wlacz diode LED1 na 9 sekund i potem buzer na 100ms i potem po 900ms wylacz diode
Led1 = 1
Wait 9
Buz = 1
Waitms 100
Buz = 0
Waitms 900
Led1 = 0
A = 0
End If

Loop ' petla
End ' koniec[/syntax]

Statystyki: Napisane przez lata — 12 kwi 2014, o 19:39