Deutsch
Forum

Wenn der 4.button betätigt wird stimmt cc% nicht mehr.

 

bastler
Hallo zusammen,

wenn der 4.button betätigt wird stimmt cc% nicht mehr.
KompilierenMarkierenSeparieren
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  
 



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




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  
 




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  
 



[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]
 
03.03.2015  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

4.976 Betrachtungen

Unbenanntvor 0 min.
iF28.12.2015
Georg Teles01.06.2015
Chregu Mueller10.05.2015
E.T.20.03.2015
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


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