www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik Bascom Counter Darstellung


Autor: DLikS (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo
Ich habe folgendes gecodet:
$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 100
$swstack = 100
$framesize = 100


Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
   Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 24 * 2
Cursor Off

Dim Initcounter As Byte
Dim Bt As Byte
Dim S As String * 2


Do
   For Initcounter = 1 To 36
      'LCD löschen
      Cls

      'Haupttext der ersten Zeile anzeigen
      Locate 1 , 1
      Lcd "-=[ You Armed Me ]=-"

      'Haupttext der zweiten Zeile anzeigen
      Locate 2 , 2
      Lcd "Countdown"

      'Jede Sekunde um 1 herunterzählen und neuen Wert anzeigen
      For Bt = 100 To 1 Step -1

         'Neuen Wert in einen Text umwandeln
         S = Str(bt)
         S = Format(s , "000")

         'Neuen Wert in der zweiten Zeile ab Spalte 15 anzeigen
         Locate 2 , 15
         Lcd S

          'Eine Sekunde warten
         Wait 1
      Next Bt

      'Das LCD nach ca. einer Stunden neu initialisieren
      If Initcounter = 36 Then
         Initlcd
      End If
   Next Initcounter
Loop

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

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.