Ostatnio pracuje w bascomie... Chce napisać prosty program pod atmega8, który będzie sterował 4 wyświetlaczami 7 segmentowymi.. program ma być licznikiem impulsów które mają być wyświetlane na wyświetlaczach... zastosowałem metodę multipleksy na tranzystorach BC327.. Moje pytanie.. co w kodzie poniżej jest źle ze program nie może skompilować: (błąd powstaje w linijce 4 i 43). proszę o pomoc z programem...
Poprawiłem tytuł - regulamin p.11.1
[zumek]
$regfile = "m8def.dat" 'typ procesora
$crystal = 16000000 'taktowanie
Config Timer0 = Timer , Gate = Internal , Mod = 2
Load Timer0 , 255
On Timer0 Tim 'timer dla podprogramu Tim
Enable Interrupts
Enable Timer0 'właczenie timera
Start Timer0 'start timera
'deklarowanie zmiennych
Dim A As Byte 'zmienna A typu byte
'deklarowanie zmiennych do kolejnych cyfr wyswietlacza
Dim Jednosc As Byte , Dziesiatki As Byte , Setki As Byte , Tysiace As Byte
Dim Licznik As Word
'deklarowanie nazw pinow
Impuls Alias Portc.5
Res Alias Portc.4
Do 'petla
If Impuls = 0 Then
Incr Licznik
If Licznik = 1000 Then
Licznik = 0
'obliczanie wartosci kolejnych cyfr skladowych
Jednosci = Licznik Mod 10
Dziesiatki = Dziesiatki / 10 : Dziesiatki = Dziesiatki Mod 10
Setki = Setki / 100 : Setki = Setki Mod 10
Tysiace = Tysiace / 1000 : Tysiace = Tysiace Mod 10
Waitms 100 'wstrzymanie na 100ms
End If
'resetowanie licznika
If Res = 0 Then
Licznik = 0
Waitms 100
End If
Loop 'koniec petli
End
'podprogram Tim
Tim:
Incr A 'DODATNIE DO ZMIENNEJ A +1
If A = 4 Then
A = 0
Select Case
Case 0:
Portb = 255 Or &B00001111
Portd = Lookup(tysiace , Dta)
If Licznik > 999 Then Reset Portb.3 'wlaczanie tranzystora zapalajacego 1000
Case 1:
Portb = 255 Or &B00001111
Portd = Lookup(setki , Dta)
If Licznik > 99 Then Reset Portb.2 'wlaczanie tranzystora zapalajacego 100
Case 2:
Portb = 255 Or &B00001111
Portd = Lookup(dziesiatki , Dta)
If Licznik > 9 Then Reset Portb.1 'wlaczanie tranzystora zapalajacego 10
Case 3:
Portb = 255 Or &B00001111
Portd = Lookup(jednosci , Dta)
Reset Portb.0
End Select
Return
Dta:
Data 17 , 119 , 73 , 67 , 39 , 131 , 129 , 87 , 1 , 3
Poprawiłem tytuł - regulamin p.11.1
[zumek]