XProfan

Español

Xegon

¡Hola zusammen,
Yo programmiere ya algunos Tiempo a una Bildschirmschoner rum el auch wirklich bien funktioniert.
Problema es aber el dieser sólo en el primären Monitor bajo Windows laufen se. Also Bildschirm 2 y 3 necesario de geschaltet voluntad oder schwarz gepinselt.
Mir voluntad no gelingen hier una solución dafür para encontrar.
Fenstergröße ausdehnen va no, como %maxx dieses no zulässt.
Gibt uno una Übergröße una - führt el a una Programmfehler.
Gezielt el 2. Monitor ausschalten en el Standby Yo auch todavía no gefunden.

Kann alguien helfen?

XProfan X2

12.12.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Georg
Teles

Hm, como fällt me sólo GetSystemMetrics & dieses [...]

Workarea, con denen du spielen & algo remendar kannst

GetSystemMetrics
Kompilieren Marca Separación

 $H Windows.ph
Título de la ventana "GetSystemMetrics"
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Font 2
cls
Imprimir "                            SlowProcessor = ";~GetSystemMetrics(73)
Imprimir " BootMode 0Normal 1Failsafe 2Safe+Network = ";~GetSystemMetrics(67)
Imprimir " Network present LSB = ";~GetSystemMetrics(63) & 1;", No. of Monitors = ";~GetSystemMetrics(80)
Imprimir "         Width of primary display monitor = ";~GetSystemMetrics(0)
Imprimir "                Heigth of primary monitor = ";~GetSystemMetrics(1)
Imprimir "  WindowBorder px = ";~GetSystemMetrics(5);";  WindowBorder3D px = ";~GetSystemMetrics(45)
Imprimir "                     MinWidth of a Ventana = ";~GetSystemMetrics(28)
Imprimir "                      MinHeight of Ventana = ";~GetSystemMetrics(29)
Imprimir "                    Heigth of CaptionArea = ";~GetSystemMetrics(4)
Imprimir "                            MenubarHeight = ";~GetSystemMetrics(15)
Imprimir "                    SM_CX-FIXED/DLG-FRAME = ";~GetSystemMetrics(7)
Imprimir "     CursorWidth = ";~GetSystemMetrics(13);";       CursorHeight = ";~GetSystemMetrics(14)
Imprimir "             ArrangeMinimizedWindows Mode = ";~GetSystemMetrics(56)
imprimir
Imprimir "                       MousePortInstalled = ";~GetSystemMetrics(19)
Imprimir "                   Number of MouseButtons = ";~GetSystemMetrics(43)
Imprimir "                VerticalScrollWheel Ratón = ";(~GetSystemMetrics(75)>0)
Imprimir "              HorizontalScrollWheel Ratón = ";(~GetSystemMetrics(91)>0)
Imprimir "          XP/Vista/Win7 Edition='Starter' = "; ~GetSystemMetrics(88)
Imprimir "                   TabletPCSupport Active = ";~GetSystemMetrics(86)
Imprimir "            Windows4PenComputingInstalled = ";~GetSystemMetrics(41)
Imprimir "             Windows Media Center Edition = ";~GetSystemMetrics(87)
Imprimir ~GetSystemMetrics(78)'x-virtual Screen
Imprimir ~GetSystemMetrics(79)'y-virtual screen
Imprimir ~GetSystemMetrics(16)'SM_CXFULLSCREEN = 16 - Gibt el Weite des Arbeitsbereiches uno maximierten Fensters zurück.
Imprimir ~GetSystemMetrics(17)'SM_CYFULLSCREEN = 17 - Gibt el Höhe des Arbeitsbereiches uno maximierten Fensters zurück.
'SM_CXSCREEN = 0 - Gibt el Weite des Bildschirms zurück.
'SM_CYSCREEN = 1 - Gibt el Höhe des Bildschirms zurück.
Imprimir ~GetSystemMetrics(76)'SM_XVIRTUALSCREEN = 76 - Windows 98/NT - Liefert el linke Koordinate (en más Monitoren)
Imprimir ~GetSystemMetrics(77)'SM_YVIRTUALSCREEN = 77 - Windows 98/NT - Liefert el obere Koordinate (en más Monitoren)
WaitInput
End

Provisorisches qué gerade einfällt
Kompilieren Marca Separación

Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Ventana de Estilo $f0
Declarar x&,y&,wx&,wy&
x& = GetSystemMetrics(76)'SM_XVIRTUALSCREEN /
y& = GetSystemMetrics(77)'SM_YVIRTUALSCREEN /
wx&= GetSystemMetrics(78)'x-virtual Screen  /
wy&= GetSystemMetrics(79)'y-virtual Screen  /
Crear("Window",%Desktop,"",x&,y&,wx&,wy&)'übermalen
window 0,0-%MaxX,%MaxY'Screensaver
CLS RGB(0,0,0)
WaitInput
FIN

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

