  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Vielleicht kann jemand von Euch nachgucken was hier schiefgegengen ist. Am Display wird weder Datum noch Temperatur angezeigt. wo klemmts ? define LIGHT port[16] define TEMP as word define TEMPHI as byte define TEMPLO as byte const DS1631=158 'Adresse define ADC8 ad[8] define SDA port[9] define SCL port[10] define OLDSEC byte[1] define EXTPORT byteport[4] define REL1 port [29] define REL2 port [30] define REL3 port [31] define REL4 port [32] ' import "c:\LIB\GET_KEY.BAS" import "c:\LIB\GET_VALUE.BAS" import "c:\LIB\Show_Time.BAS" import "c:\LIB\DS1631_GENERIC.BAS" #INIT LIGHT=off SDA=on SCL=on EXTPORT=OFF define INVALUE as word define INVALUE1 as word LIGHT=off '----------------zeit Stellen LCD.INIT LCD.PRINT "TERRA-C v1.0" pause 100 lcd.clear LCD.PRINT "UHR STELLEN" pause 100 lcd.clear LCD.PRINT "STUNDE STELLEN " INVALUE=GET_VALUE() hour = INVALUE pause 10 LCD.Clear LCD.PRINT "MINUTE STELLEN" INVALUE1=GET_VALUE() minute = INVALUE1 lcd.clear DS1631RESET(DS1631) DS1631SET_STATUS(DS1631,1) #LOOP LCD.POS 1,1 SHOW_TIME() if (hour = 22) and (minute = 30) then REL1 = ON ' if (hour = 22) and (minute = 37) then REL1 = OFF if (hour = 22) and (minute = 31) then REL2 = ON if (hour = 22) and (minute = 36) then REL2 = OFF if (hour = 22) and (minute = 32) then REL3 = ON if (hour = 22) and (minute = 35) then REL3 = OFF if (hour = 22) and (minute = 33) then REL4 = ON if (hour = 22) and (minute = 34) then REL4 = OFF DS1631CONVERT(DS1631) DS1631WAIT_READY(DS1631) TEMP=DS1631GET_TEMP(DS1631) LCD.POS 2,1 TEMP=TEMP SHR 7 if (TEMP and 0100h) = 0100h then TEMP=(TEMP or FE00h) LCD.PRINT "TEMP: " & TEMP/2 & "." & (TEMP and 1)*5 & " C" goto LOOP attributes ccproject ccproject end attributes Danke mfg Bravo |
| Antwort schreiben |
Re: LCD zeigt NIX an - Wieso? (von Stefan Süßmann - 26.04.2006 12:13)Re: LCD zeigt NIX an - Wieso? (von Bravo - 26.04.2006 20:32)