Frage! Brauche dringend Hilfe° Danke

Übersicht

BlitzBasic

BlitzPlus

	Mathias-Kwiatkowski Betreff: Frage! Brauche dringend Hilfe° Danke	Sa, Sep 24, 2005 19:30 Antworten mit Zitat
hi leutz, ich glaube ich habe es schonmal gefragt weiss es aber nicht genau.... ich brauche eure hilfe HIERBEI BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Chat\",0,0,800,600,0,3) texteingabe=CreateTextField(10,550,770,20,window) can = CreateCanvas(0,0,800,545,window) SetBuffer CanvasBuffer(can) Repeat Text 20,20,Chr$(texteingabe) FlipCanvas can Select WaitEvent() Case $803 End End Select Forever 1. frage was man in diesem textfield schreibt soll ein string sein, nur wie mache ich es? 2. frage wie kann ich das textfield nach drücken von return oder enter wieder leeren?

Mathias-Kwiatkowski

Betreff: Frage! Brauche dringend Hilfe° Danke

Sa, Sep 24, 2005 19:30
Antworten mit Zitat

hi leutz, ich glaube ich habe es schonmal gefragt weiss es aber nicht genau....
ich brauche eure hilfe HIERBEI

BlitzBasic: [AUSKLAPPEN]


window=CreateWindow(\"Chat\",0,0,800,600,0,3)
texteingabe=CreateTextField(10,550,770,20,window)
can = CreateCanvas(0,0,800,545,window)


SetBuffer CanvasBuffer(can)


Repeat

Text 20,20,Chr$(texteingabe)



FlipCanvas can
Select WaitEvent()
Case $803
End
End Select
Forever

1. frage

was man in diesem textfield schreibt soll ein string sein, nur wie mache ich es?

2. frage

wie kann ich das textfield nach drücken von return oder enter wieder leeren?

	Justus	Sa, Sep 24, 2005 19:34 Antworten mit Zitat
Wozu brauchst du noch einen Thread ??

Justus

Sa, Sep 24, 2005 19:34
Antworten mit Zitat

Wozu brauchst du noch einen Thread ?? Mad

	Dante	Sa, Sep 24, 2005 23:15 Antworten mit Zitat
hey. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Chat\",0,0,800,610,0,3) texteingabe=CreateTextField(10,550,760,20,window) can = CreateCanvas(0,0,800,545,window) SetBuffer CanvasBuffer(can) Repeat Cls ;überprüfen ob enter gedrückt wird If EventData()=13 Then ;text in variable speichern eingabe$ = TextFieldText$ (texteingabe) ;text aus Textfield löschen SetGadgetText texteingabe , \"\" EndIf Text 20,20, eingabe$ FlipCanvas can Select WaitEvent() Case $803 End End Select Forever für sowas bitte erst hier gucken http://www.blitzbase.de/4a.htm ciao

Dante

Sa, Sep 24, 2005 23:15
Antworten mit Zitat

hey.
BlitzBasic: [AUSKLAPPEN]

window=CreateWindow(\"Chat\",0,0,800,610,0,3) 
texteingabe=CreateTextField(10,550,760,20,window) 
can = CreateCanvas(0,0,800,545,window) 

SetBuffer CanvasBuffer(can) 

Repeat 
Cls

;überprüfen ob enter gedrückt wird
If EventData()=13 Then

;text in variable speichern
eingabe$ = TextFieldText$ (texteingabe)

;text aus Textfield löschen
SetGadgetText texteingabe , \"\"
EndIf

Text 20,20, eingabe$


FlipCanvas can 
Select WaitEvent() 
Case $803 
End 
End Select 
Forever

für sowas bitte erst hier gucken http://www.blitzbase.de/4a.htm

ciao

	Mathias-Kwiatkowski	So, Sep 25, 2005 2:22 Antworten mit Zitat
da habe ich noch ein kleines problem, wenn das im programm vorkommt BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If EventData()=13 Then eingabe$=TextFieldText$(texteingabe) SetGadgetText texteingabe,\"\" bla....bla dan arbeitet das programm nicht weiter sei den man scrollt in dem fenster oder man gibt etwas ein.... wie kann man den fehler beheben?

Mathias-Kwiatkowski

So, Sep 25, 2005 2:22
Antworten mit Zitat

da habe ich noch ein kleines problem,

wenn das im programm vorkommt

BlitzBasic: [AUSKLAPPEN]


If EventData()=13 Then
eingabe$=TextFieldText$(texteingabe)
SetGadgetText texteingabe,\"\"

bla....bla

dan arbeitet das programm nicht weiter sei den man scrollt in dem fenster
oder man gibt etwas ein....

wie kann man den fehler beheben?

	Dante	So, Sep 25, 2005 9:54 Antworten mit Zitat
ok versuchs so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow(\"Chat\",0,0,800,610,0,3) texteingabe=CreateTextField(10,550,760,20,window) can = CreateCanvas(0,0,800,545,window) SetBuffer CanvasBuffer(can) Repeat Cls tmp = WaitEvent(5) If EventData()=13 Then eingabe$ = TextFieldText$ (texteingabe) SetGadgetText texteingabe , \"\" EndIf Text 20,20, eingabe$ FlipCanvas can Select tmp Case $803 End End Select Forever dein fehler war, dass "Select WaitEvent()"! sonst wartet er solange bis etwas passiert... also WaitEvent(timeout), timeout ist die zeit wie lange er wartet, bis er weiter macht (müssten millisecs sein)

Dante

So, Sep 25, 2005 9:54
Antworten mit Zitat

ok
versuchs so:
BlitzBasic: [AUSKLAPPEN]

window=CreateWindow(\"Chat\",0,0,800,610,0,3) 
texteingabe=CreateTextField(10,550,760,20,window) 
can = CreateCanvas(0,0,800,545,window) 

SetBuffer CanvasBuffer(can) 

Repeat 
Cls 
tmp = WaitEvent(5)

If EventData()=13 Then 
eingabe$ = TextFieldText$ (texteingabe) 
SetGadgetText texteingabe , \"\" 
EndIf 

Text 20,20, eingabe$


FlipCanvas can 
Select tmp
Case $803 
End 
End Select 
Forever

dein fehler war, dass "Select WaitEvent()"!
sonst wartet er solange bis etwas passiert...
also WaitEvent(timeout), timeout ist die zeit wie lange er wartet, bis er weiter macht (müssten millisecs sein)

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

Frage! Brauche dringend Hilfe° Danke

Mathias-Kwiatkowski

Betreff: Frage! Brauche dringend Hilfe° Danke

Justus

Dante

Mathias-Kwiatkowski

Dante