ATNEL tech-forum

Re: Coś nie tak z symulatorem

2013-03-01T20:24:21+01:00

Mądrze to napisałeś, postaram się douczyć i zrozumieć co miałeś na myśli, znaczy się muszę to z tymi flagami opanować.

Ale dzięki wielkie.

Postaram się też zmienić to PORTB = &B00000000 może to pomoże w symulacji aby dobrze zaświecało diody, choć coś mi przychodzi na myśl że jak miałem wpisane 'Outlewy = 0' to jakiejś z diód w symulacji mi to nie wyłączało.

Jeszcze raz dzięki za poświęcony czas i cenne uwagi postaram się uczyć dalej

Jak jeszcze ktoś coś dostrzeże to też proszę o uwagi.

Statystyki: Napisane przez SiDoR — 1 mar 2013, o 20:24

Re: Coś nie tak z symulatorem

2013-03-01T19:32:37+01:00

Antystatyczny napisał(a):

Z tego co widzę w kodzie, to klawisze masz na PB1 i PB2, a wyjścia masz na PB3 i PB4. Klikając więc w diody reprezentujące input na pewno będą Ci się zmieniały stany na PB3 i PB4

------------------------ [ Dodano po: 2 minutach ]

Tak się trochę przyjrzałem temu i ... Okrutnie jest ten soft napisany

To mój pierwszy soft, jak możesz to poproszę o jakąś konstruktywnę krytykę

No właśnie jak klikam powinno być tak jak piszesz i jak kliknę PB1 to zaświeca się PB3 tak jak powinno być, ale jak wyłączę PB1 to zapala się jeszcze coś i nie wiem co to może być

Statystyki: Napisane przez SiDoR — 1 mar 2013, o 19:32

Coś nie tak z symulatorem

2013-03-01T13:13:07+01:00

Witajcie, staram się przetestować swój program, ale coś mi się nie podoba gdy odpalam go w symulatorze BASCOM.

Gdy włączam i wyłaczam diody zielone (IB), które chyba symulują piny wejściowe, to zapalają mi się po dwa porty wyjściowe (PB).

Może mam coś nie tak ustawione w symulatorze, lub coś źle robię.

Proszę Was o pomoc, pamiętajcie jestem początkującym i pragnę się uczyć.

Poniżej dam kod który staram się sprawdzić.

[syntax=basic4gl]$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 8
$framesize = 16
$sim

Config Pinb.1 = Input
Config Pinb.2 = Input
Config Portb.3 = Output
Config Portb.4 = Output

Inprawy Alias Pinb.1
Inlewy Alias Pinb.2
Outlewy Alias Portb.3
Outprawy Alias Portb.4

Config Debounce = 150
Config Timer0 = Timer , Prescale = 64
On Timer0 Czas
Enable Interrupts

Dim Licznik As Integer
Licznik = 0

Do

Debounce Inlewy , 1 , Lewy , Gosub
Debounce Inprawy , 1 , Prawy , Gosub

If Outlewy = 1 And Inprawy = 1 Then
Portb = &B00000000
Disable Timer0
Licznik = 0
End If

If Outprawy = 1 And Inlewy = 1 Then
Portb = &B00000000
Disable Timer0
Licznik = 0
End If

Loop
End

Czas:
Timer0 = Timer0 + 6
Incr Licznik

If Outlewy = 1 Then
Gosub Lewy
End If

If Outprawy = 1 Then
Gosub Prawy
End If
Return

Lewy:
Outlewy = 1
Enable Timer0

Select Case Licznik
Case > 3 And Inlewy = 0
Portb = &B0000000
Disable Timer0
Licznik = 0
End Select
Return

Prawy:
Outprawy = 1
Enable Timer0

Select Case Licznik
Case > 3 And Inprawy = 0
Portb = &B0000000
Disable Timer0
Licznik = 0
End Select
Return[/syntax]

Dla kodu programu w języku Bascom proszę używać znaczników [syntax=basic4gl]

Statystyki: Napisane przez SiDoR — 1 mar 2013, o 13:13