Hi Leute,
is jetzt nicht so der super Hit... funktioniert aber..
Damit sendet er einen Text (der länger als 14 Zeichen ist) und
scrollt ihn jede Sec um ein Zeichen weiter..
klar.. ihr wisst es längst.. sehr Buslastig.. da ja jede Sec. ein Telegram
gesendet wird. Aber mein Zennio ZAS kann kein scrollenden Text..
und wenn man sich zb. Liedtitel anzeigen lassen will, sind die ersten 14 Zeichen schon recht schwach.
[highlight=epc]
SB_Title_Player2_loop = $$
SB_Loop_Pos1 = 0u16
SB_Loop_Pos2 = 13u16
SB_Count_Max = size(SB_Title_Player2)
SB_Count = 0u16
if cycle(00,01) and SB_Loop_Pos2 < SB_Count_Max then {
SB_Title_Player2_loop = split(SB_Title_Player2, SB_Loop_Pos1, SB_Loop_Pos2);
SB_Loop_Pos1 = SB_Loop_Pos1 + 1u16;
SB_Loop_Pos2 = SB_Loop_Pos2 + 1u16;
} endif
if SB_Loop_Pos2 == SB_Count_Max then SB_Loop_Pos1 = 0u16; SB_Loop_Pos2 = 13u16 endif
if change(SB_Title_Player2_loop) then write("SB_Titel_scroll-5/1/16", convert(SB_Title_Player2_loop, $$c14)) endif
if change(SB_Title_Player2) then write ("SB_Titel_scroll-5/1/16", convert(SB_Title_Player2, $$c14)) endif
[/highlight]
Wenn einer von euch eine resourchenschonendere Version/Idee hat..
nur her damit !
Gruß Martin
is jetzt nicht so der super Hit... funktioniert aber..
Damit sendet er einen Text (der länger als 14 Zeichen ist) und
scrollt ihn jede Sec um ein Zeichen weiter..
klar.. ihr wisst es längst.. sehr Buslastig.. da ja jede Sec. ein Telegram
gesendet wird. Aber mein Zennio ZAS kann kein scrollenden Text..
und wenn man sich zb. Liedtitel anzeigen lassen will, sind die ersten 14 Zeichen schon recht schwach.
[highlight=epc]
SB_Title_Player2_loop = $$
SB_Loop_Pos1 = 0u16
SB_Loop_Pos2 = 13u16
SB_Count_Max = size(SB_Title_Player2)
SB_Count = 0u16
if cycle(00,01) and SB_Loop_Pos2 < SB_Count_Max then {
SB_Title_Player2_loop = split(SB_Title_Player2, SB_Loop_Pos1, SB_Loop_Pos2);
SB_Loop_Pos1 = SB_Loop_Pos1 + 1u16;
SB_Loop_Pos2 = SB_Loop_Pos2 + 1u16;
} endif
if SB_Loop_Pos2 == SB_Count_Max then SB_Loop_Pos1 = 0u16; SB_Loop_Pos2 = 13u16 endif
if change(SB_Title_Player2_loop) then write("SB_Titel_scroll-5/1/16", convert(SB_Title_Player2_loop, $$c14)) endif
if change(SB_Title_Player2) then write ("SB_Titel_scroll-5/1/16", convert(SB_Title_Player2, $$c14)) endif
[/highlight]
Wenn einer von euch eine resourchenschonendere Version/Idee hat..
nur her damit !
Gruß Martin