[*]Profan

- Page 1 -

Michael
Wodrich

Floor und Ceil
runden auf gerade/ungerade Ganzzahl (besonders im negativen Bereich).

Genaue Beschreibungen findest Du im Internet tonnenweise (beispielsweise per die Programmiersprache Pascal).

Editiert:
Pffffftttt, na gut....
Ausgerechnet bei PHP bin ich fündig geworden.
Hier die kürzeste Originalerklärung:

ceil() rounds towards positive infinity (up), floor() rounds towards negative infinity (down).

If you want, say, 2.6 to round to 3, and -2.6 to round to -3, you want round(), which rounds away from zero.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

02.03.2007 ▲

RGH

Ein Vorschlag von Georg H. (von mit kopiert aus einem anderen Thread):

Ciao,
habe den Code nun mit Aiuto von Frank Steinberg modifiziert.Jetzt gehts.
Kompilieren Markieren Separieren

declare comi1&,erfolg%,comwert$,SSuccess&
DEF @PurgeComm(2) !KERNEL32,PurgeComm
cls
comi1&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)

proc lesen

    comwert$=@ReadCom$(comi1&,1)
    @ComError(comi1&)

    whilenot comwert$=

        comwert$=@ReadCom$(comi1&,1)
        @ComError(comi1&)

    wend

    closecom(comi1&)
    comi1&=opencom(Com1:,4096,4096)
    erfolg%=SetCom(COM1:9600,N,8,1)
    LET SSuccess& = @PurgeComm(comi1&,8)
    drawtext 20,50,Erfolg : +str$(ssuccess&)

endproc

whilenot 0

    lesen

wend

closecom(i1&)

Roland, ich würde mir per XProfan11 bitte Profaninterne Löschbefehle per den Lese und Schreibpuffer wünschen.Danke.

Servus
Georg

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

Jörg
Sellmeyer

Eine wirklich geniale Sache wäre ein transparentes Static bei Create(Text...)

- Pixel per die Transparenzfarbe oder die Transparenzfarbe selbst in Bildern selbst bestimmen

[offtopic]

Was ist das denn per ein seltsamer Buchstabe???[/offtopic]

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

[offtopic]Der Thread ebend ist abgestürzt - glaube zu ahnen weshalb - Du hast Dein Posting aber leider überarbeitet. Hast Du nur [/script vor [script geschrieben oder woran lags? Würde den Bug gerne beheben...[/offtopic]

Jörg
Sellmeyer

Ich hatte ein /script zuviel drin - nach dem Smilie versehentlich noch eins eingefügt.

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

- Page 2 -

Danke! Die Offtopicpostings hier lösche ich nachher.

GDL

Ciao,
wünsche mir das bei usepen wieder alle Linienarten mit Linienstärke > 1 gehen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

15.05.2007 ▲

Waldemar
Opfer

GetStartPath (Function)
Gibt den Pfad zum Programm oder zur exe zurück.
Wenn das Programm im Editor corre , wird der Pfad zum Sourcecode Verzeichnis geliefert.
Wenn das Programm als exe corre wird der Pfad zur .exe geliefert.

XProfan11,Win_XP

16.05.2007 ▲

Frank
Abbing

Das gibt es schon, Waldemar: $progdir

16.05.2007 ▲

Jörg
Sellmeyer

Mit wenigen Zeilen ist auch das mit dem bedingten Pfad possibile:
Kompilieren Markieren Separieren

Declare  Home$
Home$ = $ProgDir
 $IFDEF INTERPRETER
Home$ = L:\Pfad\zum\Verzeichnis
 $ENDIF/pre>

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

16.05.2007 ▲

Dieter
Zornow

Ich würde mir wünschen, dass die Fehlermeldungen die Profan anzeigt wenigsten in etwa den Fehler treffen.
Meistens werden Meldungen gezeigt, die überhaupt nichts mit dem Fehler zu tun haben.
Aktuell hatte ich in einem größeren Programm una variabile nicht declariert. Was da alles an Fehlermeldungen
kam, aber keine hat das Problem getroffen. Auch XPSE in der vorletzten Version brachte ebenso sinnlose
Meldungen wie Profan. Wenn Io l' Profaninspector nicht gehabt hätte, hätte ich mir den Wolf gesucht.
Profaninspector ist wirklich ein super Tool, hat bis jetzt jeden Fehler gefunden, Danke Sebastian.

Viele Grüße aus Bangkok

Dieter

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.2007 ▲

Jac
de
Lad

Ich fänds gut, wenn man selber Fehler/Warnungen auslösen potuto. Die werden an irgendeiner Stelle im Programm registriert und circa einen Befehl ausgelöst. Das ist in Verbindung mit ErrorProc recht sinnvoll, weil man damit alle Fehler abarbeiten kann.

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

23.06.2007 ▲