(1.111)  Registro

Español
Foro

choicebox

 
- Página 1 -



Detlef
Tussing
¡Hola todos zusammen

como kann Yo en uno choicebox una Valor vordefinieren, así Yo no(en más Choiceboxen) todos Auswahlen treffen muss pero el Vorgaben simplemente tomar kann

Für eure(deine) Ayuda en el vorraus beste Dank
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



 
- Página 1 -



Detlef
Tussing
Bin wohl todavía una blutiger Principiante
dein Prog funktioniert, weis pero no como
Yo hatte me de otro Prog`s qué zusammengebastelt,
como fehlte eben sólo el Función. Como Yo el en media Prog einbauen se weis
Todavía no, pero yo versuchs veces

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



 
- Página 2 -



Detlef
Tussing
como macht ihr lo el mann eure Prog`s direkt ´sehen kann y no como en me mann sólo invitar muss??
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
 



Klicke veces oben en [Hinweise & iFBBs] encima el Eingabefenster beim Respuesta.

So: [code]imprimir hallo welt unso blup[/code ]
se a:
KompilierenMarcaSeparación
 
21.03.2007  ▲
 




Detlef
Tussing
test
KompilierenMarcaSeparación
 $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

Lo va doch
 
Gruß Detlef Tussing
Windows XP, XProfan 10
21.03.2007  ▲
 




Jörg
Sellmeyer
Detlef Tussing
test
KompilierenMarcaSeparación
 $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 como erróneo???????



Usted mußt natürlich al Ende auch con [/ code] abschließen (sin Leerzeichen)
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.03.2007  ▲
 




Michael
Wodrich
@Detlef:
Unten rechts bajo Deinem Posting findest Usted el Wort Editieren. Damit änderst Usted simplemente Su Posting de.

Über el Editbox (en el Editiermodus) oben rechts es de paso una Knopf Prevista. Damit kannst Usted Su Posting kontrollieren (y otra vez en el Editiermodus zurückschalten).

Si el Wort (knalle-orange) no como ser, entonces bist Usted wahrscheinlich en el Quickmodus. Dann simplemente unten rechts en Übernehmen clic. Su bisher geschriebenes se en el großen Editor geladen y luego es auch el Prevista posible.

Komfortabler es kaum todavía.

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



¡Hola Detlef...
So OK?
KompilierenMarcaSeparación
 $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 a Michael, Jörg, IF y besonders a Michael
para eure Ayuda

Nur fragende Menschen puede ser helfen

Michael, deine Los cambios trabajo herforragen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2007  ▲
 




Detlef
Tussing
Yo glaube Yo nerve euch

aber una neues problem tut se en

en choicebox parameter N2=2 (editierbar) liest gettext$ no el geänderten Texto de

mag me todavía alguien helfen??

el komplette prog Yo en meiner community-Site geladen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
22.03.2007  ▲
 



Kein Problema. Zeig una vez más Ver código fuente, entonces gehts más rápido.
 
22.03.2007  ▲
 




Detlef
Tussing
Gracias para deine Ayuda, Yo ya algo gelernt aber eben no genug
KompilierenMarcaSeparación
 $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
    imprimir dateiname$,datname$,n1%,Karte1$,n2%,de$,a$
    waitinput

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



Hab desafortunadamente sólo XProfan9
KompilierenMarcaSeparación
 $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
    imprimir dateiname$,datname$,n1%,Karte1$,n2%,de$,a$
    waitinput

ENDPROC

Lade dir veces Tasks and Token de meiner Homepage herunter, entonces kannst du solche Sachen incluso entwickeln.
 
22.03.2007  ▲
 



◄
12

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

1.244 Views

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

Themeninformationen

Dieses Thema ha 6 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie