Anzeige 1,8" Uhranzeige

Mitch64 · 25. Juli 2020, 08:23

Thomas1964 schrieb:

Oder ich stelle die Uhrzeit über Eingänge.

Das dürfte für dich der bessere Weg sein als Touch-Buttons auf dem Display.
Brauchst ja eigentlich nur 2 Taster für Minuten und Stunden.

Aber jetzt sind wir an einem Punkt, wo das Wait 60 und auch die For-Schleife (1 bis 60) in der Hauptschleife weg muss.
Oder willst du immer 60*60 = 3600 Sekunden die Taste halten, bis dein Programm reagiert?

Mein Tip:
Richte einen Timer ein, der eine ISR im 1-Sekunden-Takt aufruft und dort ein Flag setzt, das z.B. FlagSecTic heißt.

BASCOM-Quellcode

Config Timer1 = Timer , Prescale = 1024 , CLEAR_TIMER = 1
Compare1A = 15625 - 1 ' Timer auf 1 Hz stellen
On OC1A ISR_Sekundentakt ' ISR-Routine für OC1A-Interrupt
Enable OC1A ' OC1A-Interrupt erlauben
Enable Interrupts ' Interrupts zulassen

Die ISR-Routine sieht so aus:

BASCOM-Quellcode

ISR_Sekundentakt:
Set FlagSecTic
Return

Jetzt brauchst du nur noch das Flag FlagSecTic in der Hauptschleife prüfen und wenn es 1 ist, dann eine Aktion auslösen und Flag wieder löschen.
Etwa so:

BASCOM-Quellcode

' Hauptschleife
Do
If FlagSecTic = 1 then
' Hier kommt rein, was im Sekundentakt passieren soll
' Also Uhr nachstellen und aktualisieren
Reset FlagSecTic ' Flag löschen nicht vergessen!
End If
Loop

Thomas1964 · 27. Juli 2020, 12:47

Hallo Mitch,

war das Wochenende nicht da.
Werde das mal so umsetzen, aber ist der wait Befehl nicht auch geeignet für die Zeiteinstellung ?
Oder besteht der im Assembler nur aus nop Befehlen ?
Weisst du evtl. ob mann die Stunden und Minuten in einem Format ausgeben kann.
Ich habe das Problem, das die Anzeige natürlich das macht was ich ihr vorgebe.
Da die Stunden ja von 0-24 sind und die Minuten von 0-59 stellt die Anzeige natürlich bei 00:00 Uhr 0:0 da.

Gruß Thomas

Mitch64 · 27. Juli 2020, 13:14

Thomas1964 schrieb:

Zeiteinstellung

Nein.
Der Wait-Befehl wartet einfach nur eine gewisse Zeit ab. Intern macht er da eine Schleife mit n Durchläufen.
Nops werden da eigentlich nicht gebraucht. n ist die Anzahl Durchläuft.

Thomas1964 schrieb:

Stunden und Minuten in einem Format ausgeben kann.

Ja das kann man. Schau dir mal die Anweisung "Config Clock=Soft" an.

Es gibt aber auch noch einen anderen Weg. Nämlich mit dem Befehl "Format"
Den solltest du dir in der Hilfe ebenfalls mal ansehen.

BASCOM-Quellcode

Dim Zeit as String * 6
Dim tmpString as String * 6
Dim Minuten as Byte
Dim Stunden as Byte
Stunden = 14
Minuten = 57
tmpString = Str(Stunden)
Zeit = Format(tmpString , "00") + ":"
tmpString = Str(Minuten)
Zeit = Zeit + Format(tmpString , "00")
Print Zeit

Alles anzeigen

Zuletzt gibt es noch die Variante mit Strings.

BASCOM-Quellcode

Dim Stunden as Byte
Dim Minuten as Byte
Dim zeit as String * 6
Dim tmpString as String * 5
Stunden = 5
Minuten = 2
tmpString = "00" + Str(Stunden)
Zeit = Right(tmpString , 2) + ":"
tmpString = "00" + Str(Minuten)
Zeit = Zeit + Right(tmpString , 2)
Print Zeit ' Gibt die Zeit aus

