-         

Ergebnis 1 bis 3 von 3

Thema: Hilfe bei string und Bytes gesucht

  1. #1
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111

    Hilfe bei string und Bytes gesucht

    Anzeige

    Nabend, und noch ein frohes neues 2008

    so und zu meinem Problem, ich habe eine laufschrift die "nur" aus vier zeichen besteht gebastelt. Also je vier mal eine matrix mit 5x7 LED´s. Auf dieser anzeige kann ich texte laufen lassen, die in strings gespeichert sind. Jetzt möchte ich gelegendlich auch mal die uhrzeit anzeigen die in drei Bytes versteckt ist.

    Dim second As Byte
    Dim minute As Byte
    Dim hour As Byte

    aber wie bekomme ich die drei bytes jetzt in die Variable

    Dim Zeit As String *3

    Ich hoffe mal die Antwort ist nicht zu einfach, sonst wird das ja peinlich

  2. #2
    Erfahrener Benutzer Robotik Einstein Avatar von Jaecko
    Registriert seit
    16.10.2006
    Ort
    Lkr. Rottal/Inn
    Alter
    35
    Beiträge
    1.987
    Ich geh richtig in der Annahme, dass Minute z.B. den Wert 24 für 24 Minuten enthält?
    Dann wärs theoretisch: Zeit = STR(Hour) + ":" + STR(Minute) + ":" + STR(Second)
    mit : als Trennzeichen.
    Das STR() wandelt den Wert der Zahl in nen Text um.
    Soll aus dem Byte jedoch ein ASCII-Zeichen werden, dann wird CHR() benötigt.

    STR(87) Liefert den Text "87", CHR(87) liefert das Zeichen "W".

  3. #3
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111
    he danke für die antwort habe es nun so gelöst

    Sub Clock
    If V_second <> V_last_second Then
    If V_second = 60 Then V_second = 0 : V_last_second = V_second : Incr V_minute
    If V_minute = 60 Then V_minute = 0 : Incr V_hour
    If V_hour = 24 Then V_hour = 0
    'time division
    V_1_second = V_second Mod 10
    V_10_second = V_second / 10
    V_1_minute = V_minute Mod 10
    V_10_minute = V_minute / 1
    V_1_hour = V_hour Mod 10
    V_10_hour = V_hour / 10
    V_time = Str(v_10_hour) + Str(v_1_hour) + Str(v_10_minute) + Str(v_1_minute)
    End Sub
    ich werde das gesamte projekt hier veröffendlichen, wenn ich in 2 bis 4 wochen fertig bin. ohne diese forum hätte ich wohl schon aufgegeben

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •