Schreibmaschine
Übersicht
BlitzBasic Allgemein
Jonas2909Betreff: Schreibmaschine |
 Mo, Dez 28, 2009 13:00Antworten mit Zitat 
|
|
|---|---|---|
| HAllo, wie bekomme ich einen Schreibmaschinen effekt hin? Ich möchte dass jeder Buchstbe nach einen anderem kommt | ||
| Die folgende Sigantur ist für Zuschauer unter 18Jahren nicht geeinget | ||
|
coolo |
Mo, Dez 28, 2009 13:05 Antworten mit Zitat
|
|---|---|---|
Mid Mid , Text, For, Next und Gehirn!
|
||
|
http://programming-with-design.at/ <-- Der Preis ist heiß!
That's no bug, that's my project! "Eigenzitate sind nur was für Deppen" -Eigenzitat |
||
Jonas2909 |
Mo, Dez 28, 2009 13:06 Antworten mit Zitat
|
|
|---|---|---|
|
Habs schon...war ganz einfach:
[code]For I=1 To 10 Delay 500 Write "."[/code Einfach ein Delay reingeknallt! Trotzdem danke! |
||
| Die folgende Sigantur ist für Zuschauer unter 18Jahren nicht geeinget | ||
|
M0rgenstern |
Mo, Dez 28, 2009 13:09 Antworten mit Zitat
|
|---|---|---|
|
Delay ist böse.
Guck dir mal Timer an. Außerdem, wie wärs mit ner genaueren Beschreibung? Du willst nen Schreibmaschineneffekt. Schön. Aber wo/wann? Wenn der Benutzer was eingibt, das dann angezeigt wird? Oder wenn der Pc einen Text ausgibt? Du musst nämlich jeweils was anderes dafür tun. Wenn der Benutzer was eingibt, dann musst du mit einem Timer arbeiten. Wenn der Pc alleine Text ausgibt, dann musst du den String auseinanderschneiden UND mit einem Timer arbeiten. Außerdem: Falsches Unterforum, sowas gehört wohl eher in die "Beginners Corner". Außerdem: Du hast dich grade eben angemeldet. Wie wärs mal mit der FAQ und Regeln? Ein etwa freundlicherer Ton könnte sicher nicht schaden. Lg, M0rgenstern |
||
mDave |
Mo, Dez 28, 2009 13:47 Antworten mit Zitat
|
|
|---|---|---|
|
Genau sowas habe ich mal gemacht, LordChaos hat es optimiert:
Code: [AUSKLAPPEN] Graphics3D 800,600,32,2
Global StartText$="Hallo, ich schreib` einen Text, *lalalala* ich schreib`.... oh hallo!" Global EndText$ Global TypeLetter Global Timer=MilliSecs() SeedRnd MilliSecs() ; einmal zum Programmstart reicht While Not KeyDown(1) TypeWrite(StartText$,150,120) TypeWrite("Haalalaalalo",150,120) Flip 0 Wend End Function TypeWrite(TypeText$,TypeDurationMin,TypeDurationMax) If MilliSecs()-Timer > Rand(TypeDurationMin, TypeDurationMax) And TypeLetter < Len(StartText$) Then Timer = MilliSecs() TypeLetter=TypeLetter+1 EndText$ = EndText$ + Mid(StartText$, TypeLetter, 1) End If Text 0,0, EndText$ End Function |
||
Kruemelator |
Mo, Dez 28, 2009 13:49 Antworten mit Zitat
|
|
|---|---|---|
|
Wenn ich dich richtig verstanden habe, dann willst du, dass der Text nicht sofort die gesamte Länge hat.
Im Beginnerbereich gibt es gute Tutorials, schau dir da mal welche an. Damit gehts: Code: [AUSKLAPPEN] Global letzteranschalg
Global ausgabe$ Function schreibmaschine() inhalt$ = "Hallo, ich habe einen Schreibmaschineneffekt." If MilliSecs()-letzteranschalg >= 200 Then letzteranschalg = MilliSecs() ausgabe$ = Left(inhalt$,Len(ausgabe$)+1) EndIf End Function |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group