Alles anzeigen

Thomas1964 · 27. Juli 2020, 13:53

Hallo Mitch,

habe das jetzt mal so angegeben, aber er zeigt keine Zeit an

Quellcode

Lcd_clear Blue
Lcd_text "HAMBURG HBF Gleis Abf." , 1 , 3 , 4 , White , Blue
Lcd_text "ICE577" , 2 , y1 , 4 , Black , White
Lcd_text "ICE321" , 2 , y2 , 4 , Black , White
Lcd_text "ICE437" , 2 , y3 , 4 , Black , White
Lcd_text "RE8513" , 2 , y4 , 4 , Black , White
Lcd_text "RE2566" , 2 , y5 , 4 , Black , White
Lcd_text "ICE566" , 2 , y6 , 4 , Black , White
Lcd_text "RE3548" , 2 , y7 , 4 , Black , White
Lcd_text "min" , 142 , y1 , 4 , White , Blue
Lcd_text "min" , 142 , y2 , 4 , White , Blue
Lcd_text "min" , 142 , y3 , 4 , White , Blue
Lcd_text "min" , 142 , y4 , 4 , White , Blue
Lcd_text "min" , 142, y5, 4 , White , Blue
Lcd_text "min" , 142 , y6 , 4 , White , Blue
Lcd_text "min" , 142 , y7 , 4 , White , Blue
'lcd_text ":" , 90 , 118 , 4 , White , Blue
Bahn1 = "Berlin HBF 2 " + str(B1)
Lcd_text Bahn1 , 42 , y1 , 4 , White , Blue
Bahn2 = "Koeln HBF 3 " + str(B2)
Lcd_text Bahn2 , 42 , y2 , 4 , White , Blue
Bahn3 = "Kiel HBF 5 " + str(B3)
Lcd_text Bahn3 , 42 , y3 , 4 , White , Blue
Bahn4 = "HH-Altona 8 " + str(B4)
Lcd_text Bahn4 , 42 , y4 , 4 , White , Blue
Bahn5 = "Luebeck 4 " + str(B5)
Lcd_text Bahn5 , 42 , y5 , 4 , White , Blue
Bahn6 = "Hagen HBF 1 " + str(B6)
Lcd_text Bahn6 , 42 , y6 , 4 , White , Blue
Bahn7 = "Bremen 6 " + str(B7)
Lcd_text Bahn7 , 42 , y7 , 4 , White , Blue
'Lcd_text "Uhrzeit" , 10 , 118 , 4 , White , Blue
'Stund = " "+ str(Stunden)
'Lcd_text Stund , 70 , 118 , 4 , White , Blue
'Minut = " "+ str(Minuten)
'Lcd_text Minut , 112 , 118 , 4 , White , Blue
tmpString = "00" + Str(Stunden)
Zeit = Right(tmpString , 2) + ":"
tmpString = "00" + Str(Minuten)
Zeit = Zeit + Right(tmpString , 2)
Print Zeit

Alles anzeigen

Mitch64 · 27. Juli 2020, 13:57

Du willst es doch auf dem LCD ausgeben?

Zeile 43 anpassen!

In Zeit steckt die Uhr-Zeit, die ausgegeben werden soll.

Thomas1964 · 27. Juli 2020, 14:00

Hallo Mitch,

habe den Fehler gefunden, ich muss dem Display ja auch sagen wo er das schreiben soll.

Quellcode

