Author Topic: Испитувач на LAN кабли  (Read 964 times)

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Испитувач на LAN кабли
« Opened on 30.12.2011, Friday, 21:32:19 »
Знам дека вакво нешто може да се најде на нет за 3-4$ :D
ама пошто нештото кога сам ќе го составиш е поинакво чувството зедов од досада составив некој мини испитувач :)
не е нешто посебно, еден микроконтролер (PIC16F628/A) 16 LED диоди, 11 отпорници неколку тастери кристал и кондензатори ...
значи прилично просто, со тоа што главната плоча содржи се од ова погоре спомнатото освем 8 LED диоди, тие 8 лед диоди се од додатната плоча..
Кодот е ептем глуп и го составив за 5 минути, начкрабан на брзинка во µBasic PRO for PIC, не е нешто посебно се користи функција за броење од 0 до хх, кога ќе стигне до хх ( i = xx ) се врши наредната операција (next i = 1 to хх)
еве го кодот, ако му треба на некој нека си го модифицира (доколку знае како)
Code: [Select]
'*********** Ispituvac na LAN kabli ************
' ************** Dizajnirano od Devil ************
'  *************** PIC16F628A *********************
program Lan_tester
dim n as byte
main:
TRISB = 0
PORTB = 0
Delay_ms(200)
loop:
For n = 1 to 5
PORTB.0 = 1
Delay_ms(500)
PORTB.0 = 0
PORTB.1 = 1
Delay_ms(500)
PORTB.1 = 0
PORTB.2 = 1
Delay_ms(500)
PORTB.2 = 0
PORTB.3 = 1
Delay_ms(500)
PORTB.3 = 0
PORTB.4 = 1
Delay_ms(500)
PORTB.4 = 0
PORTB.5 = 1
Delay_ms(500)
PORTB.5 = 0
PORTB.6 = 1
Delay_ms(500)
PORTB.6 = 0
PORTB.7 = 1
Delay_ms(500)
PORTB.7 = 0
Delay_ms(500)

next n
for n = 1 to 5
PORTB.0 = 1
Delay_ms(500)
PORTB.0 = 0
Delay_ms(500)
next n

for n = 1 to 5
PORTB.1 = 1
Delay_ms(500)
PORTB.1 = 0
Delay_ms(500)
next n

for n = 1 to 5
PORTB.2 = 1
Delay_ms(500)
PORTB.2 = 0
Delay_ms(500)
next n

for n = 1 to 5
PORTB.3 = 1
Delay_ms(500)
PORTB.3 = 0
Delay_ms(500)
next n

for n = 1 to 5
PORTB.4 = 1
Delay_ms(500)
PORTB.4 = 0
Delay_ms(500)
next n

for n = 1 to 5
PORTB.5 = 1
Delay_ms(500)
PORTB.5 = 0
Delay_ms(500)
next n

for n = 1 to 5
PORTB.6 = 1
Delay_ms(500)
PORTB.6 = 0
Delay_ms(500)
next n

for n = 1 to 5
PORTB.7 = 1
Delay_ms(500)
PORTB.7 = 0
Delay_ms(500)
next n
goto loop
end.

еве ја шемата, од неа може да се види дека има 3 тастери кај едниот тастер пишува RESET тоа е ресет копче за програмата да започне од ново со броење, и има уште 2 други тастери кој се за специјални функции, ама тоа не ми е сеуште додадено пошто моментално работам на некоја USB развојна околина (дизајнот на околината) ќе биде нешто како Arduino ама со PIC наместо AVR, не е нешто посебно, ептем е глупо... (ќе отворам подоцна посебна тема за него).


еве видео како изгледа, „малку“ има лаг, ама тоа е пошто користам глупи програми за да снимаат тоа што се работи на работната површина :P
Lan Cable Tester
Jас не сум себичен, помагам. Помагај и ти !

Секоја куќа си има свои куќни правила.Почитувај ги куќните правила!

Offline DX-er

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 6340
  • Gender: Male
    • Докажи дека си човек и речи стоп за убиствата на бебиња! Ако не си човек, требало и тебе да те абортираат :)
