Textfeld + Buttons

Übersicht

BlitzBasic

BlitzPlus

	Satan Betreff: Textfeld + Buttons	So, Jul 19, 2009 20:31 Antworten mit Zitat
Hallo Kann man etwas in ein Textfeld reinschreiben lassen? Ich bin dabei eine Art "Taschenrechner" zu programmieren. Ich habe ein Textfeld und viele buttons mit Zahlen und Rechenzeichen etc.. Wie kann man wenn man zb auf die "1" drückt, die 1 dann in das Textfeld bekommen? DANKE

Satan

Betreff: Textfeld + Buttons

So, Jul 19, 2009 20:31
Antworten mit Zitat

Hallo
Kann man etwas in ein Textfeld reinschreiben lassen?
Ich bin dabei eine Art "Taschenrechner" zu programmieren. Ich habe ein Textfeld und viele buttons mit Zahlen und Rechenzeichen etc.. Wie kann man wenn man zb auf die "1" drückt, die 1 dann in das Textfeld bekommen?
DANKE

	Satan	So, Jul 19, 2009 20:55 Antworten mit Zitat
hier hab ich nen Ausschnitt ausm Code: Code: [AUSKLAPPEN] [EINKLAPPEN] .anf Global win = CreateWindow("Taschenrechner 1.0", 0, 0, 300, 400, 0) canvas = CreateCanvas (0, 0, 300, 400, win) SetBuffer CanvasBuffer(canvas) SetStatusText win, "Rechner bereit" Cls FlipCanvas canvas, 1 btn1 = CreateButton("1", 50, 100, 30, 30, canvas) btn2 = CreateButton("2", 85, 100, 30, 30, canvas) btn3 = CreateButton("3", 120, 100, 30, 30, canvas) btn4 = CreateButton("4", 50, 135, 30, 30, canvas) btn5 = CreateButton("5", 85, 135, 30, 30, canvas) btn6 = CreateButton("6", 120, 135, 30, 30, canvas) btn7 = CreateButton("7", 50, 170, 30, 30, canvas) btn8 = CreateButton("8", 85, 170, 30, 30, canvas) btn9 = CreateButton("9", 120, 170, 30, 30, canvas) btn0 = CreateButton("0", 50, 205, 100, 30, canvas) btnz = CreateButton("+", 180, 100, 30, 30, canvas) btny = CreateButton("-", 180, 135, 30, 30, canvas) btnx = CreateButton("x", 180, 170, 30, 30, canvas) btnw = CreateButton(":", 180, 205, 30, 30, canvas) btnv = CreateButton("=", 180, 265, 30, 30, canvas, 4) btnu = CreateButton("ANS", 50, 265, 30, 30, canvas) btnt = CreateButton("DEL", 85, 265, 30, 30, canvas) btns = CreateButton(",", 120, 265, 30, 30, canvas) Eingabe = CreateTextField (20, 30, 260, 20, canvas) While WaitEvent()<>$803 If EventID() = $401 Then Select EventSource() Case btnv label=CreateLabel("Ergebnis: "+ergebnis,20,60,200,15,win) End Select EndIf Wend

Satan

So, Jul 19, 2009 20:55
Antworten mit Zitat

hier hab ich nen Ausschnitt ausm Code:

Code: [AUSKLAPPEN]

.anf

Global win = CreateWindow("Taschenrechner 1.0", 0, 0, 300, 400, 0)

canvas = CreateCanvas (0, 0, 300, 400, win)

SetBuffer CanvasBuffer(canvas)

SetStatusText win, "Rechner bereit"
Cls
FlipCanvas canvas, 1

btn1 = CreateButton("1", 50, 100, 30, 30, canvas)
btn2 = CreateButton("2", 85, 100, 30, 30, canvas)
btn3 = CreateButton("3", 120, 100, 30, 30, canvas)
btn4 = CreateButton("4", 50, 135, 30, 30, canvas)
btn5 = CreateButton("5", 85, 135, 30, 30, canvas)
btn6 = CreateButton("6", 120, 135, 30, 30, canvas)
btn7 = CreateButton("7", 50, 170, 30, 30, canvas)
btn8 = CreateButton("8", 85, 170, 30, 30, canvas)
btn9 = CreateButton("9", 120, 170, 30, 30, canvas)
btn0 = CreateButton("0", 50, 205, 100, 30, canvas)
btnz = CreateButton("+", 180, 100, 30, 30, canvas)
btny = CreateButton("-", 180, 135, 30, 30, canvas)
btnx = CreateButton("x", 180, 170, 30, 30, canvas)
btnw = CreateButton(":", 180, 205, 30, 30, canvas)
btnv = CreateButton("=", 180, 265, 30, 30, canvas, 4)
btnu = CreateButton("ANS", 50, 265, 30, 30, canvas)
btnt = CreateButton("DEL", 85, 265, 30, 30, canvas)
btns = CreateButton(",", 120, 265, 30, 30, canvas)

Eingabe = CreateTextField (20, 30, 260, 20, canvas)

While WaitEvent()<>$803

If EventID() = $401 Then
Select EventSource()
Case btnv
label=CreateLabel("Ergebnis: "+ergebnis,20,60,200,15,win)

End Select
EndIf
Wend

	Hip Teen	So, Jul 19, 2009 21:01 Antworten mit Zitat
AddTextAreaText ist dein Freund bei einer TextArea, SetGadgetText bei einem Textfield.
Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"

Hip Teen

So, Jul 19, 2009 21:01
Antworten mit Zitat

AddTextAreaText

ist dein Freund bei einer TextArea, SetGadgetText

bei einem Textfield.

Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"

	BladeRunner Moderator	So, Jul 19, 2009 21:09 Antworten mit Zitat
...und keine Doppelposts bitte. Dafür gibt es den Editbutton.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

So, Jul 19, 2009 21:09
Antworten mit Zitat

...und keine Doppelposts bitte. Dafür gibt es den Editbutton.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	mpmxyz	So, Jul 19, 2009 21:10 Antworten mit Zitat
Oh, ich bin heute wohl etwas lahm. Aber mir ist etwas anderes aufgefallen: Erstelle das Label nur ein Mal am Anfang und ändere den Text dann mit "SetGadgetText". Denn du brauchst bestimmt nur eines, oder? mfG mpmxyz
Moin Moin! Projekte: DBPC CodeCruncher Mandelbrot-Renderer

mpmxyz

So, Jul 19, 2009 21:10
Antworten mit Zitat

Oh, ich bin heute wohl etwas lahm.
Aber mir ist etwas anderes aufgefallen:
Erstelle das Label nur ein Mal am Anfang und ändere den Text dann mit "SetGadgetText".
Denn du brauchst bestimmt nur eines, oder?

mfG
mpmxyz

Moin Moin!
Projekte: DBPC CodeCruncher Mandelbrot-Renderer

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

Textfeld + Buttons

Satan

Betreff: Textfeld + Buttons

Satan

Hip Teen

BladeRunner

mpmxyz