'*******************************************************************************
'Programm for Display ST7735R 1.8Zoll 128x160
' and Display ILI9163 1.8Zoll 128x160
'Bascom IDE 2.0.7.7
'
'Version:13012014
'By Hkipnik
' © Copyright by H.Kipnik 2012
'Date 13.01.2014
'*******************************************************************************
' SD Card CS --> portD.7
' Miso --> portb.4
'Display
' CS --> portb.2
' DC --> portb.1
' reset --> portb.0
' Mosi --> portb.3
' Clock --> portb.5
'
'
'*******************************************************************************
$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 50
$swstack = 150
$framesize = 150
$baud = 57600
'*******************************************************************************
Const Sdcard = 0 'use SD Card = 1 no SD Card = 0
Const Modus = 1 '0=Portrait 1=Landscape
Const Driver = 1 '0=ST7735 1=ILI9163
'only Display ST7735
'Display typ Red or black Tab have different RGB order
'color of the display plastic wrap
Const Disp_typ = 0 'RGB order 0=Black Tab 1=Red Tab
'*******************************************************************************
Config Portb.2 = Output
Config Portb.1 = Output
Config Portb.0 = Output
Lcd_cs Alias Portb.2
Lcd_dc Alias Portb.1
Lcd_reset Alias Portb.0
Lcd_reset = 1
Lcd_cs = 1
Lcd_dc = 1
'*******************************************************************************
'Include Declaration
$include "TFTDriver\ST7735_declarations.inc"
'*******************************************************************************
'Use For Demo
Dim Help_str As String * 15
Dim Temp_str As String * 15
Dim Zahler As Byte
Dim Bahn1 As String * 20
Dim Bahn2 As String * 20
Dim Bahn3 As String * 20
Dim Bahn4 As String * 20
Dim Bahn5 As String * 20
Dim Bahn6 As String * 20
Dim Bahn7 As String * 20
Dim Stund As String * 20
Dim Minut As String * 20
Dim B1 as Byte
Dim B2 as Byte
Dim B3 as Byte
Dim B4 as Byte
Dim B5 as Byte
Dim B6 as Byte
Dim B7 as Byte
Dim Stunden as Byte
Dim Minuten As Byte
Dim Schleife As Byte
Dim Schleife2 As Byte
Dim FlagSecTic as Byte
Dim y1 As Byte
Dim y2 as byte
Dim y3 as Byte
Dim y4 as Byte
Dim y5 as Byte
Dim y6 as Byte
Dim y7 as Byte
Dim zeit as String * 6
Dim tmpString as String * 5
Stunden = 0
Minuten = 0
B1 = 8
B2 = 15
B3 = 23
B4 = 27
B5 = 31
B6 = 35
B7 = 42
Schleife2 = 60
'*******************************************************************************
'Timer Einstellung
'Config Timer1 = Timer , Prescale = 1024 , CLEAR_TIMER = 1
'Compare1A = 15625 - 1 ' Timer auf 1 Hz stellen
'On OC1A ISR_Sekundentakt ' ISR-Routine für OC1A-Interrupt
' Enable OC1A ' OC1A-Interrupt erlauben
' Enable Interrupts ' Interrupts zulassen
'*******************************************************************************
'Init SD Card and Spi
#if Sdcard = 1
$include "Avr-Dos\Config_MMCSD_HC.bas"
$include "Avr-Dos\Config_AVR-DOS.bas"
Init_sd_card
#endif
#if Sdcard = 0
' Config Portb.0 = Output 'auch wenn nicht genutzt
' Portb.0 = 1
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
Spsr.0 = 1
Spiinit
#endif
'*******************************************************************************
'Init the Dispaly
Lcd_init
Lcd_clear Black
'*******************************************************************************
#if Sdcard = 1
Call Init_sd_card() 'Init SD Card
Temp_str = "SD Card= " + Str(sd_ok)
Lcd_text Temp_str , 1 , 1 , 1 , Yellow , Black
' 1 OK
' 0 Error
Temp_str = "SD Card Typ= " + Str(mmcsd_cardtype)
Lcd_text Temp_str , 1 , 20 , 1 , Yellow , Black
' 0 can't init the Card
' 1 MMC
' 2 SDSC Spec. 1.x
' 4 SDSC Spec. 2.0 or later
' 12 SDHC Spec. 2.0 or later
Wait 2
Lcd_clear Black
#endif
do
'ISR_Sekundentakt:
'Set FlagSecTic
'Return
y1 = 20
y2 = 32
y3 = 44
y4 = 56
y5 = 68
y6 = 80
y7 = 92
For Schleife = 1 to 60
Lcd_clear Blue
Lcd_text "HAMBURG HBF Gleis Abf." , 1 , 3 , 4 , White , Blue
Lcd_text "ICE577" , 2 , y1 , 4 , Black , White
Lcd_text "ICE321" , 2 , y2 , 4 , Black , White
Lcd_text "ICE437" , 2 , y3 , 4 , Black , White
Lcd_text "RE8513" , 2 , y4 , 4 , Black , White
Lcd_text "RE2566" , 2 , y5 , 4 , Black , White
Lcd_text "ICE566" , 2 , y6 , 4 , Black , White
Lcd_text "RE3548" , 2 , y7 , 4 , Black , White
Lcd_text "min" , 142 , y1 , 4 , White , Blue
Lcd_text "min" , 142 , y2 , 4 , White , Blue
Lcd_text "min" , 142 , y3 , 4 , White , Blue
Lcd_text "min" , 142 , y4 , 4 , White , Blue
Lcd_text "min" , 142, y5, 4 , White , Blue
Lcd_text "min" , 142 , y6 , 4 , White , Blue
Lcd_text "min" , 142 , y7 , 4 , White , Blue
'lcd_text ":" , 90 , 118 , 4 , White , Blue
Bahn1 = "Berlin HBF 2 " + str(B1)
Lcd_text Bahn1 , 42 , y1 , 4 , White , Blue
Bahn2 = "Koeln HBF 3 " + str(B2)
Lcd_text Bahn2 , 42 , y2 , 4 , White , Blue
Bahn3 = "Kiel HBF 5 " + str(B3)
Lcd_text Bahn3 , 42 , y3 , 4 , White , Blue
Bahn4 = "HH-Altona 8 " + str(B4)
Lcd_text Bahn4 , 42 , y4 , 4 , White , Blue
Bahn5 = "Luebeck 4 " + str(B5)
Lcd_text Bahn5 , 42 , y5 , 4 , White , Blue
Bahn6 = "Hagen HBF 1 " + str(B6)
Lcd_text Bahn6 , 42 , y6 , 4 , White , Blue
Bahn7 = "Bremen 6 " + str(B7)
Lcd_text Bahn7 , 42 , y7 , 4 , White , Blue
Lcd_text "Uhrzeit" , 10 , 118 , 4 , White , Blue
tmpString = "00" + Str(Stunden)
Zeit = Right(tmpString , 2) + ":"
tmpString = "00" + Str(Minuten)
Zeit = Zeit + Right(tmpString , 2)
lcd_text Zeit, 80,118,4,White, Blue
Print Zeit
decr B1
decr B2
decr B3
decr B4
decr B5
decr B6
decr B7
incr Minuten
if B1 = 0 then B1 = 60
if B2 = 0 then B2 = 60
if B3 = 0 then B3 = 60
if B4 = 0 then B4 = 60
if B5 = 0 then B5 = 60
if B6 = 0 then B6 = 60
if B7 = 0 then B7 = 60
if Minuten = 60 then
Minuten = 0
incr Stunden
if Stunden = 24 then Stunden = 0
End if
wait 1
next Schleife
loop
Do
'*******************************************************************************
'test landscape
'*******************************************************************************
#if Modus = 1
For Zahler = 1 To 182
Help_str = Str(zahler)
Temp_str = Format(help_str , "000")
Temp_str = Temp_str + ".bin"
' Lcd_pic 0 , 0 , 160 , 120 , Temp_str
Next
#endif
Loop
End
'*******************************************************************************
$include "TFTDriver\ST7735_functions-1.inc"
#if Sdcard = 1
$include "Avr-Dos\SD_card_init.inc"
#endif
$include "Font\Font8x8.font"
$include "Font\Font12x16.font"
$include "Font\font8x12.font"
$include "Font\font6x10.font"
$include "Font\font10x16.font"

Alles anzeigen

Thomas1964 · 27. Juli 2020, 14:02

so jetzt noch mal zu dem Sekunden takt.

Wie meintest du den wait Befehl ersetzen ?
Habe den Timer schon oben drin stehen , aber auskommentiert.

Mit dem Timer den Sekundentakt erzeugen, und dann ?

Gruß Thomas

Mitch64 · 27. Juli 2020, 14:08

Thomas1964 schrieb:

Mit dem Timer den Sekundentakt erzeugen, und dann ?

In der ISR wird ein Flag gesetzt nach jeder Minute.

Das wird dann in der Hauptschleife abgefragt.
Ist es gesetzt, muss die Anzeige aktualisiert werden. Dann das Fläg löschen. Es soll ja nur 1x jede Minute aktualisiert werden.

Dadurch brauchst du das Wait in der Hauptschleife nicht mehr und kannst später hier Tasten abfragen oder sonstiges tun.

Mitch64 · 27. Juli 2020, 14:10

Das Formatieren der Zeit kannst du auch in eine Function packen. Dann wird der Code übersichtlicher.

BASCOM-Quellcode

Function FormatTime(Byval Stunden as Byte , Byval Minuten as Byte) as String
Local tmp as String * 5
Local tmpZeit as String * 6
tmp = "00" + Str(Stunden)
tmpZeit = Right(tmp , 2) + ":"
tmp = "00" + Str(Minuten)
tmpZeit = tmpZeit + Right(tmp , 2)
FormatTime = tmpZeit
End Function
Dim Zeit as String * 6
Zeit = FormatTime(3 , 4)

