Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



А кому ЁЛКУ!!!!

Сообщений 1 страница 12 из 12

1

Дочке в школу надо было поделку сделать. Ёлку.
http://s5.uploads.ru/t/oh60f.jpg

http://s1.uploads.ru/t/BDTcV.jpg

http://s8.uploads.ru/t/NZUQy.jpg

А файл с подробностями прикрепить как-то можно?

Отредактировано Димон (2016-12-14 20:21:46)

+2

2

http://sh.uploads.ru/t/xcPoF.png

+2

3

Программа примитивная.

Включается, мигает и уходит спящий режим.

Повторно включается нажатием на кнопку (Reset).

Код:
'===========================================================
'Новогодняя кибер-ёлка
'Y.D.E. 2016
'===========================================================

$regfile = "m8def.dat"                                      'указать нужный
$crystal = 1000000                                          'указать нужный
$hwstack = 16
$swstack = 64
$framesize = 32
'*******************************************************************************

Dim Pause As Word
Dim Pause2 As Word
Dim N As Byte
Dim I As Word

'*******************************************************************************
'настройка подключения светодиодов
Config Portd = Output                                       'Зеленые светодиоды
Config Portb.0 = Output                                     'красный светодиод

Portd = 0

Pause = 100
Pause2 = 300


Led_red Alias Portb.0                                       'красный светодиод  Звездочка
Led1 Alias Portd.3                                          'Зеленые светодиоды  ветки
Led2 Alias Portd.2
Led3 Alias Portd.4
Led4 Alias Portd.1
Led5 Alias Portd.5
Led6 Alias Portd.0
Led7 Alias Portd.6
Led8 Alias Portd.7

Led_red = 0
I = 0

'**************************     ОСНОВНОЙ ЦИКЛ ПРОГРАММЫ
Portd = 255
Waitms 100
Portd = 0
Wait 1

'+++++++++++ программа 1
Led7 = 1
Led8 = 1
Waitms Pause2
Led5 = 1
Led6 = 1
Waitms Pause2
Led4 = 1
Led3 = 1
Waitms Pause2
Led2 = 1
Led1 = 1
Waitms Pause2
Led_red = 1
Wait 1
'****
'+++++++++++ программа 2
Portd = 0
For N = 1 To 5
    Led2 = 0
    Led1 = 0
    Led7 = 1
    Led8 = 1
    Waitms Pause2
    Led7 = 0
    Led8 = 0
    Led5 = 1
    Led6 = 1
    Waitms Pause2
    Led5 = 0
    Led6 = 0
    Led4 = 1
    Led3 = 1
    Waitms Pause2
    Led4 = 0
    Led3 = 0
    Led2 = 1
    Led1 = 1
    Waitms Pause2
Next N
'****
'+++++++++++ программа 3
Portd = 0
For N = 1 To 3
 Led8 = 1
  Waitms Pause2
 Led7 = 1
  Waitms Pause2
 Led6 = 1
  Waitms Pause2
 Led5 = 1
  Waitms Pause2
 Led4 = 1
  Waitms Pause2
 Led3 = 1
  Waitms Pause2
 Led2 = 1
  Waitms Pause2
 Led1 = 1
Waitms Pause2
 Led8 = 0
  Waitms Pause2
 Led7 = 0
  Waitms Pause2
 Led6 = 0
  Waitms Pause2
 Led5 = 0
  Waitms Pause2
 Led4 = 0
  Waitms Pause2
 Led3 = 0
  Waitms Pause2
 Led2 = 0
  Waitms Pause2
 Led1 = 0
  Waitms Pause2
 Next N
'****
'+++++++++++ программа 4
Led_red = 0
For N = 1 To 3
 Led8 = 1
  Waitms Pause2
 Led6 = 1
  Waitms Pause2
 Led4 = 1
  Waitms Pause2
 Led2 = 1
  Waitms Pause2
 Led_red = 1
  Waitms Pause2
 Led1 = 1
  Waitms Pause2
 Led3 = 1
  Waitms Pause2
 Led5 = 1
  Waitms Pause2
 Led7 = 1
Waitms Pause2
 Led8 = 0
  Waitms Pause2
 Led6 = 0
  Waitms Pause2
 Led4 = 0
  Waitms Pause2
 Led2 = 0
  Waitms Pause2
 led_red=0
  Waitms Pause2
 Led1 = 0
  Waitms Pause2
 Led3 = 0
  Waitms Pause2
 Led5 = 0
  Waitms Pause2
 Led7 = 0
  Waitms Pause2
 Next N
 Led_red = 1
'****
'+++++++++++ программа 5
Do
 Portd = Rnd(255)
 Waitms 100
 Incr I
Loop Until I = 200
'****
'+++++++++++ программа 6
For N = 1 To 3
 Portd = 255
 Waitms Pause
 Portd = 0
 Waitms Pause
Next N
'****
'+++++++++++ переход в спящий режим

Led_red = 0
Powerdown                                                   'спящий режим

End

'*******************************************************************************

+4

4

Супер !

0

5

хаха! круто :)
блин, вытачивать дома такое - жестковато...

0

6

http://sf.uploads.ru/t/EJc3K.jpg
Не! Болгаркой оказалось ваще фигня! Правда в респираторе был.

Отредактировано Димон (2016-12-15 17:19:52)

+2

7

настоящий handmade!  :cool:

0

8

Димон написал(а):

А файл с подробностями прикрепить как-то можно?

Файлы можно закинуть на любой файлообменник, а сюда ссылку.
Звезду как делали?

0

9

Здесь весь материал: http://lightportal.at.ua/publ/dekorativ … 14-1-0-129

0

10

Оперативно, спасибо.

0

11

Димон, руки у вас золотые... я б не смог!

0

12

Спасибо. Сам в шоке.

0