Foro | | | | | 
bastler | ¡Hola zusammen,
si la 4.button betätigt se stimmt cc% no mehr.
KompilierenMarcaSeparación
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%))
'@clos%)
endif
endif
|
| | | | | | |
| |  | | Thema movido después de XProfan-Foro y Code-Tags gesetzt. |
| | | | | | |
| | 
Jörg
Sellmeyer | Hm - como se cc% porque ser? Yo find el alles algo unübersichtlich y sin Erläuterungen, Deklarationen u. s. w. no a durchschauen?
[OFFTOPIC]
War el Codebox en el Contribución no früher veces skalierbar? Im Moment kann Yo sólo el Box vergrößern, el Yo selber gerade bearbeite. Puedo mich aber vage erinnern, dass früher auch otro Boxen una Pfeil para Aufziehen hatten.
[/OFFTOPIC] |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 02.03.2015 ▲ |
| | |
| | 
E.T. | Irgendwie finde Yo no veces una Ventana, bastante a schweigen de irgendwelchen Button's 
Bitte siempre lauffähige Fuente... |
| | | | 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: El CodeBoxen waren todavía nie skalierbar, el hast Usted falso abgespeichert. Obwohl, ca. 2006 Tuve una Button con el uno el CodesBoxen algo vergrößen podría (toggle). Pero fast 10 Jahre her y bin no sicher si Usted el media. Richtig vergrößern va encima el "Separieren"-Button. Puedo el lo que quiere decir aber gerne einbauen, habs me en el ToDo geschrieben - gute Concepto![/OFFTOPIC] |
| | | | | | |
|
RespuestaThemeninformationenDieses Thema ha 4 subscriber: |
(840)
Deutsch
English
Français
Español
Italia