Die Lesbarkeit auf dem Bildschirm erleichtern Topic is solved

[effel]

Hallo, kann man eine GUI so programmieren, dass sie von dieser Einstellung ausgeschlossen wird?

Sie soll immer gleich angezeigt werden, egal welche Einstellung man hier vornimmt.

Danke fürs lesen.

20231107205612-Monitor-1.jpg (30.76 KiB) Viewed 1734 times

[just me]

Moin @effel , weitestgehend mit

DPIScale [v1.1.11+]: Use Gui -DPIScale to disable DPI scaling, which is enabled by default.

[effel]

Gui -DPIScale to disable DPI scaling, which is enabled by default.

Danke @just me, auch ein Danke für deinen Tip mit SS_NOPREFIX

[garry]

Ich hatte mal dies angewendet , damit die GUI Grösse bei FullHD und 4K Monitor stimmt , Beispiel > w:=(a_screenwidth*50)/100 > 50% Breite
jedenfalls müsste ich auch den FONTSIZE anpassen , bei FullHD muss es kleiner sein , z.B von S16 > ca S12 .
Gibt es ein Formel dafür ?
( Benütze 4K 27" Monitor, arbeite nur notfalls am notebook 15" mit FullHD )

FONTSIZE abhängig von screensize , kurz mal so gelöst ( schlechtes Beispiel ) :

Code: Select all

;- maybe change fontsize
;============ GUISIZEx DPIx 4Kx 3840*2160 is 100% ============
if (wa=3840)
 Gui,2:Font,s12 cYellow,Lucida Console
;============ GUISIZEx DPIx FHD 1920*1080 is 100% ============
else if (wa=1920)
 Gui,2:Font,s10 cYellow,Lucida Console
else
 Gui,2:Font,s8 cYellow,Lucida Console
;=============================================================

GUI Grösse stimmt

Code: Select all

#warn
#noenv
setworkingdir,%a_scriptdir%
filename1=Add Picture
Gui,2: -dpiscale
Gui,2:Color,Black,Black
Gui,2:Font,s16 cYellow,Lucida Console
wa:=A_screenwidth,ha:=A_screenHeight,xx:=100
;--------------
P1:="C:\windows\web\Screen\img100.jpg"
;-
x:=(wa*2)/xx,y:=(ha*1)/xx,w:=(wa*28)/xx,h:=(ha*35)/xx
Gui,2: Add,Picture, x%x% y%y% w%w% h%h% ,%p1%
;-
x:=(wa*5)/xx,y:=(ha*38)/xx
Gui,2: Add,Text,x%x% y%y%,%p1%
;-
x:=(wa*1)/xx,y:=(ha*1)/xx,w:=(wa*32)/xx,h:=(ha*42)/xx
Gui,2: show,x%x% y%y% w%w% h%h%,%filename1%
;-
return
;----------------
2Guiclose:
exitapp

[effel]

Guten Abend,

kann bitte jemand einen Screenshot zusenden?

Ich bekomme das mit der perfekten Ausrichtung noch nicht wirklich gut hin und hoffe das mich -DPIScale rettet.

Unbenannt.png (14.71 KiB) Viewed 1499 times

Code: Select all

		Gui +AlwaysOnTop hwndGUIHWND 
	Gui -DPIScale

Gui, Add, text, x10 y0 w1 h30 vTextEdit1 hwndhTextEdit1 center cblue  section,% A_DDDD a_space A_DD "." Month(A_MM) "." a_YYYY "  " A_Hour ":" A_Min ":" A_Sec " Uhr" ; timestamp
	Gui, Font, s16 cMaroon Bold, Verdana 
	GuiControl, Font, TextEdit1 
	Gui, Font, s10 cBlack 
	GuiControl, Move, TextEdit1, xm10 y10 w560 h30		 

	Gui, Add, text, xs+20 ys+50 h30  , Trigger:
	Gui, Add, edit, x+20 ys+50 w30 vSonnenEditStunden hwndhSsonnenEditStunden section center, 00
	Gui, Add, text, xs+40 ys+5 w30  , Stunden				
	Gui, Add, edit, xs+120 ys+0 w30 vSonnenEditMinuten hwndhSsonnenEditMinuten center, 59
	Gui, Add, text, xs+160 ys+5 w30  , Minuten
	Gui, Add, DropDownList, xs+240 ys+0 w180 r5 section vddl1 choose1, Trigger auswählen...
								| vor Sonnenaufgang
								| nach Sonnenaufgang
								| vor Sonnenuntergang
								| nach Sonnenuntergang

	Gui, Add, DropDownList, xm+40 ys+40 r15 w400 vddl3 choose1,  Trigger Datei auswählen...| Öffnen...
	GuiControl, Move, ddl3, w450
	Gui, Add, listview, x10 ym+140 	w545 r8  vListView1 hwndhListView1 grid, HH|MM|Trigger|Trigger File



;	Gui, Add, DropDownList, xs+300 ys+0 w180 r5 vddl2 choose1, Auswählen...| vor Sonnenaufgang   ; test

gui show		
return

Month(thisMonth) {
		Month := strSplit("Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez",",")
		return Month[thisMonth]
}

[garry]

mit 4K ist Versuch nicht gut , mit der Prozent-Berechnung ( script oben) hatte ich keine Probleme , lediglich FONTSIZE sollte ich anpassen abhängig vom screensize < EDIT : done



Beispiel mit Prozent / FONTSIZE anpassen
EDIT : FONTSIZE ist angepasst , danke @just me und @Gurkentoepfer
viewtopic.php?p=39229#p39229 user Gurkentoepfer 2015-02-25
getestet mit FullHD und 4K-Monitor , evtl. noch nachjustieren EDIT : nachjustiert , round entfernt , aber bei FullHD war der Font immer noch eine Nuance zu gross

