Forum | | | | | 
bastler | Hello together,
if the 4.button betätigt becomes is correct cc% not any more.
CompileMarkSeparation
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
|
| | | | | | |
| |  | | Topic moved to XProfan-Forum and code-Tags staid. |
| | | | | | |
| | 
Jörg
Sellmeyer | Hm - How should cc% because his? I find the everything something unübersichtlich and without Erläuterungen, Deklarationen u. s. w. not To durchschauen?
[OFFTOPIC]
was The Codebox in the Posting not former time skalierbar? in the momentum can I only the box enhance, The I yourself straight machine. I can me but remotely remind, that former too others boxing a arrow to that raise had.
[/OFFTOPIC] |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 03/02/15 ▲ |
| | |
| | 
E.T. | somehow find I do not time one Window, say nothing of irgendwelchen Button's 
Please always lauffähige Source... |
| | | | 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... | 03/02/15 ▲ |
| | |
| | | [OFFTOPIC]@Jörg: The CodeBoxen were yet never skalierbar, the have You wrong abgespeichert. though, ca. 2006 I had a Button the one with The CodesBoxen something vergrößen could (toggle). But almost 10 years ago and be not sure whether You, the mean. correctly. enhance goes over the "Separieren"-Button. I can the what you mean but gladly install, habs me on The ToDo written - good idea![/OFFTOPIC] |
| | | | | | |
|
AnswerThemeninformationenthis Topic has 4 subscriber: |
(910)
Deutsch
English
Français
Español
Italia