HANTEK_DSO_6254BD/Chnl_frame.cpp at main · SiberK/HANTEK_DSO_6254BD · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Chnl_frame.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "rxPlacemnt"
#pragma resource "*.dfm"
const char* strVoltDiv1  = "2mV ,5mV  ,10mV ,20mV ,50mV ,0.1V ,"
			   "0.2V,0.5V ,1V   ,2V   ,5V   ,10V   ";
const char* strVoltDiv10 = "20mV,50mV ,0.1V ,0.2V ,0.5V ,1V   ,"
			   "2V  ,5V   ,10V  ,20V  ,50V  ,100V  ";
enum	{vd20mV,vd50mV,vd100mV,vd200mV,vd500mV,vd1V,
	   vd2V,  vd5V,  vd10V,  vd20V,  vd50V,vd100V}	;
enum	{adDC,adGnd,adAC}		;
//---------------------------------------------------------------------------
__fastcall TFrmChnl::TFrmChnl(TComponent* Owner,TWinControl* parent,
		int ch,TNotifyEvent _onChnge) : TFrame(Owner)
{IX = ch	;
 bOn->Caption = "CH"+ String(ch+1)		;
 Hint 	= "CH_"     + String(ch+1) 		;
 Name   = "FrmChnl" + String(ch)		;
 Parent = parent				;
 FOnChange = _onChnge				;

 cbX10->Checked = true				;
 bOn  ->Checked = false 			;
 cbVoltDiv->Items->CommaText = cbX10->Checked ? strVoltDiv10 : strVoltDiv1	;
 cbVoltDiv->ItemIndex = 5			;
 cbAC_DC  ->ItemIndex = 0			;

 FormStorage1->IniFileName = ChangeFileExt(ParamStr(0),".ini")	;
 FormStorage1->IniSection  = Name		;
 FormStorage1->RestoreFormPlacement()		;

 cbX10    ->Enabled = bOn->Checked  		;
 cbVoltDiv->Enabled = bOn->Checked  		;
 cbAC_DC  ->Enabled = bOn->Checked  		;
}
//---------------------------------------------------------------------------
void __fastcall TFrmChnl::FormStorage1RestorePlacement(TObject *Sender){ BtnOnClick(this)	;}
//---------------------------------------------------------------------------
void __fastcall TFrmChnl::BtnOnClick(TObject *Sender)
{TComboBox* cmbox = dynamic_cast<TComboBox*>(Sender)	;
 TCheckBox* chbox = dynamic_cast<TCheckBox*>(Sender)	;

 if(Sender == cbX10 || Sender == this){
   int ix = cbVoltDiv->ItemIndex		;
   cbVoltDiv->Items->CommaText = cbX10->Checked ? strVoltDiv10 : strVoltDiv1	;
   cbVoltDiv->ItemIndex	= ix			;
 }

 if((cmbox && cmbox->Enabled) ||
    (chbox && chbox->Enabled) || Sender == this){

   Prms.IX        = IX				;
   Prms.IxVoltDiv = cbVoltDiv->ItemIndex	;
   Prms.IxAcDc    = cbAC_DC  ->ItemIndex	;
   Prms.XX10   	  = cbX10    ->Checked		;
   Prms.OnOff 	  = bOn      ->Checked  	;

   cbX10    ->Enabled = bOn  ->Checked  	;
   cbVoltDiv->Enabled = bOn  ->Checked  	;
   cbAC_DC  ->Enabled = bOn  ->Checked  	;

   if(FOnChange) FOnChange(this)		;

   Hint = "ixVD = " + String(cbVoltDiv->ItemIndex)	;
 }
}
//---------------------------------------------------------------------------
TChnlParams* __fastcall TFrmChnl::GetParams(void)
{
 Prms.IX        = IX			;
 Prms.IxVoltDiv = cbVoltDiv->ItemIndex	;
 Prms.IxAcDc    = cbAC_DC  ->ItemIndex	;
 Prms.XX10   	= cbX10    ->Checked	;
 Prms.OnOff 	= bOn      ->Checked  	;
 return &Prms	;}
//---------------------------------------------------------------------------
void __fastcall TFrmChnl::SetParams(TChnlParams* prms)
{
 cbX10->Checked       = prms->XX10	;
 bOn  ->Checked	      = prms->OnOff	;
 cbVoltDiv->ItemIndex = prms->IxVoltDiv	;
 cbAC_DC  ->ItemIndex = prms->IxAcDc	;
 BtnOnClick(this)	;
}
//---------------------------------------------------------------------------