XProfan

- Page 2 -

Georg
Bernhardt

habs once more on other machines attempts and there GEHTS correct. mandatory means still on the Cola, or the beer, or the Schnaps on and my home Laptop lying. Perhaps has indeed only The mouse ne Macke will be tappt im dunkeln time replace, but who comes because on something like? thanks for your Überprüfungen, now white I at least, I do not the Blödi be separate The mouse or so.

XProfan 10

Frank
Abbing

Georg, probier this code:
Compile Mark Separation

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

this code checks only the most significant bit and won't at Click the Window leave. it must too with you functions.

Hrm small blemish, Locate 0,0 there not - however 1,1.

Locate 0,0 there not

power itself but well - (standing More code in the program !)

RGH

Zweiter blemish: It's all right too explicit plainer integrally without API, in the one The function IsKey(1) using, The exakt the same power, How Franks IsAKey(1):
Compile Mark Separation

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

Greeting
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 blemish: It's all right too explicit plainer integrally without API,...

You promise me from the soul. as bekennender XProfan-Purist write I here two Sprichwörter to the Topic:

Why simply, if it umständlich goes ?

, and ...

The see whom woods not sheer trees !

Frank
Abbing

@Horst & RGH: declared power the whole transparenter, this is everything.

@iF: Locate 0,0 reserves not give? standing but not in the Help described and by me has it bislang always functions...

OK, banter we moreover:

likewise correctly. How, that the commands with 0,0 the done has what You expects have, is it, that the Koordinatensystem for Locate with one begins - and the zero outside the valid Bereiches lying. the it funktionierte lying means not on it, that 0,0 correctly. is, separate sooner because here a Korrektur clutching. correctly. is the one well say can the 0,0 How 1,1 functions, But a blemish darstellt.

Frank
Abbing

No, Zählungen, which The 1 as Base dial are unlogisch . Einigen we hereon, that Roland here Mist built has, because a incorrect Base uses, and the not in its Help erwähnt. only The Korrektur protects it to the Community-Pranger...

I faith Roland has simply on The übliche Umsetzung of Locate held.

Zählungen ex 1 are - How I find - keines Weges unlogisch. the first byte likes of course on address 0 lying, nevertheless is it the ERSTE - and not the NULLTE byte.

for Bildschirmausgaben against is 1,1 objectively sooner unüblich, if it not Locate as only me known exception normally would.

RGH

Profan is a BASIC-dialect with PASCAL-Elementen and there sowohl (according to BASIC-dialect) LOCATE or. PRINT AT or PRINT @ with 1,1 began, and GOTOXY in Turbo-Pascal it too so held, begins too LOCATE in XProfan with 1,1. finally is Yes the whole emulierte Textmode only drin, so one BASIC-programs relatively simply to XProfan transfer could.

@iF: Übe clemency with Frank. as C64-owner knew it in BASIC not whom luxery one LOCATE or PRINT AT, there C64-BASIC bekanntermaßen very spartanisch was and its users almost constraint, on Maschinensprache auszuweichen, about only circa a adjust line to drawing.. ;)

Greeting
Roland
(then with the ZX- and 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