Code: Select all

;=============================================================    
#Warn
#NoEnv
setworkingdir,%a_scriptdir%
Gui +AlwaysOnTop -DPIScale hwndGUIHWND 
;-
wa:=A_screenwidth,ha:=A_screenHeight,xx:=100
zoomfactor:=((A_ScreenWidth/1920)*(96/A_ScreenDPI))
;Fs10:= Round(10 * ZoomFactor, 0)
Fs10 :=(10*zoomfactor)
Fs16 :=(16*zoomfactor)
;=============================================================	
	Gui,1:Color,Black,Black
	Gui,1:add,text,x0 y0 vT1
	
	Gui, Font, s%fs16% cYellow Bold, Verdana
	;-
    x:=(wa*0)/xx,y:=(ha*1)/xx,w:=(wa*30)/xx  ;- w ist gui width  
    Gui, Add, text,x%x% y%y% w%w% vTextEdit1 hwndhTextEdit1 center section,% A_DDDD a_space A_DD "." Month(A_MM) "." a_YYYY "  " A_Hour ":" A_Min ":" A_Sec " Uhr" ; timestamp
	;-
	Gui, Font, s%fs10% normal,
    ;-
	x:=(wa*1.5)/xx,y:=(ha*5)/xx 
	Gui, Add, text, x%x% y%y%  , Trigger:
	;-
	x:=(wa*5)/xx,y:=(ha*5)/xx,w:=(wa*1.6)/xx,h:=(ha*2.2)/xx
	Gui, Add, edit, x%x% y%y% w%w% h%h% vSonnenEditStunden hwndhSsonnenEditStunden section center, 00
	;-
	x:=(wa*7)/xx,y:=(ha*5)/xx
	Gui, Add, text, x%x% y%y%, Stunden
    ;-	
	x:=(wa*12)/xx,y:=(ha*5)/xx,w:=(wa*1.6)/xx,h:=(ha*2.2)/xx
	Gui, Add, edit, x%x% y%y% w%w% h%h%  vSonnenEditMinuten hwndhSsonnenEditMinuten center, 59
	;-
	x:=(wa*14)/xx,y:=(ha*5)/xx
	Gui, Add, text, x%x% y%y% , Minuten
	;-
	x:=(wa*18)/xx,y:=(ha*5)/xx,w:=(wa*10)/xx
	Gui, Add, DropDownList, x%x% y%y% w%w% r5 section vddl1 choose1, Trigger auswählen...
								| vor Sonnenaufgang
								| nach Sonnenaufgang
								| vor Sonnenuntergang
								| nach Sonnenuntergang
    ;-								
	x:=(wa*2)/xx,y:=(ha*8.5)/xx,w:=(wa*15)/xx
	Gui, Add, DropDownList,x%x% y%y% w%w% vddl3 choose1,  Trigger Datei auswählen...| Öffnen...
	;-
	color=D4D0C8 
	x:=(wa*1)/xx,y:=(ha*13)/xx,w:=(wa*28)/xx,h:=(ha*30)/xx
	Gui, Add, listview, x%x% y%y% w%w% h%h%  vListView1 hwndhListView1 grid background%color% cBlack , HH|MM|Trigger|Trigger File
	T1:=(wa*2)/xx,T2:=(wa*2)/xx,T3:=(wa*6)/xx,T4:=(wa*16.5)/xx
    LV_ModifyCol(1,T1),LV_ModifyCol(2,T2),LV_ModifyCol(3,T3),LV_ModifyCol(4,T4)
;-	
x:=(wa*10)/xx,y:=(ha*10)/xx,w:=(wa*30)/xx,h:=(ha*46)/xx
gui,show,x%x% y%y% w%w% h%h% ,TEST	
GuiControl,1: Focus,T1	
return
;--------------
Guiclose:
exitapp
;--------------
Month(thisMonth) {
		Month := strSplit("Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez",",")
		return Month[thisMonth]
}
;==============

4K- monitor

20231110150123_screenshot.jpg (73.9 KiB) Viewed 1367 times

FullHD - Monitor

FHD_GUI.jpg (33.47 KiB) Viewed 1342 times

[just me]

Moin,

ich glaube mich zu erinnern, dass es bei -DPIScale trotz allem Probleme mit den Fonts gibt. AHK meldet Windows, dass es in der Lage ist, selbständig auf die abweichende Skalierung zu reagieren. Windows übergibt aber wohl trotzdem zur Skalierung passende Fontgrößen. Möglicherweise muss man die angeforderten Fontgrößen mit dem Faktor 96 / BildschirmDPI anpassen.

[garry]

@just me danke ,

Möglicherweise muss man die angeforderten Fontgrößen mit dem Faktor 96 / BildschirmDPI anpassen.

wie muss ich dies für obigen Skript einsetzen ?

[just me]

Moin @garry,

der von AHK verwendete Standardfont hat bei 96 DPI eine Punktgröße von 8.5. Wenn es im GUI Controls gibt, die bisher mit dem Standardfont erstellt wurden, müsste man also davor ein

Code: Select all

DefFontSize := Round(8.5 * 96 / A_ScreenDPI, 1)
Gui, Font, s%DefFontfSize%

einfügen. Alle im Skript vorgegebenen Schriftgrößen müssten ebenso berechnet werden.

Ich habe das aber selbst nie gemacht.

[garry]

@just me danke , irgendwie hatte ich keinen Erfolg
dies scheint funktionieren, hier jetzt lediglich am 4K Monitor ...
EDIT : getestet auch am FullHD-Monitor / Skript oben angepasst
EDIT : habe festgestellt bei FullHD war der Font immer noch eine Nuance zu breit

