PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Hilfe bei string und Bytes gesucht



mycroc
03.01.2008, 23:02
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 :-)

Jaecko
03.01.2008, 23:28
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".

mycroc
04.01.2008, 00:06
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