Pages: [1]   Go Down

Author Topic: Програм во Бејзик  (Read 1082 times)

Offline SKOLS_OLD

  • Топ Експерт
  • *****
  • Posts: 2782
  • Gender: Male
Програм во Бејзик
« Opened on 22.11.2010, Monday, 21:41:55 (Edited 22.11.2010, Monday, 21:57:19) »
еве една програма која ја почнав и ја напишав во Бејзик за ЛЕД диоди палење и гасење на портБ од микроконтролерот!Искорситив помош и од нет ама затоа самиот цела ја пишував!На развојниот систем ја испитав....и работи,еве  еден хекс фајл! ;D
Голема благодарност до Гоце,што ми помогна околу тоа што ми го покажа Бејзикот! :D ;D

Offline DX-er

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 6340
  • Gender: Male
    • Докажи дека си човек и речи стоп за убиствата на бебиња! Ако не си човек, требало и тебе да те абортираат :)
Одг: Програм во Бејзик
« Reply #1 on 22.11.2010, Monday, 22:19:47 »
браво мајсторе. имаш репутација за ова. иначе имаш шема?
Чувството кога некој ограничен со размислувањето ке зборува за двојни стандарди/демократија/правила... бљак...

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

Offline SKOLS_OLD

  • Топ Експерт
  • *****
  • Posts: 2782
  • Gender: Male
Одг: Програм во Бејзик
« Reply #2 on 22.11.2010, Monday, 22:27:19 »
немам,ама ке нацртам!Инаку е најпроста!Треба ЛЕД диоди на цела ПОРТБ да се постават!Колку пина толку диоди!

Offline GigaWatt

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 12890
  • Gender: Male
  • Не фалширам
Одг: Програм во Бејзик
« Reply #3 on 22.11.2010, Monday, 22:30:10 »
Quote from: SKOLS on 22.11.2010, Monday, 22:27:19
немам,ама ке нацртам!Инаку е најпроста!Треба ЛЕД диоди на цела ПОРТБ да се постават!Колку пина толку диоди!

Беза разлика, браво за подвигот, само нaпpед ;), +rep имаш од мене за ова ;).
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 SKOLS_OLD

  • Топ Експерт
  • *****
  • Posts: 2782
  • Gender: Male
Одг: Програм во Бејзик
« Reply #4 on 23.11.2010, Tuesday, 13:58:46 »
Еве уште една програма ја напишав денес!Движење на ЛЕД диодите,како Knight Rider!Ај помош околу видео да ставам!Незнам како! :D
ок го ставив отворете го во МЕДИА Плеер Класик!

Offline Malecko

  • Топ Експерт
  • *****
  • Posts: 3059
  • Gender: Male
Одг: Програм во Бејзик
« Reply #5 on 23.11.2010, Tuesday, 14:09:32 »
Oва не е knight rider... ;D Knight rider ти оноа кога лед диодите се одбиваат. :D ;)
If you're good at something, never do it for free... -Joker

Offline SKOLS_OLD

  • Топ Експерт
  • *****
  • Posts: 2782
  • Gender: Male
Одг: Програм во Бејзик
« Reply #6 on 23.11.2010, Tuesday, 14:12:56 »
абе не е доснимено клипчето!Инаку како Knight Rider е! ;) :D

Offline LordZi

  • Глобален Модератор
  • Топ Експерт
  • *****
  • Posts: 3185
  • Gender: Male
  • I'm gonna live forever or die trying...
    • LightCraft Studio
Одг: Одг: Програм во Бејзик
« Reply #7 on 23.11.2010, Tuesday, 17:06:57 »
Quote from: SKOLS on 23.11.2010, Tuesday, 13:58:46
Еве уште една програма ја напишав денес!Движење на ЛЕД диодите,како Knight Rider!Ај помош околу видео да ставам!Незнам како! :D
ок го ставив отворете го во МЕДИА Плеер Класик!

Направи акаунт на youtube, закачи го таму видеото и стави линк до него...
People who talk behind my back are in good position to kiss my ass!!!

"You may live to see man-made horrors beyond your comprehension." - Tesla

If animals had a religion, humans would be the devil.

LightCraft Studio

Offline GigaWatt

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 12890
  • Gender: Male
  • Не фалширам
