(1.110)  Registro

Italia
Foro

choicebox

 
- Page 1 -



Detlef
Tussing
Hallo alle zusammen

wie kann ich bei einer choicebox einen Wert vordefinieren, damit ich nicht(bei mehreren Choiceboxen) alle Auswahlen treffen muss sondern die Vorgaben einfach übernehmen kann

Für eure(deine) Aiuto im vorraus beste Dank
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
Vollständiges Zitat
Absatzweise CitazioneZeilenweise Citazione
 



 
- Page 1 -



Detlef
Tussing
Bin wohl doch noch ein blutiger Anfänger
dein Prog funktioniert, weis aber nicht wie
ich hatte mir aus anderen Prog`s was zusammengebastelt,
da fehlte eben nur die Funktion. Wie ich das in meinen Prog einbauen soll weis
ich noch nicht, aber ich versuchs mal

4 kB
Hochgeladen:21.03.2007
Downloadcounter: 70
Download
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
 



 
- Page 2 -



Detlef
Tussing
wie macht ihr es das mann eure Prog`s direkt ´sehen kann und nicht wie bei mir das mann sie erst laden muss??
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
 



Klicke mal oben auf [Hinweise & iFBBs] circa dem Eingabefenster beim Antworten.

So: [code]print hallo welt unso blup[/code ]
wird zu:
KompilierenMarkierenSeparieren
 
21.03.2007  ▲
 




Detlef
Tussing
test
KompilierenMarkierenSeparieren
 $P+
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Declare box1&, box2&,box3&,box4&,box5&,box6&,text1&,text2&,text3&,text4&,text5&,text6&,datname$
Declare Relais1$,Relais2$,von$,bis$,n5$,Karte1$,Dateiname$,n1%,n2%,Speicher%,ende%,schlus%
WINDOWSTYLE 47 31
WINDOWTITLE Apex Elektronik GmbH
WINDOW SUB(DIV(%MAXX,2),DIV(640,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1) 15
USEFONT MS Sans Serif,18,0,1,0,0
SETDIALOGFONT 1
color 0,7 15
locate 2,30
font 2
print Feuerwehr Grevenbroich
box5&=Create(choicebox,%Hwnd,0,220,50,70,500)
text5&=Createtext(%Hwnd,Fahrzeug:,65,53,150,20)
box1&=Create(choicebox,%Hwnd,0,400,50,50,500)
text1&=Createtext(%Hwnd,Tor:,325,53,70,20)
box2&=Create(choicebox,%Hwnd,0,110,200,50,500)
Text2&=Createtext(%Hwnd,Licht:,35,203,70,20)
box3&=Create(choicebox,%Hwnd,0,290,200,50,500)
Text3&=Createtext(%Hwnd,aber von:,195,203,90,20)
box4&=Create(choicebox,%Hwnd,0,430,200,50,500)
Text4&=Createtext(%Hwnd,bis:  ,355,203,70,20)
color 12,7
locate 8,27
print Bitte alle Felder ausfüllen
locate 12,31
font 2
print Hallenbeleuchtung
locate 17,63
print nicht einschalten
Speicher%=@Create(DefButton,%Hwnd,Speichern und weiter,115,320,150,50)
Schlus%=@Create(DefButton,%Hwnd,Speichern und Ende,345,320,150,50)
addstring(box1&,0)
addstring(box1&,1) Tor
addstring(box1&,2)
addstring(box1&,3)
addstring(box1&,4)
addstring(box1&,5)
addstring(box1&,6)
addstring(box1&,7)
addstring(box1&,8)
addstring(box1&,9)
addstring(box1&,10)
addstring(box2&,ein) Licht aus
addstring(box2&,aus) Licht ein
addstring(box3&,5) Uhzeit ab wann das Licht nicht mehr eingeschaltet wird
addstring(box3&,6)
addstring(box3&,7)
addstring(box3&,8)
addstring(box3&,9)
addstring(box4&,16)Uhzeit bis wann das Licht nicht mehr eingeschaltet wird
addstring(box4&,17)
addstring(box4&,18)
addstring(box4&,19)
addstring(box4&,20)
addstring(box5&,RW)
addstring(box5&,DL)
addstring(box5&,TLF)
addstring(box5&,HLF)
addstring(box5&,MTF1)
addstring(box5&,LF)
addstring(box5&,WLF1)
addstring(box5&,WLF2)
addstring(box5&,MTF2)
addstring(box5&,ZbV)
SETFOCUS(%HWND)

WHILENOT ENDE%

    if %key = 4 ELSEIF %key = 4

    elseif getfocus(box1&) Relais1

        Relais1$=gettext$(box1&)
        Settext text1&,Add$(Tor: ,Gettext$(box1&))

    ELSEIF GETFOCUS(box2&) Relais2

        relais2$=gettext$(box2&)
        settext text2&,Add$(Licht: ,gettext$(box2&))

    ELSEIF GETFOCUS(box3&) Zeit1

        von$=gettext$(box3&)
        settext text3&,Add$(aber von: ,gettext$(box3&))

    elseif getfocus(box4&) Zeit2

        bis$=gettext$(box4&)
        settext text4&,Add$(bis: ,gettext$(box4&))

    elseif getfocus(box5&) Fahrzeug

        Dateiname$=gettext$(box5&)
        settext text5&,Add$(Fahrzeug:  ,gettext$(box5&))

    elseif getfocus(speicher%)

        speichern

    elseif getfocus(schlus%) Speichern und Ende

        speichern
        ende%=1

    ENDIF

WEND

close #1
end

Es geht doch
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
 




Jörg
Sellmeyer
Detlef Tussing
test
KompilierenMarkierenSeparieren
 $P+
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Declare box1&, box2&,box3&,box4&,box5&,box6&,text1&,text2&,text3&,text4&,text5&,text6&,datname$
Declare Relais1$,Relais2$,von$,bis$,n5$,Karte1$,Dateiname$,n1%,n2%,Speicher%,ende%,schlus%
WINDOWSTYLE 47 31
WINDOWTITLE Apex Elektronik GmbH
WINDOW SUB(DIV(%MAXX,2),DIV(640,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1) 15
USEFONT MS Sans Serif,18,0,1,0,0
SETDIALOGFONT 1
color 0,7 15
locate 2,30
font 2
print Feuerwehr Grevenbroich
box5&=Create(choicebox,%Hwnd,0,220,50,70,500)
text5&=Createtext(%Hwnd,Fahrzeug:,65,53,150,20)
box1&=Create(choicebox,%Hwnd,0,400,50,50,500)
text1&=Createtext(%Hwnd,Tor:,325,53,70,20)
box2&=Create(choicebox,%Hwnd,0,110,200,50,500)
Text2&=Createtext(%Hwnd,Licht:,35,203,70,20)
box3&=Create(choicebox,%Hwnd,0,290,200,50,500)
Text3&=Createtext(%Hwnd,aber von:,195,203,90,20)
box4&=Create(choicebox,%Hwnd,0,430,200,50,500)
Text4&=Createtext(%Hwnd,bis:  ,355,203,70,20)
color 12,7
locate 8,27
print Bitte alle Felder ausfüllen
locate 12,31
font 2
print Hallenbeleuchtung
locate 17,63
print nicht einschalten
Speicher%=@Create(DefButton,%Hwnd,Speichern und weiter,115,320,150,50)
Schlus%=@Create(DefButton,%Hwnd,Speichern und Ende,345,320,150,50)
addstring(box1&,0)
addstring(box1&,1) Tor
addstring(box1&,2)
addstring(box1&,3)
addstring(box1&,4)
addstring(box1&,5)
addstring(box1&,6)
addstring(box1&,7)
addstring(box1&,8)
addstring(box1&,9)
addstring(box1&,10)
addstring(box2&,ein) Licht aus
addstring(box2&,aus) Licht ein
addstring(box3&,5) Uhzeit ab wann das Licht nicht mehr eingeschaltet wird
addstring(box3&,6)
addstring(box3&,7)
addstring(box3&,8)
addstring(box3&,9)
addstring(box4&,16)Uhzeit bis wann das Licht nicht mehr eingeschaltet wird
addstring(box4&,17)
addstring(box4&,18)
addstring(box4&,19)
addstring(box4&,20)
addstring(box5&,RW)
addstring(box5&,DL)
addstring(box5&,TLF)
addstring(box5&,HLF)
addstring(box5&,MTF1)
addstring(box5&,LF)
addstring(box5&,WLF1)
addstring(box5&,WLF2)
addstring(box5&,MTF2)
addstring(box5&,ZbV)
SETFOCUS(%HWND)

WHILENOT ENDE%

    if %key = 4 ELSEIF %key = 4

    elseif getfocus(box1&) Relais1

        Relais1$=gettext$(box1&)
        Settext text1&,Add$(Tor: ,Gettext$(box1&))

    ELSEIF GETFOCUS(box2&) Relais2

        relais2$=gettext$(box2&)
        settext text2&,Add$(Licht: ,gettext$(box2&))

    ELSEIF GETFOCUS(box3&) Zeit1

        von$=gettext$(box3&)
        settext text3&,Add$(aber von: ,gettext$(box3&))

    elseif getfocus(box4&) Zeit2

        bis$=gettext$(box4&)
        settext text4&,Add$(bis: ,gettext$(box4&))

    elseif getfocus(box5&) Fahrzeug

        Dateiname$=gettext$(box5&)
        settext text5&,Add$(Fahrzeug:  ,gettext$(box5&))

    elseif getfocus(speicher%)

        speichern

    elseif getfocus(schlus%) Speichern und Ende

        speichern
        ende%=1

    ENDIF

WEND

close #1
end

Was ging da schief???????



Du mußt naturalmente am Ende auch mit [/ code] abschließen (ohne Leerzeichen)
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.03.2007  ▲
 




Michael
Wodrich
@Detlef:
Unten rechts unter Deinem Posting findest Du das Wort Editieren. Damit änderst Du einfach Dein Posting ab.

Über der Editbox (im Editiermodus) oben rechts ist übrigens ein Knopf Vorschau. Damit kannst Du Dein Posting kontrollieren (und auch wieder in den Editiermodus zurückschalten).

Sollte das Wort (knalle-orange) nicht da sein, dann bist Du wahrscheinlich im Quickmodus. Dann einfach unten rechts auf Übernehmen klicken. Dein bisher geschriebenes wird in den grande Editor geladen und dann ist auch die Vorschau possibile.

Komfortabler geht es kaum noch.

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
21.03.2007  ▲
 



Hallo Detlef...
So OK?
KompilierenMarkierenSeparieren
 $P+
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Declare box1&, box2&,box3&,box4&,box5&,box6&,text1&,text2&,text3&,text4&,text5&,text6&,datname$
Declare Relais1$,Relais2$,von$,bis$,n5$,Karte1$,Dateiname$,n1%,n2%,Speicher%,ende%,schlus%
WINDOWSTYLE 4731
WINDOWTITLE Apex Elektronik GmbH
WINDOW SUB(DIV(%MAXX,2),DIV(640,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
USEFONT MS Sans Serif,18,0,1,0,0
SETDIALOGFONT 1
color 0,715
locate 2,30
font 2
print Feuerwehr Grevenbroich
box5&=Create(choicebox,%Hwnd,,220,50,70,500)
text5&=Createtext(%Hwnd,Fahrzeug:,65,53,150,20)
box1&=Create(choicebox,%Hwnd,,400,50,50,500)
text1&=Createtext(%Hwnd,Tor:,325,53,70,20)
box2&=Create(choicebox,%Hwnd,,110,200,50,500)
Text2&=Createtext(%Hwnd,Licht:,35,203,70,20)
box3&=Create(choicebox,%Hwnd,,290,200,50,500)
Text3&=Createtext(%Hwnd,aber von:,195,203,90,20)
box4&=Create(choicebox,%Hwnd,,430,200,50,500)
Text4&=Createtext(%Hwnd,bis:  ,355,203,70,20)
color 12,7
locate 8,27
print Bitte alle Felder ausfüllen
locate 12,31
font 2
print Hallenbeleuchtung
locate 17,63
print nicht einschalten
Speicher%=@Create(DefButton,%Hwnd,Speichern und weiter,115,320,150,50)
Schlus%=@Create(DefButton,%Hwnd,Speichern und Ende,345,320,150,50)
AddChoice(box1&,0)
AddChoice(box1&,1) Tor
AddChoice(box1&,2)
AddChoice(box1&,3)
AddChoice(box1&,4)
AddChoice(box1&,5)
AddChoice(box1&,6)
AddChoice(box1&,7)
AddChoice(box1&,8)
AddChoice(box1&,9)
AddChoice(box1&,10)
AddChoice(box2&,ein)Licht aus
AddChoice(box2&,aus)Licht ein
AddChoice(box3&,5) Uhzeit ab wann das Licht nicht mehr eingeschaltet wird
AddChoice(box3&,6)
AddChoice(box3&,7)
AddChoice(box3&,8)
AddChoice(box3&,9)
AddChoice(box4&,16)Uhzeit bis wann das Licht nicht mehr eingeschaltet wird
AddChoice(box4&,17)
AddChoice(box4&,18)
AddChoice(box4&,19)
AddChoice(box4&,20)
AddChoice(box5&,RW)
AddChoice(box5&,DL)
AddChoice(box5&,TLF)
AddChoice(box5&,HLF)
AddChoice(box5&,MTF1)
AddChoice(box5&,LF)
AddChoice(box5&,WLF1)
AddChoice(box5&,WLF2)
AddChoice(box5&,MTF2)
AddChoice(box5&,ZbV)
@sendmessage(Box1&,$14E,0,0) 0,0 = erster Eintrag, 1,0 = zweiter Eintrag usw.
@sendmessage(Box2&,$14E,0,0)
@sendmessage(Box3&,$14E,0,0)
@sendmessage(Box4&,$14E,0,0)
@sendmessage(Box5&,$14E,0,0)
SETFOCUS(%HWND)

WHILENOT ENDE%

    if %key = 4ELSEIF %key = 4

    elseif getfocus(box1&)Relais1

        Relais1$=gettext$(box1&)
        Settext text1&,Add$(Tor: ,Gettext$(box1&))

    ELSEIF GETFOCUS(box2&)Relais2

        relais2$=gettext$(box2&)
        settext text2&,Add$(Licht: ,gettext$(box2&))

    ELSEIF GETFOCUS(box3&)Zeit1

        von$=gettext$(box3&)
        settext text3&,Add$(aber von: ,gettext$(box3&))

    elseif getfocus(box4&)Zeit2

        bis$=gettext$(box4&)
        settext text4&,Add$(bis: ,gettext$(box4&))

    elseif getfocus(box5&)Fahrzeug

        Dateiname$=gettext$(box5&)
        settext text5&,Add$(Fahrzeug:  ,gettext$(box5&))

    elseif getfocus(speicher%)

        speichern

    elseif getfocus(schlus%)Speichern und Ende

        speichern
        ende%=1

    ENDIF

WEND

close #1
end
 
22.03.2007  ▲
 




Detlef
Tussing
Vielen Dank an Michael, Jörg, IF und besonders an Michael
per eure Aiuto

Nur fragende Menschen kann man helfen

Michael, deine Änderungen funktionieren herforragen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2007  ▲
 




Detlef
Tussing
ich glaube ich nerve euch

aber ein neues problem tut sich auf

bei choicebox parameter N2=2 (editierbar) liest gettext$ nicht den modificato Text aus

mag mir noch jemand helfen??

das komplette prog habe ich auf meiner community-Site geladen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2007  ▲
 



Kein Problem. Zeig noch mal Quelltext, dann gehts schneller.
 
22.03.2007  ▲
 




Detlef
Tussing
Danke per deine Aiuto, ich habe schon etwas gelernt aber eben nicht genug
KompilierenMarkierenSeparieren
 $P+
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Declare box1&, box2&,box3&,box4&,box5&,box6&,text1&,text2&,text3&,text4&,text5&,text6&,datname$
Declare Relais1$,Relais2$,von$,bis$,n5$,Karte1$,Dateiname$,n1%,n2%,Speicher%,ende%,schlus%
WINDOWSTYLE 4731
WINDOWTITLE                                                                  Apex Elektronik GmbH Grevenbroich
WINDOW SUB(DIV(%MAXX,2),DIV(640,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
USEFONT MS Sans Serif,18,0,1,0,0
SETDIALOGFONT 1
color 0,7
locate 2,30
font 2
print Feuerwehr Grevenbroich
box5&=Create(choicebox,%Hwnd,2,220,50,70,500)  2 editierbar
text5&=Createtext(%Hwnd,Fahrzeug,65,53,150,20)
box1&=Create(choicebox,%Hwnd,0,400,50,50,500)
text1&=Createtext(%Hwnd,Tor:,325,53,70,20)
box2&=Create(choicebox,%Hwnd,,110,200,50,500)
Text2&=Createtext(%Hwnd,Licht:,35,203,70,20)
box3&=Create(choicebox,%Hwnd,,290,200,50,500)
Text3&=Createtext(%Hwnd,aber von:,195,203,90,20)
box4&=Create(choicebox,%Hwnd,,430,200,50,500)
Text4&=Createtext(%Hwnd,bis:  ,355,203,70,20)
locate 12,31
font 2
print Hallenbeleuchtung
locate 17,63
print nicht einschalten
Speicher%=@Create(DefButton,%Hwnd,Speichern und weiter,115,320,150,50)
Schlus%=@Create(DefButton,%Hwnd,Speichern und Ende,345,320,150,50)
AddChoice(box1&,0)
AddChoice(box1&,1) Tor
AddChoice(box1&,2)
AddChoice(box1&,3)
AddChoice(box1&,4)
AddChoice(box1&,5)
AddChoice(box1&,6)
AddChoice(box1&,7)
AddChoice(box1&,8)
AddChoice(box1&,9)
AddChoice(box1&,10)
relais1$=0
AddChoice(box2&,ein)Licht ein
AddChoice(box2&,aus)Licht aus
relais2$= aus
AddChoice(box3&,5) Uhzeit ab wann das Licht nicht mehr eingeschaltet wird
AddChoice(box3&,6)
AddChoice(box3&,7)
AddChoice(box3&,8)
AddChoice(box3&,9)
von$= 8
AddChoice(box4&,16)Uhzeit bis wann das Licht nicht mehr eingeschaltet wird
AddChoice(box4&,17)
AddChoice(box4&,18)
AddChoice(box4&,19)
AddChoice(box4&,20)
bis$=18
AddChoice(box5&,RW)
AddChoice(box5&,DL)
AddChoice(box5&,TLF)
AddChoice(box5&,HLF)
AddChoice(box5&,MTF1)
AddChoice(box5&,LF)
AddChoice(box5&,WLF1)
AddChoice(box5&,WLF2)
AddChoice(box5&,MTF2)
AddChoice(box5&,ZbV)
Dateiname$=ZbV
@sendmessage(Box1&,$14E,0,0)0,0 = erster Eintrag, 1,0 = zweiter Eintrag usw.
@sendmessage(Box2&,$14E,0,0)
@sendmessage(Box3&,$14E,3,0)
@sendmessage(Box4&,$14E,2,0)
@sendmessage(Box5&,$14E,9,0)
SETFOCUS(%HWND)

WHILENOT ENDE%

    if %key = 255 ELSEIF %key = 4

    elseif getfocus(box1&)Relais1

        Relais1$=gettext$(box1&)
        Settext text1&,Add$(Tor: ,Gettext$(box1&))

    elseif GETFOCUS(box2&)Relais2

        relais2$=gettext$(box2&)
        settext text2&,Add$(Licht: ,gettext$(box2&))

    elseif GETFOCUS(box3&)Zeit1

        von$=gettext$(box3&)
        settext text3&,Add$(aber von: ,gettext$(box3&))

    elseif getfocus(box4&)Zeit2

        bis$=gettext$(box4&)
        settext text4&,Add$(bis: ,gettext$(box4&))

    elseif getfocus(box5&)Fahrzeug

        Dateiname$=gettext$(box5&)
        settext text5&,Add$(Fahrzeug:  ,gettext$(box5&))
        print dateiname$

    elseif getfocus(speicher%)

        speichern

    elseif getfocus(schlus%)Speichern und Ende

        speichern
        ende%=1

    ENDIF

WEND

close #1
end

Proc Speichern

    if Relais1$<=7

        Karte1$=1

    else

        Karte1$=2

    endif

    if relais1$=0

        n1%=1

    endif

    if relais1$=1

        n1%=2

    endif

    if relais1$=2

        n1%=4

    endif

    if relais1$=3

        n1%=8

    endif

    if relais1$=4

        n1%=16

    endif

    if relais1$=5

        n1%=32

    endif

    if relais1$=6

        n1%=64

    endif

    if relais1$=7

        n1%=128

    endif

    if relais1$=8

        n1%=1

    endif

    if relais1$=9

        n1%=2

    endif

    if relais1$=10

        n1%=4

    endif

    if relais2$=aus

        n2%=0

    else

        n2%=1

    endif

    if datname$=dateiname$

        datname$=dateiname$-.DAT

    else

        Datname$=Dateiname$+.DAT

    endif

    Assign #1,Datname$
    rewrite #1
    Print #1,date$(3)
    print #1,time$(0)
    print #1,n1%
    print #1,Karte1$
    print #1,n2%
    print #1,von$
    print #1,bis$
    close #1
    locate 20,30
    print dateiname$,datname$,n1%,Karte1$,n2%,von$,bis$
    waitinput

endproc
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2007  ▲
 



Hab leider nur XProfan9
KompilierenMarkierenSeparieren
 $P+
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Def @FindWindowEx(4) !USER32,FindWindowExA
Declare box1&, box2&,box3&,box4&,box5&,box6&,text1&,text2&,text3&,text4&,text5&,text6&,datname$
Declare Relais1$,Relais2$,von$,bis$,n5$,Karte1$,Dateiname$,n1%,n2%,Speicher%,ende%,schlus%
Declare CBEDit&,Classname$
WINDOWSTYLE 4731
WINDOWTITLE                                                                  Apex Elektronik GmbH Grevenbroich
WINDOW SUB(DIV(%MAXX,2),DIV(640,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
USEFONT MS Sans Serif,18,0,1,0,0
SETDIALOGFONT 1
color 0,7
locate 2,30
font 2
print Feuerwehr Grevenbroich
box5&=Create(choicebox,%Hwnd,2,220,50,70,500) 2 editierbar
Box5&=@Control(ComboBox,,$40000+$40000000+$10000000+$200000+$100000+2,220,50,70,500,%HWND,2111,%HINSTANCE)
LET Classname$=Edit
LET CBEDIT&=@FindWindowEx(box5&,0,@addr(Classname$),0)
text5&=Createtext(%Hwnd,Fahrzeug,65,53,150,20)
box1&=Create(choicebox,%Hwnd,,400,50,50,500)
text1&=Createtext(%Hwnd,Tor:,325,53,70,20)
box2&=Create(choicebox,%Hwnd,,110,200,50,500)
Text2&=Createtext(%Hwnd,Licht:,35,203,70,20)
box3&=Create(choicebox,%Hwnd,,290,200,50,500)
Text3&=Createtext(%Hwnd,aber von:,195,203,90,20)
box4&=Create(choicebox,%Hwnd,,430,200,50,500)
Text4&=Createtext(%Hwnd,bis:  ,355,203,70,20)
locate 12,31
font 2
print Hallenbeleuchtung
locate 17,63
print nicht einschalten
Speicher%=@Create(DefButton,%Hwnd,Speichern und weiter,115,320,150,50)
Schlus%=@Create(DefButton,%Hwnd,Speichern und Ende,345,320,150,50)
AddChoice(box1&,0)
AddChoice(box1&,1) Tor
AddChoice(box1&,2)
AddChoice(box1&,3)
AddChoice(box1&,4)
AddChoice(box1&,5)
AddChoice(box1&,6)
AddChoice(box1&,7)
AddChoice(box1&,8)
AddChoice(box1&,9)
AddChoice(box1&,10)
relais1$=0
AddChoice(box2&,ein)Licht ein
AddChoice(box2&,aus)Licht aus
relais2$= aus
AddChoice(box3&,5) Uhzeit ab wann das Licht nicht mehr eingeschaltet wird
AddChoice(box3&,6)
AddChoice(box3&,7)
AddChoice(box3&,8)
AddChoice(box3&,9)
von$= 8
AddChoice(box4&,16)Uhzeit bis wann das Licht nicht mehr eingeschaltet wird
AddChoice(box4&,17)
AddChoice(box4&,18)
AddChoice(box4&,19)
AddChoice(box4&,20)
bis$=18
AddChoice(box5&,RW)
AddChoice(box5&,DL)
AddChoice(box5&,TLF)
AddChoice(box5&,HLF)
AddChoice(box5&,MTF1)
AddChoice(box5&,LF)
AddChoice(box5&,WLF1)
AddChoice(box5&,WLF2)
AddChoice(box5&,MTF2)
AddChoice(box5&,ZbV)
Dateiname$=ZbV
@sendmessage(Box1&,$14E,0,0)0,0 = erster Eintrag, 1,0 = zweiter Eintrag usw.
@sendmessage(Box2&,$14E,0,0)
@sendmessage(Box3&,$14E,3,0)
@sendmessage(Box4&,$14E,2,0)
@sendmessage(Box5&,$14E,9,0)
SETFOCUS(%HWND)

WHILENOT ENDE%

    if %key = 255ELSEIF %key = 4

    elseif getfocus(box1&)Relais1

        Relais1$=gettext$(box1&)
        Settext text1&,Add$(Tor: ,Gettext$(box1&))

    elseif GETFOCUS(box2&)Relais2

        relais2$=gettext$(box2&)
        settext text2&,Add$(Licht: ,gettext$(box2&))

    elseif GETFOCUS(box3&)Zeit1

        von$=gettext$(box3&)
        settext text3&,Add$(aber von: ,gettext$(box3&))

    elseif getfocus(box4&)Zeit2

        bis$=gettext$(box4&)
        settext text4&,Add$(bis: ,gettext$(box4&))

    elseif getfocus(CBEDIT&)Fahrzeug

        Dateiname$=gettext$(box5&)
        settext text5&,Add$(Fahrzeug:  ,gettext$(box5&))

    elseif getfocus(speicher%)

        speichern

    elseif getfocus(schlus%)Speichern und Ende

        speichern
        ende%=1

    ENDIF

WEND

close #1
end

Proc Speichern

    if Relais1$<=7

        Karte1$=1

    else

        Karte1$=2

    endif

    if relais1$=0

        n1%=1

    endif

    if relais1$=1

        n1%=2

    endif

    if relais1$=2

        n1%=4

    endif

    if relais1$=3

        n1%=8

    endif

    if relais1$=4

        n1%=16

    endif

    if relais1$=5

        n1%=32

    endif

    if relais1$=6

        n1%=64

    endif

    if relais1$=7

        n1%=128

    endif

    if relais1$=8

        n1%=1

    endif

    if relais1$=9

        n1%=2

    endif

    if relais1$=10

        n1%=4

    endif

    if relais2$=aus

        n2%=0

    else

        n2%=1

    endif

    if datname$=dateiname$

        datname$=dateiname$-.DAT

    else

        Datname$=Dateiname$+.DAT

    endif

    Assign #1,Datname$
    rewrite #1
    Print #1,date$(3)
    print #1,time$(0)
    print #1,n1%
    print #1,Karte1$
    print #1,n2%
    print #1,von$
    print #1,bis$
    close #1
    locate 20,30
    print dateiname$,datname$,n1%,Karte1$,n2%,von$,bis$
    waitinput

endproc

Lade dir mal Tasks and Token von meiner Homepage herunter, dann kannst du solche Sachen selbst entwickeln.
 
22.03.2007  ▲
 



◄
12

Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

1.246 Views

Untitledvor 0 min.
H.Brill20.09.2024
Peter Max Müller01.11.2019
rquindt01.05.2018
Hans Hermann14.04.2015
Di più...

Themeninformationen

Dieses Thema hat 6 subscriber:

Detlef Tussing (11x)
unbekannt (7x)
iF (2x)
Michael Wodrich (1x)
Jörg Sellmeyer (1x)
Jac de Lad (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie