so sieht es aus im Hauptmenü
eDIP240-7 „IPS“ ; define eDIP240-7, „Projectname“ max. 30 character
;Action ; start simulation
COM5: 115200 ; program eDIP on COMx with 115200 Baud
;USB: „eDIP Programmer“ ; use EA 9777-1USB eDIP Programmer (only Windows 2000/XP)
; using USB under WIN98/ME search for COM port (Control Panel/Gerätemanager)
;VERIFY ; verify after program
;------------------------------------------------------------------------------
include <Fonts.kmi>
include <Bilder.kmi>
;------------------------------------------------------------------------------
; Charactercodes für Zeichenketten definieren
‚€‘ = 128
‚äöüÄÖÜß‘ = $84,$94,$81, $8E,$99,$9A, $E1
‚°‘ = 248
‚²‘ = 253
‚ä‘ = 132
;------------------------------------------------------------------------------
; allg. Konstanten definieren
ESC = 27
CR = 13
LF = 10
FF = 12
AUS = 0
EIN = 1
XMAX = 240
YMAX = 128
; Verknüpfungsmodi
SET = 1
DELETE = 2
INVERS = 3
REPLACE = 4
INVREPL = 5
; Blinkmodi
NOBLINK = 0
BLINKONOFF = 1
BLINKINVERS = 2
;-------------------------------
; Makro Nummern
MnPowerOn = 0
MnClrReturn2HauptMenu = 1
MnAlarm = 2
;-------------------------------
; Touch-Makro Nummern Konstanten
TmHauptMenu = 1
TmWetter = 20
TmHeizung = 21
TmWohnen = 22
TmKueche = 23
TmBuero = 24
TmBad = 25
TmAnkleide = 26
TmBatterien = 28
TmGarten = 29
;=============================================================================
include <TmWetter.kmi>
include <TmHeizung.kmi>
;=============================================================================
PowerOnMakro: ; wird nach dem Einschalten ausgeführt
#MN MnPowerOn
ResetMakro: ; wird nach einem externen Reset ausgeführt
#MN MnPowerOn
WatchdogMakro: ; wird nach einem Fehlerfall/Timeout >500ms ausgeführt
#MN MnPowerOn
BrownOutMakro: ; wird nach einem Spannungseinbruch <4V ausgeführt
#MN MnPowerOn
;=============================================================================
MAKRO: MnPowerOn ; Power-On/Reset Makro
#TA ; Terminal aus
#MT TmHauptMenu ; Hauptmenu anzeigen
;-------------------------------
MAKRO: MnClrReturn2HauptMenu
#DL
#AL 0,0
#AE 13
#AF GENEVA10
#AT 179,0,239,16,77,0, „Hauptmenü“
;===============================================================================
TouchMakro: TmHauptMenu
#DL
#AI AUS ; Touch Invertieren aus
#AS Aus ; Summer ein
#AL 0,0
#ZB AUS
#ZW 0
#ZF CHICAGO14
#ZZ 1,1
#UV REPLACE
;#UI 0,0,BmpIPS
#UB BLINKONOFF
#UV INVERS
#UB NOBLINK
;======================================================================================
x1=54
y1=18
x2=185
y2=126
#AT x1,y1,x2,y2,69,0
#GR x1,y1,x2,y2
#ZF Chicago14
#ZV SET
#ZC (x2-x1)-10,y1+1,"Aktuell"
#RI x1,y1,x2,y1+13
#GR x1,y1+13,x2,y1+13
#ZF Geneva10
#ZL (x2-x1)-73,y1+15,"Temperatur"
#ZR (x2-x1)+45,y1+15,"Grad"
#ZL (x2-x1)-73,y1+25,"Luftfeuchte"
#ZR (x2-x1)+45,y1+25,"Proz"
#ZL (x2-x1)-73,y1+35,"Wind"
#ZR (x2-x1)+50,y1+35,"Km/h"
#ZL (x2-x1)-73,y1+45,"Regen/Tag"
#ZR (x2-x1)+50,y1+45,"L/qm"
#ZF Chicago14
#ZV SET
#ZC (x2-x1)-10,y1+56,"Meldungen"
#RI x1,y1+57,x2,y1+70
#GR x1,y1+57,x2,y1+70
#ZF Geneva10
#ZL (x2-x1)-73,y1+73,"Alarm"
#ZL (x2-x1)-73,y1+85,
#ZL (x2-x1)-73,y1+97,
;=========================================================================================
x=0
y=20
h=18
#AF Geneva10
#AU x,y,ButRegLeft,87,0,"C Wetter"
y=y+h
#AU x,y,ButRegLeft,72,0,„C Heizung“
y=y+h
#AU x,y,ButRegLeft,79,0,„C Wohnen“
y=y+h
#AU x,y,ButRegLeft,75,0,„C Küche“
y=y+h
#AU x,y,ButRegLeft,82,0,„C Büro“
y=y+h
#AU x,y,ButRegLeft,68,0,„C Bad“
;-------------------------------------------------------------------------------------------
x=185
y=20
h=18
#AF Geneva10
#AU x,y,ButRegRight,78,0,„L Ankleide“
y=y+h
#AU x,y,ButRegRight,71,0,„L Garten“
y=y+h
#AU x,y,ButRegRight,66,0,„L Batterien“
y=y+h
#AU x,y,ButRegRight,49,0,„L Alarm E“
y=y+h
#AJ x,y,ButRegRight,48,0,„L Alarm A“
y=y+h
#AU x,y,ButRegRight,81,0,„L Quittieren“
;-----------------------------------------------------------------------------------