Форум РадиоКот

Вот здесь весь проект и прошивка на Basic
http://www.ledstyles.de/ftopic10038.html

здесь видео

http://www.youtube.com/watch?v=jwLoPu7r ... re=related

Помогите сделат к Новому Году
и скажитекак фюзи виставлять



'--------------------------------------------------------------
' Leuchtstern Version 1.01
' Copyright © 2009 by JayDragon
'
' Vcc = 3V (2x 1,5V)
' PB0-4 = LEDs
'---------------------------------------------------------------
$regfile = "ATtiny13.DAT"
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"

Ddrb = &B11111111

Declare Sub Lauflichtr()
Declare Sub Lauflichtl()
Declare Sub Volllaufr()
Declare Sub Volllaufl()
Declare Sub Rotation()

Dim I As Byte

Portb = &B000000

Do

I = Rnd(4)

Select Case I
Case 0 : Gosub Lauflichtr
Case 1 : Gosub Volllaufr
Case 2 : Gosub Rotation
Case 3 : Gosub Lauflichtl
Case 4 : Gosub Volllaufl
End Select

Waitms 50

Loop

Sub Volllaufr()
Portb = &B010000
Waitms 100

Portb = &B011000
Waitms 100

Portb = &B011100
Waitms 100

Portb = &B011110
Waitms 100

Portb = &B011111
Waitms 50

End Sub

Sub Volllaufl()

Portb = &B000001
Waitms 100

Portb = &B000011
Waitms 100

Portb = &B000111
Waitms 100

Portb = &B001111
Waitms 100

Portb = &B011111
Waitms 50

End Sub

Sub Lauflichtl()

Portb = &B010000
Waitms 100

Portb = &B001000
Waitms 100

Portb = &B000100
Waitms 100

Portb = &B000010
Waitms 100

Portb = &B000001
Waitms 50

End Sub

Sub Lauflichtr()

Portb = &B000001
Waitms 100

Portb = &B000010
Waitms 100

Portb = &B000100
Waitms 100

Portb = &B001000
Waitms 100

Portb = &B010000
Waitms 50

End Sub

Sub Rotation()

Portb = &B010101
Waitms 100

Portb = &B001010
Waitms 100

Portb = &B010101
Waitms 100

Portb = &B001010
Waitms 100

Portb = &B010101
Waitms 100

Portb = &B001010
Waitms 50

End Sub

End

Das ist nicht C, das ist Basic.

Спасибо
не знал

Переписано под кодевижн. Фузы оставить магазинные, т.е. 9,6 Мгц и делитель на 8.

Очень спасибо))
в протеус всьо заработало
Переписано под кодевижн што ето такое?

мзвините за тупой вопрос но файл хекс занимает 1,64 байт
а в даташите прочитал
• High Endurance Non-volatile Memory segments
– 1K Bytes of In-System Self-programmable Flash program memory
– 64 Bytes EEPROM
– 64 Bytes Internal SRAM
– Write/Erase cyles: 10,000 Flash/100,000 EEPROM
Всьо нармально памяти хватит?)

Надо чтоб в реале заработало. CodeVision есть оболочка для написания программ для микроконтроллеров семейства AVR. Язык С. Можете сейчас сами эффектов добавить кучу, насколько фантазии хватит.

Спасибо))

В .hex файле присутствует дополнительная информация. Она в мк не шьется.
А сама программа занимает 538 байт. Где вы 1,64 увидели? Непонятно. Вижу 1531 байт, что составляет 1,50.

ага всьо понял спасибо
есть же харошии люди))

Не такой уж я и хороший. Порой злой и жадный.

ну))
спасибо)
тему можно закривать