Зима епт. На улице мороз, делать нечего, работа неклеится. Вооружившись ножовкой, клеем и молотком решил собрать энкодер. Поскольку фрикеры народ неглупый, руки ростут с правильного места а мозг 4х ядерный спомощью того что лежало в клодовке собран был корпус под энкодер.
Головка центровалась по треку2, к головке прикручен миниджек который был впихнут в комп. В powergraph2.5 смотрелся уровень сигнала, кода он достих максимума голова залилась клеем.
Сначала пробовал записать с помощью магнитофона, но чето там неродилось, была собрана схема усилка на tda2030. Схема честно спижена у Патрика Гегеля, копираст на нее присваиваю себе.
Питание усилка двуполярное, как это я хрен его но так надо. Короче нужен блок питания с 3мя проводами. Такой я купил в магазине за 5$ там же и купил усилок уже собраный за 3$
Подкрутил все по схеме и тут начался главный вопрос, а де софт?
В интернетах уже были попытки написать софт под com или lpt порт, мой выбор пал на lpt. Програмировать я неумею, да и нафига фрикеру уметь кодить. Вспомнил курс паскаля и свалял софтину, после написания софта подрубил порт к скимаку, ура бля! Все что отправил на запись скимак легко прочитал. В коде все криво но работает. Из за того что винда недает прямой достук к портам пришлось запускать под досом. Распиновка _25 - земля.
_8 - выход данных на запись.
_10 - вход оптопары.
program msr666;
uses crt;
var i,a:integer;
f:text;
b:string;
procedure ifb1;
begin
port[888]:=0; delay(a); port[888]:=255;
end;
begin;
clrscr;
port[888]:=0;
a:=0; i:=0;
writeln('vvedite dlinu fronta',a);
readln(a);
Assign(f,'f.txt');reset(f);
writeln('vstavte karty b nazmite lubyu knopky'); readkey;
while not eof(f) do begin
readln(f,b); if port[889]=0 then
For i:=0 to Length(b)-1 do begin
if b='0' then {если 0} begin
if port[888]=255 then port[888]:=0
else port[888]:=255; delay(a*2);
end;
if b='1' then {если =1} begin
if port[888]=255 then ifb1
else port[888]:=255; delay(a); port[888]:=0; delay(a);
end;
end;
port[888]:=0;
end;
writeln(b);
writeln('operation complite, pres any key to exit and giv Leg@ many'); readkey;
close(f)
end.
Код специально вылаживаю сдесь, може хто поумнее добавит или поисправляет ошибки. В папку с прогой закидываем текстовый файл с треком, но в виде еденичек и ноликов, выбираем длину фронта(время проводки картой) и проводим картой. Светодиод прерывает свет, на порт идет импульс и начинается запись.
Ну и все. Статья сырая, в ней будут дополнения и изменения. Файлы прилогаю, запускал эту хрень под досом. Msr206 стоит 450 баксов, этот 20 Зачем платить больше?
Головка центровалась по треку2, к головке прикручен миниджек который был впихнут в комп. В powergraph2.5 смотрелся уровень сигнала, кода он достих максимума голова залилась клеем.
Сначала пробовал записать с помощью магнитофона, но чето там неродилось, была собрана схема усилка на tda2030. Схема честно спижена у Патрика Гегеля, копираст на нее присваиваю себе.
Питание усилка двуполярное, как это я хрен его но так надо. Короче нужен блок питания с 3мя проводами. Такой я купил в магазине за 5$ там же и купил усилок уже собраный за 3$
Подкрутил все по схеме и тут начался главный вопрос, а де софт?
В интернетах уже были попытки написать софт под com или lpt порт, мой выбор пал на lpt. Програмировать я неумею, да и нафига фрикеру уметь кодить. Вспомнил курс паскаля и свалял софтину, после написания софта подрубил порт к скимаку, ура бля! Все что отправил на запись скимак легко прочитал. В коде все криво но работает. Из за того что винда недает прямой достук к портам пришлось запускать под досом. Распиновка _25 - земля.
_8 - выход данных на запись.
_10 - вход оптопары.
program msr666;
uses crt;
var i,a:integer;
f:text;
b:string;
procedure ifb1;
begin
port[888]:=0; delay(a); port[888]:=255;
end;
begin;
clrscr;
port[888]:=0;
a:=0; i:=0;
writeln('vvedite dlinu fronta',a);
readln(a);
Assign(f,'f.txt');reset(f);
writeln('vstavte karty b nazmite lubyu knopky'); readkey;
while not eof(f) do begin
readln(f,b); if port[889]=0 then
For i:=0 to Length(b)-1 do begin
if b='0' then {если 0} begin
if port[888]=255 then port[888]:=0
else port[888]:=255; delay(a*2);
end;
if b='1' then {если =1} begin
if port[888]=255 then ifb1
else port[888]:=255; delay(a); port[888]:=0; delay(a);
end;
end;
port[888]:=0;
end;
writeln(b);
writeln('operation complite, pres any key to exit and giv Leg@ many'); readkey;
close(f)
end.
Код специально вылаживаю сдесь, може хто поумнее добавит или поисправляет ошибки. В папку с прогой закидываем текстовый файл с треком, но в виде еденичек и ноликов, выбираем длину фронта(время проводки картой) и проводим картой. Светодиод прерывает свет, на порт идет импульс и начинается запись.
Ну и все. Статья сырая, в ней будут дополнения и изменения. Файлы прилогаю, запускал эту хрень под досом. Msr206 стоит 450 баксов, этот 20 Зачем платить больше?
Attachments
Last edited:
