BASCOM LCD Uhr Bug

[runner02]

$regfile = "m8def.dat"                                      ' specify the used micro
$crystal = 1000000                                          ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 120                                              ' default use 32 for the hardware stack
$swstack = 120                                              ' default use 10 for the SW stack
$framesize = 50                                             ' default use 40 for the frame space





Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6


Dim A As Byte
Config Lcd = 16 * 2                                         'configure lcd screen





 Config Timer1 = Timer , Prescale = 1024
 Enable Timer1
 Dim Minutes As Byte
 Dim Hours As Byte
  Dim Minutes10 As Byte
 Dim Hours10 As Byte
 Dim Day As Integer

 Dim I As Byte
 Minutes = 0
 Minutes10 = 0
 Hours10 = 0
 Hours = 0


 Ddrd = &B00000000                                          'input D



 On Timer1 Isr_von_timer1

 Enable Interrupts
 Timer1 = 6942


     Do                                                     ' Hauptprogramm

      If Hours = 23 And Minutes = 56 Then

      Day = Day + 1
      Hours = 0
      End If

      Hours10 = Hours / 10
      Minutes10 = Minutes / 10


   If Pind.0 = 1 Then
   Minutes = Minutes + 1
   End If

    If Pind.1 = 1 Then
   Hours = Hours + 1
   End If

 If Pind.2 = 1 Then
   Day = Day + 1
   End If

 If Pind.3 = 1 Then
   Day = Day + 100
   End If


Cls                                                         'clear the LCD display
Lcd "Vienna Time"                                         'display this at the top line

'Lowerline

Locate 2 , 0                                                'select the lower line
Lcd Str(hours10)
Lcd Str(hours)
Lcd ":"                                                     'display this at the lower line
Lcd Str(minutes10)
Lcd Str(minutes)

Lcd " "
Lcd Day
Lcd Str(Day)




      Loop




      Isr_von_timer1:

 Timer1 = 6942

 Minutes = Minutes + 1
 If Minutes = 60 Then
    Minutes = 0
    Hours = Hours + 1
 End If




 Return


End

So, das ist nun meine neue Uhr

Sie schreibt auch

"Vienna Time",

nur darunter die Zahlen 01:02 die wechselt hundert mal pro sekunde oder so, und dann entsteht eine Zahlenkette 1235454545125454512 -> 2ms später5454564545456465 -> 2ms 58645645647865456454 und der ganze Bildschirm flackert herum... Vlt findet jemand den Bug??


Mfg

[Rone]

Hallo!

Überdenk mal das CLS in Hauptschleife.


MfG
Rone

[runner02]

Soll ich am Ende der Schleife einfach wieder zurückspringen, sodass alles beim nächsten mal einfach überschrieben wird??

Eine kleine Änerung habe ich übrigens vorgenommen:

Habe die Variable minutes1 eingeführt (=minutes-minutes10) , sonst wäre bei Funktion des Programmeszb. 12 -> zehn (minutes10) + 12 (minutes) also 112.
Das selbe bei hours.


Die unteren Zahlen sind übrigens doch nicht willkürlich! 10:10 -> 11:11 -> 12:12 .... -> 110:11010 usw... Nur geht das umschalten sehr schnell <<1sek.

[Rone]

Hallo!

Hinweis1: Versuch herauszufinden oder einfach logisch denken wie oft Deine Hauptschleife
in einer Sekunde durchlaufen wird, und wie das sich auf Deine Anzeige auswirkt

Hinweis2: Grundsätzlich beschreibt man das Display nur wenn sich eine Variable ändert
also 1mal pro Sekunde >>> Goto Hinweis1


MfG
Rone

[runner02]

Zuerst habe ich nur den Text geschrieben, und das ohne wait gemacht, da ist er nicht so stark geflimmert...

Das mit den Zahlen dürfte dann das Problem gewesen sein... Er überarbeitet sich


Dabei sollten die Zahlen doch nur einmal pro Minute verändert werden... (Timer1 -> 1min)

[radbruch]

Hallo

Ich hab mal die zusätzliche Variable Minutes_old eingebaut:

$regfile = "m8def.dat"                  ' specify the used micro
$crystal = 1000000                      ' used crystal frequency
$baud = 19200                           ' use baud rate
$hwstack = 120                          ' default use 32 for the hardware stack
$swstack = 120                          ' default use 10 for the SW stack
$framesize = 50                         ' default use 40 for the frame space

Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6

Dim A As Byte
Config Lcd = 16 * 2                     'configure lcd screen

Config Timer1 = Timer , Prescale = 1024
On Timer1 Isr_von_timer1
Timer1 = 6942

Dim Minutes As Byte
Dim Minutes_old As Byte
Dim Hours As Byte
Dim Minutes10 As Byte
Dim Hours10 As Byte
Dim Day As Integer
Dim I As Byte

Minutes = 0
Minutes_old = 100                       ' 100 = Startanzeige aufbauen
Minutes10 = 0
Hours10 = 0
Hours = 0

Ddrd = &B00000000                       'input D

Enable Timer1
Enable Interrupts

Cls                                     'clear the LCD display
Lcd "Vienna Time"                       'display this at the top line

Do                                      ' Hauptprogramm

   If Hours = 23 And Minutes = 56 Then  ' Gangkorrektur
      Day = Day + 1
      Hours = 0
      Minutes = 0
   End If

   If Pind.0 = 1 Then                   ' set clock
      Minutes = Minutes + 1
   End If

   If Pind.1 = 1 Then
      Hours = Hours + 1
      Minutes_old = 100
   End If

   If Pind.2 = 1 Then
      Day = Day + 1
      Minutes_old = 100
   End If

   If Pind.3 = 1 Then
      Day = Day + 100
      Minutes_old = 100
   End If

   'Lowerline

   If Minutes <> Minutes_old Then       ' Ausgabe, wenn sich die Minuten geändert haben
      Hours10 = Hours / 10
      Minutes10 = Minutes / 10

      Locate 2 , 0                      'select the lower line
      Lcd Str(hours10)
      Lcd Str(hours)
      Lcd ":"                           'display this at the lower line
      Lcd Str(minutes10)
      Lcd Str(minutes)

      Lcd " "
      Lcd Day
      Lcd Str(day)
      Minutes_old = Minutes             ' Anzeige wurde aktualisiert
   End If

Loop
End

Isr_von_timer1:
   Timer1 = 6942
   Minutes = Minutes + 1
   If Minutes = 60 Then
      Minutes = 0
      Hours = Hours + 1
   End If
Return

Ungetestet, sollte aber wenigstens das von Rone schon beschriebene Prinzip zeigen.

Gruß

mic