-
-
Erfahrener Benutzer
Fleißiges Mitglied
Hilfe bei string und Bytes gesucht
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
-
Erfahrener Benutzer
Robotik Einstein
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".
-
Erfahrener Benutzer
Fleißiges Mitglied
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
-
Foren-Regeln
Lesezeichen