viewtopic.php?p=39229#p39229 user Gurkentoepfer 2015-02-25

Code: Select all

	;-https://www.autohotkey.com/boards/viewtopic.php?p=39229#p39229  user Gurkentoepfer  2015-02-25
;=============================================================    
#Warn
#NoEnv
setworkingdir,%a_scriptdir%
Gui +AlwaysOnTop -DPIScale hwndGUIHWND 
;-
wa:=A_screenwidth,ha:=A_screenHeight,xx:=100
zoomfactor:=((A_ScreenWidth/1920)*(96/A_ScreenDPI))
;Fs10:= Round(10 * ZoomFactor, 0)
Fs10 :=(10*zoomfactor)
Fs16 :=(16*zoomfactor)
;=============================================================	
    Gui, Font, s%fs16% cMaroon Bold, Verdana
	;-
    x:=(wa*0)/xx,y:=(ha*1)/xx,w:=(wa*30)/xx  ;- w ist gui width  
    Gui, Add, text,x%x% y%y% w%w% vTextEdit1 hwndhTextEdit1 center section,% A_DDDD a_space A_DD "." Month(A_MM) "." a_YYYY "  " A_Hour ":" A_Min ":" A_Sec " Uhr" 
	;-

[effel]

Hallo @garry und @just me, vielen Dank!

Das sind Grundlagen womit ich sehr einfach mein Ziel erreichen kann

Wie komme ich an den Wert ( hier: 1920) des jeweiligen Rechners, Ich weiß jetzt nicht welche Auflösung z.B. der Rechner meiner Freundin hat. Kann man das vorher auslesen?

Code: Select all

    ZoomFactor := A_ScreenWidth/1920 * 96/A_ScreenDPI

Unbenannt.png (38.93 KiB) Viewed 1340 times

[garry]

habe im Skript oben die Rundung (round) entfernt , wäre evtl genauer ...
EDIT : habe festgestellt bei FullHD war der Font immer noch eine Nuance zu breit

Code: Select all

zoomfactor:=((A_ScreenWidth/1920)*(96/A_ScreenDPI))
;Fs10:= Round(10 * ZoomFactor, 0)
Fs10 :=(10*zoomfactor)
Fs16 :=(16*zoomfactor)
Gui, Font, s%fs16% cYellow Bold, Verdana  
;...

[just me]

Moin @effel,

als Festwert für die Skalierung nimmst Du die Bildschirmauflösung des Rechners, auf dem Du das Fensterlayout erstellst. A_ScreenWidth bzw. A_ScreenHeight liefern Dir dann die Auflösung des Rechners, auf dem die Anwendung läuft.

Ich arbeite hier auf einem Rechner mit einer Bildschirmauflösung 1920 * 1080 bei 96 DPI (100 %).

Die Skalierungsfaktoren wären dann:

Code: Select all

ScaleW := A_ScreenWidth / 1920 ; Breite
ScaleH := A_ScreenHeight / 1080 ; Höhe
ScaleF := 96 / A_ScreenDPI ; erforderlichenfalls Schriftgröße

Die Schriftgröße bestimmt übrigens vorrangig die Höhe des Fonts.

Vielleicht klappt das ja.

[effel]

Hallo, bisher hatte ich immer ein anderes aussehen meiner GUIs, wenn sie auf einem anderen Rechner liefen. Mit @garry s Methode eine GUI aufzubauen wurde diesem Manko ein Ende gesetzt.

Danke @just me & @garry das hat mir sehr geholfen

0036.png (70.24 KiB) Viewed 960 times

So sieht es auf dem Laptop aus

;doros rechner
;Name: \\.\DISPLAY1
;Position: (0|0)
;Size: 1366x768
;Is primary? Yes
;Name: \\.\DISPLAY2
;Position: (1366|0)
;Size: 1360x768
;Is primary? No

0036 -1.jpg (74.46 KiB) Viewed 960 times

Code: Select all

Gui +AlwaysOnTop -DPIScale hwndGUIHWND 
;-
wa:=A_screenwidth,ha:=A_screenHeight,xx:=100


zoomfactor:=((A_ScreenWidth/1920)*(96/A_ScreenDPI))
;Fs10:= Round(10 * ZoomFactor, 0)
Fs8 :=(8*zoomfactor)
Fs9 :=(9*zoomfactor)
Fs10 :=(10*zoomfactor)
Fs105 :=(10.5*zoomfactor)
Fs11 :=(11*zoomfactor)
Fs12 :=(12*zoomfactor)
Fs16 :=(16*zoomfactor)
;=============================================================	
	color=D4D0C8 
;	Gui,1:Color,Black,Black
;	Gui,1:Color,Gray,Black
	Gui,1:Color,Silver,Black
	Gui,1:add,text,x0 y0 vT1
	
;	Gui, Font, s%fs16% cYellow Bold, Verdana
Gui, Font, s%fs16% cBlack Bold, Verdana
	;-
    x:=(wa*0)/xx,y:=(ha*1)/xx,w:=(wa*30)/xx  ;- w ist gui width  
    Gui, Add, text,x%x% y%y% w%w% vTextEdit1 hwndhTextEdit1 center section,% A_DDDD a_space A_DD "." Month(A_MM) "." a_YYYY "  " A_Hour ":" A_Min ":" A_Sec " Uhr" ; timestamp
	;-
