XProfan

- Página 5 -

Jac
de
Lad

<Quengeln>Ich weiß, el du nichts mehr einbauen willst, Roland, pero yo vermise irgendwie todavía SetCurSel para Comboboxen, Gridboxen, Listboxen...(oder Yo habs otra vez veces übersehen). Es zwar auch con sendmessage, pero si mans de el Página betrachtet son etliche Befehle überflüssig (GetCurSel, GetCount...) </Quengeln>

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

20.09.2006 ▲

Tal vez podría Roland sí todavía - hrm - dafür Sorgen el el fürchterliche Refreshing de %hwnd beim Beenden uno Trackmenus aufhört. (Es algo como de stööörend!)

24.09.2006 ▲

Torsten
Rümker

Posesiones folgendes festgestellt

[...]

Pensé Yo weise auch hier veces darauf hin.

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

28.09.2006 ▲

Michael
Wodrich

Ach deshalb el Fischauge
(el de paso sólo como solches a erkennen es, si uno una 1000fach-Zoom en él losläßt - y luego auch sólo viel Wohlwollen. WEG DAMIT !!! - DAS GLOTZT MICH AN!!!)

Ganz ehrlich: en $TempDir hätte Yo ya esperado, daß hay el Langname es, el una continuación - si gewünscht - con ShortName$ abkürzen kann.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

[quote:282a4bec64=Michael Wodrich]Ganz ehrlich: en $TempDir hätte Yo ya esperado, daß hay el Langname es, el una continuación - si gewünscht - con ShortName$ abkürzen kann.[/quote:282a4bec64]
Tja, aber el Windows-API liefert offensichtlich nun veces el Kurznamen. (GetTempPath heißt el zugrundeliegende API.)

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Michael
Wodrich

Na bien, erwähnen wirs sólo en el Hilfen - entonces gibts sí siempre todavía el Función LangName$.

Schöne Grüße
Michael Wodrich

Sorry, natürlich LongName$()

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Auch en el Gefahr, el alles ya festgezurrt y eingetütet es:

Uns fehlt en XProfan el binäre NOT.

Der en el Hilfedatei beschriebene Notnagel sieht nämlich en genauer Betrachtung bastante schön krumm de:
Kompilieren Marca Separación

declare sync&
sync& = $100000
cls
print hex$(sync&), sync&
print hex$(not(sync&)), not(sync&)
print " "
Def @BNot(1) @XOr(@&(1), @Val("%" + @MkStr$("1", Len(Bin$(@&(1))))))
print hex$(sync&), sync&
print hex$(bnot(sync&)), bnot(sync&)
waitkey

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

[quote:7234659561]Gut, con algo Grips tüddelt uno se el hin [/quote:7234659561]
Au weia, el Solución el Yo gefunden habe tut correcto weh.

Como largo brauchen eigentlich HY-Indianer (después de el Stoppuhr) para esta Solución.

Tarea: erstelle una binäres NOT

Sí ahora weiß ego. Ist una Bischen muy simplemente, aber siempre si al Ding braucht kommt uno en así einfache Dinge simplemente no.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Kompilieren Marca Separación

Michael
Wodrich

Def @BNot(1) @XOr(@&(1), @Val("%" + @MkStr$("1", Len(Bin$(@&(1))))))
declare sync&,not_sync&
sync& = $100000
not_sync& = $FFFFFFFF - sync&
set("decimals", 0)
cls
print "zu wandelnde Zahl"
print "hex: $";hex$(sync&)
print "dez:", sync&
print "bin: %";bin$(sync&)
print " "
print "mit NOT() verarztet"
print "hex: $";hex$(not(sync&))
print "dez:", not(sync&)
print "bin: %";bin$(not(sync&))
print " "
print "mit BNOT() verarztet"
print "hex: $";hex$(bnot(sync&))
print "dez:", bnot(sync&)
print "bin: %";bin$(bnot(sync&))
print " "
print "die qzu Fußq-Methode"
print "hex: $";hex$(not_sync&)
print "dez:", not_sync&
print "bin: %";bin$(not_sync&)
print " "
waitkey
sync& = %10010
not_sync& = $FFFFFFFF - sync&
cls
print " "
print "hier ists besser zu sehen..."
print " "
print "zu wandelnde Zahl"
print "hex: $";hex$(sync&)
print "dez:", sync&
print "bin: %";bin$(sync&)
print " "
print "mit NOT() verarztet"
print "hex: $";hex$(not(sync&))
print "dez:", not(sync&)
print "bin: %";bin$(not(sync&))
print " "
print "mit BNOT() verarztet"
print "hex: $";hex$(bnot(sync&))
print "dez:", bnot(sync&)
print "bin: %";bin$(bnot(sync&))
print " "
print "die qzu Fußq-Methode"
print "hex: $";hex$(not_sync&)
print "dez:", not_sync&
print "bin: %";bin$(not_sync&)
print " "
waitkey
/../../function-references/XProfan/end/'>end

Programmieren, das spannendste Detektivspiel der Welt.

RGH

Thema @Not()

Das Problema beim binären NOT(wert) es sólo, daß uno se algunos muß, en wieviel Bits lo va, como de führenden 0-Bits sí logischerweise führende 1-Bits voluntad. Andere Idiomas nehmen manchmal el kleinstmöglichen Integertypen, en el el Valor reinpaßt oder ir en una 32-Bit-Sistema prinzipiell de 32 Bit de.

Denkbar wäre auch una BNOT(wert, anzahl), wobei él zweite Parámetro eben el a berücksichtigene Anzahl el Bits enthält.

En el otro binären Operatoren tritt el problema no en, como sowohl 0 O 0, alsauch 0 AND 0 y 0 XOR 0 siempre 0 ergeben. NOT 0 es aber eben 1.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Nico
Madysa

Bevors en Vergessenheit gerät: Tuve el Wunsch geäußert, dass waitinput & Co. auch en Messages ´weiter untergeordneter Ventana reagiert, z.B. RadioButtons, el uno GroupBox untergeordnet son.

Nico Madysa

Michael
Wodrich

Sí klar, aber haben wir no intern sowieso sólo LongInt?

Dann es $FFFFFFFF - Wert& sí ya el Ideallösung y
LoWord müßte como sí el korrekten Teil abknapsen wenns veces kleiner ser se.

Tuve el para el Encabezamiento-Umsetzung uno Konstanten gebraucht (como war una AND NOT SYNCRONIZE con drin.

Wird en el Encabezamiento eigentlich vom Präprozessor gerechnet? Oder se lo como es transferencia?

So el de el ganzen O Orgien einfache Konstantenwerte voluntad oder löst sólo el Compiler el en?

Programmieren, das spannendste Detektivspiel der Welt.