Форум

int32_t TForm1::setAdcFreq() {
    double f_Out;
    double f_acq = 160000;
    double f_lch = 10000;
    double f_din = 10000;
    /* устанавливаем требуемую частоту сбора. */
       ...
     f_Out = 10000;                 // <<---------------------------
     X502_SetOutFreq(hnd,&f_Out);
    return err;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnStartClick(TObject *Sender)  {
                ...
    /* разрешаем синхронный ввод АЦП */
    if (err == X502_ERR_OK)
        err = X502_StreamsEnable(hnd, X502_STREAM_ALL_IN | X502_STREAM_DAC1 | X502_STREAM_DAC2);
                ...   
}
//---------------------------------------------------------------------------
// Сделал цикл чтобы на кнопку не давить
void __fastcall TForm1::btnAsyncDigOutClick(TObject *Sender) {
    if (hnd!=NULL) {
        uint32_t val = StrToInt(edtAsyncDigOut->Text);
         int32_t err;

        for(int i=0;i<50;i++)
        {
         err = X502_AsyncOutDig(hnd, 0, 0);
         if (err != X502_ERR_OK)
            MessageDlg("Ошибка асинхронного вывода на цифровые линии: " + String(X502_GetErrorString(err)),
                        mtError, TMsgDlgButtons() << mbOK,NULL);
         Sleep(50);
         err = X502_AsyncOutDig(hnd, 1, 0);
         if (err != X502_ERR_OK)
            MessageDlg("Ошибка асинхронного вывода на цифровые линии: " + String(X502_GetErrorString(err)),
                        mtError, TMsgDlgButtons() << mbOK,NULL);
         Sleep(50);
        }
    }
}