12.12.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hast Usted una vez setErrorLevel -2 probiert?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

12.12.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Hm, como fällt me sólo GetSystemMetrics & dieses [...]

Workarea, con denen du spielen & algo remendar kannst

GetSystemMetrics
Kompilieren Marca Separación

 $H Windows.ph
Título de la ventana "GetSystemMetrics"
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Font 2
cls
Imprimir "                            SlowProcessor = ";~GetSystemMetrics(73)
Imprimir " BootMode 0Normal 1Failsafe 2Safe+Network = ";~GetSystemMetrics(67)
Imprimir " Network present LSB = ";~GetSystemMetrics(63) & 1;", No. of Monitors = ";~GetSystemMetrics(80)
Imprimir "         Width of primary display monitor = ";~GetSystemMetrics(0)
Imprimir "                Heigth of primary monitor = ";~GetSystemMetrics(1)
Imprimir "  WindowBorder px = ";~GetSystemMetrics(5);";  WindowBorder3D px = ";~GetSystemMetrics(45)
Imprimir "                     MinWidth of a Ventana = ";~GetSystemMetrics(28)
Imprimir "                      MinHeight of Ventana = ";~GetSystemMetrics(29)
Imprimir "                    Heigth of CaptionArea = ";~GetSystemMetrics(4)
Imprimir "                            MenubarHeight = ";~GetSystemMetrics(15)
Imprimir "                    SM_CX-FIXED/DLG-FRAME = ";~GetSystemMetrics(7)
Imprimir "     CursorWidth = ";~GetSystemMetrics(13);";       CursorHeight = ";~GetSystemMetrics(14)
Imprimir "             ArrangeMinimizedWindows Mode = ";~GetSystemMetrics(56)
imprimir
Imprimir "                       MousePortInstalled = ";~GetSystemMetrics(19)
Imprimir "                   Number of MouseButtons = ";~GetSystemMetrics(43)
Imprimir "                VerticalScrollWheel Ratón = ";(~GetSystemMetrics(75)>0)
Imprimir "              HorizontalScrollWheel Ratón = ";(~GetSystemMetrics(91)>0)
Imprimir "          XP/Vista/Win7 Edition='Starter' = "; ~GetSystemMetrics(88)
Imprimir "                   TabletPCSupport Active = ";~GetSystemMetrics(86)
Imprimir "            Windows4PenComputingInstalled = ";~GetSystemMetrics(41)
Imprimir "             Windows Media Center Edition = ";~GetSystemMetrics(87)
Imprimir ~GetSystemMetrics(78)'x-virtual Screen
Imprimir ~GetSystemMetrics(79)'y-virtual screen
Imprimir ~GetSystemMetrics(16)'SM_CXFULLSCREEN = 16 - Gibt el Weite des Arbeitsbereiches uno maximierten Fensters zurück.
Imprimir ~GetSystemMetrics(17)'SM_CYFULLSCREEN = 17 - Gibt el Höhe des Arbeitsbereiches uno maximierten Fensters zurück.
'SM_CXSCREEN = 0 - Gibt el Weite des Bildschirms zurück.
'SM_CYSCREEN = 1 - Gibt el Höhe des Bildschirms zurück.
Imprimir ~GetSystemMetrics(76)'SM_XVIRTUALSCREEN = 76 - Windows 98/NT - Liefert el linke Koordinate (en más Monitoren)
Imprimir ~GetSystemMetrics(77)'SM_YVIRTUALSCREEN = 77 - Windows 98/NT - Liefert el obere Koordinate (en más Monitoren)
WaitInput
End

Provisorisches qué gerade einfällt
Kompilieren Marca Separación

Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Ventana de Estilo $f0
Declarar x&,y&,wx&,wy&
x& = GetSystemMetrics(76)'SM_XVIRTUALSCREEN /
y& = GetSystemMetrics(77)'SM_YVIRTUALSCREEN /
wx&= GetSystemMetrics(78)'x-virtual Screen  /
wy&= GetSystemMetrics(79)'y-virtual Screen  /
Crear("Window",%Desktop,"",x&,y&,wx&,wy&)'übermalen
window 0,0-%MaxX,%MaxY'Screensaver
CLS RGB(0,0,0)
WaitInput
FIN

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

12.12.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Xegon

Exactamente algo como búsqueda Yo....
Erster Test war ok - voluntad lo morgen veces en el Progammcode des Schoners einbauen.....
Melde mich con el Ergebnis

