(1.319)  Login

English
Forum

choicebox

 
- Page 1 -



Detlef
Tussing
hello everyone together

how can I with of/ one choicebox a worth vordefinieren, so I do not(with several Choiceboxen) any choices meet must separate The Vorgaben simply take can

for eure(your) Help in the advance best Thanks
 
Gruß Detlef Tussing
Windows XP, XProfan 10
03/21/07  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



 
- Page 1 -



Detlef
Tussing
be well still one blutiger Beginner
your Prog functions, wisely but not How
I had me from others Prog`s what zusammengebastelt,
there fehlte even only The function. How I the in my Prog install should wisely
I not yet, but I versuchs time

4 kB
Hochgeladen:03/21/07
Downloadcounter: 70
Download
 
Gruß Detlef Tussing
Windows XP, XProfan 10
03/21/07  ▲
 



 
- Page 2 -



Detlef
Tussing
How power your it the man eure Prog`s directly ´sehen can and not How by me the man tappt im dunkeln first loading must??
 
Gruß Detlef Tussing
Windows XP, XProfan 10
03/21/07  ▲
 



click time supra on [Notes & iFBBs] over the Eingabefenster at Answer.

so: [code]print Hello world unso blup[/code ]
becomes:
CompileMarkSeparation
 
03/21/07  ▲
 




Detlef
Tussing
Test
CompileMarkSeparation
 $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

It's all right still
 
Gruß Detlef Tussing
Windows XP, XProfan 10
03/21/07  ▲
 




Jörg
Sellmeyer
Detlef Tussing
Test
CompileMarkSeparation
 $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

what went there schief???????



you mußt naturally end too with [/ code] close (without space)
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
03/21/07  ▲
 




Michael
Wodrich
@Detlef:
under right under Your Posting find You, the word edit. so änderst You simply your Posting ex.

About the Editbox (in the Editiermodus) supra right is incidentally one button Preview. so can You your Posting to check on (and again into Editiermodus zurückschalten).

ought to the word (knalle-orange) not there his, then are You probably in the Quickmodus. then simply under right on Übernehmen clicking. your yet geschriebenes becomes into large editor loaded and then is too The Preview possible.

Komfortabler goes it hardly yet.

Best wishes
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
03/21/07  ▲
 



Hello Detlef...
so OK?
CompileMarkSeparation
 $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
 
03/22/07  ▲
 




Detlef
Tussing
Vielen Thanks on Michael, Jörg, IF and particularly on Michael
for eure Help

only enquirer Humans can help

Michael, your Changes functions herforragen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
03/22/07  ▲
 




Detlef
Tussing
I faith I nerve you

but one new Problem does itself on

with choicebox parameter n2=2 (editierbar) reads gettext$ not whom modified Text from

likes me yet someone help??

the complete prog have I on of my community-Site loaded
 
Gruß Detlef Tussing
Windows XP, XProfan 10
03/22/07  ▲
 



no trouble. Zeig once more View source, then GEHTS faster.
 
03/22/07  ▲
 




Detlef
Tussing
thanks for your Help, I have already something learnt but even not enough
CompileMarkSeparation
 $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%,ticket1$,n2%,of$,To$
    waitinput

endproc
 
Gruß Detlef Tussing
Windows XP, XProfan 10
03/22/07  ▲
 



Have unfortunately only XProfan9
CompileMarkSeparation
 $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%,ticket1$,n2%,of$,To$
    waitinput

endproc

load you time Tasks and Token of of my Homepage down, then can you such things self develop.
 
03/22/07  ▲
 



◄
12

Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

1.441 Views

Untitledvor 0 min.
H.Brill09/20/24
Peter Max Müller11/01/19
rquindt05/01/18
Hans Hermann04/14/15
More...

Themeninformationen

this Topic has 6 subscriber:

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


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie