Anzeige 1,8" Uhranzeige

Mitch64 · Jul 25th 2020, 8:23am

Thomas1964 wrote:

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 Source Code

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 Source Code

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 Source Code

' 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 · Jul 27th 2020, 12:47pm

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 · Jul 27th 2020, 1:14pm

Thomas1964 wrote:

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 wrote:

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 Source Code

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

Display All

Zuletzt gibt es noch die Variante mit Strings.

BASCOM Source Code

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

Display All

Thomas1964 · Jul 27th 2020, 1:53pm

Hallo Mitch,

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

Source Code

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

Display All

Mitch64 · Jul 27th 2020, 1:57pm

Du willst es doch auf dem LCD ausgeben?

Zeile 43 anpassen!

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

Thomas1964 · Jul 27th 2020, 2:00pm

Hallo Mitch,

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

Source Code

'*******************************************************************************
'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"

Display All

Thomas1964 · Jul 27th 2020, 2:02pm

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 · Jul 27th 2020, 2:08pm

Thomas1964 wrote:

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 · Jul 27th 2020, 2:10pm

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

BASCOM Source Code

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)

Display All

Thomas1964 · Jul 27th 2020, 2:43pm

Hallo Mitch,

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

Source Code

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

Display All

Mitch64 · Jul 27th 2020, 3:51pm

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 · Jul 27th 2020, 3:57pm

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

Mitch64 · Jul 27th 2020, 3:59pm

genau

Aber

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

Mitch64 · Jul 27th 2020, 4:00pm

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 · Jul 27th 2020, 4:16pm

Hallo Mitch,

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

Source Code

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

Display All

Mitch64 · Jul 27th 2020, 4:18pm

Aua!

Du kennst den Unterschied zwischen Hauptschleife und ISR-Routine?

Thomas1964 · Jul 27th 2020, 4:24pm

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

Thomas1964 · Jul 27th 2020, 4:28pm

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

Mitch64 · Jul 27th 2020, 4:30pm

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

So muss das aussehen:

BASCOM Source Code

' 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

Display All

Mitch64 · Jul 28th 2020, 9:51am

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