| Ein kleiner Counter in der TitelLeiste... für BB und B+ von ??? |
| Hier für B+ [code:1:fca5085658] Graphics 400,300,0,2 MainWindow = ActiveWindow() t = MilliSecs() ti = 0 Text 200,150, "Ende mit (ESC)",1,1 While Not KeyHit(1) If (MilliSecs()-t)/1000 > ti Then ti=ti+1 SetGadgetText MainWindow, "Counter " + ti EndIf Wend End [/code:1:fca5085658] Und hier für BB und B3D (funzt aber nicht mehr mit B+) [code:1:fca5085658] Graphics 400,300,0,2 t = MilliSecs() ti = 0 Text 200,150, "Ende mit (ESC)",1,1 While Not KeyHit(1) If (MilliSecs()-t)/1000 > ti Then ti=ti+1 AppTitle "Counter " + ti EndIf Wend End [/code:1:fca5085658] |
| von ??? |
| Is ja toll, aber sowas hab ich schon lange gemacht, aber für ne Internetseite. Und du hast mich grad auf die Idee gebracht das für BB umzucoden *codesuch*: [code:1:ad1271e138]Graphics 400,300,0,2 Global s Global time Text 200,150, "ESC zum beenden",1,1 Repeat Laufschrift Until KeyHit(1) End Function Laufschrift() If MilliSecs()-time > 100 Then time = MilliSecs() s = s + 1 If s > 10 Then s = 1 If s = 1 Then AppTitle "|.:: Hin und her :::::::.|" If s = 2 Then AppTitle "|.::: Hin und her ::::::.|" If s = 3 Then AppTitle "|.:::: Hin und her :::::.|" If s = 4 Then AppTitle "|.::::: Hin und her ::::.|" If s = 5 Then AppTitle "|.:::::: Hin und her :::.|" If s = 6 Then AppTitle "|.::::::: Hin und her ::.|" If s = 7 Then AppTitle "|.:::::: Hin und her :::.|" If s = 8 Then AppTitle "|.::::: Hin und her ::::.|" If s = 9 Then AppTitle "|.:::: Hin und her :::::.|" If s = 10 Then AppTitle "|.::: Hin und her ::::::.|" End If End Function[/code:1:ad1271e138] Das umschreiben hat lang gedauert :) Mfg Skateboarder |
| von ??? |
| BlitzBasic und Blitz3D: [code:1:7d7ba602d2] Graphics 640,480,16,2 Repeat If KeyHit(1) Then End TitleScroll("Supi Scroller") Flip Forever Global count,count_dir Function TitleScroll(title$) If count_dir=1 Then count=count+1 Else count=count-1 If count_dir=1 And count>50 Then count_dir=0 If count_dir=0 And count<2 Then count_dir=1 space$=String(" ",count) : AppTitle space$+title$ End Function [/code:1:7d7ba602d2] |
| von ??? |
| Nochmal verbessert: [code:1:69316c563a] Graphics 640,480,16,2 Repeat TitleScroll("Supi Scroller","=") Until KeyHit(1) Global count,count_dir Function TitleScroll(title$,trenn$) If count_dir=1 Then count=count+1 Else count=count-1 If count_dir=1 And count>50 Then count_dir=0 If count_dir=0 And count<2 Then count_dir=1 space$=String(trenn$,count) AppTitle space$+title$ End Function [/code:1:69316c563a] 11 Zeilen :wink: |
| von ??? |
| Du spammer!!! wie waärs mit editieren? [code:1:e0187a04db]Graphics 640,480,16,2 : Repeat : TitleScroll("Supi Scroller","=") :Until KeyHit(1) : Global count,count_dir Function TitleScroll(title$,trenn$) If count_dir=1 Then count=count+1 Else count=count-1 : If count_dir=1 And count>50 Then count_dir=0 : If count_dir=0 And count<2 Then count_dir=1 : space$=String(trenn$,count) : AppTitle space$+title$ End Function [/code:1:e0187a04db] Bitte noch besser was? |