da sind sie wieder meine vielen fehler und ich sehe nimmer durch hehe
zuerst der code für die steuerung...

Code:
'------------Thermometer Modul----------------------

define temp   as word    'Messwert (9 bit)
define TEMPHI as byte    'oberer Teil
define TEMPLO as byte    'unterer Teil
const  ADR = 158         '(9EH) Adresse=111, LSB=O=W

import "C:\DS1631_GENERIC.bas"

'-----------------------------------------------------

LCD.init                         'LCD wird hier bentzt
LCD.print  "READ DS1631 Temp"    
LCD.Off                          'Bus frei machen für IIC

'-----------------------------------------------------

DS1631RESET(ADR)                 'aus der Bibliothek
DS1631SET_STATUS(ADR,1)          'auslesen vorbereiten

'----------------------------------------------------- 

#LOOP
pause 5                          'Einstellzeit abwarten 

DS1631CONVERT(ADR)               'DA-Umsetzung starten
DS1631WAIT_READY(ADR)            'auf Bereitmeldung warten
TEMP=DS1631GET_TEMP(ADR)         'Messwert an Variable

LCD.init switchonly              'LCD reaktivieren
LCD pos 2,1                      'Cursor auf Zeile 2, Pos. 1
TEMP=TEMP shr 7                  'Messwert rechtsbündig
LCD.print "Temp: " & TEMP/2 & "." & (TEMP and 1) +5 & "C"
LCD.off                          'Bus wieder frei machen

goto LOOP
und nun die generic.bas

Code:
'DS1631_GENERIC.BAS 
'-------------------------- 
IIC.INIT 
config.init 
'-------------------------- 
'------ I/O PORTS --------- 
'-------------------------- 
define LIGHT port[16] 
'-------------------------- 
'---- SYSTEM MEMORY ------- 
'-------------------------- 
define TEMP as word 
define TEMPHI as byte 
define TEMPLO as byte 
DEFINE SDA AS PORT[9] 
DEFINE SCL AS PORT[10] 

SDA = ON 
SCL = ON 
IIC.init 
DEFINE pLED1 AS PORT[25] 
DEFINE pLED2 AS PORT[26] 
DEFINE pLED3 AS PORT[27] 
DEFINE pLED4 AS PORT[28] 
DEFINE pKuehlung AS PORT[29]                  'Kuehlung ein / aus 
DEFINE pSchuetz AS PORT[31]                   'Hauptschuetz Ein/Aus 
DEFINE pKlappenAussen AS PORT[32]             'Aussenklappen Ein/Aus 
DEFINE pHeizung AS PORT[73]                   'Heizung Ein/Aus 
DEFINE pWarmwasserAuf AS PORT[74]             'Heizung Ein/Aus 
DEFINE pWarmwasserZu AS PORT[75]              'Heizung Ein/Aus 
DEFINE pZuluftEin AS PORT[76]                 'Zuluft einschalten 80% 
DEFINE pZuluftHigh AS PORT[77]                'Zuluft maximal 100% 
DEFINE pAbluftEin AS PORT[78]                 'Abluft einschalten 80% 
DEFINE pAbluftHigh AS PORT[79]                'Abluft maximal 100% 
DEFINE pAbluftLow AS PORT[80]                 'Abluft drosseln 70% 

pLED1 =OFF 
pLED2 =OFF 
pLED3 =OFF 
pLED4 =OFF 
pHeizung =OFF 
pWarmwasserAuf =OFF 
pWarmwasserZu =OFF 
pZuluftEin =OFF 
pZuluftHigh =OFF 
pAbluftEin =OFF 
pAbluftHigh =OFF 
pAbluftLow =OFF
und nun die fehler welche ich bei meinem wissen nicht zuordnen kann, ich weis in der sache ist mein wissen nicht weit her ^^

Log File für C:\Programme\basicpp2006\compiler\cc.bas
9 Fehler.

"C:\DS1631_GENERIC.bas" 12: Bezeichner kann nicht verwendet werden oder ist mehrfach deklariert. (1)
"C:\DS1631_GENERIC.bas" 13: Bezeichner kann nicht verwendet werden oder ist mehrfach deklariert. (1)
"C:\DS1631_GENERIC.bas" 14: Bezeichner kann nicht verwendet werden oder ist mehrfach deklariert. (1)
"C:\Programme\basicpp2006\compiler\cc.bas" 18: Befehl oder Bezeichner unbekannt. (9)
"C:\Programme\basicpp2006\compiler\cc.bas" 19: Befehl oder Bezeichner unbekannt. (9)
"C:\Programme\basicpp2006\compiler\cc.bas" 26: Befehl oder Bezeichner unbekannt. (9)
"C:\Programme\basicpp2006\compiler\cc.bas" 27: Befehl oder Bezeichner unbekannt. (9)
"C:\Programme\basicpp2006\compiler\cc.bas" 28: Befehl oder Bezeichner unbekannt. (9)
"C:\Programme\basicpp2006\compiler\cc.bas" 31: Befehl oder Bezeichner unbekannt. (9)
habe dieses bsp. aus der eam ausgabe 14 seite 66