Witam
Wiem że temat był już męczony ale już porostu nie mogę.
Panowie nie rozumiem co zrobiłem nie tak próbuję na różne sposoby ale ciągle nic. Programuję atmege i chciałbym standardowo 2 przyciskami zapalać i gasić diodę ale nie wychodzi. Po odpaleniu dioda się świeci, jeśli nacisnę pierwszy przycisk gaśnie ale gdy puszę od razu się zapala ponownie przez co 2 też nie dział. poniżej załączyłem kod z książki lekko zmodyfikowany bo ten z książki to wcale nie dział (Programowanie mikro w BASCOM przykład 8_14). poniżej dodałem ustawienia fus bits może tam jest coś nie tak.
Załącznik usunąłem - zbędny.
[zumek]
Wiem że temat był już męczony ale już porostu nie mogę.
Panowie nie rozumiem co zrobiłem nie tak próbuję na różne sposoby ale ciągle nic. Programuję atmege i chciałbym standardowo 2 przyciskami zapalać i gasić diodę ale nie wychodzi. Po odpaleniu dioda się świeci, jeśli nacisnę pierwszy przycisk gaśnie ale gdy puszę od razu się zapala ponownie przez co 2 też nie dział. poniżej załączyłem kod z książki lekko zmodyfikowany bo ten z książki to wcale nie dział (Programowanie mikro w BASCOM przykład 8_14). poniżej dodałem ustawienia fus bits może tam jest coś nie tak.
$regfile = "m8def.dat"
$crystal = 16000000
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.4 = Output
Config Pinb.5 = Output
Led1 Alias Portb.5
Led2 Alias Portb.4
S1 Alias Pinb.2
S2 Alias Pinb.1
Set Portb.1
Set Portb.2
Do
If S1 = 0 Then
goto pr1
waitms 30
Bitwait S1 , Set
endif
If S2 = 0 Then
goto pr2
waitms 30
Bitwait S2 , Set
endif
Loop
End
Pr1:
Set Led2
Wait 1
Return
Pr2:
Reset Led2
wait 1
Return
Załącznik usunąłem - zbędny.
[zumek]