Gui, Font, s%fs11% normal,
    ;-
	x:=(wa*1.1)/xx,y:=(ha*5.2)/xx 
	Gui, Add, text, x%x% y%y%  , Trigger:
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*4.5)/xx,y:=(ha*5)/xx,w:=(wa*1.6)/xx,h:=(ha*2.2)/xx
	Gui, Add, edit, x%x% y%y% w%w% h%h% vSonnenEditStunden hwndhSsonnenEditStunden section cWhite center, 00
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*6.5)/xx,y:=(ha*5.2)/xx
	Gui, Add, text, x%x% y%y%, Stunden
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*10)/xx,y:=(ha*5)/xx,w:=(wa*1.6)/xx,h:=(ha*2.2)/xx
	Gui, Add, edit, x%x% y%y% w%w% h%h%  vSonnenEditMinuten hwndhSsonnenEditMinuten cWhite center, 02
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*12)/xx,y:=(ha*5.2)/xx
	Gui, Add, text, x%x% y%y% , Minuten
	;-
Gui, Font, s%fs11% normal,
    ;-
	x:=(wa*15.5)/xx,y:=(ha*5)/xx,w:=(wa*13.5)/xx
	Gui, Add, DropDownList, x%x% y%y% w%w% r15 section vddl1 choose1, %a_space%Trigger auswählen...		;		%Trigger auswählen...
								| vor Sonnenaufgang
								| nach Sonnenaufgang
								| vor Sonnenuntergang
								| nach Sonnenuntergang
								| nach MEZ > MESZ Wechsel
								| nach MESZ > MEZ Wechsel
								| nach Morgen 07 bis 11 Uhr
								| nach Vormittag 11:00 bis 13 Uhr
								| nach Mittag 13 bis 15 Uhr
								| nach Nachmittag 15 bis 18 Uhr
								| nach Abend 18 bis 22 Uhr
								| nach Nacht 22 bis 7 Uhr
								| nach Sturmwarnung
								| nach Pollenwarnung
    ;-								
	x:=(wa*1)/xx,	y:=(ha*8.5)/xx,	w:=(wa*28)/xx
	Gui, Add, DropDownList,x%x% y%y% w%w% vddl3 choose1,  %a_space%Trigger Datei auswählen...		;		Trigger Datei auswählen...
								| Öffnen...
								| Telegram Msg an Service
								| Telegram Msg an Bereitschaft
								| Lüftung Raum G einschalten
								| Lüftung Raum G ausschalten
								| Heizung einschalten
								| Heizung ausschalten
								| Heizung 21 Grad
								| Markiese Wohnzimmer einfahren
								| Markiese Wohnzimmer 50 `%
								| Markiese Wohnzimmer ausfahren
								| Jalousien Küche rauf
								| Jalousien Küche 50 `%
								| Jalousien Küche runter
								| Beleuchtung Hof Lampe 1B einschalten
								| Beleuchtung Hof Lampe 1B ausschalten
								| Steckdose xP-23 (Lager) einschalten
								| Steckdose xP-23 (Lager) ausschalten
								| Alarmanlage Zugang 1 aktivieren
								| Alarmanlage Zugang 1 ausschalten
	;-
