XProfan

- page 2 -

Georg
Bernhardt

habs encore la fois sur anderen Maschinen versucht et là gehts einwandfrei. Doit alors doch à qui Cola, ou bien dem bière, ou bien dem Schnaps sur et dans mon heimischen Laptop liegen. peut-être hat oui aussi seulement qui souris ne Macke werde vous la fois austauschen, mais qui venez car sur quelque chose comme? merci pour Euere Überprüfungen, maintenant sais je wenigstens, dass je pas qui Blödi suis mais qui souris ou bien so.

XProfan 10

Frank
Abbing

Georg, probier cette Code:
Kompilieren Marque Séparation

Windowstyle 31
Windowtitle Mausklick
Window 0,0-640,400
Def GetAsyncKeyState(1) !USER32,GetAsyncKeyState
Def IsAKey(1) GetAsyncKeyState(&(1)) & $8000
SetTimer 50

While 1

    WaitInput
    Case %key=2:Break

    If IsAKey(1)

        Locate 0,0
        Print Links wird gedrückt.

    Else

        Cls

    EndIf

Endwhile

KillTimer
Fin

cette Code prüft seulement sur cela most significant bit et wird pas beim Mausklick sur cela la fenêtre sortir de. il doit aussi chez dir marcher.

Hrm kleiner Schönheitsfehler, Localiser 0,0 gibt es pas - cependant 1,1.

Localiser 0,0 gibt es pas

pouvoir sich mais bien - (steht plus Code im Programme !)

RGH

Zweiter Schönheitsfehler: und dir aussi deutlich einfacher entier sans API, dans dem on qui Funktion IsKey(1) benutzt, qui exakt cela Gleiche pouvoir, comment Franks IsAKey(1):
Kompilieren Marque Séparation

Windowstyle 31
Windowtitle Mausklick
Window 0,0-640,400
SetTimer 50

While 1

    WaitInput
    Case %key=2:Break

    If IsKey(1)

        Locate 1,1
        Print Links wird gedrückt.

    Else

        Cls

    EndIf

Endwhile

KillTimer
Fin

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

@Roland

Zweiter Schönheitsfehler: und dir aussi deutlich einfacher entier sans API,...

Du sprichst mir aus qui Seele. comme bekennender XProfan-Purist schreibe je ici deux Sprichwörter trop dem Thema:

pourquoi simple, si es compliqué allez ?

et...

qui voyons den forêt avant lauter Bäumen pas !

Frank
Abbing

@Horst & RGH: qui API pouvoir cela Ganze transparenter, voilà tout.

@iF: Localiser 0,0 solls pas donner? Steht mais pas dans qui Aider beschrieben et chez mir hat es jusqu'alors toujours funktioniert...

Ok, scherzen wir plus:

Ebenso richtig comment, dass qui Befehl chez 0,0 cela getan hat quoi Du erwartet la hâte, ist es, dass cela Koordinatensystem pour Localiser chez une beginnt - et qui zéro außerhalb des gültigen Bereiches liegt. cela es funktionierte liegt alors pas daran, dass 0,0 richtig ist, mais plutôt weil ici une Correction greift. Richtig ist mais cela on wohl dire peux cela 0,0 comment 1,1 funktioniert, es mais une Schönheitsfehler darstellt.

Frank
Abbing

non, Zählungen, quelle qui 1 comme la base choisir sommes unlogisch . Einigen wir uns puis, dass Roland ici Mist gebaut hat, indem une falsche la base verwendet, et cela aussi pas dans seiner Aider erwähnt. seule qui Correction bewahrt ihn avant dem Community-Pranger...

je crois Roland hat sich simple à qui übliche Umsetzung de Localiser gehalten.

Zählungen ab 1 sommes - comment je trouve - aucun Weges unlogisch. cela Erste Byte mag zwar à Adresse 0 liegen, toutefois ist es cela ERSTE - et pas cela NULLTE Byte.

Pour Bildschirmausgaben hingegen ist 1,1 réellement plutôt unüblich, si es pas chez Localiser comme einzige mir bekannte Ausnahme üblich wäre.

RGH

Profan est un BASIC-Dialekt avec PASCAL-Elementen et là sowohl (je pour BASIC-Dialekt) LOCATE bzw. PRINT AT ou bien PRINT @ chez 1,1 begannen, et GOTOXY dans Turbo-Pascal es aussi so hielt, beginnt aussi LOCATE dans XProfan chez 1,1. Schließlich ist oui qui ganze emulierte Textmodus seulement drin, avec cela on BASIC-Programme relativ simple pour XProfan übertragen konnte.

@iF: Übe Nachsicht avec Frank. comme C64-Besitzer kannte il dans BASIC pas den Luxus eines LOCATE ou bien PRINT AT, là C64-BASIC bekanntermaßen très spartanisch était et sa Anwender nahezu zwang, sur Maschinensprache auszuweichen, etwa seulement um une schlichte ligne number trop zeichnen.. ;)

Salut
Roland
(autrefois chez qui ZX- et MSX-Fraktion)

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