Uhr mit LCD Display funktioniert nicht

[Simon R. (simon_r44)]

Hallo,

ich hab dieses Projekt nachgebaut (als Einstieg mit einem LCD Display).

http://www.pro-qwerty.com/lcd_clock.php

Verwendet wird ein HD44780 kompatibles Display.

Ich verwende das TC1602E-01(auch HD44780 kompatibel). Aber es zeigt 
nichts auf dem Display an außer die erste Zeile alles Pixel. Es wird ein 
Quarz 8MHZ verwendet. Ich hab nur ein 10MHZ. Es sollte auch ohne gehen. 
Das zumindest was angezeigt wird.

Oder muss am Quellcode was verändert werden?

[isnah (Gast)]

Ich nehme an, du hast die Zeile:
$crystal = 8000000
deiner Quarzfrequenz angepassT?

[Simon R. (simon_r44)]

isnah schrieb:
> Ich nehme an, du hast die Zeile:
> $crystal = 8000000
> deiner Quarzfrequenz angepassT?

Nein das habe ich nicht. Wird höchstwarscheinlich daran liegen. Danke...

[Simon R. (simon_r44)]

Ich verwende jetzt das 4MHZ Quarz und habe die Zeile geändert nach:

$crystal = 4000000

Jetzt muss ja di e Uhr auch anders takten. Also 1024/2=512



$crystal = 4000000
$baud = 19200

Declare Sub Lover_text()

Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.6 = Output
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.6 = 0

Dim A As Integer
Dim Secounds As Byte
Dim Minutes As Byte
Dim Hours As Byte
Let Secounds = 0
Let Minutes = 0
Let Hours = 0
Let A = 0

Config Lcd = 16 * 2
Deflcdchar 0 , 32 , 21 , 14 , 4 , 4 , 10 , 17 , 17          ' replace ? 
with number (0-7)
Deflcdchar 1 , 32 , 4 , 14 , 14 , 14 , 4 , 4 , 4            ' replace ? 
with number (0-7)

Config Timer1 = Timer , Prescale = 1024
On Ovf1 Tim1_isr
Load Timer1 , 7812


Ändere ich jetzt die Zeile
>Config Timer1 = Timer , Prescale = 1024

nach

Config Timer1 = Timer , Prescale = 512

so meldet Bascom den Fehler:

Error 96, Line 33: Prescale value must be 1, 8, 64, 256 or 1024


Also kann ich nur ein 8MHZ, ein 2MHZ usw. verwenden.

Wie kann ich das jetzt umschreiben, sodas ich ein 4MHZ Quarz nehmen 
kann.

Ich hätte auch noch ein 10 und 15MHZ Quarz...

[Retnuoc (Gast)]

Nein im Code passt du die Frequenz an deinen Quarz an.

Damit die Sekunde wieder eine Sekunde hat musst du das Vorbesetzen des 
Timers ändern auf einen Wert der zu deinem Quarz passt.

...
Tim1_isr:
   Load Timer1 , 7812

...

[J. H. (joho62)]

Ich (auch Anfänger) habe diese Uhr jetzt nachgebaut. Ich finde das ein 
prima Testprojekt, man kann einiges probieren und lernen. Bei mir läuft 
es auf Mega 8 mit 9.830400 MHz, das teilt sich günstig mit Timer= 9600, 
und die Bauds stimmen auch.
Ich hätte nur gerne die Anzeige so wie bei einer Uhr üblich, d.h. 
rechtsbündig und mit Vornull bei Minute und Sekunde. Ich hab schon 
einiges versucht, aber noch keinen Durchbruch :)
Joachim

[Simon R. (simon_r44)]

Ja, das eigentliche Problem ist ja auch, das das Display gar nichts 
anzeigt...

Aber es ist ein HD44780 Standartdisplay...

[J. H. (joho62)]

Also wenn Du garnichts siehst, liegt das nicht an der Quarzfrequenz, 
damit ändert sich nur die Zeit.
Hast Du schon alle Anschlüsse am LCD nachgeprüft?
Kannst Du mit dem Kontrastregler von ganz hell bis zu lauter schwarzen 
Quadraten einstellen?
Hast Du Pin5 (R/W) an GND angeschlossen?
Mehr fällt mir erstmal nicht ein.
Joachim

[Simon R. (simon_r44)]

J. H. schrieb:
> Hast Du Pin5 (R/W) an GND angeschlossen?

