INFO - FAQ - CC2-Forum - CCPro-Forum |
|
> Hallo, > > > Bitte per Mail erst kontaktieren. > > Nicht dass hier gleich 10 Leute Posten und bin 500 Euro los! > > poste doch erstmal Dein Programm, vielleicht sind es ja nur ein banale Fehler oder Mißverständnisse. Das hätte wohl mehr Lerneffekt ;) > > Eventuell solltest Du auch mal einen Blick in die BASIC++ Referenz werfen (sofern Du das bisher noch nicht gemacht hast). Dort findest Du beispielsweise mit der Suche unter "const" Informationen über Konstanten auch zum LCD Objekt erfährst Du dort mehr. > > Nicht zu vergessen wäre die BASIC++ Code Bibliothek. > > Mit welcher Version arbeitest Du eigentlich? > > Gruß, > > Stefan Danke Stefan! Also ich bin überhaupt nicht weit gekommen. Das Programm was ich bis jetzt geschrieben habe ( bzw zusammengeklaut habe) sieht so aus: 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 '-----------------stunde eingeben 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.off if (hour = 22) and (minute = 30) then ' hier soll der erste Dimmer eindimmen if (hour = 22) and (minute = 37) then ' hier soll der erste Dimmer ausdimmen if (hour = 22) and (minute = 31) then ' hier soll der zweite Dimmer eindimmen if (hour = 22) and (minute = 36) then ' hier soll der zweite Dimmer eindimmen. 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) TEMP=TEMP SHR 7 if (TEMP and 0100h) = 0100h then TEMP=(TEMP or FE00h) lcd.init LCD.POS 1,1 SHOW_TIME() LCD.pos 2,1 LCD.PRINT "T1:" & TEMP/2 & "." & (TEMP and 1)*5 & "C" LCD.pos 2,9 LCD.PRINT "T2:" & TEMP/2 & "." & (TEMP and 1)*5 & "C" pause 10 goto LOOP attributes ccproject ccproject end attributes Das Dimmerprogramm ist ein DEMO von Conrad und funktioniert nicht unter B++ nicht. Unter CCB funktioniert , abrer ich kann NUR mit RESET taste dimmen weil ich keine F1,F2,F3,F4 Tasten habe. Es sieht so aus : ' I/O PORTS define light port [3] ' FUNCTION KEYS define FUNCTION1 port [9] define FUNCTION2 port [10] define FUNCTION3 port [11] define FUNCTION4 port [12] ' SYSTEM MEMORY define dimmer byte [1] define value byte [2] ' INITIALISIERUNG light=off ' – PROGRAMM START – dimmer=1:sys&H101 #start if function1=off then goto decrement_dim if function2=off then goto increment_dim 'if function3=off then goto light_on 'if function4=off then goto light_off goto start #decrement_dim dimmer=dimmer-1 value=dimmer goto start #increment_dim dimmer=dimmer+1 value=dimmer goto start #light_on dimmer=dimmer+1:goto start #light_off dimmer=dimmer-1:goto start syscode &HA6 &H06 &HB7 &H52 &H81 &HB6 &HA1 &H14 &H01 &H4A &H26 &HFD &H15 &H01 &HA6 &H01 &H81 mfg Bravo |
Antwort schreiben |