Name speichern

Übersicht

BlitzBasic

BlitzPlus

	Flori-D Betreff: Name speichern	Fr, Feb 13, 2004 12:19 Antworten mit Zitat
Hi.Ich möchte den Namen der in mein Textfeld eingegeben wird praktisch "speichern".Den der Name soll später als Mac-datei angelegt werden.Läst sich doof erklären.: Code: [AUSKLAPPEN] [EINKLAPPEN] ReadDir ("template") Global name$ ; fenster = CreateWindow("Tabelle", 200,200, 200,300) unterfenster = CreateListBox (0,0, 100,200, fenster) macschalter = CreateButton ("MacAnlegen",0,201,100,20, fenster,1) ; AddGadgetItem unterfenster, "Formatieren, einfach.vmt" AddGadgetItem unterfenster, "foramtieren pa." ;Gadget aktivieren SelectGadgetItem unterfenster, nummer ;Bild zeigen ereignis = WaitEvent() If ereignis = $401 And EventSource() = macschalter Then CreateDir "template/daten" CopyFile "template\name$.vmt", "template\daten\name$.mac" EndIf ;Namen ermitteln name$ = CreateTextField(5,20, 180,20, fenster)<< was hier dann eingegeben wird soll sich der Com. unter Name$ solange merken bis das prog. beendet wird. UpdateWindowMenu fenster WaitMouse
BB is Macht! Homepage: www.flori-d.de

Flori-D

Betreff: Name speichern

Fr, Feb 13, 2004 12:19
Antworten mit Zitat

Hi.Ich möchte den Namen der in mein Textfeld eingegeben wird praktisch "speichern".Den der Name soll später als Mac-datei angelegt werden.Läst sich doof erklären.:
Code: [AUSKLAPPEN]

ReadDir ("template")
Global name$
;
fenster = CreateWindow("Tabelle", 200,200, 200,300)
unterfenster = CreateListBox (0,0, 100,200, fenster)
macschalter = CreateButton ("MacAnlegen",0,201,100,20, fenster,1)
;
AddGadgetItem unterfenster, "Formatieren, einfach.vmt"
AddGadgetItem unterfenster, "foramtieren pa."
;Gadget aktivieren
SelectGadgetItem unterfenster, nummer
;Bild zeigen
ereignis = WaitEvent()
If ereignis = $401 And EventSource() = macschalter Then
CreateDir "template/daten"
CopyFile "template\name$.vmt", "template\daten\name$.mac"
EndIf

;Namen ermitteln
name$ = CreateTextField(5,20, 180,20, fenster)<< was hier dann eingegeben wird soll sich der Com. unter Name$ solange merken bis
das prog. beendet wird.

UpdateWindowMenu fenster
WaitMouse

BB is Macht!

Homepage: www.flori-d.de

	D2006 Administrator	Fr, Feb 13, 2004 16:34 Antworten mit Zitat
falscher Ansatz: bei CreateTextField wird der Handle des Gadgets zurückgegeben, und nicht der Wert der eingeben wird. Den Text der im Textfield steht kriegst du so raus: Code: [AUSKLAPPEN] [EINKLAPPEN] handle = CreateTextField(x,y,width,height,group,style) name$ = TextFieldText$(handle) den Rest überlass ich dir. Trotzdem hätte ich gerne eine Erklärung für das hier: Code: [AUSKLAPPEN] [EINKLAPPEN] ReadDir ("template") MfG

D2006

Administrator

Fr, Feb 13, 2004 16:34
Antworten mit Zitat

falscher Ansatz:

bei CreateTextField wird der Handle des Gadgets zurückgegeben, und nicht der Wert der eingeben wird.
Den Text der im Textfield steht kriegst du so raus:
Code: [AUSKLAPPEN]

handle = CreateTextField(x,y,width,height,group,style)
name$ = TextFieldText$(handle)

den Rest überlass ich dir.

Trotzdem hätte ich gerne eine Erklärung für das hier:
Code: [AUSKLAPPEN]

ReadDir ("template")

MfG

	Flori-D	Fr, Feb 13, 2004 16:50 Antworten mit Zitat
Ähh das war noch ein überbleibsel von was verhunzten hab ich lediglich vergessen zu löschen.THX!
BB is Macht! Homepage: www.flori-d.de

Flori-D

Fr, Feb 13, 2004 16:50
Antworten mit Zitat

Ähh das war noch ein überbleibsel von was verhunzten hab ich lediglich vergessen zu löschen.THX! Very Happy

BB is Macht!

Homepage: www.flori-d.de

	Flori-D	Fr, Feb 13, 2004 16:56 Antworten mit Zitat
Hmm,klappt nicht.Tut mir ja leid das ich mich so doof anstelle aber das ist meine erste arbeit in B+.Also so sieht mein Code jetzt aus: Code: [AUSKLAPPEN] [EINKLAPPEN] Global name$ ; fenster = CreateWindow("Tabelle", 200,200, 200,300) unterfenster = CreateListBox (0,0, 100,200, fenster) macschalter = CreateButton ("MacAnlegen",0,201,100,20, fenster,1) ; AddGadgetItem unterfenster, "Formatieren, einfach.vmt" AddGadgetItem unterfenster, "foramtieren pa." ;Bild zeigen ereignis = WaitEvent() If ereignis = $401 And EventSource() = macschalter Then CreateDir "template/daten" CopyFile "template\"+name$+".vmt", "template\daten\formatieren, einfach.mac" EndIf ;Namen ermitteln handel = CreateTextField(5,20, 180,20, fenster) name$ = TextFieldText$(handel) UpdateWindowMenu fenster WaitKey Aber ich kann auf MacAnlegen hämmern soviel ich will es erscheint nicht in daten.Und ich gebe jedesmal den richtigen Namen ein.seufz
BB is Macht! Homepage: www.flori-d.de

Flori-D

Fr, Feb 13, 2004 16:56
Antworten mit Zitat

Hmm,klappt nicht.Tut mir ja leid das ich mich so doof anstelle aber das ist meine erste arbeit in B+.Also so sieht mein Code jetzt aus:
Code: [AUSKLAPPEN]

Global name$
;
fenster = CreateWindow("Tabelle", 200,200, 200,300)
unterfenster = CreateListBox (0,0, 100,200, fenster)
macschalter = CreateButton ("MacAnlegen",0,201,100,20, fenster,1)
;
AddGadgetItem unterfenster, "Formatieren, einfach.vmt"
AddGadgetItem unterfenster, "foramtieren pa."

;Bild zeigen
ereignis = WaitEvent()
If ereignis = $401 And EventSource() = macschalter Then
CreateDir "template/daten"
CopyFile "template\"+name$+".vmt", "template\daten\formatieren, einfach.mac"
EndIf

;Namen ermitteln
handel = CreateTextField(5,20, 180,20, fenster)
name$ = TextFieldText$(handel)

UpdateWindowMenu fenster
WaitKey

Aber ich kann auf MacAnlegen hämmern soviel ich will es erscheint nicht in daten.Und ich gebe jedesmal den richtigen Namen ein.*seufz*

BB is Macht!

Homepage: www.flori-d.de

	Shogo	Fr, Feb 13, 2004 21:44 Antworten mit Zitat
Meingod wo soll ich da anfangen. Also, Code: [AUSKLAPPEN] [EINKLAPPEN] handel = CreateTextField(5,20, 180,20, fenster) kommt an denn anfang wo du auch denn Button die Listbox und das window erstellst. dann nimm das Code: [AUSKLAPPEN] [EINKLAPPEN] Waitkey() raus. was zwischen ;Bildanzeigen und ;Namen ermittel steht kommt in nee Schleife z.B Repeat/Until Das Code: [AUSKLAPPEN] [EINKLAPPEN] name$ = TextFieldText$(handel) kommt hinter Code: [AUSKLAPPEN] [EINKLAPPEN] If ereignis = $401 And EventSource() = macschalter Then . Und das mit Createdir und Copyfile würde ich mir noch mal in der Onlinehilfe die Befehle ansehen.[/code]