Przyjazne Bascom Forum

Witam, Panowie pierw się przywitam, gdyż to mój pierwszy post. W poszukiwaniu informacji/pomocy w internecie trafiłem na 3 magików w dziedzinie bascoma tj. p.Bartek, p.Kaktus i p.Mirley, dlatego postanowiłem tu napisać, mianowicie mam problem w oprogramowaniu menu użytkownika bazującego na wyświetlaczach 7 segmentowych.

Chciałbym by program wyglądał tak:
-Program startuje z 0000 na wyś. Led gdzie pierwsze 2 zera to minuty a następne dwa to sek.
-Program odczytuje stan 3 przycisków : plus, minus, Enter(start odliczania)

i w tym miejscu mam problem gdyż:
oprogramowanie tych zmiennych wyświetlanych na led się wszystko krzaczy, przy dodawaniu jest jeszcze ok ale przy odejmowaniu zwalnia jakby procek był zajęty czymś innym a jak dojdzie do zera to się nie zatrzymuje tylko wkakują jakieś inne nie ustalone liczby, program ten ma obsługiwać naświetlarkę uv

Prosił bym bardzo o pomoc w kodzie by zakres był 30:00 i nie dało się więcej i żeby poniżej 00:00 także nie dało się zejść

a tu kod:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 64
$swstack = 64
$framesize = 128
Config Portd = Output
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Portc.0 = 1
Portc.1 = 1
Portc.2 = 1
Portb.0 = 0
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
Portd = 255
W1 Alias Portb.0
W2 Alias Portb.1
W3 Alias Portb.2
W4 Alias Portb.3
Prz1 Alias Pinc.0
Prz2 Alias Pinc.1
Enter Alias Pinc.2
Segmenty Alias Portd
Declare Sub Dec2bcd(byval Liczba As Byte , Byval Pozycja_wysw As Byte , Byref Tab() As Byte)
Dim Sekundy As Byte
Dim s1 as Byte
Dim m1 as byte
Dim Minuty as byte
Dim Wyswietlacz As Byte
Dim Tablica(4) As Byte
Dim Kr1 as Bit
Dim Kr2 as Bit
Dim Kr3 as Bit
Dim Kr4 as Bit
Dim f_Odej as Bit
Dim Startuj as bit
dim 1_sek as Word
Dim Menu as Byte
Config Timer0 = Timer , Prescale = 256
On Ovf0 Przerwanie
Load Timer0 , 65
Enable Ovf0
Enable Interrupts
s1 = 0
m1 = 0
Sekundy = 0
Startuj = 0
Menu = 1
'Set Kr1
'Set Kr2
'Set Kr3
'Set Kr4
Do
Select Case Menu
Case 1:
if Prz1 = 0 then
waitms 15
If Prz1 = 0 Then
s1 = s1 + 1
gosub Wyswietl
waitms 30
end if
End if
if f_Odej = 0 then
if Prz2 = 0 then
waitms 15
If Prz2 = 0 Then
s1 = s1 - 1
gosub Wyswietl
waitms 30
If m1 > 0 Then
If s1 < 1 Then
m1 = m1 - 1
end if
end if
end if
End if
end if
if s1 = 60 Then
m1 = m1 + 1
s1 = 0
gosub Wyswietl
end if
If m1 > 0 Then 'zapalanie kropki gdy min większe od 0
Set Kr2
else
Reset Kr2
End if
Case 2:
End Select
Loop
End 'end program
'**************************************************************
Wyswietl:
If Sekundy = 60 then
Sekundy = 60
End if
If Minuty = 30 Then
Minuty = 30
Sekundy = 0
End if
Sekundy = s1
Dec2bcd Sekundy , 3 , Tablica(1)
Minuty = m1
Dec2bcd Minuty , 1 , Tablica(1)
return
Przerwanie:
Load Timer0 , 65
Incr Wyswietlacz
incr 1_sek
If Wyswietlacz = 5 Then
Wyswietlacz = 1
End If
' if Startuj = 1 then
' 1_sek = 0
' if 1_sek = 481 then
' s1 = s1 - 1
' toggle Kr3
' 1_sek = 0
'end if
'end if
Select Case Wyswietlacz
Case 1:
W4 = 1
Segmenty = Lookup(tablica(1) , Kody7seg)
Portd.7 = Kr1
W1 = 0
Case 2:
W1 = 1
Segmenty = Lookup(tablica(2) , Kody7seg)
Portd.7 = Kr2
W2 = 0
Case 3:
W2 = 1
Segmenty = Lookup(tablica(3) , Kody7seg)
Portd.7 = Kr3
W3 = 0
Case 4:
W3 = 1
Segmenty = Lookup(tablica(4) , Kody7seg)
Portd.7 = Kr4
W4 = 0
End Select
Return
'************************************************************
Sub Dec2bcd(byval Liczba As Byte , Byval Pozycja_wysw As Byte , Byref Tab() As Byte)
Local Pomocnicza1 As Byte
Local Pomocnicza2 As Byte
Pomocnicza1 = Makebcd(liczba)
Pomocnicza2 = Pomocnicza1 And &B00001111
Tablica(pozycja_wysw + 1) = Pomocnicza2
Shift Pomocnicza1 , Right , 4
Pomocnicza2 = Pomocnicza1 And &B00001111
Tablica(pozycja_wysw) = Pomocnicza2
End Sub
Kody7seg:
Data &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110,
Data &B01101101 , &B01111101 , &B00000111 , &]

Witam.

Najpierw postaraj się wywalić obsługę wyświetlacza z przerwania!

Potem przebuduj program by pozbyć się instrukcji wait...