Gui, Font, s%fs11% normal,											;		Wiederholen
	x:=(wa*1)/xx,	y:=(ha*12.1)/xx,	w:=(wa*28)/xx,	h:=(ha*4.8)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxA,  %a_Space%Wiederholen%a_Space%
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*1.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioEinmal hwndhRadioEinmal section , einmal
	x:=(wa*6)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioTäglich hwndhRadioTäglich checked , täglich
	x:=(wa*10.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioWöchendlich hwndhRadioWöchendlich , wöchendlich
	x:=(wa*17.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioMonatlich hwndhRadioMonatlich , monatlich
	x:=(wa*23.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioJährlich hwndhRadioJährlich , jährlich

Gui, Font, s%fs11% normal, 											;		Geplante Trigger:
	x:=(wa*1)/xx,	y:=(ha*21.1)/xx, 	w:=(wa*28)/xx,	h:=(ha*2.11)/xx										
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h% , %a_Space%Geplante Trigger:%a_Space%
Gui, Font, s%fs10% normal, 											;		Geplante Trigger:
	x:=(wa*22.5)/xx,	y:=(ha*18.0)/xx
	Gui, Add, button, x%x% y%y% vÜbernehmen hwndhÜbernehmen , Übernehmen					;		Übernehmen
	;-
; Gui, Font
; Gui, Font, normal
  Gui, Font, s%fs9% normal,											;		ListView1
;	color=D4D0C8 
	x:=(wa*1)/xx,	y:=(ha*23)/xx,	w:=(wa*28)/xx,	h:=(ha*20)/xx
	Gui, Add, listview, x%x% y%y% w%w% h%h%  vListView1 hwndhListView1 grid background%color% cBlack , HH|MM|Trigger|Trigger File
	T1:=(wa*2)/xx,T2:=(wa*2)/xx,T3:=(wa*6)/xx,T4:=(wa*16.5)/xx
    LV_ModifyCol(1,T1),LV_ModifyCol(2,T2),LV_ModifyCol(3,T3),LV_ModifyCol(4,T4)
; MainArray["nextScheduledAction"]
	;-



Gui, Font, s%fs11% normal,											;		Nächste geplante Aktion
	x:=(wa*1)/xx,	y:=(ha*46)/xx,	w:=(wa*28)/xx,	h:=(ha*4.2)/xx
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h%, %a_Space%Nächste System Aktion:%a_Space%
	x:=(wa*11)/xx,	y:=(ha*47.7)/xx,	w:=(wa*15)/xx,	h:=(ha*2.2)/xx
	Gui, Add, text, x%x% y%y% w%w% h%h%  vNächsteGeplanteAction gGeplanteTrigger , Trigger: Sonnenuntergang: 16:37 Uhr
;-	GuiControl,, NächsteGeplanteAction,% MainArray["nextScheduledAction"]


;-	
Gui, Font, s%fs11% normal,											;		LOG
	x:=(wa*1)/xx,	y:=(ha*56.5)/xx,	w:=(wa*28)/xx,	h:=(ha*2.11)/xx
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h% , %a_Space%Log:%a_Space%
Gui, Font, s%fs9% normal,							; 
	x:=(wa*1)/xx,	y:=(ha*58.5)/xx,	w:=(wa*28)/xx,	h:=(ha*20)/xx
	Gui, Add, listview, x%x% y%y% w%w% h%h%  vLV1 hwndhLV1 grid background%color% cBlack , Timestamp|ThisLabel|Name
	T1:=(wa*1.9)/xx,T2:=(wa*1.9)/xx,T3:=(wa*6)/xx    ; ,T4:=(wa*17)/xx
    LV_ModifyCol(1,T1),LV_ModifyCol(2,T2),LV_ModifyCol(3,T3)    ; ,LV_ModifyCol(4,T4)
;-	

Gui, Font, s%fs11% normal,
	x:=(wa*30)/xx,	y:=(ha*1)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxB,  %a_Space%Sonne%a_Space%
	x:=(wa*30)/xx,	y:=(ha*17)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxC,  %a_Space%Mond%a_Space%
	x:=(wa*30)/xx,	y:=(ha*33)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxD,  %a_Space%Wetter%a_Space%
	x:=(wa*30)/xx,	y:=(ha*49)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxE,  %a_Space%Umwelt%a_Space%
	;-
 x:=(wa*10)/xx,y:=(ha*10)/xx,w:=(wa*65)/xx,h:=(ha*80)/xx
 gui,show,x%x% y%y% w%w% h%h% ,TEST	
;GuiControl,1: Focus,T1			
GuiControl,1: Focus,LV1

return

Month(thisMonth) {
		Month := strSplit("Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez",",")
		return Month[thisMonth]
}

GeplanteTrigger:
;reload
msgbox,4096,% "Zeile:`t" a_lineNumber, Test geplanter Trigger, 4
return

[garry]

@effel hast Du eine Schnittstelle an USB um all diese Sachen zu steuern ... z.B. Steckdose ein/ausschalten etc ?
was macht 'Telegram' ?

Code: Select all

                                | Telegram Msg an Service
								| Telegram Msg an Bereitschaft
								| Lüftung Raum G einschalten
								| Lüftung Raum G ausschalten
								| Heizung einschalten
								| Heizung ausschalten
								| Heizung 21 Grad
								| Markiese Wohnzimmer einfahren
								| Markiese Wohnzimmer 50 `%
								| Markiese Wohnzimmer ausfahren
								| Jalousien Küche rauf
								| Jalousien Küche 50 `%
								| Jalousien Küche runter
								| Beleuchtung Hof Lampe 1B einschalten
								| Beleuchtung Hof Lampe 1B ausschalten
								| Steckdose xP-23 (Lager) einschalten
								| Steckdose xP-23 (Lager) ausschalten
								| Alarmanlage Zugang 1 aktivieren
								| Alarmanlage Zugang 1 ausschalten

[effel]

@effel hast Du eine Schnittstelle an USB um all diese Sachen zu steuern ... z.B. Steckdose ein/ausschalten etc ?
was macht 'Telegram' ?

Hallo @garry , nein ich habe keine Schnittstelle für die geplanten Aktionen, Es gibt aber für Alexa und Autohotkey Möglichkeiten zusammen zu arbeiten

Meine Google Recherche ergab:

https://www.google.com/search?q=site%3A ... e&ie=UTF-8

Es ist möglich, AutoHotkey zu verwenden, um Alexa zu steuern. Eine Möglichkeit besteht darin, den Windows-Client
von Triggercmd zu installieren und Alexa-Befehle als Schalter zu erstellen. Mit Hilfe von Drittprogrammen wie
AutoHotkey können Sie dann fast alles steuern, was auf Ihrem Computer ausgeführt wird 1. Hier ist eine Kurzanleitung,
die Ihnen helfen kann, Ihren PC mit Alexa zu steuern

Erstellen Sie einen Account bei Triggercmd

Aktivieren Sie den Skill “Triggercmd Smart Home” in Alexa

Installieren Sie den Windows-Client und geben Sie den Key ein, der in Ihrem Account hinterlegt ist

Nachdem Sie diese Schritte ausgeführt haben, können Sie Befehle erstellen, um Programme oder Parameter auszuführen.
Mit AutoHotkey können Sie dann fast alles steuern, was auf Ihrem Computer ausgeführt wird

Es gibt noch weitere Skills wie z.B die Möglichkeit an der FritzBox angemeldete Smart Home Geräte zu steuern.

Aber soweit bin ich noch lange nicht. Daher nutze ich das immer gleiche ScreenShot.ahk Script, um meine Trigger zu testen.

Den Trigger für eine Telegram Message kann man schon mit AHK umsetzen.

Zur Zeit übe ich mich mit dem Layout, welches mit deinen Berechnungsgrundlagen zum Kinderspiel wird. Es ist wie arbeiten auf Millimeterpapier.

0037.png (72.75 KiB) Viewed 818 times

Code: Select all

Gui +AlwaysOnTop -DPIScale hwndGUIHWND 
;-
wa:=A_screenwidth,ha:=A_screenHeight,xx:=100

/*
;doro
;Name: \\.\DISPLAY1
;Position: (0|0)
;Size: 1366x768
;Is primary? Yes
;Name: \\.\DISPLAY2
;Position: (1366|0)
;Size: 1360x768
;Is primary? No
*/

zoomfactor:=((A_ScreenWidth/1920)*(96/A_ScreenDPI))
;Fs10:= Round(10 * ZoomFactor, 0)
Fs8 :=(8*zoomfactor)
Fs9 :=(9*zoomfactor)
Fs10 :=(10*zoomfactor)
Fs105 :=(10.5*zoomfactor)
Fs11 :=(11*zoomfactor)
Fs12 :=(12*zoomfactor)
Fs16 :=(16*zoomfactor)
;=============================================================	
	color=D4D0C8 
;	Gui,1:Color,Black,Black
;	Gui,1:Color,Gray,Black
	Gui,1:Color,Silver,Black
	Gui,1:add,text,x0 y0 vT1
	
;	Gui, Font, s%fs16% cYellow Bold, Verdana
Gui, Font, s%fs16% cBlack Bold, Verdana
	;-
	ListViewEinUndAusblenden := 1
    x:=(wa*0)/xx,y:=(ha*1)/xx,w:=(wa*30)/xx  ;- w ist gui width  
;    Gui, Add, text,x%x% y%y% w%w% vTextEdit1 hwndhTextEdit1 center section gGeplanteTrigger ,% A_DDDD a_space A_DD "." Month(A_MM) "." a_YYYY "  " A_Hour ":" A_Min ":" A_Sec " Uhr" ; timestamp
     Gui, Add, text,x%x% y%y% w%w% vTextEdit1 hwndhTextEdit1 center section gListViewEinUndAusblenden  ,% A_DDDD a_space A_DD "." Month(A_MM) "." a_YYYY "  " A_Hour ":" A_Min ":" A_Sec " Uhr" ; timestamp
	;-
Gui, Font, s%fs11% normal,
    ;-
	x:=(wa*1.1)/xx,y:=(ha*5.2)/xx 
	Gui, Add, text, x%x% y%y%  , Trigger:
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*4.5)/xx,y:=(ha*5)/xx,w:=(wa*1.6)/xx,h:=(ha*2.2)/xx
	Gui, Add, edit, x%x% y%y% w%w% h%h% vSonnenEditStunden hwndhSsonnenEditStunden section cWhite center, 00
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*6.5)/xx,y:=(ha*5.2)/xx
	Gui, Add, text, x%x% y%y%, Stunden
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*10)/xx,y:=(ha*5)/xx,w:=(wa*1.6)/xx,h:=(ha*2.2)/xx
	Gui, Add, edit, x%x% y%y% w%w% h%h%  vSonnenEditMinuten hwndhSsonnenEditMinuten cWhite center, 02
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*12)/xx,y:=(ha*5.2)/xx
	Gui, Add, text, x%x% y%y% , Minuten
	;-
Gui, Font, s%fs11% normal,
    ;-
	x:=(wa*15.5)/xx,y:=(ha*5)/xx,w:=(wa*13.5)/xx
	Gui, Add, DropDownList, x%x% y%y% w%w% r15 section vddl1 choose1, %a_space%Trigger auswählen...		;		%Trigger auswählen...
								| vor Sonnenaufgang
								| nach Sonnenaufgang
								| vor Sonnenuntergang
								| nach Sonnenuntergang
								| nach MEZ > MESZ Wechsel
								| nach MESZ > MEZ Wechsel
								| nach Morgen 07 bis 11 Uhr
								| nach Vormittag 11:00 bis 13 Uhr
								| nach Mittag 13 bis 15 Uhr
								| nach Nachmittag 15 bis 18 Uhr
								| nach Abend 18 bis 22 Uhr
								| nach Nacht 22 bis 7 Uhr
								| nach Sturmwarnung
								| nach Pollenwarnung
    ;-								
	x:=(wa*1)/xx,	y:=(ha*8.5)/xx,	w:=(wa*28)/xx
	Gui, Add, DropDownList,x%x% y%y% w%w% vddl3 choose1,  %a_space%Trigger Datei auswählen...		;		Trigger Datei auswählen...
								| Öffnen...
								| Telegram Msg an Service
								| Telegram Msg an Bereitschaft
								| Lüftung Raum G einschalten
								| Lüftung Raum G ausschalten
								| Heizung einschalten
								| Heizung ausschalten
								| Heizung 21 Grad
								| Markiese Wohnzimmer einfahren
								| Markiese Wohnzimmer 50 `%
								| Markiese Wohnzimmer ausfahren
								| Jalousien Küche rauf
								| Jalousien Küche 50 `%
								| Jalousien Küche runter
								| Beleuchtung Hof Lampe 1B einschalten
								| Beleuchtung Hof Lampe 1B ausschalten
								| Steckdose xP-23 (Lager) einschalten
								| Steckdose xP-23 (Lager) ausschalten
								| Alarmanlage Zugang 1 aktivieren
								| Alarmanlage Zugang 1 ausschalten
	;-
Gui, Font, s%fs11% normal,											;		Wiederholen
	x:=(wa*1)/xx,	y:=(ha*12.1)/xx,	w:=(wa*28)/xx,	h:=(ha*4.8)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxA,  %a_Space%Wiederholen%a_Space%
	;-
