XProfan

- Página 2 -

Rolf
Koch

Bajo Vista einwandfrei, obwohl mi Tastatur wirklich ya einiges en Richtung Flüssigkeiten y así más durchmachen musste

12.03.2008 ▲

Georg
Bernhardt

habs una vez más en otro Maschinen intenta y como gehts einwandfrei. Muß also doch a el Cola, oder el Bier, oder el Schnaps en y mi heimischen Laptop mentira. Tal vez ha en efecto sólo el Ratón ne Macke voluntad ellos veces austauschen, aber wer kommt porque en algo como? Gracias para Euere Überprüfungen, ahora weiß Yo wenigstens, dass Yo no Blödi bin pero el Ratón más o menos.

XProfan 10

Frank
Abbing

Georg, probier esta Code:
Kompilieren Marca Separación

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
End

Dieser Code prüft sólo el most significant bit y no es beim Mausklick el Ventana verlassen. Er muß auch en dir trabajo.

Hrm kleiner Schönheitsfehler, Localizar 0,0 no existe - sin embargo 1,1.

Localizar 0,0 no existe

Macht se aber bien - (es mehr Code en el Programa !)

RGH

Zweiter Schönheitsfehler: Lo va auch deutlich einfacher bastante sin API, en el uno el Función IsKey(1) benutzt, el exakt el Gleiche macht, como Franks IsAKey(1):
Kompilieren Marca Separación

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
End

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

@Roland

Zweiter Schönheitsfehler: Lo va auch deutlich einfacher bastante sin API,...

Usted sprichst me de el Seele. Als bekennender XProfan-Purist escribir Yo hier zwei Sprichwörter a el Thema:

¿Por qué simplemente, si umständlich va ?

y...

El sehen el Wald antes lauter Bäumen no !

Frank
Abbing

@Horst & RGH: El API macht el Ganze transparenter, el es alles.

@IF: Localizar 0,0 solls no geben? Steht pero no en el Ayuda beschrieben y en me ha lo bislang siempre funktioniert...

Ok, scherzen wir más:

También correcto como, dass el Befehl en 0,0 el getan ha qué Usted esperado hast, es, dass el Koordinatensystem para Localizar en Eins beginnt - y el Null außerhalb des gültigen Bereiches liegt. Das lo funktionierte liegt also no daran, dass 0,0 correcto es, pero más porque hier una Corrección greift. Richtig es aber el uno wohl sagen puede 0,0 como 1,1 funktioniert, lo aber una Schönheitsfehler darstellt.

Frank
Abbing

Nein, Zählungen, welche el 1 como Base wählen son unlogisch . Einigen nosotros darauf, dass Roland hier Mist gebaut ha, indem una falsche Base verwendet, y el auch no en su Ayuda erwähnt. Einzig el Corrección bewahrt ihn antes el Comunidad-Pranger...

Yo glaube Roland ha se simplemente a el übliche Umsetzung de Localizar mantenido.

Zählungen de 1 son - Yo finde - keines Weges unlogisch. Das Erste Byte mag zwar a Adresse 0 mentira, todavía es el ERSTE - y no el NULLTE Byte.

Für Bildschirmausgaben hingegen es 1,1 tatsächlich más unüblich, si no en Localizar como einzige me bekannte Excepción üblich wäre.

RGH

Profano es una BASIC-Dialekt con PASCAL-Elementen y como sowohl (je después de BASIC-Dialekt) LOCATE o. PRINT AT oder PRINT @ en 1,1 begannen, y GOTOXY en Turbo-Pascal lo auch así hielt, beginnt auch LOCATE en XProfan en 1,1. Schließlich es sí el todo emulierte Textmodus sólo drin, así uno BASIC-Programas relativ simplemente después de XProfan übertragen podría.

@IF: Übe Nachsicht con Franco. Als C64-Besitzer kannte él en BASIC no el Luxus uno LOCATE oder PRINT AT, como C64-BASIC bekanntermaßen muy spartanisch war y seine Anwender nahezu zwang, en Maschinensprache auszuweichen, etwa sólo una schlichte Linie para dibujar.. ;)

Saludo
Roland
(damals en ZX- y 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