Hallo
Ich habe folgendes gecodet:
1 | $regfile = "m8def.dat"
|
2 | $crystal = 4000000
|
3 | $hwstack = 100
|
4 | $swstack = 100
|
5 | $framesize = 100
|
6 |
|
7 |
|
8 | Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
|
9 | Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
|
10 | Config Lcd = 24 * 2
|
11 | Cursor Off
|
12 |
|
13 | Dim Initcounter As Byte
|
14 | Dim Bt As Byte
|
15 | Dim S As String * 2
|
16 |
|
17 |
|
18 | Do
|
19 | For Initcounter = 1 To 36
|
20 | 'LCD löschen
|
21 | Cls
|
22 |
|
23 | 'Haupttext der ersten Zeile anzeigen
|
24 | Locate 1 , 1
|
25 | Lcd "-=[ You Armed Me ]=-"
|
26 |
|
27 | 'Haupttext der zweiten Zeile anzeigen
|
28 | Locate 2 , 2
|
29 | Lcd "Countdown"
|
30 |
|
31 | 'Jede Sekunde um 1 herunterzählen und neuen Wert anzeigen
|
32 | For Bt = 100 To 1 Step -1
|
33 |
|
34 | 'Neuen Wert in einen Text umwandeln
|
35 | S = Str(bt)
|
36 | S = Format(s , "000")
|
37 |
|
38 | 'Neuen Wert in der zweiten Zeile ab Spalte 15 anzeigen
|
39 | Locate 2 , 15
|
40 | Lcd S
|
41 |
|
42 | 'Eine Sekunde warten
|
43 | Wait 1
|
44 | Next Bt
|
45 |
|
46 | 'Das LCD nach ca. einer Stunden neu initialisieren
|
47 | If Initcounter = 36 Then
|
48 | Initlcd
|
49 | End If
|
50 | Next Initcounter
|
51 | Loop
|
52 |
|
53 | End
|
Mein Problem ist folgendes: Der Countdown zählt praktisch nur
100,099,098 usw. Wie könnte ich eine Ansicht wie etwa 00:00:00 bekommen,
also Stunden und Minuten? Geht das mit diesem Code überhaupt?
MfG
