Ако ви трябва помощ за компютрите - казвайте, част 2

[RazorJack]

такова реле на 5v едва ли ще намериш, най лесно е да си вземеш реле на 12v и да го вържеш към 12 волтовата линия на захранването (жълт и черен кабел) така като изключи захранването и релето ще изключва.

принципно съм правил и неща за връзване на няколко релета към паралелния порт и командването им с програма ама там става по сложно а и няма смисъл в твоя случай

[besom]

немога човече ((( пустата машина е в гаранция - даже вентилаторите не поддържам, трябва даго нося на майната си, да се моля всеки път да е бързичко че са нотоварени, абе изобщо мани - не си взимайте машина в гаранция. аз си мислех за МОС-че , ма незнам дали ще стане

[RazorJack]

еми баси кой те е карал цялата машина в гаранция да взимаш взимаш всяка част с гаранция и си ги сглобяваш сам, ако нещо се скапе пак си имаш гаранция и не се занимаваш с малоумни сервизи


бтв дори да намериш реле на 5v не съм сигурен дали ще стане от usb-то щото доколкото си спомням то се захранваше от standby линията ... демек има напрежение даже като е спрян компютъра ... може и да се бъркам де

[NO CARRIER]

besom, търси рид реле, повечето са на 5В и ги има на доста места. Но го вържи да прекъсва ниското напрежение, че 220В не може. Иначе ти трябва второ реле, схема и т.н.

Хм, да. На USBто май винаги има 5В. Освен ако не гасиш от щепсела.

[besom]

стига бе - хм трябва да пробвам
10х за идеята - направо ще набутам релето в колоната
ееееееее т`ва гадно ако е така.

[NO CARRIER]

Има вариант да ти напиша елементарна програмка, която чрез RS232 да ти гаси колоните. И за включването трябва да се помисли. Но все пак ще иска още външни елементи. Само с реле няма да минеш.

[besom]

еми направо казвай какво пиеш и как да бъде доставено ?

[RazorJack]

ето най простата схема за реле за 220в на LPT порт, тествано и работи


кофтито е че пак ти трябва някакво захранване да дава 12в за да движи релето като не можеш да вземеш от компютъра директно ...

едно време се занимавах с такива глупости исках да си направя да си гася лампите със гласова команда към компютъра ама успях само с цъкане на мишката, не ми стигна акъла как да направя с глас

[besom]

малиииии и теб ще черпя бе - ма напрово един купон да спретнем - сериозен съм.

Добре бе пичове т`ва защо се получава - когато колоните са повер он и машината работи, се държат великолепно без значение колко са усилени (хардуерно самите колони). гасиш машината и почват да бучат - не е точно брум едно такова си бучи - пак без значение колко са усилени. Ръчках, слагах съпротивления, кондензатори чудисии и пак така. Спиме в това помещение иначе хич няма и да изключвам машината.

[NO CARRIER]

RazorJack пусни и програмата де. Да не се мъча. Не, че е философия, ама...

besom, ако не са те уредили, утре като се очовеча ще пиша подробности.
Между другото, кажи колко разбираш от електроника? Добавянето на един стабилизатор от сорта на 7812 върши чудесна работа в борбата срещу брума понякога. Но ако смущенията идат по кабела, не става.

[RazorJack]

RazorJack пусни и програмата де. Да не се мъча. Не, че е философия, ама...

Ми ок то едно време бях писал статия даже по въпроса и мисля че го имам готово някъде ...

... ми не е съвсем цялата програма ама почти, тва е основното вече интерфейса и главната програма дето вика тия функцийки лесно ще си ги допише всеки

та програмата ползва тва за комуникация с порта и трябва да го дръпнеш.

ето и самата програма за Delphi:

Функцията, която ще използваме се нарича Out32. В началото на програмата трябва да си я дефинирате така:

function Out32(wAddr:word;bOut:byte):byte; stdcall; external 'inpout32.dll';

Ще трябва да си дефинирате една константа, оказваща кой е адресът на паралелният порт. В повечето случаи това е $378.

Const PortAddr=$378;

Също така ще ви трябва и една глобална променлива, в която да пазите текущото състояние на порта, и която трябва да нулирате при пускане на програмата.

var PortState:byte;

След това ще направим по една функция за пускане и спиране на сигналът от крачета 2 до 9 на пралелният порт. Ще ги кръстим StartPort и респективно StopPort, и като параметър ще им подавате числа от 0 до 7 като имате в предвид че числото 0 ще отговаря на краче 2 от порта, а числото 7 ще отговаря на краче 9.

Function CheckBit(inp,bit:byte):byte;
var chk:byte;
Begin
chk:=1 shl bit;
result:=(inp and chk)shr bit;
End;

Function ChangeBit(inp,bit:byte):byte;
var chk:byte;
Begin
chk:=1 shl bit;
result:=inp xor chk;
End;

Procedure StartPort(Port:byte);
Begin
if not port in [0..7] then exit;
if CheckBit(portstate,port)=1 then exit;
portstate:=changebit(portstate,port);
Out32(PortAddr,portstate);
End;

Procedure StopPort(Port:byte);
Begin
if not port in [0..7] then exit;
if CheckBit(portstate,port)=0 then exit;
portstate:=changebit(portstate,port);
Out32(PortAddr,portstate);
End;

[besom]

... Между другото, кажи колко разбираш от електроника?.

ми в общи линии - нещо срено м/у разбирам и гол ентусиазъм - има кой да питам обаче а ако се наложии да помогне

[NO CARRIER]

Аз пак съм за малко. Жени, какво да ги правиш...

Хвърли един поглед тук: http://hobby.neomontana-bg.com/kit122.htm Даже и софтуер дават. Можеш да си направиш схемата с едно реленце, без да купуваш платката и да ползваш техния софтуер. Ако не те устройва, при първа възможност ще ти драсна нещо.

[besom]

Аз пак съм за малко. Жени, какво да ги правиш...

Хвърли един поглед тук: http://hobby.neomontana-bg.com/kit122.htm Даже и софтуер дават. Можеш да си направиш схемата с едно реленце, без да купуваш платката и да ползваш техния софтуер. Ако не те устройва, при първа възможност ще ти драсна нещо.

ми много си е кул даже  - 10х мен вече знам какво ще има на всичките 4 релета - лалалала

[Longanlon]

Дали можете да ми помогнете да намеря от някъде сезони 2 и 3 на сериала Съдия Ейми (Judging Amy)?

На втория сезон ми трябват само епизодите от 11 нагоре, другите ги имам...

Всъщност и сезони 4 и 5 търся, ама 2 и 3 са ми по-спешни