XProfan

Español

Man glaub lo kaum, Yo programmiere otra vez. (Damit Yo algunos el große Überraschung genommen)

En mi derzeitigen Projekt spielen Zufallsgeneratoren una große Papel. Jedoch scheint el zufällige Auswahl no bastante a klappen.
Kompilieren Marca Separación

randomize

whilenot e%

    if classes%=1

        sizerate%=rnd(150)

    elseif classes%=2

        sizerate%=rnd(100)

    elseif classes%=3

        sizerate%=rnd(50)
        e%=1

    endif

    if classes%=1 and sizerate%>75

        e%=1

    elseif classes%=2 and sizerate%>50

        e%=1

    endif

wend

e%

n>0

si classes%=3 es funktioniert el Bucle wunderbar, ha classes sin embargo valor 1 oder 2, macht mein PC nichts y hängt scheinbar en el Bucle fest.
Está decidido veces otra vez qué total dummes, Yo sehs kommen. Aber a ahora versteh Yo no.

Noch una Cuestión: randomize gilt para todos nachfolgenden rnd oder?

Saludo
CHT

23.06.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Como se él auch qué más hacer, como du en el if-Struktur sólo en classes% = 3 e% en 1 setzt

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

23.06.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola,

el gelistete Programa Aunque mangels Vraiablendeklarationen no laufffähig, así dass Yo no ausprobieren podría, aber una Fehler fällt softort en: Lo fehlen el Klammern en el Bedingungen! (Siehe en el Ayuda bajo "6. Operatoren", Stichwort "Hierarchie".) So es vermutlich:
Kompilieren Marca Separación

...

elseif (classes% = 2) and (sizerate% > 50)

/pre>

In Deinem Code sería wegen el Hierarchie primero "2 and sizerate%" aufgelöst y el es entweder 1 oder 0. Dann sería "classes% = 1" oder "classes% = 0" aufgelöst y ser dies ergibt auch otra vez entweder 1 oder 0. Und como dies niemals größer 50 es, Es el Condición sin Klammern siempre falso, völlig unabhängig vom Valor sizerate%.

Kleiner Tipp: Wenn uno el Hierarchie el Operatoren no merken voluntad oder kann, simplemente siempre el Klammern así conjunto, cómo lo gewertet haben möchte.

Como lo diferente Idiomas (y incluso diferente BASIC-Dialekte) unterschiedlich handhaben, Yo mich a el Hierarchie la lengua orientiert, en el Yo XProfan geschrieben habe: Pascal. (Yo nutze Delphi y Delphis Lenguaje de programación es Object-Pascal.)

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

23.06.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

naja, Yo sí todavía una zweites if, wo Yo el abfrage

incluso en
Kompilieren Marca Separación

whilenot e%

    if classes%=1

        sizerate%=rnd(150)

        if classes%=1 and sizerate%>75

            e%=1

        endif

    elseif classes%=2

        sizerate%=rnd(100)

        if classes%=2 and sizerate%>50

            e%=1

        endif

    elseif classes%=3

        sizerate%=rnd(50)
        e%=1

    endif

wend

tut se nichts.

Yo verstehe media Fehler no

Saludo
CHT

23.06.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

Hast du Rolands Posting no gelesen.

en deiner zweiten If-Abfrage
Kompilieren Marca Separación

if (classes%=2) and (sizerate%>50)re>

El Klammern conjunto entonces gehts

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

23.06.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Yo habe RGH´s Post desafortunadamente sólo en el Nachhinein gesehen, porque Yo algo gebraucht habe con mi eigenen Post y todavía algo geprüft habe.
Also Yo schaue veces ...
... y tatsächlich! Was 4 Klammern así ausmachen puede. Gracias a RGH y Dieter!

Saludo
CHT

23.06.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[offtopic]
Gegen el problema derartiger Posting-Überschneidungen Yo ya una Mittel en el Test.
So se una Contribución inmediatamente adecuado después de el Absenden - auch si uno grad una Contribución verfässt.
También se entonces en el Hilo a sehen ser, si una Mitglied grad una Contribución verfässt, indem la contribución ya erscheint con entsprechendem Bemerk y una "Stift".
[/offtopic]

23.06.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita