XProfan

Deutsch

bastler

Hallo zusammen,

wenn der 4.button betätigt wird stimmt cc% nicht mehr.
Kompilieren Markieren Separieren

if @getfocus(f1%)'----------------------------------------F-1---------------------------------------

    drawlibicon "bi22.ico",0,120,173

    if @equ(zahl%,1)

        let zahl%=2
        let a%=1
        let cc%=64+a%+(2*b%)
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(cc%))
        @writecom(c%,@chr$(x%))
        @closecom(c%)
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(64))
        @writecom(c%,@chr$(x%))
        @closecom(c%)

    elseif @equ(zahl%,2)

        let zahl%=1
        drawlibicon "bi1.ico",0,120,173
        let a%=0
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(64))
        @writecom(c%,@chr$(x%))
        @closecom(c%)
        'elseif @equ(zahl%,3)
        'let zahl%=1
        'let c%=@opencom(f$,10000,10000)
        '@setcom(f$+":2400,N,8,2")
        '@writecom(c%,@chr$(65))
        '@writecom(c%,@chr$(x%))
        '@closecom(c%)
        'sleep 3000
        'let c%=@opencom(f$,10000,10000)
        '@setcom(f$+":2400,N,8,2")
        '@writecom(c%,@chr$(64))
        '@writecom(c%,@chr$(x%))
        '@closecom(c%)

    endif

endif

if @getfocus(f2%)'----------------------------------------F-2-----------------------------------------------

    drawlibicon "bi22.ico",0,120,218

    if @equ(zahl%,1)

        let zahl%=2
        let b%=1
        let cc%=64+a%+(2*b%)
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(cc%))
        @writecom(c%,@chr$(x%))
        @closecom(c%)

    elseif @equ(zahl%,2)

        let zahl%=1
        drawlibicon "bi1.ico",0,120,218
        let b%=0
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(64))
        @writecom(c%,@chr$(x%))
        @closecom(c%)
        'elseif @equ(zahl%,3)
        'let zahl%=1
        'let c%=@opencom(f$,10000,10000)
        '@setcom(f$+":2400,N,8,2")
        '@writecom(c%,@chr$(66))
        '@writecom(c%,@chr$(x%))
        '@closecom(c%)

    endif

endif

if @getfocus(f3%)'----------------------------------------F-3-----------------------------------------------

    drawlibicon "bi22.ico",0,120,263

    if @equ(zahl%,1)

        let zahl%=2
        let c%=1
        let cc%=64+a%+(2*b%)+(4*c%)
        locate 10,13
        print cc%
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(cc%))
        @writecom(c%,@chr$(x%))
        @closecom(c%)

    elseif @equ(zahl%,2)

        drawlibicon "bi1.ico",0,120,263
        let zahl%=1
        let c%=0
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(64))
        @writecom(c%,@chr$(x%))
        @closecom(c%)
        'elseif @equ(zahl%,3)
        'let zahl%=1
        'let c%=@opencom(f$,10000,10000)
        '@setcom(f$+":2400,N,8,2")
        '@writecom(c%,@chr$(68))
        '@writecom(c%,@chr$(x%))
        '@closecom(c%)

    endif

endif

if @getfocus(f4%)'----------------------------------------F-4-----------------------------------------------

    drawlibicon "bi22.ico",0,120,308

    if @equ(zahl%,1)

        let zahl%=2
        'drawsysicon 4,120,308
        'drawlibicon "bi22.ico",0,120,308
        let d%=1
        let cc%=64+a%+(2*b%)+(4*c%)+(8*d%)
        locate 10,13
        print cc%
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(cc%))
        @writecom(c%,@chr$(x%))
        @closecom(c%)

    elseif @equ(zahl%,2)

        let zahl%=1
        'drawsysicon 1,120,308
        drawlibicon "bi1.ico",0,120,308
        let d%=0
        let c%=@opencom(f$,10000,10000)
        @setcom(f$+":2400,N,8,2")
        @writecom(c%,@chr$(64))
        @writecom(c%,@chr$(x%))
        @closecom(c%)
        'elseif @equ(zahl%,3)
        'let zahl%=1
        'let c%=@opencom(f$,10000,10000)
        '@setcom(f$+":2400,N,8,2")
        '@writecom(c%,@chr$(72))
        '@writecom(c%,@chr$(x%))
        '@closecom(c%)

    endif

endif

02.03.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thema verschoben nach XProfan-Forum und Code-Tags gesetzt.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

02.03.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Hm - wie soll cc% denn sein? Ich find das alles etwas unübersichtlich und ohne Erläuterungen, Deklarationen u. s. w. nicht zu durchschauen?

[OFFTOPIC]
War die Codebox im Beitrag nicht früher mal skalierbar? Im Moment kann ich nur die Box vergrößern, die ich selber gerade bearbeite. Ich kann mich aber vage erinnern, dass früher auch andere Boxen einen Pfeil zum Aufziehen hatten.
[/OFFTOPIC]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

02.03.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

Irgendwie finde ich nicht mal ein Fenster, ganz zu schweigen von irgendwelchen Button's

Bitte immer lauffähige Quelltexte...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

02.03.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

[OFFTOPIC]@Jörg: Die CodeBoxen waren noch nie skalierbar, das hast Du falsch abgespeichert. Obwohl, ca. 2006 hatte ich einen Button mit dem man die CodesBoxen etwas vergrößen konnte (toggle). Ist aber fast 10 Jahre her und bin nicht sicher ob Du das meinst. Richtig vergrößern geht über den "Separieren"-Button. Ich kann das was Du meinst aber gerne einbauen, habs mir auf die ToDo geschrieben - gute Idee![/OFFTOPIC]

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

03.03.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren