void __fastcall TfrmTargetsParam::tbAddTargetClick(TObject *Sender)
{
Targets_Count ++;
Targets = (TTarget **) realloc (Targets, sizeof(TTarget *) * Targets_Count);
Targets[Targets_Count - 1] = new TTarget(&FarParam);
// ---------------- ќпредел¤ю максимальный јйƒи --------
int MaxId = -1;
Targets[Targets_Count - 1]->id = -1;
for (int i = 0; i < Targets_Count; i ++)
if (MaxId < Targets[i]->id)
MaxId = Targets[i]->id;
// ---------------- ¬иставл¤ю парамы ---------
Targets[Targets_Count - 1]->R0 = 10;
Targets[Targets_Count - 1]->B0 = 0;
Targets[Targets_Count - 1]->V0 = 0.20;
Targets[Targets_Count - 1]->H0 = 10;
Targets[Targets_Count - 1]->K0 = 0;
Targets[Targets_Count - 1]->id = MaxId + 1;
AnsiString asTargetId;
if (Targets[Targets_Count - 1]->id < 10 ) asTargetId = "00" + IntToStr(Targets[Targets_Count - 1]->id);
if (Targets[Targets_Count - 1]->id > 100) asTargetId = "0" + IntToStr(Targets[Targets_Count - 1]->id);
if (Targets[Targets_Count - 1]->id >= 10 && Targets[Targets_Count - 1]->id < 100 ) asTargetId = "0" + IntToStr(Targets[Targets_Count - 1]->id);
ListBox1->Items->AddObject(" “расса є " + asTargetId, (TObject*)Targets[Targets_Count - 1]);
ListBox1->ItemIndex = ListBox1->Items->Count - 1;
ListBox1Click(Sender);
}
// выполяет поиск ближайшего цвета по значениям в
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
unsigned char red;
unsigned char green;
unsigned char blue;
red = StrToInt( LabeledEdit1->Text );
green = StrToInt( LabeledEdit2->Text );
blue = StrToInt( LabeledEdit3->Text );
// поиск цвета
TPantoneColorEntry ce = this->RGB2Pantone(red, green, blue);
// поиск по имени.
int index = -1;
for (int i = 0; i < m_database.Count;/*this->m_Entries->Count;*/ i++)
{
TPantoneColorEntry* pce = m_database.Get(i);//)(TPantoneColorEntry*)m_Entries->Items[i];
if (pce->index == ce.index)
{
index = i;
break;
}
}
if (index >= 0)
{
ListBox1->ItemIndex =index;
ListBox1Click(NULL);
}
}
void __fastcall TfrmSetupAngleNet::ListBox1KeyDown(TObject *Sender,
WORD &Key, TShiftState Shift)
{
if (ListBox1->ItemIndex == -1) return;
int ii = ListBox1->ItemIndex;
if (Key == 46) tbDeleteTickClick(Sender);
if (ListBox1->Items->Count <= ii) ii = ListBox1->Items->Count - 1;
ListBox1->ItemIndex = ii;
ListBox1Click(Sender);
}
void __fastcall TfrmMain::aPrevStepExecute(TObject *Sender)
{
if ( ListBox1->Items->Count == 0 ) return;
Button1Click(Sender);
if ( ListBox1->ItemIndex <= 0 )
ListBox1->ItemIndex = ListBox1->Items->Count - 1;
else ListBox1->ItemIndex = ListBox1->ItemIndex - 1;
// if ( ActiveControl->Name == "eTempr" ) eTempr->SelectAll();
// if ( ActiveControl->Name == "eTime" ) eTime->SelectAll();
ListBox1Click(Sender);
}
//===========================================================================
void __fastcall TfrmSetupAngleNet::bbCancelClick(TObject *Sender)
{
bool flag = true;
BitBtn1 ->Enabled = flag;
BitBtn2 ->Enabled = flag;
ListBox1 ->Enabled = flag;
tbDeleteTick->Enabled = flag;
tbAddTick ->Enabled = flag;
Label2->Enabled = !flag;
Edit1 ->Enabled = !flag;
Label3->Enabled = !flag;
bbApply->Visible = !flag;
bbCancel->Visible = !flag;
ListBox1 ->ItemIndex = -1;
tbDeleteTick->Enabled = false;
CurAngleTick = NULL;
ListBox1Click(Sender);
}
//===========================================================================
void __fastcall TfrmMain::TreeView1Change(TObject *Sender, TTreeNode *Node)
{
ListBox1->Items->Clear();
RichEdit1->Text = "";
// ---
if (Node->Data == NULL) return;
// --- «аполЌ¤ем Ћист бокс соответствующим списоко елемнетов -------
ListBox1->Items->BeginUpdate();
TList *NodeElementList = (TList*)Node->Data;
for (int i = 0; i < NodeElementList->Count; i++)
ListBox1->Items->AddObject( ((TBaseClass*)NodeElementList->Items[i])->DefaultName,
(TObject *)NodeElementList->Items[i]);
// ---
ListBox1->Items->EndUpdate();
// ----- ≈сли есть список елементов в ветке дерева, то выделяем первый елесент в списке ----
if (ListBox1->Items->Count != 0) {
ListBox1->ItemIndex = 0;
ListBox1Click(ListBox1);
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormShow(TObject *Sender)
{
ListBox1->ItemIndex =0;
ListBox1Click(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::LoadFromESPECClick(TObject *Sender)
{
if ( SerialPort == NULL ) return;
if ( SerialPort->isOpen == false ) return;
cbProfileList->ItemIndex = -1;
bPNewClick(Sender);
char WriteBuffer[256] = {0};
char ReadBuffer [256] = {0};
// ----- Чтение базовых параметров профиля --------
SerialPort->WriteBuffer("PRGM DATA?,PGM: 1\r\n"); Sleep(50);
SerialPort->ReadBuffer (ReadBuffer);
// ----- Расшифровка и вывод на екран -------
sscanf(ReadBuffer, "%d,COUNT(%d.%d.%d),END(HOLD)", &CountProfileStep, &BeginRepeatPos, &EndRepeatPos, &ProfilRepeatCount);
Label2->Caption = CountProfileStep;
CSpinEdit1->Value = BeginRepeatPos;
CSpinEdit2->Value = EndRepeatPos;
CSpinEdit3->Value = ProfilRepeatCount;
// ----- Чтение информации по каждому из шагов профиля --------
for ( int i = 1; i < CountProfileStep + 1; i++)
{
sprintf(WriteBuffer, "PRGM DATA?,PGM: 1,STEP %d\r\n\0", i);
SerialPort->WriteBuffer(WriteBuffer); Sleep(50);
SerialPort->ReadBuffer (ReadBuffer);
// ----- Убиваю слово тайм ---
int bufflen = strlen(ReadBuffer);
for ( int i = 0; i < bufflen - 4; i++)
{
if ( ReadBuffer[i] == ',' || ReadBuffer[i] == ':') ReadBuffer[i] = ' ';
/*if ( ReadBuffer[i] == ',' ) ReadBuffer[i] = ' ';
if ( ReadBuffer[i] == 'T' && ReadBuffer[i+1] == 'I' &&ReadBuffer[i+2] == 'M' &&ReadBuffer[i+3] == 'E' )
{
ReadBuffer[i+0] = ' ';
ReadBuffer[i+1] = ' ';
ReadBuffer[i+2] = ' ';
ReadBuffer[i+3] = ' ';
for ( int k = i; k < bufflen; k++) if ( ReadBuffer[k] == ':' ) ReadBuffer[k] = ' ';
} */
}
// ----- Расшифровка и вывод на екран -------
char s[64]={0};
char Ramp[4]={0}, Garanty[4]={0};
float Temperature;
int hour, min;
//sscanf(ReadBuffer, "1 TEMP%f TEMP RAMP %s HUMI OFF %s%s GRANTY %s REF9", &Temperature, Ramp, hour, min, Garanty);
sscanf(ReadBuffer, "%s TEMP%f TEMP RAMP %s HUMI OFF TIME%d %d GRANTY %s REF9", s, &Temperature, Ramp, &hour, &min, Garanty);
EspecProfile[0][i-1]->Ramp = ( strcmp(Ramp, "ON") == 0 );
//EspecProfile[[0]i-1]->Soak = !EspecProfile[0][i-1]->Ramp;
EspecProfile[0][i-1]->temper = Temperature;
EspecProfile[0][i-1]->hi = hour;
EspecProfile[0][i-1]->mi = min;
UpdateChart(-1);
Application->ProcessMessages();
}
ListBox1->ItemIndex = 0;
ListBox1Click(Sender);
// ---adds
UpdateChart(-1);
// ---adds
ShowMessage("Program Loaded");
}
void __fastcall TfrmTargetsParam::BitBtn4Click(TObject *Sender) { EditParamTarget(false); ListBox1Click(NULL); }