I w trzecim etapie modyfikuj licznik minut i sekund tylko wtedy gdy mieści się w ustalonym zakresie.
Tzn zwiększaj gdy nie osiągną maksymalnego limitu i zmniejszaj tylko gdy nie osiągnął ustalonego minimum.

Dziękuje za cenne wskazówki, na razie to wygląda tak coś tam popisze - nie uda frustracja i odchodzę od kompa na 30min. Następnie powracam na spokojnie z nowymi pomysłami aż do kolejnej porażki, heh i tak w kółko. A jak pozbyć się obsługi wyświetlacza w przerwaniu, w sensie multipleksować do w pętli do loop?

Proponuję zrobić znacznik wystąpienia przerwania, w jego obsłudze i tylko tyle.
A w pętli głównej analizować czy przerwanie wystąpiło, i tylko wtedy podejmować stosowną akcję.

To samo przerwanie można zaprząc do odmierzania dłuższych odcinków czasu, które można dodatkowo wykorzystać (zamiast wait ileśtam).
Jak? - zliczać ilość wystąpień przerwania i wykonywać odpowiednie instrukcje przy pewnej liczbie jego wystąpień.

Trochę tera pomęczyłem ten kod i teraz wmiarę wszystko chodzi, nie wiem czy dobrze zrobiłem ale wrzuciłem wszystkie obliczenia do if-ów od obsługi przycisków plus i minus.

wygląda to teraz tak:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

Do
Select Case Menu
Case 1:
If f_Dodaj = 0 Then
if Prz1 = 0 then
waitms 15
If Prz1 = 0 Then
s1 = s1 + 1
gosub Wyswietl
if s1 = 60 Then
m1 = m1 + 1
s1 = 0
gosub Wyswietl
end if
waitms 30
end if
End if
End if
if f_Odej = 0 then
if Prz2 = 0 then
waitms 15
If Prz2 = 0 Then
s1 = s1 - 1
gosub Wyswietl
If m1 > 0 Then
If s1 = 0 Then
m1 = m1 - 1
s1 = 59
end if
if s1 = 60 Then
m1 = m1 + 1
s1 = 0
gosub Wyswietl
end if
waitms 30
end if
end if
End if
end if
If m1 > 0 Then 'zapalanie kropki gdy min większe od 0
Set Kr2
else
Reset Kr2
End if
If m1 = 0 then
If s1 = 0 Then
f_Odej = 1
else
f_Odej = 0
End if
end if
If m1 = 15 then
If s1 = 0 then
s1 = 0
m1 = 0
gosub Wyswietl
End if
End if
Case 2:
End Select
Loop
End 'end program

miałem problem z ograniczeniem jak dobije do końca np. 30:00, więc zrobiłem że:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

If m1 = 15 then
If s1 = 0 then
s1 = 0
m1 = 0
gosub Wyswietl
End if
End if

się wszystko zeruje

Teraz zostaje napisanie rozpoczęcia odliczania po naciśnięciu entera

Kod nie wygląda dobrze. Napisany w ten sposób nie będzie również dobrze liczył czasu.
Dla czterech wyświetlaczy powinieneś zacząć od ustawienia Timera na 200Hz co da 5ms.
W przerwaniu można multipleksować takie wyświetlacze. Unikam tego tylko kiedy system ma uważać na inne przerwania których u Cibie nie ma.
Sekunda ma 1000ms. To podzielone przez 5ms daje liczbę 200 i do tylu powinieneś liczyć by sobie obliczyć sekundę.

Nie wiem po co tam masz te zamianę na BCD bo przecież wykorzystujesz cały PORTD.

Niestety jestem obłożony pracą i nie bardzo mam czas napisać jakiś przykład. Może coś tam wygospodaruję, ale w twoim kodzie u góry brakuje ostatniej wartości w tabeli.

Mam też małą uwagę organizacyjną. Chcąc umieścić kod wybierz "Bascom" z rozwijanego menu po lewej "Select code". Bascom jest tam trochę niżej, ale jest. Niedługo dam go na samą górę...tylko muszę znaleźć czas

No zgadzam się, że kod to jeden wielki brudnopis, tak kombinuje i szukam w necie jak to inni robia tylko że w sieci sa całe kody jakiś urządzeń i trudno mi z nich powyciagać fragmenty które mi są potrzebne bo nie zabardzo mi idzie analizowanie całych kodów, a znowu jak gdzie indziej pisałem o pomoc to nie chcą wklejać działajacego kawałka kodu tylko pisza po ludzkiemu jak to powinno działać.

Teraz jestem w pracy to już się nie pobawie, ale uruchomiłem już odliczanie ale nie timera0 który multipleksuje wyswietlacze tylko uruchomiłem do tego timera2 czyli 8mhz/256/280 to jest 8ms razy 125 co daje 1sek

Napisz jak ten timer ma działać. Ma odliczać w dół czy ma liczyć w górę? Jeśli w dół to jak tymi klawiszami planujesz ustawiać czas.
Przytrzymanie Plusa ma zwiększać sekundy tak by narosło do 30minut? To trochę potrwa.
Napisz jak to widzisz. Popraw kod w pierwszym poście bo tam brakuje ostatniego elementu tablicy Kody7seg.
Gdyby ktoś chciałby Ci pomóc to musiałby to rozgryźć i dopisać.
Dobrze by było jak byś opisał przy jednej komórce tej tablicy który bit odpowiada za dany segment ABCDEFG*
Zamiany na kod BCD używa się gdy w schemacie urządzenia występuje układ dekodera kodu BCD na wyświetlacz.
Coś w stylu HEF4543. Wtedy kod cyfry zapisany jest tylko na czterech bitach.

Przyjazne Bascom Forum

Pomoc przy wyświetlaczach 7seg...

Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...

Re: Pomoc przy wyświetlaczach 7seg...