Foro | | | | | 
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%))
'@clos%)
endif
endif
|
| | | | | | |
| |  | | Thema verschoben nach XProfan-Foro und Code-Tags gesetzt. |
| | | | | | |
| | 
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 Fonte... |
| | | | 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 circa den "Separieren"-Button. Ich kann das was Du meinst aber gerne einbauen, habs mir auf die ToDo geschrieben - gute Idee![/OFFTOPIC] |
| | | | | | |
|
AnswerThemeninformationenDieses Thema hat 4 subscriber: |
(822)
Deutsch
English
Français
Español
Italia