Gui, Font, s%fs11% normal,
	x:=(wa*1.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioEinmal hwndhRadioEinmal section , einmal
	x:=(wa*6)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioTäglich hwndhRadioTäglich checked , täglich
	x:=(wa*10.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioWöchendlich hwndhRadioWöchendlich , wöchendlich
	x:=(wa*17.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioMonatlich hwndhRadioMonatlich , monatlich
	x:=(wa*23.5)/xx,y:=(ha*14.2)/xx
	Gui, Add, radio, x%x% y%y% vRadioJährlich hwndhRadioJährlich , jährlich


	color=Aqua
	color=Teal
	color=Silver
Gui, Font, s%fs11% normal, 											;		Geplante Trigger:
	x:=(wa*1)/xx,	y:=(ha*21.2)/xx, 	w:=(wa*28)/xx,	h:=(ha*2.0)/xx										
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h% vGroupBoxÜberListView1   background%color% cBlack  , %a_Space%Geplante Trigger:%a_Space% 	; 		GroupBox ÜberListView1
Gui, Font, s%fs10% normal, 											;		Geplante Trigger:
	x:=(wa*22.5)/xx,	y:=(ha*18.0)/xx
	Gui, Add, button, x%x% y%y% vÜbernehmen hwndhÜbernehmen , Übernehmen					;		Übernehmen
	;-
; Gui, Font
; Gui, Font, normal



Gui, Font, s%fs11% normal,											;		GroupBox unter trigger_listview
	x:=(wa*1)/xx,	y:=(ha*42.0)/xx,	w:=(wa*28)/xx,	h:=(ha*4.8)/xx
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h% vGroupBoxUnterListView1
  Gui, Font, s%fs9% normal,											;		ListView1
;	color=D4D0C8 
	x:=(wa*1)/xx,	y:=(ha*23)/xx,	w:=(wa*28)/xx,	h:=(ha*20)/xx
	Gui, Add, listview, x%x% y%y% w%w% h%h%  vListView1 hwndhListView1 grid background%color% cBlack   , HH|MM|Trigger|Trigger File
	T1:=(wa*2)/xx,T2:=(wa*2)/xx,T3:=(wa*6)/xx,T4:=(wa*16.5)/xx
    LV_ModifyCol(1,T1),LV_ModifyCol(2,T2),LV_ModifyCol(3,T3),LV_ModifyCol(4,T4)
; MainArray["nextScheduledAction"]
	;-

; ////////////////////////////////////////////////////////////////////////////////////	button mehr...
;	Gui,1: Add, GroupBox , 	vmehr ; Maß nehmen
	Gui,1: Add, button , 	vmehr Hidden		
	Gui,1: Font, s%fs10% normal
	x:=(wa*25.0)/xx	
			y:=(ha*43.5)/xx 
					w:=(wa*3.5)/xx
							h:=(ha*2.6)/xx
	GuiControl,1: MoveDraw, mehr, x%x% y%y% w%w% h%h% ;  default
	GuiControl,1:    Font, 			mehr
	GuiControl,1: ,  mehr, 		mehr...
	GuiControl,1:    show, 			mehr
;	GuiControl,1:    hide, 			mehr
;	GuiControl,1:    focus, 		mehr
	GuiControl,1:    disable, 		mehr
;	GuiControl,1:    enable, 		mehr
; ////////////////////////////////////////////////////////////////////////////////////	button Markierte Einträge im trigger_listview Löschen
;	Gui,1: Add, GroupBox , 	vMarkierteLöschen ; Maß nehmen
	Gui,1: Add, button , 	vMarkierteLöschen Hidden		
	Gui,1: Font, s%fs10% normal
	x:=(wa*17.1)/xx	
			y:=(ha*43.5)/xx 
					w:=(wa*7.6)/xx
							h:=(ha*2.6)/xx
	GuiControl,1: MoveDraw, MarkierteLöschen, x%x% y%y% w%w% h%h% ;  default
	GuiControl,1:    Font, 			MarkierteLöschen
	GuiControl,1: ,  MarkierteLöschen, 	Markierte löschen
	GuiControl,1:    show, 			MarkierteLöschen
;	GuiControl,1:    hide, 			MarkierteLöschen
;	GuiControl,1:    focus, 		MarkierteLöschen
;	GuiControl,1:    disable, 		MarkierteLöschen
;	GuiControl,1:    enable, 		MarkierteLöschen
; ////////////////////////////////////////////////////////////////////////////////////	button trigger_listview Liste exportieren
;	Gui,1: Add, GroupBox , 	vListeExportieren ; Maß nehmen
	Gui,1: Add, button , 	vListeExportieren Hidden		
	Gui,1: Font, s%fs10% normal
	x:=(wa*9.3)/xx	
			y:=(ha*43.5)/xx 
					w:=(wa*7.4)/xx
							h:=(ha*2.6)/xx
	GuiControl,1: MoveDraw, ListeExportieren, x%x% y%y% w%w% h%h% ;  default
	GuiControl,1:    Font, 			ListeExportieren
	GuiControl,1: ,  ListeExportieren, 	Liste exportieren
	GuiControl,1:    show, 			ListeExportieren
;	GuiControl,1:    hide, 			ListeExportieren
;	GuiControl,1:    focus, 		ListeExportieren
;	GuiControl,1:    disable, 		ListeExportieren
;	GuiControl,1:    enable, 		ListeExportieren
; ////////////////////////////////////////////////////////////////////////////////////	button Liste importieren
;	Gui,1: Add, GroupBox , 	vListeImportieren ; Maß nehmen
	Gui,1: Add, button , 	vListeImportieren Hidden		
	Gui,1: Font, s%fs10% normal
	x:=(wa*1.5)/xx,	
			y:=(ha*43.5)/xx  
					w:=(wa*7.4)/xx
							h:=(ha*2.6)/xx
	GuiControl,1: MoveDraw, ListeImportieren, x%x% y%y% w%w% h%h% ;  default
	GuiControl,1:    Font, 			ListeImportieren
	GuiControl,1: ,  ListeImportieren, 	Liste importieren
	GuiControl,1:    show, 			ListeImportieren
;	GuiControl,1:    hide, 			ListeImportieren
;	GuiControl,1:    focus, 		ListeImportieren
;	GuiControl,1:    disable, 		ListeImportieren
;	GuiControl,1:    enable, 		ListeImportieren
; ////////////////////////////////////////////////////////////////////////////////////
	;-

Gui, Font, s%fs11% normal,											;		Nächste System Aktion
	x:=(wa*1)/xx,	y:=(ha*47.5)/xx,	w:=(wa*28)/xx,	h:=(ha*4.2)/xx
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h% cBLUE,  %a_Space%Nächste System Aktion:%a_Space%
Gui, Font, s%fs11% normal,											;		Nächste System Aktion
	x:=(wa*2.5)/xx,	y:=(ha*49.5)/xx,	w:=(wa*26)/xx,	h:=(ha*2.2)/xx
	Gui, Add, text, x%x% y%y% w%w% h%h%  vNächsteGeplanteAction cBLUE 
;-	GuiControl,, NächsteGeplanteAction,% MainArray["nextScheduledAction"]


;-	
Gui, Font, s%fs11% normal,											;		LOG
	x:=(wa*1)/xx,	y:=(ha*52.8)/xx,	w:=(wa*28)/xx,	h:=(ha*2.11)/xx
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h% , %a_Space%Log:%a_Space%

;----------------------------------------------
Gui, Font, s%fs11% normal,											;		GroupBox unter LOGListview
	x:=(wa*1)/xx,	y:=(ha*73.7)/xx,	w:=(wa*28)/xx,	h:=(ha*4.8)/xx
	Gui, Add, GroupBox, x%x% y%y% w%w% h%h% vGroupBoxUnterLOGListview
;----------------------------------------------
; ////////////////////////////////////////////////////////////////////////////////////	button Log Liste Exportieren
;	Gui,1: Add, GroupBox , 	vLogListeExportieren ; Maß nehmen
	Gui,1: Add, button , 	vLogListeExportieren Hidden		
	Gui,1: Font, s%fs10% normal
	x:=(wa*19.5)/xx,	
			y:=(ha*75.2)/xx  
					w:=(wa*8.4)/xx
							h:=(ha*2.6)/xx
	GuiControl,1: MoveDraw, LogListeExportieren, x%x% y%y% w%w% h%h% ;  default
	GuiControl,1:    Font, 			LogListeExportieren
	GuiControl,1: ,  LogListeExportieren, 	Logdaten exportieren
	GuiControl,1:    show, 			LogListeExportieren
;	GuiControl,1:    hide, 			LogListeExportieren
;	GuiControl,1:    focus, 		LogListeExportieren
;	GuiControl,1:    disable, 		LogListeExportieren
;	GuiControl,1:    enable, 		LogListeExportieren
; ////////////////////////////////////////////////////////////////////////////////////
Gui, Font, s%fs9% normal,							; 
	x:=(wa*1)/xx,	y:=(ha*54.8)/xx,	w:=(wa*28)/xx,	h:=(ha*20)/xx
	Gui, Add, listview, x%x% y%y% w%w% h%h%  vLV1 hwndhLV1 grid background%color% cBlack  , Timestamp|ThisLabel|Name
	T1:=(wa*1.9)/xx,T2:=(wa*1.9)/xx,T3:=(wa*6)/xx    ; ,T4:=(wa*17)/xx
    LV_ModifyCol(1,T1),LV_ModifyCol(2,T2),LV_ModifyCol(3,T3)    ; ,LV_ModifyCol(4,T4)
;	GuiControl,1:    hide, 			LV1
; ////////////////////////////////////////////////////////////////////////////////////
;-	

Gui, Font, s%fs11% normal,
	x:=(wa*30)/xx,	y:=(ha*1)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxB,  %a_Space%Sonne%a_Space%
	x:=(wa*30)/xx,	y:=(ha*17)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxC,  %a_Space%Mond%a_Space%
	x:=(wa*30)/xx,	y:=(ha*33)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxD,  %a_Space%Wetter%a_Space%
	x:=(wa*30)/xx,	y:=(ha*49)/xx,	w:=(wa*34)/xx,	h:=(ha*15)/xx
	Gui, Add, GroupBox,x%x% y%y% w%w% h%h%  vGroupBoxE,  %a_Space%Umwelt%a_Space%
	;-
;----
; https://www.autohotkey.com/boards/viewtopic.php?p=39229#p39229
; Bildschirmbreite ermitteln, ZoomFaktor berechnen (100%=1920px)
; Berechnung der korrigierten Pixel als Variable Ln
loop, 2000
	L%A_Index% := Round(A_Index * ZoomFactor, 0)

WinGetPos, X, Y, Width, SysWinHoehe, ahk_class Shell_TrayWnd
hoehe := L1080 - SysWinHoehe

showGUIzweiFULL := 0
if showGUIzweiFULL
{
;Gui, 1: -Border
;gui,show, x0 y0 w%L1920% h%A_screenHeight% ,% strReplace((substr(a_scriptname,-11)),".ahk")
 gui,show, x0 y0 w%L1920% h%L1080% ,% strReplace((substr(a_scriptname,-11)),".ahk")
} else {
x:=(wa*29)/xx,y:=(ha*10)/xx,w:=(wa*65)/xx,h:=(ha*80)/xx
gui,show,x%x% y%y% w%w% h%h% ,% strReplace((substr(a_scriptname,-11)),".ahk")
}
GuiControl,1: Focus,LV1
return

guiclose:
exitapp
return

ListViewEinUndAusblenden: 								; 
gui, submit, nohide
;GuiControlGet, ListViewEinUndAusblenden
ListViewEinUndAusblenden := (ListViewEinUndAusblenden:=!ListViewEinUndAusblenden)
Return

Month(thisMonth) {
		Month := strSplit("Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez",",")
		return Month[thisMonth]
}

GeplanteTrigger:
;reload
msgbox,4096,% "Zeile:`t" a_lineNumber, Test geplanter Trigger, 4
return

[garry]

@effel danke für's Info und Skript
ich kann nicht mal mein Smartphone bedienen
am basic computer ( um 1982 ) konnte ich am parallel port LPT1 8 Relais ansteuern , da musste man noch Leitungen legen ...