Alles anzeigen

Thomas1964 · 27. Juli 2020, 14:43

Hallo Mitch,

habe das mal jetzt so reingetan, jetzt bleibt die Anzeige aber weiß.
Was mache ich hier falsch ?

Quellcode

ISR_Sekundentakt:
Set FlagSecTic
y1 = 20
y2 = 32
y3 = 44
y4 = 56
y5 = 68
y6 = 80
y7 = 92
'For Schleife = 1 to 60
Lcd_clear Blue
Lcd_text "HAMBURG HBF Gleis Abf." , 1 , 3 , 4 , White , Blue
Lcd_text "ICE577" , 2 , y1 , 4 , Black , White
Lcd_text "ICE321" , 2 , y2 , 4 , Black , White
Lcd_text "ICE437" , 2 , y3 , 4 , Black , White
Lcd_text "RE8513" , 2 , y4 , 4 , Black , White
Lcd_text "RE2566" , 2 , y5 , 4 , Black , White
Lcd_text "ICE566" , 2 , y6 , 4 , Black , White
Lcd_text "RE3548" , 2 , y7 , 4 , Black , White
Lcd_text "min" , 142 , y1 , 4 , White , Blue
Lcd_text "min" , 142 , y2 , 4 , White , Blue
Lcd_text "min" , 142 , y3 , 4 , White , Blue
Lcd_text "min" , 142 , y4 , 4 , White , Blue
Lcd_text "min" , 142, y5, 4 , White , Blue
Lcd_text "min" , 142 , y6 , 4 , White , Blue
Lcd_text "min" , 142 , y7 , 4 , White , Blue
Bahn1 = "Berlin HBF 2 " + str(B1)
Lcd_text Bahn1 , 42 , y1 , 4 , White , Blue
Bahn2 = "Koeln HBF 3 " + str(B2)
Lcd_text Bahn2 , 42 , y2 , 4 , White , Blue
Bahn3 = "Kiel HBF 5 " + str(B3)
Lcd_text Bahn3 , 42 , y3 , 4 , White , Blue
Bahn4 = "HH-Altona 8 " + str(B4)
Lcd_text Bahn4 , 42 , y4 , 4 , White , Blue
Bahn5 = "Luebeck 4 " + str(B5)
Lcd_text Bahn5 , 42 , y5 , 4 , White , Blue
Bahn6 = "Hagen HBF 1 " + str(B6)
Lcd_text Bahn6 , 42 , y6 , 4 , White , Blue
Bahn7 = "Bremen 6 " + str(B7)
Lcd_text Bahn7 , 42 , y7 , 4 , White , Blue
Lcd_text "Uhrzeit" , 10 , 118 , 4 , White , Blue
tmpString = "00" + Str(Stunden)
Zeit = Right(tmpString , 2) + ":"
tmpString = "00" + Str(Minuten)
Zeit = Zeit + Right(tmpString , 2)
lcd_text Zeit, 80,118,4,White, Blue
Print Zeit
decr B1
decr B2
decr B3
decr B4
decr B5
decr B6
decr B7
incr Minuten
if B1 = 0 then B1 = 60
if B2 = 0 then B2 = 60
if B3 = 0 then B3 = 60
if B4 = 0 then B4 = 60
if B5 = 0 then B5 = 60
if B6 = 0 then B6 = 60
if B7 = 0 then B7 = 60
if Minuten = 60 then
Minuten = 0
incr Stunden
if Stunden = 24 then Stunden = 0
End if
'wait 1
'next Schleife
Return
loop

