| Ich nutze: C-Control II Unit, eigenes Board, OSOPT_V2, OSOPT V3.0 |
> > >
> > Die Initialiesierung wird natürlich nur beim Programstart durchlaufen
> > und nicht mehr auf gerufen
> > > > swcom.init(); swcom.setspeed(5);
> > > >
> > > >
> > >
> > > Poste mal noch etwas mehr Quellcode.>
> > > Rene
>
> Hallo krassos
Hier ein Teil des Programmes
//--------------------------------
thread main
//---------------------------------
{
// Programmstart
for L=0...7
{
data[L]=0; Zyklus[L]=0;
}
A=0; D=0; L=0; W=200; Zz=0; Count=0; Relais=0;
Impuls=0;
// 76543210
Viedeounit=0b11001100;
// Baudrate einstellen, Standardeinstellung 9600 Baud
hwcom.init(); hwcom.setspeed(5);
swcom.init(); swcom.setspeed(5);
plm.settimebase(0,7); plm.setmode(0,0); plm.setperiod(0,100);
plm.settimebase(1,7); plm.setmode(1,0); plm.setperiod(1,100);
// relas treiber 0= relais ein
// 1= relais aus
pcf.out(7,255);
//
EEPOT = eeprom2k.readint(0, 10);
PWM0 = eeprom2k.readint(0, 20);
PWM1 = eeprom2k.readint(0, 30);
Menue = eeprom2k.readint(0, 40);
if EEPOT<=100 or EEPOT>=250
{
EEPOT=182; // bei 25 C
}
//CAN-Bustiming 500 kB/s
can.init(4,0x07FF,0x0000);
// 5 V Nertzteil für LCDKeys
// 0=6,3 Volt 255=4.5 Volt
i2c.e_pot(0,0,EEPOT);
// PLM 0 = digitalausgang für TFT Displays 5 V Pegel
// 0=aus 100=ein
plm.out(0,PWM0);
// PLM 1 = Instromenten Dimmer 12-14 V Pegel
// 0=aus 100=ein
plm.out(1,PWM1);
s="00";
STK_P(0, s); STK_P(3, s); STK_PA(4, s, 0); STK_PA(7, s, 0);
s="32";
STK_P(1, s); STK_PA(5, s, 18);
s="33";
STK_P(2, s); STK_PA(6, s, 18);
hwcom.put(12);
run Blink;
run Hold;
//---------------------------------------------------------------
// CAN ModulStarten
// ports.deactb(0);
if ports.get(5)==0 // Modul Starter
{
X=modulreset();
if X==0
{
plm.beep(15);sleep 250; plm.beep(-1);sleep 100;
modulstart();
}
else // Fehler
{
plm.beep(10);sleep 1000; plm.beep(-1);sleep 100;
}
}
plm.beep(15);sleep 250; plm.beep(-1);sleep 100;
plm.beep(15);sleep 250; plm.beep(-1);sleep 100;
if ports.get(7)==0 // ausgabe über Serrielleschnitstelle SW4 uf on
{
s= "Basismodul V 26.10.2004 c";
hwcom.send(s, str.length(s));
hwcom.put(10);//curser runter
hwcom.put(13);//zeile anfang
sleep 50;
s="Kanal :";
hwcom.send(s, str.length(s));
for L=0...4
{
hwcom.put(48+L); for M=0...2 hwcom.put(32);
}
s="Relais E_P "; hwcom.send(s, str.length(s)); sleep 20;
s="Joystik Spannung"; hwcom.send(s, str.length(s)); sleep 20;
s=" Temp"; hwcom.send(s, str.length(s));
hwcom.put(10);//curser runter
hwcom.put(13);//zeile anfang return
}
run SCAN_SEND;
// Warten auf Zündung oder KL S für Systemstart
// Solannge wird Intro angezeigt
E1=pcf.in(0);
if (E1 and 3)!=0
{
for L=0...300
{
if (pcf.in(0) and 3) != 3 break;
sleep 100;
}
}
// Löeschen
s="00";
for L=0...3
{
STK_P(L, s);
}
// Letzte Einstellung aufrufen
Viedeounit=VTabelle(Menue);
MenueKey(Menue);
//---------------------------------------------------------------
/// Haubtprogramm
loop
{
// I2c Bus Abfrage (0-4) PCF8574
Relais=0;
EE=0;
E1=pcf.in(0);
E2=pcf.in(1);
E3=pcf.in(2);
E4=pcf.in(3);
E5=pcf.in(4);
Das ganze Programm zu senden währe zu komplex
Der erste Teil wird nur zum Start der Systeme benötigt
Swcom steuert die Kontrolleuchtenunit
Antwort schreiben
Antworten:
wo ist swcom (von reneforster - 15.11.2004 21:39)Re: wo ist swcom (von Dieter Kalkofen - 18.11.2004 19:08)Re: wo ist swcom (von André H. - 19.11.2004 12:46)Re: wo ist swcom (von Dieter Kalkofen - 21.11.2004 19:39)Re: wo ist swcom (von reneforster - 18.11.2004 22:01)