Навчальна модель аналогово-цифрового перетворювача (стр. 6 из 6)
x:=(i-1)*Time_Discret/1000;
y:=U_In;
mx[i]:=x;
my[i]:=y;
// if i=1 then y:=y+0.0001;
Chart1.Series[0].AddXY(x,y);
Sleep(Time_Discret);
Application.ProcessMessages;
if RegStop=1 then break;
end;
end;
procedure TF_ADC.B_StopClick(Sender: TObject);
begin
RegStop:=1;
end;
procedure TF_ADC.B_SaveClick(Sender: TObject);
Var flName:string;
tx:TextFile;
i:integer;
begin
if SaveDialog1.Execute then
begin
flName:=SaveDialog1.FileName+'.txt';
AssignFile(tx,FlName);
ReWrite(tx);
for i:=1 to QI do
begin
write(tx,mx[i]:7:3);
writeln(tx,my[i]:7:3);
end; // i
CloseFile(tx);
end;
end;
procedure TF_ADC.RadioGroup_LanguageClick(Sender: TObject);
begin
if RadioGroup_Language.ItemIndex=1 then
Begin
B_Write_DR.Caption:='Записати_DR';
B_Write_CR.Caption:='Записати_CR';
B_In_U.Caption:='Вхід_U';
B_Out_U.Caption:='Вихід_U';
B_Diagram.Caption:='Діаграма';
B_Stop.Caption:='Стоп';
B_Save.Caption:='Зберегти';
B_Exit.Caption:='Вихід';
B_Read_SR.Caption:='Читати_SR';
CheckBox_ADC_Proces_Show.Caption:='ADC_Показати_Процес';
L_Time_Discret.Caption:='Проміжки_Часу (мс)';
MainMenu1.Items[0].Caption:='Файл';
MainMenu1.Items[0].Items[0].Caption:='Зберегти';
MainMenu1.Items[1].Caption:='ADC';
MainMenu1.Items[1].Items[0].Caption:='Вхід_U';
MainMenu1.Items[1].Items[1].Caption:='Вихід_U';
MainMenu1.Items[2].Caption:='Порт';
MainMenu1.Items[2].Items[0].Caption:='Записати_DR';
MainMenu1.Items[2].Items[1].Caption:='Записати_CR';
end;
if RadioGroup_Language.ItemIndex=0 then
Begin
B_Write_DR.Caption:='Write_DR';
B_Write_CR.Caption:='Write_CR';
B_In_U.Caption:='In_U';
B_Out_U.Caption:='Out_U';
B_Diagram.Caption:='Diagram';
B_Stop.Caption:='Stop';
B_Save.Caption:='Save';
B_Exit.Caption:='Exit';
B_Read_SR.Caption:='Read_SR';
CheckBox_ADC_Proces_Show.Caption:='ADC_Proces_Show';
L_Time_Discret.Caption:='Time_Discret (ms)';
MainMenu1.Items[0].Caption:='File';
MainMenu1.Items[0].Items[0].Caption:='Зберегти';
MainMenu1.Items[1].Caption:='ADC';
MainMenu1.Items[1].Items[0].Caption:='In_U';
MainMenu1.Items[1].Items[1].Caption:='Out_U';
MainMenu1.Items[2].Caption:='Port';
MainMenu1.Items[2].Items[0].Caption:='Write_DR';
MainMenu1.Items[2].Items[1].Caption:='Write_CR';
end;
end;
procedure TF_ADC.Save1Click(Sender: TObject);
begin
B_Save.Click;
end;
procedure TF_ADC.InU1Click(Sender: TObject);
begin
B_In_U.Click;
end;
procedure TF_ADC.OutU1Click(Sender: TObject);
begin
B_Out_U.Click;
end;
procedure TF_ADC.WriteDR1Click(Sender: TObject);
begin
B_Write_DR.Click;
end;
procedure TF_ADC.Write_CR1Click(Sender: TObject);
begin
B_Write_CR.Click;
end;
end.
Додаток Б
Тестування перетворювача
Додаток В
Принцип роботи АЦП
