Crestron Forum

Игорь K. там листинг программы в читабельном виде:

Скрытый текст

PROGRAM_NAME='sauna'

define_constant

devchan SaunaIn_D0 = { dvIO16_ShASK_1 , 16};
devchan SaunaIn_D1 = { dvIO16_ShASK_1 , 15};
devchan SaunaIn_D2 = { dvIO16_ShASK_1 , 14};
devchan SaunaIn_D3 = { dvIO16_ShASK_1 , 13};

devchan SaunaOut_D0 = { vdvLicon , 156};
devchan SaunaOut_D1 = { vdvLicon , 155};
devchan SaunaOut_D2 = { vdvLicon , 154};
devchan SaunaOut_D3 = { vdvLicon , 153};
devchan SaunaVin = { vdvLicon , 100};

integer SaunaBtns [] =
{
2500,
2501,
2502,
2503,
2504,
2505,
2506,
2507,
2508,
2509
}

define_variable

integer sauna_temp = 0;
sinteger test_val=0;
integer SaunaFlag[20];
integer Rej = 0;
non_volatile integer SaunaIn_0_StVar = 0;
non_volatile integer SaunaIn_1_StVar = 0;
non_volatile integer SaunaIn_2_StVar = 0;
non_volatile integer SaunaIn_3_StVar = 0;

define_call 'Sauna_States'
{
if(SaunaIn_0_StVar == 1)
{
on [SaunaOut_D0];
}
else
{
off [SaunaOut_D0];
}
if(SaunaIn_1_StVar == 1)
{
on [SaunaOut_D1];
}
else
{
off [SaunaOut_D1];
}
if(SaunaIn_2_StVar == 1)
{
on [SaunaOut_D2];
}
else
{
off [SaunaOut_D2];
}
if(SaunaIn_3_StVar == 1)
{
on [SaunaOut_D3];
}
else
{
off [SaunaOut_D3];
}
}

define_start
Combine_Channels (SaunaVin, dv_panel, 2508);

define_event

button_event [SaunaIn_D0]
{
push:
{
on [SaunaOut_D0];
SaunaIn_0_StVar = 1;
call 'Sauna_States';
}
release:
{
off [SaunaOut_D0];
SaunaIn_0_StVar = 0;
call 'Sauna_States';
}

}

button_event [SaunaIn_D1]
{
push:
{
on [SaunaOut_D1];
SaunaIn_1_StVar = 1;
call 'Sauna_States';
}
release:
{
off [SaunaOut_D1];
SaunaIn_1_StVar = 0;
call 'Sauna_States';
}
}

button_event [SaunaIn_D2]
{
push:
{
on [SaunaOut_D2];
SaunaIn_2_StVar = 1;
call 'Sauna_States';
}
release:
{
off [SaunaOut_D2];
SaunaIn_2_StVar = 0;
call 'Sauna_States';
}
}

button_event [SaunaIn_D3]
{
push:
{
on [SaunaOut_D3];
SaunaIn_3_StVar = 1;
call 'Sauna_States';
}
release:
{
off [SaunaOut_D3];
SaunaIn_3_StVar = 0;
call 'Sauna_States';
}
}

LEVEL_EVENT [dlTemperature2]
{
if(LEVEL.VALUE != 9990)
{
sauna_temp = Level.Value;
send_string dvBitWise, "'2509="', TemperatureToStr(Level.Value),'C','"',13";
SendTextToPanel(dv_panel, 2509, "TemperatureToStr(Level.Value),'C'");
//send_command dv_panel,"'^TXT-41,0,', TemperatureToStr(Level.Value),'C'";
}
}
level_event [dlTemperature6]
{
if(LEVEL.VALUE != 9990)
{
test_val = Level.Value;
}
}

button_event [dv_panel, 2500]
button_event [vdvBitWise, 2500]
{
push:
{
on [SaunaOut_D2];
off [SaunaOut_D0];
off [SaunaOut_D1];
wait 9000 'SaunaPusk 15'
{

switch(Rej)
{
case 1:
{
on [SaunaOut_D0];
}
case 2:
{
on [SaunaOut_D1];
}
case 3:
{
on [SaunaOut_D0];
on [SaunaOut_D1];
}
}
off [SaunaOut_D2];
}
}
}

button_event [dv_panel, 2505]
button_event [vdvBitWise, 2505]
{
push:
{
on [SaunaOut_D2];
off [SaunaOut_D0];
off [SaunaOut_D1];
wait 18000 'SaunaPusk 30'
{

switch(Rej)
{
case 1:
{
on [SaunaOut_D0];
}
case 2:
{
on [SaunaOut_D1];
}
case 3:
{
on [SaunaOut_D0];
on [SaunaOut_D1];
}
}
off [SaunaOut_D2];
}
}
}

button_event [dv_panel, 2506]
button_event [vdvBitWise, 2506]
{
push:
{
on [SaunaOut_D2];
off [SaunaOut_D0];
off [SaunaOut_D1];
wait 36000 'SaunaPusk 60'
{

switch(Rej)
{
case 1:
{
on [SaunaOut_D0];
}
case 2:
{
on [SaunaOut_D1];
}
case 3:
{
on [SaunaOut_D0];
on [SaunaOut_D1];
}
}
off [SaunaOut_D2];
}
}
}

button_event [dv_panel, 2507]
button_event [vdvBitWise, 2507]
{
push:
{
off [SaunaOut_D2];
cancel_wait 'SaunaPusk 15';
cancel_wait 'SaunaPusk 30';
cancel_wait 'SaunaPusk 60';

switch(Rej)
{
case 1:
{
on [SaunaOut_D0];
}
case 2:
{
on [SaunaOut_D1];
}
case 3:
{
on [SaunaOut_D0];
on [SaunaOut_D1];
}
}
}
}

button_event [dv_panel, 2501]
button_event [vdvBitWise, 2501]
{
push:
{
Rej = 1;
on [SaunaOut_D0];
off [SaunaOut_D1];
off [SaunaOut_D2];
on [dv_panel, 2501];
off [dv_panel, 2502];
off [dv_panel, 2503];
BitWiseChanelSet( 2501, 1 );
BitWiseChanelSet( 2502, 0 );
BitWiseChanelSet( 2503, 0 );

}
}
button_event [dv_panel, 2502]
button_event [vdvBitWise, 2502]
{
push:
{
Rej = 2;
off [dv_panel, 2501];
on [dv_panel, 2502];
off [dv_panel, 2503];
off [SaunaOut_D0];
on [SaunaOut_D1];
off [SaunaOut_D2];
BitWiseChanelSet( 2501, 0 );
BitWiseChanelSet( 2502, 1 );
BitWiseChanelSet( 2503, 0 );
}
}
button_event [dv_panel, 2503]
button_event [vdvBitWise, 2503]
{
push:
{
Rej = 3
off [dv_panel, 2501];
off [dv_panel, 2502];
on [dv_panel, 2503];
on [SaunaOut_D0];
on [SaunaOut_D1];
off [SaunaOut_D2];
BitWiseChanelSet( 2501, 0 );
BitWiseChanelSet( 2502, 0 );
BitWiseChanelSet( 2503, 1 );
}
}
button_event [vdvBitWise, 2504]
{
push:
{
switch(Rej)
{
case 1:
{
BitWiseChanelSet( 2501, 1 );
BitWiseChanelSet( 2502, 0 );
BitWiseChanelSet( 2503, 0 );
break;
}
case 2:
{
BitWiseChanelSet( 2501, 0 );
BitWiseChanelSet( 2502, 1 );
BitWiseChanelSet( 2503, 0 );
break;
}
case 3:
{
BitWiseChanelSet( 2501, 0 );
BitWiseChanelSet( 2502, 0 );
BitWiseChanelSet( 2503, 1 );
break;
}
}
if([SaunaVin])
{
BitWiseChanelSet( 2508, 1 );
}
else
{
BitWiseChanelSet( 2508, 0 );
}
send_string dvBitWise, "'2509="', TemperatureToStr(sauna_temp),'C','"',13";

}
}

button_event [dv_panel, 2508]
button_event [vdvBitWise, 2508]
{
push:
{
Rej = 0;
BitWiseChanelSet( 2501, 0 );
BitWiseChanelSet( 2502, 0 );
BitWiseChanelSet( 2503, 0 );
off [dv_panel, 2501];
off [dv_panel, 2502];
off [dv_panel, 2503];
off [SaunaOut_D0];
off [SaunaOut_D1];
off [SaunaOut_D2];
off [SaunaOut_D3];
cancel_wait 'SaunaPusk 15';
cancel_wait 'SaunaPusk 30';
cancel_wait 'SaunaPusk 60';
if([SaunaVin])
{
off [SaunaVin];
}
else
{
on [SaunaVin];
}
}
}
channel_event [SaunaVin]
{
on:
{
BitWiseChanelSet( 2508, 1 );
}
off:
{
BitWiseChanelSet( 2508, 0 );
}
}

Примерно понятно что там происходит.

Мне бы пример с чего осваивать SIMPL+ или SIMPL# (и что лучше из них осваивать так чтоб с перспективой) и можно понемногу переносить код. На чем тестировать есть.