Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Zahle 50 Euro für ein funktionierendes Programm für 2 CControl Dimmer Kategorie: C-Control I V1.2/2.0 (von Bravo - 29.04.2006 18:38)
 Als Antwort auf Zahle 50 Euro für ein funktionierendes Programm für 2 CControl Dimmer von Stefan Tappertzhofen - 29.04.2006 1:23
Bravo nutzt:  CC1-Station V2.0
> 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

Bisherige Antworten:

Re: Zahle 50 Euro für ein funktionierendes Programm für 2 CControl Dimmer (von Stefan Tappertzhofen - 29.04.2006 18:48)
    Re: Zahle 50 Euro für ein funktionierendes Programm für 2 CControl Dimmer (von Bravo - 29.04.2006 19:08)
        Re: Zahle 50 Euro für ein funktionierendes Programm für 2 CControl Dimmer (von Stefan Tappertzhofen - 29.04.2006 19:16)
            Re: Zahle 50 Euro für ein funktionierendes Programm für 2 CControl Dimmer (von Bravo - 29.04.2006 19:30)
                Re: SCLUSS! Zahle 50 Euro für ein FUNKTIONIERENDES Programm für 2 CControl Dimmer (von Ingo - 29.04.2006 19:57)
                    Re: SCHLUSS! 2 CControl Dimmer LAUFEN ! Danke! (von Bravo - 29.04.2006 20:34)
                Re: Zahle 50 Euro für ein funktionierendes Programm für 2 CControl Dimmer (von Stefan Tappertzhofen - 29.04.2006 19:48)