Одг: Одг: Програм во Бејзик
« Reply #8 on 24.11.2010, Wednesday, 00:23:24 »
Quote from: LordZi on 23.11.2010, Tuesday, 17:06:57
Quote from: SKOLS on 23.11.2010, Tuesday, 13:58:46
Еве уште една програма ја напишав денес!Движење на ЛЕД диодите,како Knight Rider!Ај помош околу видео да ставам!Незнам како! :D
ок го ставив отворете го во МЕДИА Плеер Класик!

Направи акаунт на youtube, закачи го таму видеото и стави линк до него...

Еве туториал како да си го конвертираш клипчето во XviD, само што е наменето за рипување на DVD, не за MP4 фајлови, ама мислам дека ќе се снајдеш ;).

http://elektronika-mk.net/index.php?topic=1246.0
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 SKOLS_OLD

  • Топ Експерт
  • *****
  • Posts: 2782
  • Gender: Male
Одг: Програм во Бејзик
« Reply #9 on 24.11.2010, Wednesday, 10:37:29 »
ок,фала!Некако (ако) ќе се снајдам! :P :D

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Одг: Програм во Бејзик
« Reply #10 on 24.11.2010, Wednesday, 11:22:43 (Edited 24.11.2010, Wednesday, 11:45:24) »
е а оти направи да е вака две диоди да се движат
ај вака пробај

Code: [Select]
i  var byte  
j var word
k var byte
TRISB = $00  'Сите пинови на порта Б се излезни
PORTB = $00  ' Исклучија порта Б на почетокот
programa
pause 1500 ' пауза од 1.5сек.
Pocetok:
For i =1 to 4
if i = 1 Then j = 1000 ' пауза од 1 секунда
if i = 2 Then j = 500 ' пауза од 0.5 секунди
if i = 3 Then j = 250 ' пауза од 0,25 секунди
if i = 4 Then j = 100 ' пауза од 0,1 секунда

' Движење на диодите од десно на лево

High PortB.0 ' Вклучи лед на порта0
pause j

High PortB.1 ' Вклучи лед на порта 1
Low PortB.0 ' Исклучи порта 0
pause j

High PortB.2 ' вклучи порта 2
Low PortB.1 ' исклучи ( и ова се повторува за сите 8 порти да не пишам коментар на секое )
pause j

High PortB.3
Low PortB.2
pause j

High PortB.4
Low PortB.3
pause j

High PortB.5
Low PortB.4
pause j

High PortB.6
Low PortB.5
pause j

High PortB.7
Low portB.6
pause j

LowPortB.7
pause j
Pause 1000 ' пауза од 1 секунда

' Движење на диодите од лево на десно
    
High PortB.7 ' вклучи диода на порт 7
pause j

High PortB.6 ' исти команди како погоре но обратна функција
Low PortB.7
pause j

High PortB.5
Low PortB.6
pause j

High PortB.4
Low PortB.5
pause j

High PortB.3
Low PortB.4
pause j

High PortB.2
Low PortB.3
pause j

High PortB.1
Low PortB.2
pause j

High PortB.0
Low PortB.1
pause j

Low PortB.0
pause j
Pause 1000 ' пауза 1 секунда

' На крајот од циклусот трепни
for k = 1 to 2
PORTB = $FF ' Вклучи ги сите пинови на порта B
pause 300 ' мини пауза
PORTB = $00 ' Исклучи ја порта B
pause 300

next k
pause 1000
Next i
pause 1000

Goto Pocetok ' Почни од почеток
End ' Крај на програмата
Пробај ја и сними видео да видиме дали работи, да знам дали да се поправам или :)
Еве нешто јас што знам :)

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

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

Offline SKOLS_OLD

  • Топ Експерт
  • *****
  • Posts: 2782
  • Gender: Male
Одг: Програм во Бејзик
« Reply #11 on 24.11.2010, Wednesday, 11:38:36 »
да работи ок е!!!ке снимам клипче попослем!

Offline BorceBT

  • Топ Експерт
  • *****
  • Posts: 1826
  • Gender: Male
    • www.trajkovski.net
Одг: Програм во Бејзик
« Reply #12 on 24.11.2010, Wednesday, 16:01:46 »
Чекаме клипче :)
Никогаш неможеш да знаеш се, но секогаш можеш да знаеш повеќе.

Offline SKOLS_OLD

  • Топ Експерт
  • *****
  • Posts: 2782
  • Gender: Male
Одг: Програм во Бејзик
« Reply #13 on 24.11.2010, Wednesday, 20:51:30 »
ај помош околу екранот 2по16 и сакам да менувам со помош на потенциометар и да гледам промена на ЛЦДто!Ај ве молам некој програм нешто помош!!
Pages: [1]   Go Up