Привет всем. У меня такая проблемма:
Дали мне в руки плату l-761, и сказали сделай нам из этого генератор и осцилограф, помощи от нас не жди, мол сами их в первый раз видем.
Програмирую я на delphi 7.0 под WIN XP, скачал я кучу исходников но не один рабочий так и не нашел. Читал Lcadr SDC Help, довольно понятно изложенно описание функций, но нет там алгоритма когда че включать, инициализировать, куда и что запсывать. Если у кого-нить есть рабочий исходник на delphi 7.0 под WIN XP генератора и(или) осцилографа со всеми нужными библиотеками к нему и модулями, скиньте ссылку где его скачать можно, или на мыло намыльте.
PS: Нашел что то вроде рабочее,
C:/Program Files/L-Card/LIBRARY/l7xx.dpr
но в нем только опрос биоса, и тестирование платы.

еще сишные примеры смотрите. Там порядок вызова виден...

В том то и проблемма что я СИ незнаю вообще...:-(

а какая разница...просот вызовы функций смотрите...

Ни чего не получается, поставил себе Borland C++ 5.02, даже откомпилировать не понимаю как, может что нить на дельфи есть?

дельфийном приемер таймере опрос переменной заполнения буфера и чтение первой ячейки буфера...неужели этого недостаточно чтобы понять...?

Вот что я нашел.....

   pLDev.FillDAQparameters(ap.t1);
   //Заполняет внутреннюю структуру параметров сбора данных
   //значениями из структуры.
 
   pLDev.RequestBufferStream(1000,L_STREAM_ADC);
   //Функция служит для выделения памяти под большой кольцевой буфер

  pLDev.SetParametersStream(ap.t1, tm, data, sync,L_STREAM_ADC);
  //настраивает плату АЦП/ЦАП

  Timer1.Enabled:=True;
 
  pLDev.InitStartLDevice;
  //Функция инициализирует внутренние переменные драйвера перед началом сбора.
 
  pLDev.StartLDevice;
  //запускает сбор данных с платы в большой кольцевой буфер
 

  Не могу понять дальше откуда данные выкачивать?
  В какой переменной находится большой кольцевой буфер,
  или с помощью какой функции к нему обратится.
  И где задается номер входного канала ацп
   
   ap.t1.NCh := 4;
   ap.t1.Chn[0] := $0;
   ap.t1.Chn[1] := $1;
   ap.t1.Chn[2] := $2;
   ap.t1.Chn[3] := $3;
 
тут понятно что мы будем использовать 4 канала и присваиваем им номера,
а как указать что мне нужен сигнал например с первого входа?

в буфере они будут лежать покадрово...12341234....данные лежат по указателю data а переменная заполнения sync...

Вот сделал кое что, но не работает, на график выводит всегда одни и те же значения, АЦП на входы не реагирует... вот листинг...
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, create,ifc_ldev,ioctl, ExtCtrls,  Buttons,
  TeeProcs, TeEngine, Chart, Series;

const
   FIFO = 1024;
   IrqStep = 1024;
   pages = 32;

type
  WA = array of SHORT;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  pLDev: IDaqLDevice;
  pIUnknown:LUnknown;
  hr,j:Integer;
  sl:SLOT_PAR;
  dev: THandle;
  pd: PLATA_DESCR;
  ap: ADC_PAR;
  tm: ULONG;
  data:WA;
  OUTdata:word;
  sync:PULONG;

implementation

{$R *.dfm}
procedure Start_ADC;
begin
   ap.t1.s_Type := L_ADC_PARAM;
   ap.t1.AutoInit := 1;
   ap.t1.dRate := 200.0;
   ap.t1.dKadr := 0.0;
   ap.t1.dScale := 0;
   ap.t1.SynchroType := 3;
   ap.t1.SynchroSensitivity := 0;
   ap.t1.SynchroMode := 0;
   ap.t1.AdChannel := 0;
   ap.t1.AdPorog := 0;
   ap.t1.NCh := 1;
   ap.t1.Chn[0] := $0;
   ap.t1.FIFO := FIFO;
   ap.t1.IrqStep := IrqStep;
   ap.t1.Pages := pages;
   ap.t1.IrqEna := 1;
   ap.t1.AdcEna := 1;
   pLDev.FillDAQparameters(ap.t1);

   tm := 100000;  // ìû çàõîòåëè 100000 îòñ÷åòîâ
   pLDev.RequestBufferStream(tm,L_STREAM_ADC);
   pLDev.SetParametersStream(ap.t1, tm, data, sync,L_STREAM_ADC);
   Form1.Timer1.Enabled:=True;
   pLDev.InitStartLDevice;
   pLDev.StartLDevice;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

   Timer1.Enabled:=False;
   if(CallCreateInstance('lcomp.dll')=0) then
   MessageBox(0,'error, no loud lcomp.dll','',MB_OK);
   pIUnknown:=CreateInstance(0);
   hr := pIUnknown.QueryInterface(IID_ILDEV,pLDev);
   if(not Succeeded(hr)) then MessageBox(0,'Get interface failed','Error',MB_OK);
   pIUnknown.Release;
   dev:=pLDev.OpenLDevice;
   Start_ADC;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   data:=NIL;
   sync:=NIL;
   Timer1.Enabled:=False;
   pLDev.StopLDevice;
   pLDev.CloseLDevice;
   pLDev.Release;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
MasData : ^WA;
begin
    inc(j);
    Chart1.Series[0].Clear;
    if((data<>NIL) and (sync<>NIL)) then begin
        MasData:= @Data;
        for i:=0 to 32768-1 do Chart1.Series[0].AddXY(i,round(MasData^[i]));
    end;
end;

end.

sync то меняестя?

Нет, всегда sync^=0, при каждом новом запуске программы картинка раз от раза меняется, но в процессе выаолнения она статична. sync изменится один раз, если повторно запустить procedure Start_ADC.

должен меняться непрерывно...до остановки... смотрите как у Вас работает L-Graph

Евгений, вы забыли загрузить БИОС платы: pLDev.LoadBios(L761)

С уважением.

Огромное спасибо!
загрузил БИОС сразу все заработало!
Вот так бы и мучался, если не добрые люди на земле!

Народ, а как мне поменять частоту развертки, уже все переменные прробовал менять не получается...

Народ помогите!
Не могу понять что есть:
1. количество отсчетов
2. частота АЦП
3. межкадровая задержка
Менял FIFO, IRQStep,pages, но частоту больше 50 Герц не могу прочитать? Непонятно как частоту дискритизации изменить.......

dRate менять ну dKadr... и описание почитать то которое про ДОС и плату...

В том то и дело что менял я и dRate и dKadr, а толку ни какого, посмотрел я диаграмму запуска АЦП, все верно, все логично, но вот  ap.t1.dKadr и ap.t1.dRate вообще не реагируют...

По видимому при изменении dRate и dKadr надо тормозить процесс сбора (что-то типа pLDev.StopLDevice; ap.t1.dRate := 1000.0; pLDev.FillDAQparameters(ap.t1); ... pLDev.InitStartLDevice;
pLDev.StartLDevice; )

Я сначала задаю значения  dRate и dKadr, а затем запускаю сбор, в процессе выполнения программы пока эти значения и не трогал. Но пока мои услия безрезультатны :-(((

"но частоту больше 50 Герц не могу прочитать? Непонятно как частоту дискритизации изменить......."

Вполне возможно, что входной сигнал у Вас не подключен (или подключен неправильно). Поэтому Вы только сетевые наводки и видите.

не я к прецизионному генератору на x1 y1  в диф режиме зацепил, на генераторе частоту меняю, на экране меняется. Просто после ~40-50 Гц. измеряемого синуса, отсчетов так мало что на графике он отображается сначала как ломанный синус, при дольнейшем увеличени частоты генератора, отображается как треугольные импульсы. Вот такая вот беда.

Может быть еще вот эту строку переставить
ap.t1.AutoInit := 1;

после pLDev.FillDAQparameters(ap.t1);
и перед pLDev.SetParametersStream(ap.t1, tm, data, sync,L_STREAM_ADC);
Если она за автоинициализацию отвечает, то в Вашем исходнике легкое противоречие (то ли использовать те значения, которые уже записаны, то ли новые)

Я сначала задаю параметры переменной L_ADC_PARAM, в том числе и поле AutoInit, если AutoInit=0 то сбор однократный, если =1 то циклический, после этого
передаем эти параметры в плату...

pLDev.FillDAQparameters(ap.t1);
pLDev.RequestBufferStream(tm,L_STREAM_ADC);
pLDev.SetParametersStream(ap.t1, tm, data, sync,L_STREAM_ADC);

потом стартуем

pLDev.InitStartLDevice;
pLDev.StartLDevice;

или я что то не так понял.
На счет биоса, скачал последнюю версию, результат прежний.....

pLDev.FillDAQparameters(ap.t1);
pLDev.RequestBufferStream(tm,L_STREAM_ADC);
ap.t1.AutoInit := 1;            // !!!!!!!!!!!!!
pLDev.SetParametersStream(ap.t1, tm, data, sync,L_STREAM_ADC);

pLDev.InitStartLDevice;
pLDev.StartLDevice;