Forum | | | | | 
bastler | allô zusammen,
si qui 4.button betätigt wird stimmt cc% pas plus.
KompilierenMarqueSéparation
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 déménagé pour XProfan-Forum et Code-Tags gesetzt. |
| | | | | | |
| | 
Jörg
Sellmeyer | Hm - comment soll cc% car son? je find cela alles quelque chose unübersichtlich et sans Erläuterungen, Deklarationen u. s. w. pas trop durchschauen?
[OFFTOPIC]
était qui Codebox im Beitrag pas früher la fois skalierbar? Im Moment peux je seulement qui Box agrandir, qui je selber justement bearbeite. je peux mich mais vague erinnern, dass früher aussi autre Boxen une flèche zum Aufziehen hatten.
[/OFFTOPIC] |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 02.03.2015 ▲ |
| | |
| | 
E.T. | Irgendwie finde je pas la fois un la fenêtre, entier trop schweigen de irgendwelchen Button's 
s'il te plaît toujours 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... | 02.03.2015 ▲ |
| | |
| | | [OFFTOPIC]@Jörg: qui CodeBoxen étions encore nie skalierbar, cela la hâte Du faux abgespeichert. quoique, ca. 2006 J'ai eu une Button avec dem on qui CodesBoxen quelque chose vergrößen konnte (toggle). Ist mais presque 10 Jahre her et suis pas sûrement si Du cela meinst. Richtig agrandir allez sur den "Separieren"-Button. je peux cela quoi Du meinst mais volontiers einbauen, habs mir sur qui ToDo geschrieben - gute concept![/OFFTOPIC] |
| | | | | | |
|
répondreOptions du sujet | 4.847 Views |
Themeninformationencet Thema hat 4 participant: |
(840)
Deutsch
English
Français
Español
Italia