XProfan

Français

Nico
Madysa

Wird dans einem Select-Block un Wert avec anderen Werten aus einem Array de Strukturen verglichen, so wird on tout de suite dans la première Cas-Of-Anweisung verwiesen, égal si c'est ça ou bien pas. avec Si-Elseif-Endif passiert cela pas.
Minimalbeispiel:
Kompilieren Marque Séparation

Struct TPoint = x&,y&
declare b*[1]
Dim b*[],TPoint
b*[0].x& = 1
b*[0].y& = 2
b*[1].x& = %hWnd
b*[1].y& = 4
cls
print GetActiveWindow(),"=",

Select GetActiveWindow()

    CaseOf b*[0].x&

    print b*[0].x&

    CaseOf b*[0].y&

    print b*[0].y&

    CaseOf b*[1].x&

    print b*[1].x&

    CaseOf b*[1].y&

    print b*[1].y&

Endselect

Dispose b*[]
waitinput
end

Nico Madysa

09.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

b*[]????

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

09.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

cela "Minimalbeispiel" ist naturellement voller faute et wurde vom Ersteller desselben évident niemals ausprobiert. Erstens ist * ne...aucune gültiger Variablenkennzeichner, mais ici ist offensichtlich cela # gemeint. déjà seltsam, comment konsequent qui faute auftaucht, qui cela Programme allerdings tout de suite avec einer Fehlermeldung finissez. Zum zweiten wird %hWnd einer Variablen zugewiesen, bevor cela Hauptfenster überhaupt existiert. cela Programme serait alors aussi chez korrektem Variablenbezeichner pas marcher. Solche ungetesteten Minimalbeispiele sommes alors alles autre comme hilfreich. cela Poste ungetesteter Codes sollte interdit volonté!

mais andererseits: qui Bug, den cela Programme vergeblich trop manifester versucht, scheint réellement depuis introduction des SELECT avec XProfan 10 vorhanden trop son: si derrière dem CaseOf un Element eines Struktur- ou bien objet-Arrays steht, funktioniert es pas richtig. là cette faute mais depuis 15. mai 2006 (alors depuis sur 2 Jahren) unentdeckt blieb, scheint cela pas so häufig vorzukommen.

Sollte es un XProfan 11,0a ou bien 11,1 ou bien so donner, wird qui faute là naturellement korrigiert son.

Salut
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

09.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nico
Madysa

Ääääähm - ok. oui, j'ai cette Code nie getestet. Den Originalcode J'ai eu pas avec et habe ihn vite aus dem tête eingetippt. Dabei suis je wohl chaque fois sur qui Sternchen- statt sur qui Raute-bouton gekommen, quoi den faute erklärt.
Allerdings habe Je l' Code maintenant korrigiert et qui Bug ist toujours là.
ici ist qui richtige Version:
Kompilieren Marque Séparation

Struct TPunkt = x&,y&
declare b#[1]
Dim b#[],TPunkt
cls
b#[0].x& = 1
b#[0].y& = 2
b#[1].x& = %hWnd
b#[1].y& = 5
print b#[0].x& =,b#[0].x&
print b#[0].y& =,b#[0].y&
print b#[1].x& =,b#[1].x&
print b#[1].y& =,b#[1].y&
print GetActiveWindow(),=,

Select GetActiveWindow()

    CaseOf b#[0].x&

    print b#[0].x&

    CaseOf b#[0].y&

    print b#[0].y&

    CaseOf b#[1].x&

    print b#[1].x&

    CaseOf b#[1].y&

    print b#[1].y&

EndSelect

Dispose b#[]

while 1

    waitinput

Wend

Nico Madysa

22.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

cela steht dans qui Aider trop Select:

un beliebiger Ausdruck qui Typen Float, Integer, LongInt ou bien String.

Du gibst une Strukturvariable à. Es wäre naturellement joli, si es marcher serait, mais es wird nirgends behauptet, qui es marcher sollte.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

23.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

et si il es z.B. int()et ?

23.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

René
Wagner

Moin,

cela Element, sur cela il dans qui Strukturvariablen referenziert, mais est mais un Float. je wäre à main qui Beschreibung aussi en ausgegangen, dass cela so klappt.

Salut René

Mit XProfan erstellte Freeware findet ihr hier: [...]

US World Domination Tour - bombing a country near you...

23.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Zumindest Profan sieht cela anders:
Kompilieren Marque Séparation

Cls

Proc Test

    WhileLoop %pcount

        print pType$(&Loop),&Loop

    Wend

EndProc

Struct TPunkt = x&,y&
declare b#[1]
Dim b#[],TPunkt
cls
b#[0].x& = 1
Declare a$,b%,c&,d!,e#
Dim e#,4
Long e#,0=1000
a$ = "a"
b% = 1
c& = 2
d! = 3.5
Test(b#[0].x&,a$,b%,c&,d!,e#)
Dispose b#[]

while 1

    waitinput

Wend