Nein, laut Schaltplan wird Pin 5 nirgends angeschlossen...

[Simon R. (simon_r44)]

Simon R. schrieb:
> J. H. schrieb:
>> Hast Du Pin5 (R/W) an GND angeschlossen?
>
> Nein, laut Schaltplan wird Pin 5 nirgends angeschlossen...

Okay die Uhr funktioniert jetzt einwandfrei, bis auf das Quarz.

Retnuoc schrieb:
> Nein im Code passt du die Frequenz an deinen Quarz an.
>
> Damit die Sekunde wieder eine Sekunde hat musst du das Vorbesetzen des
> Timers ändern auf einen Wert der zu deinem Quarz passt.
>
> ...
> Tim1_isr:
>    Load Timer1 , 7812
>
> ...

Ich verstehe das nicht ganz. Muss ich die 7812 durch 2 teilen? Ich will 
ein 4MHZ Quarz nutzen...

[isnah (Gast)]

@ J.H.
Doch die Angabe im Programm:
$crystal = 4000000
ist für die Funktion des Display notwendig. Die Function "waitms 200" im 
Code ist direkt abhängig davon.

[J. H. (joho62)]

Ich habe die Uhr testweise mit Quarzen von 3 bis 20 MHZ betrieben, nach 
dem ändern des Timer-Startwertes ging es immer ohne Fehler.
Die 200ms stellen sich doch durch die Angabe der Frequenz in "$crystal" 
richtig ein(?).
Den Timer-Startwert ermittelt man durch 
=Quarzfrequenz/Prescalewert(1024).
Bloß für mein Problem - die vorlaufenden Nullen - hab ich noch immer 
keine Lösung. Vielleicht weiß einer was.
Ich hab mal meine Version der Uhr angehängt.
Joachim

[Simon R. (simon_r44)]

J. H. schrieb:
> Den Timer-Startwert ermittelt man durch
> =Quarzfrequenz/Prescalewert(1024).

Das heißt, wenn ich ein 4MHZ Quarz nutzen will, muss ich einfach die 
4000000/1024 machen? Ich hätte dann 3906,25.

Ich schreibe also:

>$crystal = 4000000

>Load Timer1 , 3906

und bei Zeile 80...

Aber was passiert mit den ,25 (3906,25)? Wird die Uhr dann ungenau?
Bei 8MHZ wären ja noch ,5 übrig (7812,5)

[Thomas D. (thomasderbastler)]

Also bei einem 4MHz sollte so aussehen :


$crystal = 4000000
Config Timer1 = Timer, Prescale = 64

On Timer1 Timer_irq
Const Timervorgabe = 3036

Enable Timer1
Enable Interrupts


Do

Loop

Timer_irq:
  Timer1 = Timervorgabe

[Simon R. (simon_r44)]

Danke...

Kein Wunder. Nach meinen Angaben lief die Uhr doppelt so schnell...

[Thomas D. (thomasderbastler)]

und funzt jetzt ?

[Simon R. (simon_r44)]

Ich hab das jetzt mal so geschrieben:

$crystal = 4000000
$baud = 19200

Declare Sub Lover_text()

Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.6 = Output
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.6 = 0

Dim A As Integer
Dim Secounds As Byte
Dim Minutes As Byte
Dim Hours As Byte
Let Secounds = 0
Let Minutes = 0
Let Hours = 0
Let A = 0

Config Lcd = 16 * 2
Deflcdchar 0 , 32 , 21 , 14 , 4 , 4 , 10 , 17 , 17          ' replace ? 
with number (0-7)
Deflcdchar 1 , 32 , 4 , 14 , 14 , 14 , 4 , 4 , 4            ' replace ? 
with number (0-7)

Config Timer1 = Timer , Prescale = 64
On Ovf1 Tim1_isr
Load Timer1 , 3036

Setclock:
Disable Interrupts
Let Secounds = 0
Cls

Cursor On Blink

Lcd "Time: "
Lowerline
Lcd "Set Clock!"
Locate 1 , 9
Lcd ":"
Locate 1 , 12
Lcd "."


Do
  If Pind.3 = 0 Then
      Minutes = Minutes + 1
      If Minutes = 60 Then Minutes = 0
      Waitms 200
   End If
   If Pind.2 = 0 Then
      Hours = Hours + 1
      If Hours = 24 Then Hours = 0
      Waitms 200
   End If
   If Pind.4 = 0 Then Exit Do
   Locate 1 , 7
   Lcd "  "
   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd "  "
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds
   Waitms 50
Loop


Enable Timer1
Enable Interrupts

Cursor Off Noblink

Call Lover_text()

Do
  Toggle Portd.6
  Waitms 100
  If Pind.4 = 0 Then
      Waitms 10
      While Pind.4 = 0
         Nop
      Wend
      Goto Setclock
  End If
Loop

Tim1_isr:
   Load Timer1 , 3036

   If Secounds = 60 Then
      Secounds = 0
      Minutes = Minutes + 1
      If Minutes = 60 Then
         Minutes = 0
         Locate 1 , 10
         Lcd "  "
         Hours = Hours + 1
         If Hours = 24 Then
            Hours = 0
            Locate 1 , 7
            Lcd "  "
            Call Lover_text()
            nop
            nop
         End If
      End If
   End If

   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds

   Locate 1 , 16
   If A = 0 Then
      Lcd Chr(0)
      A = 1
   Elseif A = 1 Then
      Lcd Chr(1)
      A = 0
   End If
   Secounds = Secounds + 1
Return

End


Sub Lover_text()
   Locate 2 , 0
   Lcd "   Hello Simon  "
End Sub


Die Uhr läuft zehnmahl so schnell...

[J. H. (joho62)]

Hallo Thomas!
Wie kommst Du auf diese Zahl?
Ich hab das gleich mal ausprobiert, da geht die Post ab! Die Sekunden 
sind garnicht mehr zu sehen, die Minuten laufen fast im Sekundentakt :)
Nach der Formel soll der Timerstartwert 62500 sein. Hab ich 
reingeschrieben, alles wieder OK!

@ Simon:
Glatte Quarzfrequenzen geben meistens ungerade Teilerwerte, ich hab in 
der Kiste einen 9,8304 MHz gefunden, der muß auch in was seriellem drin 
gewesen sein, wegen der Baudrate.
Die Datei mußte ich nochmal überarbeiten, da war ein Fehler drin ;) 
Deshalb nochmal.
Joachim

[Thomas D. (thomasderbastler)]

Ups..was übersehen ?

[Simon R. (simon_r44)]

@ J. H.

Die Uhr rennt immer noch doppelt so schnell...

[J. H. (joho62)]

Ich hab das ja umgesetzt auf ATmega8, muß erstmal auf dem Steckbrett was 
mit dem Tiny 2313 zusammenstecken...mal sehen!

[Thomas D. (thomasderbastler)]

Fuses passen ?

[Simon R. (simon_r44)]

Thomas der Bastler schrieb:
> Fuses passen ?

Hatte sie ausversehen auf E4 gestellt. Natürlich E2...

Danke euch beiden...

[Simon R. (simon_r44)]

Also die Uhr will bei mir nicht nach dem "echten" Sekundentakt laufen. 
Der Attiny2313 hat doch ein interner 8MHZ oszillator. Kann man den nicht 
nehmen?

[Thomas D. (thomasderbastler)]

Simon R. schrieb:
> Also die Uhr will bei mir nicht nach dem "echten" Sekundentakt
> laufen.
> Der Attiny2313 hat doch ein interner 8MHZ oszillator. Kann man den nicht
> nehmen?

Schon aber ungenauer wie ein Quarz.
Was ist das Problem noch ?

[Eumel (Gast)]

Simon R. schrieb:
> Kann man den nicht
> nehmen?

Dann schau dir mal die Abeweichungen im Datenblatt an.

[Thomas D. (thomasderbastler)]

Eumel schrieb:
> Dann schau dir mal die Abeweichungen im Datenblatt an.

Der interner Osc ist ein RC Glied...wird nie so genau laufen wie ein 
Quarz

[Simon R. (simon_r44)]

Thomas der Bastler schrieb:
> Schon aber ungenauer wie ein Quarz.
> Was ist das Problem noch ?

Die gebaute Uhr mit 4MHZ Quarz läuft schneller:

Stoppuhr= 16:10

Gebaute Uhr= 16:25

[Eumel (Gast)]

Thomas der Bastler schrieb:
> Der interner Osc ist ein RC Glied...wird nie so genau laufen wie ein
> Quarz

Bezug zu meiner Aussage? Null.

[Thomas D. (thomasderbastler)]

Hast jetzt ein Atmega8 mit 4 MHz ?

