.. .. .. ..   ..
BlitzBasic > Codearchiv > AllgemeinAktuallisiert 30.05.2009

..  Schreibmaschinenfunktion - von bruZard 
Hier mal eine kleine Funktion die einen Text Zeichen für Zeichen auf den Bildschirm schreibt.

Graphics 640,480,16,2 
SetBuffer BackBuffer() 

Repeat 
  Cls 
  TextTyper(100,100,"Hallo Welt",250) 
  Flip 
Until KeyHit(1) : End 

Global ctext$ 
Global tt_time=MilliSecs() 
Function TextTyper(x,y,txt$,speed) 
  If MilliSecs()-tt_time>speed 
    tt_time=MilliSecs() 
    lang=Len(ctext$)+1 
    If lang>Len(txt$) : ctext$="" : lang=1 : EndIf 
    ctext$=Left(txt$,lang) 
  EndIf 
  Text x,y,ctext$,0,0 
End Function