Alles anzeigen

Mitch64 · 27. Juli 2020, 15:51

In der ISR wird nur das Flag gesetzt. Sonst nix.

Das andere bleibt in der Hauptschleife.

Schau dir mal Post #41 an!

In der ISR wir die Uhr nachgestellt, Minuten und Stunden berechnet. Und wenn eine Minute rum ist (Minute=0), dann Flag setzen.

Thomas1964 · 27. Juli 2020, 15:57

Und wie kann ich das flag abfragen ?
if flacSecTic = 1 then oder wie ?

Mitch64 · 27. Juli 2020, 15:59

genau

Aber

If Flag=1 then
Hier deine Display-Aktualisierung
Flag löschen
End Ig

Mitch64 · 27. Juli 2020, 16:00

Das Flag wird aber nur jede Minute gesetzt.
Von daher ist der Name für das Flag falsch gewählt.

Nenne es "FlagRefreshDisplay", das passt besser

Thomas1964 · 27. Juli 2020, 16:16

Hallo Mitch,

habe das jetzt mal so abgeändert, aber jetzt zeigt das Display nichts mehr an......

Quellcode

do
ISR_Sekundentakt:
Set FlagRefreshDisplay
Lcd_clear Blue
Lcd_text "HAMBURG HBF Gleis Abf." , 1 , 4 , 4 , White , Blue
Lcd_text "ICE577" , 2 , y1 , 4 , Black , White
Lcd_text "ICE321" , 2 , y2 , 4 , Black , White
Lcd_text "ICE437" , 2 , y3 , 4 , Black , White
Lcd_text "RE8513" , 2 , y4 , 4 , Black , White
Lcd_text "RE2566" , 2 , y5 , 4 , Black , White
Lcd_text "ICE566" , 2 , y6 , 4 , Black , White
Lcd_text "RE3548" , 2 , y7 , 4 , Black , White
Lcd_text "min" , 142 , y1 , 4 , White , Blue
Lcd_text "min" , 142 , y2 , 4 , White , Blue
Lcd_text "min" , 142 , y3 , 4 , White , Blue
Lcd_text "min" , 142 , y4 , 4 , White , Blue
Lcd_text "min" , 142, y5, 4 , White , Blue
Lcd_text "min" , 142 , y6 , 4 , White , Blue
Lcd_text "min" , 142 , y7 , 4 , White , Blue
Bahn1 = "Berlin HBF 2 " + str(B1)
Lcd_text Bahn1 , 42 , y1 , 4 , White , Blue
Bahn2 = "Koeln HBF 3 " + str(B2)
Lcd_text Bahn2 , 42 , y2 , 4 , White , Blue
Bahn3 = "Kiel HBF 5 " + str(B3)
Lcd_text Bahn3 , 42 , y3 , 4 , White , Blue
Bahn4 = "HH-Altona 8 " + str(B4)
Lcd_text Bahn4 , 42 , y4 , 4 , White , Blue
Bahn5 = "Luebeck 4 " + str(B5)
Lcd_text Bahn5 , 42 , y5 , 4 , White , Blue
Bahn6 = "Hagen HBF 1 " + str(B6)
Lcd_text Bahn6 , 42 , y6 , 4 , White , Blue
Bahn7 = "Bremen 6 " + str(B7)
Lcd_text Bahn7 , 42 , y7 , 4 , White , Blue
Lcd_text "Uhrzeit" , 10 , 118 , 1 , White , Blue
tmpString = "00" + Str(Stunden)
Zeit = Right(tmpString , 2) + ":"
tmpString = "00" + Str(Minuten)
Zeit = Zeit + Right(tmpString , 2)
lcd_text Zeit, 80,118,1,White, Blue
Print Zeit
if flagRefreshDisplay = 1 then decr B1
if flagRefreshDisplay = 1 then decr B2
if flagRefreshDisplay = 1 then decr B3
if flagRefreshDisplay = 1 then decr B4
if flagRefreshDisplay = 1 then decr B5
if flagRefreshDisplay = 1 then decr B6
if flagRefreshDisplay = 1 then decr B7
if flagRefreshDisplay = 1 then incr Minuten
if B1 = 0 then B1 = 60
if B1 = 0 Then y1 = 92
if B2 = 0 then B2 = 60
if B3 = 0 then B3 = 60
if B4 = 0 then B4 = 60
if B5 = 0 then B5 = 60
if B6 = 0 then B6 = 60
if B7 = 0 then B7 = 60
if Minuten = 60 then
Minuten = 0
incr Stunden
if Stunden = 24 then Stunden = 0
End if
Return
loop

