Getkey zahlen zusammen fügen
Übersicht
BlitzBasic Beginners-Corner
xXThunderXxBetreff: Getkey zahlen zusammen fügen |
 Mo, Mai 04, 2009 17:49Antworten mit Zitat 
|
|
|---|---|---|
Hallo zusammen ich hab schon wieder ein problem  und zwar habe ich vor ein kleines chat programm zu schreiben, dass ich in mein kleines online rpg spiel verbinden will. Naja mein prob besteht darin das ich ja wenn ich die nachricht verschicken will, will ich nicht jeden buchstaben verschicken. Deshalb dachte ich mir speicher ich das ganze in ein Variable ab und füge sie zusammen so das ich dann das ganze paket verschicken kann aber ich bekommes nicht hin. Ich verwende Getkey() da input schlecht ist.
Hir der code: Code: [AUSKLAPPEN] Graphics 500,500,16,2 SetBuffer BackBuffer() Repeat eingeben() Until KeyHit(1) ;Funktion Function eingeben() Repeat code = GetKey() ;ermittle Ascii Code der gedrückten Taste Until code > 0 Write Chr$(code) If KeyHit(28) Then Print End Function hab schon überlegt mit For-schleife oder Zähler aber das klappt irgent wie nett hoffe ihr habt net Idee wie ich das bewerkstelligen kann. |
||
|
Eingeproggt |
Mo, Mai 04, 2009 17:55 Antworten mit Zitat
|
|---|---|---|
Print ist auch schlecht, nimm Text
Und zu deinem Problem: Code: [AUSKLAPPEN] ;Zu Programmbeginn
Global message$ ;Irgendwo in deiner Funct code=GetKey() If code<>0 Then message$=message$+Chr(code) Endif ;dreimal darfst du raten, was in message$ drin ist ;-) |
||
| Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9 | ||
xXThunderXx |
Mo, Mai 04, 2009 18:23 Antworten mit Zitat
|
|
|---|---|---|
Ich verstehe wie es geht aber immoment klappt gerade nichts mehr ich bekomme die einfachsten sachen nicht mehr hin. Brauch schon wieder hilfe  . Irgent wie steh ich voll auf dem schlauch sry .
Code: [AUSKLAPPEN] Graphics 500,500,16,2 SetBuffer BackBuffer() Global message$ Repeat Text 10,10,"Von mir: " + eingeben() Until KeyHit(1) Function eingeben() code = GetKey() If code <> 0 Then message$ = message$ + Chr(code) EndIf Return message$ End Function |
||
|
Nicdel |
Mo, Mai 04, 2009 18:28 Antworten mit Zitat
|
|---|---|---|
|
Es muss eingeben$() heißen.
Edit: Es fehlt noch Flip und Cls |
||
|
Desktop: Intel Pentium 4 2650 Mhz, 2 GB RAM, ATI Radeon HD 3850 512 MB, Windows XP
Notebook: Intel Core i7 720 QM 1.6 Ghz, 4 GB DDR3 RAM, nVidia 230M GT, Windows 7 |
||
xXThunderXx |
Mo, Mai 04, 2009 18:36 Antworten mit Zitat
|
|
|---|---|---|
| heyyy es klappt wunder bar thx euch allen. | ||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group