FreeProfan

RGH

Sodele, Version 0.5 hochgeladen.

Saluto
Roland

XProfan X2
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

22.02.2013 ▲

RGH

Noch ein kleiner Fehler beim AND behoben und neu hochgeladen!

Saluto
Roland

XProfan X2
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

22.02.2013 ▲

RGH

Und weiter geht's:

Experimentell eingebaut: Abspielen von Musik mit dem MUSIC-Befehl im Hintergrund (als eigener Thread):
- Wenn das erste Zeichen des Notenstrings ein "*" ist, wird die Musik im Hintergrund gespielt.
- In &HMUSIC steht die Thread-ID, die z.B. in Process("kill",...) verwandt werden kann, um den Thread zu beenden.
- Solange der MUSIC-Befehl im Hintergrund corre hat die Systemvariable %PLAYING il valore 1, sonst 0.

Die Musikmakrosprache wurde um den Befehl "R" erweitert, um anzugeben, wo im Stereo-Raum der Klang herkommt: R0 = ganz links, R127 ist ganz rechts, Werte dazwischen eben dazwischen. Wie auch bei der Lautstärke betrifft die Einstellung den aktuellen Kanal.

Experimentell è: Die Syntax kann sich noch ändern; in XProfan X2.1 wird das noch nicht übernommen.

Saluto
Roland

XProfan X2
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

01.03.2013 ▲

Kompilieren Markieren Separieren

RGH

So, ein weiteres Update ist hochgeladen:

MUSIC funktioniert nicht nur wie gewünscht, sondern wurde nochmals erweitert:
- "MF" wird ausgefiltert und "MB" durch ein "*" ersetzt. So laufen viele Musikstücke per QBasics PLAY auch ohne Cambiamento mit Profan. "MB" führt nur zum Abspielen im Hintergrund, wenn es am Anfang des Playstrings der ersten Stimme steht.
- Da ich tippfaul bin: Wiederholungen sind jetzt possibile: Alles, was zwischen "[n" und "]" steht, wird n-mal wiederholt. Verschachtelungen sind possibile.
- Und die aufwändigste Cambiamento: Es geht jetzt auch mehrstimmig. Einfach mehrere Playstrings durch Komma getrennt angeben. Ein Beispiel:

var a$="R0 O5 [4 > CC [2 D] CC]"
var b$="R127 O5 [4 < CC [2 D] CC]"

if messagebox("Im Vordergrund?","Frage",36)=6

    music a$, b$

else

    music "*"+a$, b$

    while %playing

        sleep 1000
        print %playing,&hmusic

    endwhile

endif

Print "Fertig!"
WaitInput

Ach ja: Mit 64-Bit geht es auch.

Saluto
Roland

XProfan X2
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

01.03.2013 ▲

Kompilieren Markieren Separieren

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Hallo Roland,

ich schätze es gibt ein Problem mit Windowstyle $F0

Windowstyle $F0
cls
waitinput

beendet sich nach einer Weile.

XProfan X2
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

RGH

Danke per den Hinweis! Das alte Problem des unterschiedlichen Umgangs von Delphi und FreePascal bei der Zuweisung von DWORDs (unsigned) an LONGINTs (signed). Wo Delphi einfach die Bits (sind ja beidesmal 32) überträgt und somit automatisch casted, brauchts bei Lazarus das explizite Casting, um dasselbe zu erreichen, ansonsten gibt es einen Absturz. Und da der Stil "$40 - ohne Header" durch WS_POPUP (definiert als dword($8000000)) realisiert wird, knallt es, wenn er der Stil-Variablen, ein LongInt, zugewiesen wird. Ok, Casting eingebaut und es tut wie es soll: Windowstyle $F0 erzeugt ein Fenster "ohne alles". Ich weiß zwar nicht, wozu man das braucht, aber es funktioniert in der nächsten Version, die ich per 32Bit presumibilmente noch heute Abend hochlade und per 64 Bit dann morgen.

Saluto
Roland

XProfan X2
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

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Ich brauche es z.B. per Bildschirmschoner.
Noch wichtiger aber per mit pExec erzeugte Prozesse. Ich benutze da meist ein Waitinput mit Zeitangabe, und per Waitinput benötige ich ein Fenster ( am liebsten eben unsichtbar ).

RGH

Sodele: korrigierte Version ist hochgeladen. (Einige Probleme mit MUSIC wurden auch noch beseitigt.)

Saluto
Roland

XProfan X2
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

RGH

Neue Version hochgeladen:
- MUSIC-Befehl von kleineren Bugs befreit
- SCREENCOPY und WINCOPY wurden komplett neu geschrieben und funktionieren endlich wieder mit allen Druckern!

Viel Divertimento beim Ausprobieren!

Saluto
Roland

XProfan X2
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

04.03.2013 ▲

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Und TestMode mit allen Computern?

05.03.2013 ▲

RGH

iF (05.03.13)

Und TestMode mit allen Computern?

Ich habe da noch mal was probiert. Nach meinem Upload heute Abend (32 und 64 Bit) bitte ich Dich, noch mal zu testen. Ist halt nicht einfach mit einem Fehler, der auf meinen Rechnern nicht auftritt.

Saluto
Roland

XProfan X2
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

05.03.2013 ▲