[Simon R. (simon_r44)]

Thomas der Bastler schrieb:
> Hast jetzt ein Atmega8 mit 4 MHz ?

Nein, den ATtiny2313...

[Thomas D. (thomasderbastler)]

Hast die beiden Zeilen auch drin ?

Enalbe Timer1
Enable interrupts

Zeige mal den Code

[Simon R. (simon_r44)]

Das wäre der Code:

   '  - -  -   - - - - - - - - - - - - - - - - - - - - - - - - - - -
'Made by Szymon Dyja
'from www.pro-qwerty.com
''  - -  -   - - - - - - - - - - - - - - - - - - - - - - - - - -

$crystal = 4000000
$baud = 19200

Declare Sub Lover_text()

Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.6 = Output
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.6 = 0

Dim A As Integer
Dim Secounds As Byte
Dim Minutes As Byte
Dim Hours As Byte
Let Secounds = 0
Let Minutes = 0
Let Hours = 0
Let A = 0

Config Lcd = 16 * 2
Deflcdchar 0 , 32 , 21 , 14 , 4 , 4 , 10 , 17 , 17          ' replace ? 
with number (0-7)
Deflcdchar 1 , 32 , 4 , 14 , 14 , 14 , 4 , 4 , 4            ' replace ? 
with number (0-7)

Config Timer1 = Timer , Prescale = 64
On Ovf1 Tim1_isr
Load Timer1 , 62500

Setclock:
Disable Interrupts
Let Secounds = 0
Cls

Cursor On Blink

Lcd "Time: "
Lowerline
Lcd "Set Clock!"
Locate 1 , 9
Lcd ":"
Locate 1 , 12
Lcd "."


Do
  If Pind.3 = 0 Then
      Minutes = Minutes + 1
      If Minutes = 60 Then Minutes = 0
      Waitms 200
   End If
   If Pind.2 = 0 Then
      Hours = Hours + 1
      If Hours = 24 Then Hours = 0
      Waitms 200
   End If
   If Pind.4 = 0 Then Exit Do
   Locate 1 , 7
   Lcd "  "
   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd "  "
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds
   Waitms 50
Loop


Enable Timer1
Enable Interrupts

Cursor Off Noblink

Call Lover_text()

Do
  Toggle Portd.6
  Waitms 100
  If Pind.4 = 0 Then
      Waitms 10
      While Pind.4 = 0
         Nop
      Wend
      Goto Setclock
  End If
Loop

Tim1_isr:
   Load Timer1 , 62500

   If Secounds = 60 Then
      Secounds = 0
      Minutes = Minutes + 1
      If Minutes = 60 Then
         Minutes = 0
         Locate 1 , 10
         Lcd "  "
         Hours = Hours + 1
         If Hours = 24 Then
            Hours = 0
            Locate 1 , 7
            Lcd "  "
            Call Lover_text()
            nop
            nop
         End If
      End If
   End If

   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds

   Locate 1 , 16
   If A = 0 Then
      Lcd Chr(0)
      A = 1
   Elseif A = 1 Then
      Lcd Chr(1)
      A = 0
   End If
   Secounds = Secounds + 1
Return

End


Sub Lover_text()
   Locate 2 , 0
   Lcd "   Hello Simon  "
End Sub

[Simon R. (simon_r44)]

Also den Text einfach unter

>Load Timer1 , 62500

setzen?

[Thomas D. (thomasderbastler)]

Wo ist der AVR Definition ?

Schreibe mal so :


$regfile = "2313def.dat"
$crystal = 4000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40


Config Timer1 = Timer , Prescale = 64
On Timer1 Tim1_isr

do

Loop



Tim1_isr:
Incr Count
Timer1 = 3036
Return

[Simon R. (simon_r44)]

Wenn ich also schreibe:

    '  - -  -   - - - - - - - - - - - - - - - - - - - - - - - - - - 
-
'Made by Szymon Dyja
'from www.pro-qwerty.com
''  - -  -   - - - - - - - - - - - - - - - - - - - - - - - - - -
$regfile = "2313def.dat"
$crystal = 4000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40

Declare Sub Lover_text()

Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.6 = Output
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.6 = 0

Dim A As Integer
Dim Secounds As Byte
Dim Minutes As Byte
Dim Hours As Byte
Let Secounds = 0
Let Minutes = 0
Let Hours = 0
Let A = 0

Config Lcd = 16 * 2
Deflcdchar 0 , 32 , 21 , 14 , 4 , 4 , 10 , 17 , 17          ' replace ? 
with number (0-7)
Deflcdchar 1 , 32 , 4 , 14 , 14 , 14 , 4 , 4 , 4            ' replace ? 
with number (0-7)

Config Timer1 = Timer , Prescale = 64
On Timer1 Tim1_isr

do

Loop



Tim1_isr:
Incr Count
Timer1 = 3036
Return



Setclock:
Disable Interrupts
Let Secounds = 0
Cls

Cursor On Blink

Lcd "Time: "
Lowerline
Lcd "Set Clock!"
Locate 1 , 9
Lcd ":"
Locate 1 , 12
Lcd "."


Do
  If Pind.3 = 0 Then
      Minutes = Minutes + 1
      If Minutes = 60 Then Minutes = 0
      Waitms 200
   End If
   If Pind.2 = 0 Then
      Hours = Hours + 1
      If Hours = 24 Then Hours = 0
      Waitms 200
   End If
   If Pind.4 = 0 Then Exit Do
   Locate 1 , 7
   Lcd "  "
   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd "  "
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds
   Waitms 50
Loop


Enable Timer1
Enable Interrupts

Cursor Off Noblink

Call Lover_text()

Do
  Toggle Portd.6
  Waitms 100
  If Pind.4 = 0 Then
      Waitms 10
      While Pind.4 = 0
         Nop
      Wend
      Goto Setclock
  End If
Loop

Tim1_isr:
   Load Timer1 , 3036

   If Secounds = 60 Then
      Secounds = 0
      Minutes = Minutes + 1
      If Minutes = 60 Then
         Minutes = 0
         Locate 1 , 10
         Lcd "  "
         Hours = Hours + 1
         If Hours = 24 Then
            Hours = 0
            Locate 1 , 7
            Lcd "  "
            Call Lover_text()
            nop
            nop
         End If
      End If
   End If

   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds

   Locate 1 , 16
   If A = 0 Then
      Lcd Chr(0)
      A = 1
   Elseif A = 1 Then
      Lcd Chr(1)
      A = 0
   End If
   Secounds = Secounds + 1
Return

End


Sub Lover_text()
   Locate 2 , 0
   Lcd "   Hello Simon  "
End Sub




Meldet er Fehler siehe Bild......

[holger (Gast)]

>Meldet er Fehler siehe Bild......


Dann mach doch diesen Unsinn da weg:

Tim1_isr:
Incr Count
Timer1 = 3036
Return

Was willst du damit? Jetzt hast du Tim1_isr: doppelt im Code.

[Thomas D. (thomasderbastler)]

Do - Loop 2 mal im Code

Count nicht deklariert...

[Thomas D. (thomasderbastler)]

Schaue mal jetzt..aber bitte nich "aufräumen"

Interne Pullups einschalten..usww

[Simon R. (simon_r44)]

Ich habe jetzt geschrieben:

    ' * - - * - * * - - - - - - - - - - - - - - - - - - - - - - - - - - -
'Made by Szymon Dyja
'from www.pro-qwerty.com
'' * - - * - * * - - - - - - - - - - - - - - - - - - - - - - - - - -
$regfile = "2313def.dat"
$crystal = 4000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40


Declare Sub Lover_text()

Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.6 = Output
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.6 = 0

Dim A As Integer
Dim Secounds As Byte
Dim Minutes As Byte
Dim Hours As Byte
Let Secounds = 0
Let Minutes = 0
Let Hours = 0
Let A = 0

Config Lcd = 16 * 2
Deflcdchar 0 , 32 , 21 , 14 , 4 , 4 , 10 , 17 , 17          ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 4 , 14 , 14 , 14 , 4 , 4 , 4            ' replace ? with number (0-7)

Config Timer1 = Timer , Prescale = 64
On Timer1 Tim1_isr

do

Loop


Setclock:
Disable Interrupts
Let Secounds = 0
Cls

Cursor On Blink

Lcd "Time: "
Lowerline
Lcd "Set Clock!"
Locate 1 , 9
Lcd ":"
Locate 1 , 12
Lcd "."


Do
  If Pind.3 = 0 Then
      Minutes = Minutes + 1
      If Minutes = 60 Then Minutes = 0
      Waitms 200
   End If
   If Pind.2 = 0 Then
      Hours = Hours + 1
      If Hours = 24 Then Hours = 0
      Waitms 200
   End If
   If Pind.4 = 0 Then Exit Do
   Locate 1 , 7
   Lcd "  "
   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd "  "
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds
   Waitms 50
Loop


Enable Timer1
Enable Interrupts

Cursor Off Noblink

Call Lover_text()

Do
  Toggle Portd.6
  Waitms 100
  If Pind.4 = 0 Then
      Waitms 10
      While Pind.4 = 0
         Nop
      Wend
      Goto Setclock
  End If
Loop

Tim1_isr:
   Load Timer1 , 3036

   If Secounds = 60 Then
      Secounds = 0
      Minutes = Minutes + 1
      If Minutes = 60 Then
         Minutes = 0
         Locate 1 , 10
         Lcd "  "
         Hours = Hours + 1
         If Hours = 24 Then
            Hours = 0
            Locate 1 , 7
            Lcd "  "
            Call Lover_text()
            nop
            nop
         End If
      End If
   End If

   Locate 1 , 7
   Lcd Hours
   Locate 1 , 10
   Lcd Minutes
   Locate 1 , 13
   Lcd "  "
   Locate 1 , 13
   Lcd Secounds

   Locate 1 , 16
   If A = 0 Then
      Lcd Chr(0)
      A = 1
   Elseif A = 1 Then
      Lcd Chr(1)
      A = 0
   End If
   Secounds = Secounds + 1
Return

End


Sub Lover_text()
   Locate 2 , 0
   Lcd "   Hello Simon  "
End Sub

Das Display zeigt nur ein komisches Zeichen an...

[Thomas D. (thomasderbastler)]

Wo ist denn die Definition im Code, daß Du ein Display hast ?

Sehe nirgends...

[Simon R. (simon_r44)]

Thomas der Bastler schrieb:
> Wo ist denn die Definition im Code, daß Du ein Display hast ?
>
> Sehe nirgends...

Ich habe jetzt dein Programm genommen. Die Uhr läufz noch schneller 
sodass ich ich die sekunden nicht mehr sehe.

Low Fuse auf E2...

[Thomas D. (thomasderbastler)]

Irgendwas ist noch faul..sollte aber der code stimmen..weiß nicht was 
ist E2 ..


Das was Du vor hast ist zimelich standard..mit Attiny2313 1 sek, Takt 
erzeugen..erster treffer

http://bascom-forum.de/showthread.php?2753-Attiny2313-mit-1-Sec-Timer

[Zeitmaschine (Gast)]

Zeig mal ein Foto des Aufbaus. Quarz mit Kondensatoren usw.

[Thomas D. (thomasderbastler)]

Zeitmaschine schrieb:
> Zeig mal ein Foto des Aufbaus. Quarz mit Kondensatoren usw.

Damit nicht ein so schwerer Geburt wird, auch Dein Code was geflasht 
hast..

[Simon R. (simon_r44)]

Thomas der Bastler schrieb:
> Damit nicht ein so schwerer Geburt wird, auch Dein Code was geflasht
> hast.

Ich habe deine Code geflasht:
>Forum.bas

[Thomas D. (thomasderbastler)]

Nun mal auf die schnelle...

In meinem Code, war nur ein GROBE Beispiel, sind die LCD Pins garnicht 
deklariert gewesen.

Bist Sicher, daß Dein Quarz 4 MHz hat ...

[Simon R. (simon_r44)]

Thomas der Bastler schrieb:
> Bist Sicher, daß Dein Quarz 4 MHz hat ...

Ja es ist das hier:
http://such002.reichelt.de/index.html?ACTION=3;ARTICLE=2449;SEARCH=4,0000-HC18


Mit Load Timer 62500 lief sie noch fast normal vo der geschwindigkeit.

Ich hab auch noch ein Phillips rumliegen...

[Thomas D. (thomasderbastler)]

Hmmm..stehe momentan echt auf dem Schlauch...Muss mal genau 
anschauen..komme grade nicht drauf..

[Simon R. (simon_r44)]

Simon R. schrieb:
> Ich hab auch noch ein Phillips rumliegen...

Ob ich nun das Phillips (4000.000) Quarz oder das Standart Quarz (40000) 
nutze ist völlig egal. Die Zeit stimmt bei beiden nicht. Sie laäuft 
immer ein wenig schneller als die "normale" Uhr.

Ich hätte noch ein 10, 12, 15 oder ein 27MHZ Quarz zur Auswahl...

[J. H. (joho62)]

Ich habe jetzt das ganze auf dem Steckbrett mit nem Tiny 2313 aufgebaut. 
Das läuft tadellos mit dem angehängten Programm. Ich habe aber die 
interne Taktquelle benutzt.
Getestet mit 1MHz, 4MHz und 8MHz. Das Programm habe ich etwas 
"verschlankt", und angehängt.
Wenn Du keinen groben Fehler beim Aufbau hast, müßte es auch bei Dir 
laufen.
Ich hatte zunächst Probleme mit dem LCD, weil die Leitungen doch 
ziemlich lang sind. Probiers aus!
Joachim

Edit: Deine Quarze sind alle nicht gut, weil sich immer was hinter dem 
Komma ergibt. Da ist die Abweichung schon absehbar.

[Simon R. (simon_r44)]

@ J. H.
Mit deinem Code rennt meine Uhr so langsam wie nie. Die Low Fuse steht 
auf 0xE2. Also für 4MHZ. Es funktioniert nur mit dem Load Timer 62500, 
aber jedoch ungenau...

[J. H. (joho62)]

Also hast Du doch nicht alles so gemacht wie ich.
Du hast den Prescaler auf 64, dazu gehört der Startwert 62500.
Das geht auch, habs eben probiert. Du hast aber jetzt einen sehr hohen 
Startwert, was Dir die Möglichkeit gibt, sehr fein die genaue Zeit 
einzustellen. Das müßte (Mit Quarz!) ziemlich genau werden! Ich versuch 
das mal. Einfach den Startwert etwas erhöhen/vermindern.

[J. H. (joho62)]

Eben getestet:
Bei Startwert 65000 (+ 2500) läuft sie pro Minute ca. 4 Sekunden 
langsamer. Müßte also sehr fein regelbar sein.

[Karl H. (kbuchegg)]

Simon R. schrieb:
> @ J. H.
> Mit deinem Code rennt meine Uhr so langsam wie nie. Die Low Fuse steht
> auf 0xE2. Also für 4MHZ.

E2 ist interner Oszillator

> aber jedoch ungenau...

Logisch ist der ungenau. Deswegen benutzt man ja Quarze.

http://www.engbedded.com/fusecalc/

[Karl H. (kbuchegg)]

Simon R. schrieb:
> Ich habe jetzt geschrieben:
>     '  - -  -   - - - - - - - - - - - - - - - - - - - - - - - - - -
> -
> 'Made by Szymon Dyja
> 'from www.pro-qwerty.com
> ''  - -  -   - - - - - - - - - - - - - - - - - - - - - - - - - -
> $regfile = "2313def.dat"

Was immer das auch für ein Device ist.
Das Regfile für einen Tiny 2313 heisst

$regfile = "attiny2313.dat"

[Simon R. (simon_r44)]

Karl Heinz Buchegger schrieb:
> E2 ist interner Oszillator
>
>> aber jedoch ungenau...
>
> Logisch ist der ungenau. Deswegen benutzt man ja Quarze.

Okay, das heißt ich muss beim flashen E2 nicht wählen.
Aber wieso läuft die Uhr immmer weiter auch wenn ich kein Quarz an den 
Tiny stecke. Mir kommt es so vor, als ob immer noch der interen 
Oszillator verwendet wird. Die Uhr müsste doch anhalten...

[Karl H. (kbuchegg)]

Simon R. schrieb:
> Karl Heinz Buchegger schrieb:
>> E2 ist interner Oszillator
>>
>>> aber jedoch ungenau...
>>
>> Logisch ist der ungenau. Deswegen benutzt man ja Quarze.
>
> Okay, das heißt ich muss beim flashen E2 nicht wählen.
> Aber wieso läuft die Uhr immmer weiter auch wenn ich kein Quarz an den
> Tiny stecke. Mir kommt es so vor, als ob immer noch der interen
> Oszillator verwendet wird. Die Uhr müsste doch anhalten...

welchen Teil von
"E2 ist der interne Oszillator"
hast du nicht verstanden?

interner Oszillator heißt 'Dein Quarz ist schmückendes Beiwerk, wird 
aber nicht benutzt'.
Und damit kannst du den selbstverständlich abziehen oder anstecken, wie 
du lustig bist. Nicht benutzt ist nicht benutzt und hat auch keine 
Auswirkungen.