XProfan

- Page 1 -

Stefan
M.
Caillet

How well, that one as software-gigant such apparently known, but m.E. groben Bug not To to fix need. If manns correctly. anstellt, buy The customers the part Yes nevertheless and the Rubel roll. now, beautiful the Simple with teuren Progs. too tricky goes.
How well that it XProfan gives!! there make we it inverse!! perfect performance,super simply, functions, and is furthermore too yet saugünstig!
Stefan

Ich habe grosses Glück, weil ich Mitmenschen helfen darf.
Entwicklungsumgebung:
XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit
PC: P4/3GHz , 2GB RAM , 1700GB HD
Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD

Stefan M. Caillet, Beitrag=53633, Zeitpunkt=01.08.2009

How well that it XProfan gives!! there make we it inverse!! perfect performance,super simply, functions, and is furthermore too yet saugünstig!

perfect Programming-Language!

Detlef
Tussing

Excel use I daily (professional and private), one life without Excel could I I do not present.
now attempt I in XProfan The daily input and Auswertung of data komfotabler To release, moreover heard too The Day, weeks, month and Jahresauswertung and Maybe (if I it create) too a weeks and Monatsgrafik (even How in Excel).

still here a new question

former have I in Basic written, there could I with Help one Druckerlineals (Plastikfolie with many Strichen and numbers) The position on the paper to determine.
gives it something vergleichbares for Bilschirmposition with the "Create" commands (not as hardware naturally).

and over again Vielen Thanks for Support the DBFLister is very the I sought

Gruß Detlef Tussing
Windows XP, XProfan 10

Detlef Tussing, Beitrag=53646, Zeitpunkt=01.08.2009

- Page 2 -

former have I in Basic written, there could I with Help one Druckerlineals (Plastikfolie with many Strichen and numbers) The position on the paper to determine. gives it something vergleichbares for Bilschirmposition with the "Create" commands (not as hardware naturally).

here a idea moreover: [...]

Thomas
Freier

or such a thing. was for a RTF-Edit. whether the on each system validly is?
Compile Mark Separation

 $P+
SetErrorLevel 0
Def Setwindowposition(7) !"USER32","SetWindowPos"
Def ReleaseCapture(0) !"USER32","ReleaseCapture"
DEF ExtractIcon(3) ! "SHELL32","ExtractIconA"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SetTrueColor 1
Windowstyle 82
Windowtitle "Lineal"
Window 0,600 - %maxx,52
var Hwnd&=%Hwnd
cls @RGB(250,250,250)
@Setwindowposition(Hwnd&,-1,0,600,%maxx,52,$42)
Lineal pixel
StartPaint Hwnd&
UsePen 1,1,@RGB(0,0,0)
var x%=0
var x!=0
var y!= 1

whileloop 0,1360

    SELECT &Loop

        CASEOF 5, 10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100,105,110,115,120,125,130,135,140

        Line x!,0-x!,24
        OTHERWISE
        Line x!,0-x!,10

    ENDSELECT

    x!=x!+10

wend

UseFont "Arial",14,0,0,0,0
TextColor @RGB(0,0,255),-1
x!=0
x%=0

whileloop 100

    DrawText (x!+3),13,str$(x%)
    x!=x!+(y!*50)
    x%=x%+50

wend

Lineal cm
UsePen 1,1,@RGB(0,0,0)
x%=0
x!=20
y!= 4.75 Faktor Maßstab

whileloop 0,60

    SELECT &Loop

        CASEOF 0, 2, 4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60

        Line x!,40-x!,52
        OTHERWISE
        Line x!,35-x!,52

    ENDSELECT

    x!=x!+(y!*5)

wend

UseFont "Arial",14,0,0,0,0
TextColor @RGB(0,0,255),-1
x!=0
x%=0

whileloop 30

    DrawText (x!+3),30,str$(x%)
    x!=x!+(y!*10)
    x%=x%+1

wend

EndPaint Hwnd&
var hIcon& = Create("hIcon", "SHELL32.DLL", 27)
var ICON2& = Create("ICONBUTTON", %hWnd, hIcon&, 0, 0, 0, 0)
SetWindowPos icon2&=640,30-20,20;0
Create("Tooltip",%hwnd,Hwnd&,"mit linker Maustaste verschieben
mit rechter Maustaste schliessen")
SetFocus(%hwnd)

while 1

    GetMessage

    If (%message=$201) & GetFocus(Hwnd&)

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
        ReleaseCapture()
        UseCursor 0
        SetFocus(%hwnd)

    ElseIf GetFocus(ICON2&)

        BREAK

    endIf

Wend

END

Lineal-2.exe	1.033 kB

Hochgeladen:	08/02/09

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

08/02/09 ▲

Dietmar
Horn

complement:
Compile Mark Separation

ElseIf GetFocus(ICON2&) or (%MouseKey = 2)re>

... then works too the Closing with the rechten Mouse button.

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Thomas
Freier

Dietmar, I had, but then opened itself oftmals one Trackmenu the under liegenden application.

Gruß Thomas
Windows XP SP2, XProfan X2

Dietmar
Horn

One Sleep 500 or Sleep 1000 to the BREAK might this trouble solve.

who a such Special application uses, the becomes well so skillful in the Use with the mouse his, that it The rights Mouse button not longer as an half-way or a second pressing.

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Thomas
Zielinski

Schade only, that The Skalierung not durchgängig is. 1400 is the last point, where yet more Striche are on dennen one itself quick orientieren can.
lineal

Compile Mark Separation

CASEOF 5, 10,15,20,25,30,...,165,170re>

i think still, that it here lying!?

Greeting Thomas

lineal.PNG	4 kB

Hochgeladen:	08/03/09

Downloadcounter:
		Download

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

Detlef
Tussing

the ruler find I as a crazy Help

now must I do not More as long as experiment

thanks all

Gruß Detlef Tussing
Windows XP, XProfan 10

but not 5,10,15 could one still loop*5... or whileloop s,e,5 or loop mod 5 or... ^^

Thomas
Freier

simply to eigenem Gusto adjust. was only so a idea, as i my transparentes Linieal adjust had to. In this case have I but the Tranparenz not leave can. Perhaps has Yes of/ one pleasure the To try.

Gruß Thomas
Windows XP SP2, XProfan X2