Einfügen in euer Hauptmenu.
Darauf achten das ihr mit den Nummern hinkommt
;-------------------------------
; Makro Nummern
MnPowerOn = 0
MnClrReturn2HauptMenu = 1
MnMakeZifBlock = 10
;-------------------------------
; Touch-Makro Nummern Konstanten
TmCodefalse = 39
TmTastenfeld = 130
TmTouchZif0 = TmTastenfeld+1
TmTouchZif1 = TmTastenfeld+2
TmTouchZif2 = TmTastenfeld+3
TmTouchZif3 = TmTastenfeld+4
TmTouchZif4 = TmTastenfeld+5
TmTouchZif5 = TmTastenfeld+6
TmTouchZif6 = TmTastenfeld+7
TmTouchZif7 = TmTastenfeld+8
TmTouchZif8 = TmTastenfeld+9
TmTouchZif9 = TmTastenfeld+10
TmTouchZif10 = TmTastenfeld+11
TmTouchZif11 = TmTastenfeld+12
TM Code kmi.
Auch hier auf die Internen Code achten und anpassen. Desweiteren kann man das Aussehen der Taster usw ändern. Sollte euch bekannt sein. Zum weiteren bezeichnen der einzelnen Funktionen bin ich noch nicht gekommen, also backt es euch Steht ja alle in der Doku.
TouchMakro: TmTastenfeld
#MN MnClrReturn2HauptMenu
x1=0
y1=0
x2=120
y2=60
#ZF GENEVA10
#ZL 11,5, "Alarm Ein/Ausschalten"
#ZL 11,20,"Bitte Code eingeben und|mit '#' bestätigen"
#RR x1+10,y1+45,x2,y2, 9
#AF GENEVA10
#AU x1+5,y1+110,ButArrow,TmHauptMenu,0,"CAbbrechen"
#RR x1+135,y1,x2+119,y2+67, 15
#ZV REPLACE
;#AI EIN
#AE 12
#MN MnMakeZifBlock
;----------------------------------------------------------------------------
Touchmakro: TmCodefalse
x1=0
y1=0
x2=120
y2=100
#RR x1+10,y1+70,x2,y2, 9
#ZL 15,73,"~Der eingegebene Code|ist falsch~"
#AF GENEVA10
#AU x1+70,y1+110,ButArrow,0,TmTastenfeld,"CWiederholen"
;===========================================================
ZIFX = 60
ZIFY = 48
TouchMakro: TmTouchZif0
#ZL ZIFX,ZIFY,'0'
#SB 48
TouchMakro: TmTouchZif1
#ZL ZIFX,ZIFY,'1'
#SB 49
TouchMakro: TmTouchZif2
#ZL ZIFX,ZIFY,'2'
#SB 50
TouchMakro: TmTouchZif3
#ZL ZIFX,ZIFY,'3'
#SB 51
TouchMakro: TmTouchZif4
#ZL ZIFX,ZIFY,'4'
#SB 52
TouchMakro: TmTouchZif5
#ZL ZIFX,ZIFY,'5'
#SB 53
TouchMakro: TmTouchZif6
#ZL ZIFX,ZIFY,'6'
#SB 54
TouchMakro: TmTouchZif7
#ZL ZIFX,ZIFY,'7'
#SB 55
TouchMakro: TmTouchZif8
#ZL ZIFX,ZIFY,'8'
#SB 56
TouchMakro: TmTouchZif9
#ZL ZIFX,ZIFY,'9'
#SB 57
TouchMakro: TmTouchZif10
#ZL ZIFX,ZIFY,' '
TouchMakro: TmTouchZif11
#SB 69;E
;----------------------------------------------------------------------------
Makro: MnMakeZifBlock
#AF CHICAGO14
ZBB = 30
ZBH = 28
ZBA = 4
ZBX = 230 - 3*ZBB + ZBA
ZBY = 9
#AT ZBX+0*ZBB, ZBY+0*ZBH, ZBX+1*ZBB-ZBA, ZBY+1*ZBH-ZBA, TmTouchZif1, 0, "1"
#AT ZBX+1*ZBB, ZBY+0*ZBH, ZBX+2*ZBB-ZBA, ZBY+1*ZBH-ZBA, TmTouchZif2, 0, "2"
#AT ZBX+2*ZBB, ZBY+0*ZBH, ZBX+3*ZBB-ZBA, ZBY+1*ZBH-ZBA, TmTouchZif3, 0, "3"
#AT ZBX+0*ZBB, ZBY+1*ZBH, ZBX+1*ZBB-ZBA, ZBY+2*ZBH-ZBA, TmTouchZif4, 0, "4"
#AT ZBX+1*ZBB, ZBY+1*ZBH, ZBX+2*ZBB-ZBA, ZBY+2*ZBH-ZBA, TmTouchZif5, 0, "5"
#AT ZBX+2*ZBB, ZBY+1*ZBH, ZBX+3*ZBB-ZBA, ZBY+2*ZBH-ZBA, TmTouchZif6, 0, "6"
#AT ZBX+0*ZBB, ZBY+2*ZBH, ZBX+1*ZBB-ZBA, ZBY+3*ZBH-ZBA, TmTouchZif7, 0, "7"
#AT ZBX+1*ZBB, ZBY+2*ZBH, ZBX+2*ZBB-ZBA, ZBY+3*ZBH-ZBA, TmTouchZif8, 0, "8"
#AT ZBX+2*ZBB, ZBY+2*ZBH, ZBX+3*ZBB-ZBA, ZBY+3*ZBH-ZBA, TmTouchZif9, 0, "9"
#AT ZBX+0*ZBB, ZBY+3*ZBH, ZBX+1*ZBB-ZBA, ZBY+4*ZBH-ZBA, TmTouchZif10, 0, "clr"
#AT ZBX+1*ZBB, ZBY+3*ZBH, ZBX+2*ZBB-ZBA, ZBY+4*ZBH-ZBA, TmTouchZif0, 0, "0"
#AT ZBX+2*ZBB, ZBY+3*ZBH, ZBX+3*ZBB-ZBA, ZBY+4*ZBH-ZBA, TmTouchZif11, 0, "#"
Über eine kleine Stellungsnahme eurerseits wäre ich Dankbar. Eventuell kann ich ja dann weiterhelfen wenn wo, was nicht geht.
Edit: hat wohl ein bischen die Formatierung verloren