timer0 bascom

[sjacek]

nie wiem jeszcze nic o fusebitach, a kwarc na pewno jest wewnętrzny, sprawdziłem w dokumentacji atmegi32

[Nawyk]

Skoro masz wewnętrzny rezonator RC, to dlaczego w programie ustawiłeś taktowanie na 16MHz? Atmega32 nie ma przypadkiem domyślnego 1MHz? Bo raczej na pewno nie 16... (tak, nota katalogowa nie gryzie - nie mam czasu szukać)

[Luko]

A no to już wiadomo czemu to tak kuleje, jednak dobrze wywróżyłem z fusów.

Ustaw:

$crystal = 1000000

Problem nie tkwił w programie ale w tym, że Ty sobie stwierdziłeś, że procesor ma pracować z prędkością 16MHz choć nie jest do tego przygotowany.

[sjacek]

czyli muszę się dowiedzieć czegoś o fusebitach, tak? inne programy działały przy takich ustawieniach

[Luko]

inne programy działały przy takich ustawieniach

Bo inne programy nie wymagające cyklu procesora do odmierzenia czasu, będą się normalnie zachowywać, a przynajmniej powinny.

Na wewnętrznym i tak wydusisz max 8MHz, po odpowiednim ustawieniu fusebitów. Temat ustawiania niejednokrotnie wałkowany na forum, na googlach też dużo znajdziesz. Jak coś to polecam http://www.engbedded.com/fusecalc/

[sjacek]

nadal nie działa, poczytam o tych fusebitach może coś znajdę ciekawego

[xArcus]

Jeśli program pisałeś pod kwarc 16MHz to po zmianie na 1MHz kod sam sie nie przestawi

[sjacek]

co ty nie powiesz

$crystal ustawiłem na 1000000, zmieniłem wartość prescalera, wartość początkową timera i warunek w if'ie

[Luko]

Według mnie powinno to tak wyglądać jeżeli się rozchodzi o przybliżone odmierzanie 1s. Czyli co ~1s będzie zmieniany stan na pinie D.0.

$regfile = "m32def.dat"
$crystal = 1000000

Config Pind.0 = Output
Reset Portd.0

Config Timer0 = Timer , Prescale = 1024

Dim Licz_int As Byte
Licz_int = 0

Enable Interrupts
Enable Timer0
Start Timer0
On Timer0 Licz:

Do

Loop

Licz:
  Licz_int = Licz_int + 1

  If Licz_int > 3 Then
     Toggle Portd.0
     Licz_int = 0
  End If
Return

[sjacek]

z tego nijak nie wychodzi 1s, wychodzi ok 4ms

[Luko]

4 przepełnienia Timera przy 1024 prescalerze dają około 1s (dla dokładności 1.048576) nie wiem jak Ty to wyliczyłeś że Ci 4ms wychodzą. Program przetestowany w symulatorze bascoma i działa zgodnie z oczekiwaniem czyli co 1s zmienia stan portu.

Aha tak przy okazji polecam http://frank.circleofcurrent.com/cache/avrtimercalc.htm

[sjacek]

z neta ściągnąłem taki kod do obsługi wyświetlacza segmentowego i działa

kod:

'--------------------------------------------------------------------
'
'
'--------------------------------------------------------------------
'Program przygotowany dla zestawu EvB 4.3 firmy And-Tech.pl


$regfile = "m32def.dat"

'Częstotliwość kwarcu domyślnie 16MHz
$crystal = 16000000

'Podłaczenie wyświetlacza 7 segmentowego
' Digit1 PORTB.0
' Digit2 PORTB.1
' Digit3 PORTB.2
' Digit4 PORTB.3

'Segment A PORTA.1
'Segment B PORTA.2
'Segment C PORTA.3
'Segment D PORTA.4
'Segment E PORTA.5
'Segment F PORTA.6
'Segment G PORTA.7

Config Porta = Output
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output


Config Timer0 = Timer , Prescale = 256

Declare Sub Pobr_znaku(cyfra As Byte)

On Timer0 Mult_wysw

Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim Nr_wysw As Byte

W1 Alias Portb.0
W2 Alias Portb.1
W3 Alias Portb.2
W4 Alias Portb.3

Wait 2
Set W1
Set W2
Set W3
Set W4
Wait 2

Enable Interrupts

Enable Timer0
Load Timer0 , 125

Do

Wait 1

D = D + 1

'Rozbicie na poszczegolne cyfry
If D > 9then
D = 0
C = C + 1
End If
If C > 9then
C = 0
B = B + 1
End If
If B > 9 Then
B = 0
A = A + 1
End If
If A > 9 Then
A = 0 : B = 0 : C = 0 : D = 0
End If

Loop

End                                                         'end program


Sub Pobr_znaku(cyfra As Byte)
Porta = Lookup(cyfra , Kody7seg)
End Sub


Mult_wysw:

Load Timer0 , 150
Set W1
Set W2
Set W3
Set W4


Select Case Nr_wysw

Case 0:
Call Pobr_znaku(a)
Reset W1


Case 1:
Call Pobr_znaku(b)
Reset W2

Case 2:
Call Pobr_znaku(c)
Reset W3


Case 3:
Call Pobr_znaku(d)
Reset W4

End Select

Incr Nr_wysw
If Nr_wysw = 4 Then
Nr_wysw = 0
End If
Return


Kody7seg:

Data &B10000001 , &B11110011 , &B01001001 , &B01100001 , &B00110011 ,
Data &B00100101 , &B00000101 , &B11110001 , &B00000001 , &B00100001

kto widzi różnicę?

[Luko]

To napisz nam łaskawie z jaką częstotliwością masz taktowanego tego proca

[sjacek]

Przecież mówiłem że 16MHz, ale ktoś się uparł że na pewno nie. Ten program który przed chwilą wysłałem jest robiony pod płytkę testową którą posiadam i działa, więc mój kod też powinien na takiej częstotliwości.

[ Dodano: 26 Lip 10 10:05 ]

a tam u Ciebie faktycznie ok 1s wychodzi, mój błąd sorki

[Luko]

No to trzeba było napisać że masz jakaś płytkę testową i masz na niej jakiś tam oscylator który podaje 16MHz?!

$regfile = "m32def.dat"
$crystal = 16000000

Config Pind.0 = Output
Reset Portd.0

Config Timer0 = Timer , Prescale = 1024

Dim Licz_int As Byte
Licz_int = 0

Enable Interrupts
Enable Timer0
Start Timer0
On Timer0 Licz:

Do

Loop

Licz:
  Licz_int = Licz_int + 1

  If Licz_int > 61 Then
     Toggle Portd.0
     Licz_int = 0
  End If
Return