Alles anzeigen

Mitch64 · 27. Juli 2020, 16:18

Aua!

Du kennst den Unterschied zwischen Hauptschleife und ISR-Routine?

Thomas1964 · 27. Juli 2020, 16:24

Nee so genau nicht , habe ich die ISR Routine falsch ?

Thomas1964 · 27. Juli 2020, 16:28

Aber ich muss doch in der Hauptschleife das Flag abfragen, oder nicht .
Das ist doch für mich der Minuten Puls sozusagen.

Mitch64 · 27. Juli 2020, 16:30

Du hast die IST-Routine in deine Hautschleife gepackt.
So geht das natürlich nicht.

So muss das aussehen:

BASCOM-Quellcode

' Hauptschleife (Beginnt mit Do und endet mit Loop)
' Diese Schleife wird nie beendet oder verlassen, außer temporär für einen Call oder eine Subroutine.
Do
If FlagDisplayRefresh=1 then
' Hier deine Anzeigeroutinen rein, um das Display zu aktualisieren
' Reset FlagDisplayRefresh
End If
Loop
' Deine ISR-Routine unterhalb der Hauptschleife (nach Do .. Loop) plazieren.
' Das ist deine ISR (Beginnt mit Label und endet mit Return)
ISR_SecTic:
' Hier Sekunden zählen, wenn die dann 60 sind, Minuten +1 und Sekunden auf 0
' Das Spielchen kennste doch jetzt?
Und Wenn die Minuten auf 0 sind oder besser gesetzt werden, dann das Flag FlagDisplayRefresh setzen
Return

Alles anzeigen

Mitch64 · 28. Juli 2020, 09:51

Klappt es jetzt mit deinem Code?
(Bin mal ne Stunde die Beine vertreten)