AT90s4433 - Uhrzeit mit BASCOM

[Matthias (Gast)]

Hallo,
ich habe seit langem mal wieder meine Mikrocontroller aus dem Schrank 
geholt, da ich für ein Aquarium eine Steuerung basteln wollte.
Ein Punkt ist z.B. Dimmen über die 1-10V Schaltung.
Es soll morgens halt langsam angehen und eine Stunde später auf ca. 80% 
sein.

Dummerweise musste ich jetzt feststellen das Bascom AVR mir sagt das die 
Timer Funktion nicht für meinen Mikrocontroller supported wäre.

$regfile = "4433def.dat"
$crystal = 4000000


Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , 
Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcd = 16 * 2                                         'configure 
lcd screen
Config 1wire = Portd.7                                      'DS1820 Pin
Config Portd = Output
Config Portb = Input
Config Clock = Soft

Es kommt beim kompilieren zu den Fehlern:
error 210 line 10 Bit definition not found [AS2
error 232 line 10 not supported for the selected micro


Laut Datenblatt unterstützt der 4433 doch timer.

Hat jemand Rat?

Danke!

[spess53 (Gast)]

Hi

>Laut Datenblatt unterstützt der 4433 doch timer.

Timer ist aber nicht gleich Timer. Der 4433 ist ein ururalt AVR. Da 
waren die Timer recht spartanisch ausgestattet. Nimm einen aktuellen 
AVR.

MfG Spess

[Matthias (Gast)]

hab nur noch ein paar von denen hier rum liegen, werde dann eh auf die 
atmega wechseln. Aber nur wegen der Uhr jetzt erst neue bestellen...
Wie wurde das denn vorher gemacht?
Es musst doch noch codebeispiele geben, oder ging das nicht vorher?

[spess53 (Gast)]

Hi

>hab nur noch ein paar von denen hier rum liegen, werde dann eh auf die
>atmega wechseln. Aber nur wegen der Uhr jetzt erst neue bestellen...
>Wie wurde das denn vorher gemacht?

Mit zählen. Aber dein Programm scheint auf den Asynchron-Mode eines 
Timers zuzugreifen zu wollen. Und das hat der 4433 nicht.

MfG Spess

[Karl (Gast)]

Ja, da muss man "von Hand" zählen. Z.b. so:

$regfile = "4433def.dat"
$crystal = 4000000
'$sim
Dim Sekunde As Integer
Config Timer1 = Timer , Prescale = 64
Enable Timer1
On Timer1 Sekundeisr
Enable Interrupts
Start Timer1

Do
  Print Sekunde
Loop

End

Sekundeisr:
  Timer1 = 3036
  Incr Sekunde
  If Sekunde = 60 Then Sekunde = 0
Return

[Matthias (Gast)]

Danke die für die Hilfe!
Das hilft mir erstmal weiter ;)