FORMAT für LC-Display

[hage]

Hallo Forum....,
nachdem ich die 4k Grenze in der Demo erreicht hatte, habe ich die lizensierte Vesion bei mcs erworben. Abwicklung war übrigens sehr gut, nur 4 Tage Lieferzeit für die CD-Version ( man will ja was haben fürs Geld )
Die aktuelle Version ist 2.0.1.0, die der Demo, die ich deinstalliert habe, war ??1:11?? meine ich.
Ich bin mir ziemlich sicher das nachfolgender Code bei der Demo Vers. funktioniert hat.
Um es etwas übersichtlicher darzustellen, haben ich den Code mal aufs wesentliche reduziert. Er wird in einem anderen Programm zum stellen der
Soft-Clock genutzt. Ich möchte dabei die Uhrzeit in dem Format '07:05'
anzeigen und nicht als '7:5'

Das Ergebnis der Anzeige ist nun aber '0705:05' ???

Hat jemand einen Tip ?
Gibt es eine Übersicht was zwischen den einzelnen Bascom Versionständen geändert wurde ? Auf der Hompage von mcs konnte ich nichts entsprechendes finden..

Edit:
Asche auf mein Haupt...
Im verzweifelten Versuch irgendwo etwas Platz einzusparen hatte ich 'Dim M As String' auf * 1 runtergesetzt. Das geht natürlich nicht.
Sorry !!

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 100                                               ' default use 32 for the hardware stack
$swstack = 100                                               ' default use 10 for the SW stack
$framesize = 40                                              ' default use 40 for the frame space
'$prog &HFF , &HE4 , &HD9 , &H00                              ' default, ausser 8 Mhz inerner Oszillator


Config Lcdbus = 4                                            ' LCD konfigurieren
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Cursor Off

Dim A As Byte                                                ' Tastenzuordnun L / R
Dim B As Byte
Dim H As String * 1
Dim M As String * 1
Cls
A = 7
B = 5
 Do
      H = Str(a)
      H = Format(h , "00")
      M = Str(b)
      M = Format(m , "00")
      Upperline
      Lcd "  " ; H ; ":" ; M ; "    "
      Lowerline
      Lcd "??:__            "
 Loop

End

 

[SickBoy]

Hallo hage,

...
Dim Stunde As Byte
Dim Minute As Byte
Dim Sekunde As Byte
...
Locate 1 , 1

If Stunde < 10 Then 
Lcd "0"
End If
Lcd Stunde ; ":"
If Minute < 10 Then 
Lcd "0"
End If
Lcd Minute ; ":"
If Sekunde < 10 Then 
Lcd "0"
End If
Lcd Sekunde

Da hätte die Demo-Version gereicht

SickBoy