Одг: Испитувач на LAN кабли
« Reply #1 on 30.12.2011, Friday, 22:04:15 »
Браво за проектов, корисна работа. Едино можеш да го исврлиш кристалот и кондензаторите бидејки овој пик има вграден осцилатор (кај ЛЕД пораката од Борче се користи вградениот) а по скопскиве цени тоа би било околу 50 денари заштеда :)
Чувството кога некој ограничен со размислувањето ке зборува за двојни стандарди/демократија/правила... бљак...

кликни тука за инфо околу форумот.

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Одг: Испитувач на LAN кабли
« Reply #2 on 30.12.2011, Friday, 22:06:21 »
би можело, ама јас кога правам нешто најчесто користам такви работи поради едностаноста на проектот, доколку сакам да го користам внатрешниот малку е зафркнато да се постави :)
Jас не сум себичен, помагам. Помагај и ти !

Секоја куќа си има свои куќни правила.Почитувај ги куќните правила!

Offline Goce

  • Стручњак
  • ***
  • Posts: 366
  • Gender: Male
Одг: Испитувач на LAN кабли
« Reply #3 on 31.12.2011, Saturday, 15:04:33 »
Како што гледам користи Basic компајлер на микроелектроника интерниот оцилаторо ти е најлесно нешто да го подесиш негледам усложнување на проектот одиш Edit project и наместо XT поставуваш INTOSC или кога се програмира микроконтролерот се подесува да работи со интерен осцилатор секој може тоа го промени кога ке го програмира контролерот.

Offline DX-er

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 6340
  • Gender: Male
    • Докажи дека си човек и речи стоп за убиствата на бебиња! Ако не си човек, требало и тебе да те абортираат :)
Одг: Испитувач на LAN кабли
« Reply #4 on 31.12.2011, Saturday, 15:36:23 (Edited 31.12.2011, Saturday, 15:41:52) »
Како што гледам користи Basic компајлер на микроелектроника интерниот оцилаторо ти е најлесно нешто да го подесиш негледам усложнување на проектот одиш Edit project и наместо XT поставуваш INTOSC или кога се програмира микроконтролерот се подесува да работи со интерен осцилатор секој може тоа го промени кога ке го програмира контролерот.
друже INTOSC ги има две, кое од нив е?




Во прилог се двете верзии, за кои не е потребен кристал и 2те кондензаторчиња
Чувството кога некој ограничен со размислувањето ке зборува за двојни стандарди/демократија/правила... бљак...

кликни тука за инфо околу форумот.

Offline GigaWatt

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 12890
  • Gender: Male
  • Не фалширам
Одг: Испитувач на LAN кабли
« Reply #5 on 31.12.2011, Saturday, 15:51:37 »
Мислам дека е то второто ;).
It's not schizophrenia... It's just a voice in my head...

"This is really a generic concept about human thinking - when faced with large tasks we're naturally inclined to try to break them down into a bunch of smaller tasks that together make up the whole."

"Newton's third law: The only way humans have ever figured out of getting somewhere is to leave something behind."

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Одг: Испитувач на LAN кабли
« Reply #6 on 31.12.2011, Saturday, 17:30:25 »
Како што гледам користи Basic компајлер на микроелектроника интерниот оцилаторо ти е најлесно нешто да го подесиш негледам усложнување на проектот одиш Edit project и наместо XT поставуваш INTOSC или кога се програмира микроконтролерот се подесува да работи со интерен осцилатор секој може тоа го промени кога ке го програмира контролерот.
да ама вака не мора ништо да поставувам :P

Jас не сум себичен, помагам. Помагај и ти !

Секоја куќа си има свои куќни правила.Почитувај ги куќните правила!

Offline Goce

  • Стручњак
  • ***
  • Posts: 366
  • Gender: Male
Одг: Испитувач на LAN кабли
« Reply #7 on 31.12.2011, Saturday, 18:06:47 »
Како што гледам користи Basic компајлер на микроелектроника интерниот оцилаторо ти е најлесно нешто да го подесиш негледам усложнување на проектот одиш Edit project и наместо XT поставуваш INTOSC или кога се програмира микроконтролерот се подесува да работи со интерен осцилатор секој може тоа го промени кога ке го програмира контролерот.
друже INTOSC ги има две, кое од нив е?




Во прилог се двете верзии, за кои не е потребен кристал и 2те кондензаторчиња



Како што кажа Gigawatt  второто