formcoun.pas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

		optRising0.Enabled := True;
		optFalling0.Enabled := True;
     End
   else
     Begin
   	EnableMask := EnableMask and $FE;
      txtPresetValue0.Enabled := False;
		chkMatchEnable0.Enabled := False;
		chkOverflow0.Enabled := False;
		PanelBit0.Enabled := False;
		optRising0.Enabled := False;
		optFalling0.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable7Click(Sender: TObject);
begin
	if chkMatchEnable7.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $80;
      txtMatchValue7.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $7F;
      txtMatchValue7.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable6Click(Sender: TObject);
begin
	if chkMatchEnable6.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $40;
      txtMatchValue6.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $BF;
      txtMatchValue6.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable5Click(Sender: TObject);
begin
	if chkMatchEnable5.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $20;
      txtMatchValue5.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $DF;
      txtMatchValue5.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable4Click(Sender: TObject);
begin
	if chkMatchEnable4.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $10;
      txtMatchValue4.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $EF;
      txtMatchValue4.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable3Click(Sender: TObject);
begin
	if chkMatchEnable3.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $08;
      txtMatchValue3.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $F7;
      txtMatchValue3.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable2Click(Sender: TObject);
begin
	if chkMatchEnable2.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $04;
      txtMatchValue2.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $FB;
      txtMatchValue2.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable1Click(Sender: TObject);
begin
	if chkMatchEnable1.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $02;
      txtMatchValue1.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $FD;
      txtMatchValue1.Enabled := False;
     End
end;

procedure TfrmCounter.chkMatchEnable0Click(Sender: TObject);
begin
	if chkMatchEnable0.State = cbChecked Then
     Begin
   	MatchEnableMask := MatchEnableMask or $01;
      txtMatchValue0.Enabled := True;
     End
   else
     Begin
   	MatchEnableMask := MatchEnableMask and $FE;
      txtMatchValue0.Enabled := False;
     End
end;

procedure TfrmCounter.cmdCountOKClick(Sender: TObject);
begin
	bCancel := False;
end;

procedure TfrmCounter.cmdCancelClick(Sender: TObject);
begin
	bCancel := True;
end;

procedure TfrmCounter.chkOverflow7Click(Sender: TObject);
begin
	If chkOverflow7.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $80
   Else
   	OverflowEnableMask := OverflowEnableMask and $7F;
end;

procedure TfrmCounter.chkOverflow6Click(Sender: TObject);
begin
	If chkOverflow6.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $40
   Else
   	OverflowEnableMask := OverflowEnableMask and $BF;
end;

procedure TfrmCounter.chkOverflow5Click(Sender: TObject);
begin
	If chkOverflow5.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $20
   Else
   	OverflowEnableMask := OverflowEnableMask and $DF;
end;

procedure TfrmCounter.chkOverflow4Click(Sender: TObject);
begin
	If chkOverflow4.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $10
   Else
   	OverflowEnableMask := OverflowEnableMask and $EF;
end;

procedure TfrmCounter.chkOverflow3Click(Sender: TObject);
begin
	If chkOverflow3.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $08
   Else
   	OverflowEnableMask := OverflowEnableMask and $F7;
end;

procedure TfrmCounter.chkOverflow2Click(Sender: TObject);
begin
	If chkOverflow2.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $04
   Else
   	OverflowEnableMask := OverflowEnableMask and $FB;
end;

procedure TfrmCounter.chkOverflow1Click(Sender: TObject);
begin
	If chkOverflow1.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $02
   Else
   	OverflowEnableMask := OverflowEnableMask and $FD;
end;

procedure TfrmCounter.chkOverflow0Click(Sender: TObject);
begin
	If chkOverflow0.Checked Then
   	OverflowEnableMask := OverflowEnableMask or $01
   Else
   	OverflowEnableMask := OverflowEnableMask and $FE;
end;

procedure TfrmCounter.optRising7Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $80;
end;

procedure TfrmCounter.optRising6Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $40;
end;

procedure TfrmCounter.optRising5Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $20;
end;

procedure TfrmCounter.optRising4Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $10;
end;

procedure TfrmCounter.optRising3Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $08;
end;

procedure TfrmCounter.optRising2Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $04;
end;

procedure TfrmCounter.optRising1Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $02;
end;

procedure TfrmCounter.optRising0Click(Sender: TObject);
begin
	TrigEdge := TrigEdge or $01;
end;

procedure TfrmCounter.optFalling7Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $7F;
end;

procedure TfrmCounter.optFalling6Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $BF;
end;

procedure TfrmCounter.optFalling5Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $DF;
end;

procedure TfrmCounter.optFalling4Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $EF;
end;

procedure TfrmCounter.optFalling3Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $F7;
end;

procedure TfrmCounter.optFalling2Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $FB;
end;

procedure TfrmCounter.optFalling1Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $FD;
end;

procedure TfrmCounter.optFalling0Click(Sender: TObject);
begin
	TrigEdge := TrigEdge and $FE;
end;

procedure TfrmCounter.txtPresetValue7Change(Sender: TObject);
begin
	PresetValue[7] := StrToInt(txtPresetValue7.Text);
end;

procedure TfrmCounter.txtPresetValue6Change(Sender: TObject);
begin
	PresetValue[6] := StrToInt(txtPresetValue6.Text);
end;

procedure TfrmCounter.txtPresetValue5Change(Sender: TObject);
begin
	PresetValue[5] := StrToInt(txtPresetValue5.Text);
end;

procedure TfrmCounter.txtPresetValue4Change(Sender: TObject);
begin
	PresetValue[4] := StrToInt(txtPresetValue4.Text);
end;

procedure TfrmCounter.txtPresetValue3Change(Sender: TObject);
begin
	PresetValue[3] := StrToInt(txtPresetValue3.Text);
end;

procedure TfrmCounter.txtPresetValue2Change(Sender: TObject);
begin
	PresetValue[2] := StrToInt(txtPresetValue2.Text);
end;

procedure TfrmCounter.txtPresetValue1Change(Sender: TObject);
begin
	PresetValue[1] := StrToInt(txtPresetValue1.Text);
end;

procedure TfrmCounter.txtPresetValue0Change(Sender: TObject);
begin
	PresetValue[0] := StrToInt(txtPresetValue0.Text);
end;

procedure TfrmCounter.txtMatchValue7Change(Sender: TObject);
begin
	MatchValue[7] := StrToInt(txtMatchValue7.Text);
end;

procedure TfrmCounter.txtMatchValue6Change(Sender: TObject);
begin
	MatchValue[6] := StrToInt(txtMatchValue6.Text);
end;

procedure TfrmCounter.txtMatchValue5Change(Sender: TObject);
begin
	MatchValue[5] := StrToInt(txtMatchValue5.Text);
end;

procedure TfrmCounter.txtMatchValue4Change(Sender: TObject);
begin
	MatchValue[4] := StrToInt(txtMatchValue4.Text);
end;

procedure TfrmCounter.txtMatchValue3Change(Sender: TObject);
begin
	MatchValue[3] := StrToInt(txtMatchValue3.Text);
end;

procedure TfrmCounter.txtMatchValue2Change(Sender: TObject);
begin
	MatchValue[2] := StrToInt(txtMatchValue2.Text);
end;

procedure TfrmCounter.txtMatchValue1Change(Sender: TObject);
begin
	MatchValue[1] := StrToInt(txtMatchValue1.Text);
end;

procedure TfrmCounter.txtMatchValue0Change(Sender: TObject);
begin
	MatchValue[0] := StrToInt(txtMatchValue0.Text);
end;

end.