XProfan

- Página 1 -

Stefan
M.
Caillet

Como bien, dass uno como Software-Riese solche scheinbar bekannten, aber m.E. groben Programmfehler no a beheben braucht. Wenn manns correcto anstellt, kaufen el kunden el Teil sí trotzdem y Rubel rollt. Nun, schön el Einfaches con teuren Progs. auch kompliziert va.
Como bien dass lo Xprofan son!! Como hacer wir lo umgekehrt!! Perfekte Leistung,super simplemente, funktioniert, y es obendrein auch todavía 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

Como bien dass lo Xprofan son!! Como hacer wir lo umgekehrt!! Perfekte Leistung,super simplemente, funktioniert, y es obendrein auch todavía saugünstig!

Perfekte Lenguaje de programación!

Detlef
Tussing

Excel benutze Yo täglich (beruflich y privat), una Leben sin Excel podría Yo no vorstellen.
Nun versuch Yo en XProfan el tägliche Eingabe y Auswertung de Daten komfotabler a realisieren, dazu gehört auch el Tages, Wochen, Monat y Jahresauswertung y vieleicht (si yo lo schaffe) auch una Wochen y Monatsgrafik (eben como en Excel).

Doch hier una neue Cuestión

Früher Yo en Basic geschrieben, como podría I, con Ayuda uno Druckerlineals (Plastikfolie con vielen Strichen y Pagar) el Position en el Papier bestimmen.
Gibt hay algo vergleichbares para el Bilschirmposition en el "Create" Befehl (no como Hardware natürlich).

y nochmals Vielen Dank para el Unterstützung el DBFLister es genau el Yo suchte

Gruß Detlef Tussing
Windows XP, XProfan 10

Detlef Tussing, Beitrag=53646, Zeitpunkt=01.08.2009

- Página 2 -

Früher Yo en Basic geschrieben, como podría I, con Ayuda uno Druckerlineals (Plastikfolie con vielen Strichen y Pagar) el Position en el Papier bestimmen. Gibt hay algo vergleichbares para el Bilschirmposition en el "Create" Befehl (no como Hardware natürlich).

Hier una Concepto dazu: [...]

Thomas
Freier

Oder así algo. War para una RTF-Editar. Ob el en cada Sistema gültig es?
Kompilieren Marca Separación

 $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

FIN

Lineal-2.exe	1.033 kB

Hochgeladen:	02.08.2009

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

02.08.2009 ▲

Dietmar
Horn

Ergänzt:
Kompilieren Marca Separación

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

... entonces klappt auch el Schließen con el rechten Botón del ratón.

Saludo
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, Tuve, aber entonces öffnete se oftmals una Trackmenu el darunter liegenden Anwendung.

Gruß Thomas
Windows XP SP2, XProfan X2

Dietmar
Horn

Ein Sleep 500 oder Sleep 1000 antes el BREAK dürfte dieses Problema lösen.

Wer una solche spezielle Anwendung verwendet, el probablemente así geschickt en el Umgang con ratón ser, daß él el rechte Botón del ratón no länger como una halbe oder una Sekunde drückt.

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: [...]

Kompilieren Marca Separación

Thomas
Zielinski

Schade sólo, dass el Skalierung no durchgängig es. 1400 es el letzte Punkt, wo todavía größere Striche son a dennen uno se rápidamente orientieren kann.
lineal

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

Yo denke doch, dass lo hier liegt!?

Saludo Thomas

lineal.PNG	4 kB

Hochgeladen:	03.08.2009

Ladeanzahl:
		Descargar

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

Detlef
Tussing

Das Lineal find Yo como una tolle Ayuda

nun muß Yo no mehr solange experimentieren

Gracias a todos

Gruß Detlef Tussing
Windows XP, XProfan 10

Statt 5,10,15 podría uno doch bucle*5... oder whileloop s,e,5 oder bucle mod 5 oder... ^ ^

Thomas
Freier

Einfach después de eigenem Gusto adaptar. War sólo así una Concepto, como Yo mein transparentes Linieal adaptar mußte. In diesem Fall Yo aber el Tranparenz no belassen puede. Tal vez ha sí uno Lust el a probieren.

Gruß Thomas
Windows XP SP2, XProfan X2