y....

Vielen, vielen Dank .....

XProfan X2

12.12.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Naja, así effektiv war el provis. Solución no --- esta producido encima el ganzen 'virtuellen Monitor' (rote Fläche s. Bild) el Ventana (Windows producido esta virtuellen Monitor como una Fläche y weist el physikalischen TFTs el Bereiche a) y el %HWnd se en el 'primären physikalischen' producido

_mon.png	15 kB

Hochgeladen:	13.12.2015

Ladeanzahl:
		Descargar

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

13.12.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Xegon

¡Hola,

en media Tests Yo siempre una zweiten weißen Bildschirm.
Paßt en mi caso muy bien, como Yo, el Schoner en Weiß programmiert habe. Otro Farbe kann Yo pero no einstellen.
Yo voluntad el Erfolg morgen en el Unternehmen testen.

XProfan X2

13.12.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Hmm nun haben mich el Screensaver auch interessiert, habe en schnelle una Ansatzschnipsel para 2 Monitore como Ejemplo zusammengeschustert

esta necesidad Usted todavía esta PCU [...]

Kompilieren Marca Separación

 $U ListMonitors.pcu = mon_
Declarar e%
Conjunto("AutoPaint",0)
Windowstyle $f0+512+1024'nirgends Mostrar
window 0,0-0,0
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Declarar x&,y&,wx&,wy&
x& = GetSystemMetrics(76)'SM_XVIRTUALSCREEN /
y& = GetSystemMetrics(77)'SM_YVIRTUALSCREEN /
wx&= GetSystemMetrics(78)'x-virtual Screen  /
wy&= GetSystemMetrics(79)'y-virtual Screen  /
' Monitore ermitteln
Declarar mons&, mons$, anzahl&
mons& = Crear("Grid",1,0)
' Monitore en GridBox einlesen !
mon_GetMonitors(mons&)
anzahl& = GetCount(mons&)
Declarar wnd&[(anzahl&-1)]
Ventana de Estilo $f0+512

WhileLoop 0,(anzahl&-1)

    mons$ = GetText $(mons&,&bucle,0)
    ' en Taskleiste Mostrar
    'wnd&[&loop] = Crear("Window",%Desktop,"",Val(Substr$(mons$,1,"_")),Val(Substr$(mons$,2,"_")),Val(Substr$(mons$,3,"_")),Val(Substr$(mons$,4,"_")))
    ' en Taskleiste ausblenden
    wnd&[&bucle] = Crear("Window",%hWnd,"",Val(Substr$(mons$,1,"_")),Val(Substr$(mons$,2,"_")),Val(Substr$(mons$,3,"_")),Val(Substr$(mons$,4,"_")))
    ' siempre en el vordergrund
    SetWindowPos wnd&[&bucle] = Val(Substr$(mons$,1,"_")),Val(Substr$(mons$,2,"_"))-Val(Substr$(mons$,3,"_")),Val(Substr$(mons$,4,"_"));-1

EndWhile

Declarar bg_rot&, bg_blau&
MCLS wx&,wy&,RGB(160,0,0)
bg_rot& = Crear("HPIC",0,"& MEMBMP")
MCLS wx&,wy&,RGB(0,0,160)
bg_blau& = Crear("HPIC",0,"& MEMBMP")
male(wnd&[0],bg_rot&,"Monitor 1")
male(wnd&[1],bg_blau&,"Monitor 2")
Claro e%

Sinestar encargado e%

    WaitInput

    If (%Key = 2) | (%Key = 27)

        Inc e%

    EndIf

    If %wmPaint

        male(wnd&[0],bg_rot&,"Monitor 1 wurde redibujar !")
        male(wnd&[1],bg_blau&,"Monitor 2 wurde redibujar !")

    EndIf

EndWhile

Proc male

    Parámetros wnd&, hPic&, texto$
    Startpaint wnd&
    Drawpic hPic&,0,0;0
    Imprimir texto$
    EndPaint

ENDPROC

DeleteObject bg_rot&
DeleteObject bg_blau&
FIN

Grüße, gute Nacht, guten Morgen !

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

20.03.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Xegon

¡Hola y vielen Dank para el Ayuda....

Für mi Zwecke ha el Ejemplo con el weissen Ventana en el virtuellen Auflösung gereicht.

Der zweite, dritte y vierte Monitor restos blanco. Das paßt muy bien y BS se en el ersten Monitor ausgeben con Color de fondo blanco.

Sí - correcto gehört ... vier Monitore. Der Trend va no mehr para zweiten Monitor en uns en el Unternehemen, pero para dritten oder vierten Monitor.

XProfan X2

05.06.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita