(1.121)  S'inscrire

Français
Forum

choicebox

 
- page 1 -



Detlef
Tussing
allô alle zusammen

comment peux je chez einer choicebox une Wert vordefinieren, avec cela je pas(chez mehreren Choiceboxen) alle Auswahlen rendez-vous muss mais qui Vorgaben simple prendre peux

Pour eure(deine) Aider im vorraus beste Dank
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 1 -



Detlef
Tussing
suis wohl doch encore un blutiger Débutant
dein Prog funktioniert, weis mais pas comment
je hatte mir aus anderen Prog`s quoi zusammengebastelt,
là fehlte plan seulement qui Funktion. comment je cela dans meinen Prog einbauen soll weis
je encore pas, mais je versuchs la fois

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



 
- page 2 -



Detlef
Tussing
comment pouvoir son es cela homme eure Prog`s direct ´sehen peux et pas comment chez mir cela homme vous seulement magasin muss??
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
 



Klicke la fois dessus sur [Hinweise & iFBBs] sur dem Eingabefenster beim répondre.

So: [code]imprimer allô monde unso blup[/code ]
wird trop:
KompilierenMarqueSéparation
 
21.03.2007  ▲
 




Detlef
Tussing
test
KompilierenMarqueSéparation
 $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

und dir doch
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
 




Jörg
Sellmeyer
Detlef Tussing
test
KompilierenMarqueSéparation
 $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

quoi ging là de travers???????



tu dois naturellement am Ende aussi avec [/ code] abschließen (sans Leerzeichen)
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.03.2007  ▲
 




Michael
Wodrich
@Detlef:
Unten à droite sous Deinem Posting findest Du cela mot éditer. avec cela änderst Du simple Dein Posting ab.

Über qui Editbox (im Editiermodus) dessus à droite ist incidemment un Knopf Vorschau. avec cela peux Du Dein Posting vérifier (et wieder dans den Editiermodus zurückschalten).

Sollte cela mot (knalle-orange) pas là son, ensuite es Du wahrscheinlich im Quickmodus. ensuite simple unten à droite sur Prendre klicken. Dein bisher geschriebenes wird dans den grand Editor geladen et ensuite ist aussi qui Vorschau possible.

Komfortabler ca va à peine encore.

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



allô Detlef...
So OK?
KompilierenMarqueSéparation
 $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 à Michael, Jörg, IF et besonders à Michael
pour eure Aider

seulement fragende les gens peux on aider

Michael, deine Changements marcher herforragen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2007  ▲
 




Detlef
Tussing
je crois je nerve euch

mais un nouveau problem tut sich sur

chez choicebox paramètre N2=2 (editierbar) liest gettext$ pas den modifié Text aus

mag mir encore quelqu'un aider??

cela komplette prog habe je sur meiner community-Site geladen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2007  ▲
 



ne...aucune Problem. Zeig encore la fois Voir le texte source, ensuite gehts plus rapide.
 
22.03.2007  ▲
 




Detlef
Tussing
merci pour deine Aider, j'ai déjà quelque chose gelernt mais plan pas genug
KompilierenMarqueSéparation
 $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
    imprimer dateiname$,datname$,n1%,carte1$,n2%,de$,jusqu'à$
    waitinput

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



Hab malheureusement seulement XProfan9
KompilierenMarqueSéparation
 $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
    imprimer dateiname$,datname$,n1%,carte1$,n2%,de$,jusqu'à$
    waitinput

endproc

Lade dir la fois Tasks and Token de meiner Page d'accueil herunter, ensuite peux du solche Sachen selbst entwickeln.
 
22.03.2007  ▲
 



◄
12

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

1.199 Views

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

Themeninformationen

cet Thema hat 6 participant:

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


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie