Софт для програматора с интерфейсом LPT (Delphi)

[raxp]

1 мс

1- вам не нужно работать на таких скоростях с EEPROM
2- ваши 1мс-задержки будут плавать, не ОС РТ
3- слипы замените таймером и формируйте временную последоватеьность в виде пакета из которого по тикам будете выгребать текущее значение сигнала на выход

[pet-rovich]

Сообщение от raxp

1- вам не нужно работать на таких скоростях с EEPROM
2- ваши 1мс-задержки будут плавать, не ОС РТ

На счет скорости это понятно это я так для экскримента. Вот переделал все пошлоВложение 1

Сообщение от raxp

2- ваши 1мс-задержки будут плавать, не ОС РТ
3- слипы замените таймером и формируйте временную последоватеьность в виде пакета из которого по тикам будете выгребать текущее значение сигнала на выход

а можно в виде кусочка кода? чет у меня не получяется

[raxp]

это я так для экскримента. Вот переделал все пошлоВложение 1

про RASAPI это вы зарапортовались

'********************************** **********************************
'* Написано 25.04.2005 году (ARTPROG) *
'* e-mail: hmaakg@rambler.ru *
'********************************** **********************************
'* О сколько нам открытий чудных, готовит юзера Винда! *
'********************************** **********************************

[pet-rovich]

Подскажите пожалуйста как переделать Delay чтобы можно было в 10Mks выставить, а то пробовал разные значения подставлять но все равно в мили секундах получается.
procedure TForm1.Delay(Value: Cardinal);
var
F, N: Cardinal;
begin
N := 0;
while N <= (Value div 10) do
begin
SleepEx(1, True);
Application.ProcessMessages;
Inc(N);
end;
F := GetTickCount;
repeat
Application.ProcessMessages;
N := GetTickCount;
until (N - F >= (Value mod 10)) or (N < F);
end;

[raxp]

...меньше 10 мс у вас не получится, мультимедийным таймером можно меньше, но это будет железозависимое решение.

И снова к вопросу о скоростях, накой вам 1 мкс для последовательной памяти?

[pet-rovich]

Ну не 1мкс а хотя бы 10мкс а то даже с 1мс 2mb память до утра читать будет

[raxp]

...слипы поубирайте и перейдите на мультимедийный таймер и не будет до утра ...и не обращайтесь к элементам формы, в потоке делайте ...впрочем, таймер и есть поток.

[s-andriano]

Сообщение от pet-rovich

Подскажите пожалуйста как переделать Delay чтобы можно было в 10Mks выставить, а то пробовал разные значения подставлять но все равно в мили секундах получается.

Только переходить на другую ОС.
В Windows погрешность установки задержки (да и просто "квант" задержии) обычно 15-20 мс.
При этом нельзя гарантировать, что задержка, установленная в 1 мс не растянется до 30-50 мс.

Установкой мультимедийного таймера, конечно "квант" можно уменьшить примерно до 1 мс, но на худший случай этот никак не скажется - 1 мс все равно может растянуться на 30-50 мс.

Если принципиально нужны меньшие интервалы, они должны формироваться аппаратно.

[raxp]

...не нужны там меньшие интервалы, хотя 100-200 мкс в самый раз. Через LPT и проводковый программатор 4-мегабайтный EEPROM у меня сливался за 5-10 минут через консольный SPIPGM от чеха (вот, вот, плавает, причем на разных машинах). Впрочем, QueryPerformanceCounter.

Дополнение

http://support.microsoft.com/kb/172338

procedure delay_microsec(val: int64);
var Freq, TimeImp, TimeImpNow, TimeElapsed: int64;
begin
 QueryPerformanceFrequency(Freq);
 QueryPerformanceCounter(TimeImp);
 repeat
  QueryPerformanceCounter(TimeImpNow);
  TimeElapsed:= ((TimeImpNow - TimeImp) * 1000000) div Freq;
 until TimeElapsed > val
end;

[pet-rovich]

Привет это опять я. Вобщем промучучился все эти дни, не могу получить АСК от памяти после считывания первого адреса. всегда приходит ''1'' и на этом останавливается. А вот если сам отправляю ''0'' то адреса считываются нормально, но вот вопрос как я узнаю что считал последний адрес?