LED villogtató

hwstack, swstack és framesize-t vedd a felére, negyedére.
A fordításnál a $tiny direktívát tedd be.

A Tiny13-t felejtsd el a tanuláshoz. Mega8 a minimum! Különben tiszta szívás az elején az élet.....

zoli_varga

a felezés működött.
csak azért ezt a chipet használom mert ez most még elégnek tűnt. de lehet hogy hamar átváltok nagyobbra. csak eléggé felment az áruk tavalyhoz képest. a 2313 at kb 400 ért vettem a tiny13 at kb 300 ért.

Igen. Az árak kissé felmentek...
Jövő év közepére rendeződik - állítólag....

M8 alatt azért ne kezdj vele...

zoli_varga

megfogadom a tanácsod.
a led villogtatás már egész jól megy 4 led jobbra majd balra villog.

most a PWM érdekelne. ehhez a pulseout megfelelő? (hogyan?)

Nem.

PWM kell, a Bascomban a TIMER környékén nézz körbe. Ill a fórumban SW ill HW PWM

DOGMAN

Helló!

LED-szegmenst szeretnék tranzisztorral kapcsolni.
BC547 NPN tranyó van itthon.

Bázis a kontrollerre,
Kollektor a a LED tápvezetéke,
Emitter a LED szegmens közös anódja,

A LED szegmens katódjait az AVR 8 db portjával GND-re húzva kapcsolgatom ki be.

Azért kérdezem mert elvileg a kapcsolás így jó, de sehol nem láttam ilyen alkalmazásban NPN tranyót. Mindenhol közvetlen a testre kapcsolnak az emitterrel.
De úgy meg 8 db kellene, így meg csak 3 db (kicsi a hely...)

Kép

Ez is jó. Emitterkövető kapcsolásnak hívják....

DOGMAN

Köszi
(már hiányzott az oldal

)

szepnorbee

Üdv! Építettem mega8-al egy egyszerű led villogó kapcsolást, ami a PortB-n levő ledet villogtatná, de sanos nem teszi. Van a Port B-ken valami korlátozás erre? 4Mhz külsőről jár az uc. Egyik PortB-n sem villog a leg. Sz áramköt úgy néz ki, hogy a led + fele az 5V-on van a - fele pedig eg 1K-s ellenállton keresztül a PortB-n. Help! Köszi

Programkód?

Nincs korlátozás...

LED önmagában világít, ha a procilábat rövidrezárod?

szepnorbee

Jelenleg ez a programom:

Kód: Egész kijelölése

$regfile = "m8def.dat"
$crystal = 4000000

Config Pinb.1 = Output

Dim Wtime As Byte

Wtime = 1

Do
  Portb.1 = 1
  Wait Wtime
  Portb.1 = 0
  Wait Wtime
Loop

End                                                         'end program

A Led működik önmagában. Már vagy 3-at próbáltam

strigo

Szia!

Kód: Egész kijelölése

$regfile = "m8def.dat"
$crystal = 4000000 

Config Portb.1 = Output
Portb.1 = 1
Led Alias Portb.1

Do
  Reset Led 'vagy Toggle Led
  Wait 1
  Set Led 'vagy Toggle Led
  Wait 1
Loop

End

Így működik?
Talán a Pin és a Port nem összekeverendő!

Kód: Egész kijelölése

$regfile = "m8def.dat" 
$crystal = 4000000 

$hwstack = 40
$swstack = 80
$framesize = 80

Config Portb.1 = Output 
Dim Wtime As Word 'nem Byte (remélem...)
Wtime = 1 

Do 
  Portb.1 = 1 
  Wait Wtime 
  Portb.1 = 0 
  Wait Wtime 
Loop 
End                                                         'end program

Megjegyzés: Elvileg byte is jó lehet, a súgóban nem leltem, hogy milyen változót vár el. (waitms az word-t)
A frame/stack méreteket is beleírtam, hátha.
Hülye kérdés: Biztos hogy a LED a PortB.1-n van rajta?

szepnorbee

Köszi mindenkinek! Működik a dolog!

dompii

Sziasztok!

Most kezdtem programozgatni.... de megakadtam.
Nem azt csinálja az ic (tiny13) amit szeretnék...
Nem tudom az időket normálisan beállítani...

A program mindössze ennyi:

$crystal = 4000000
$regfile = "Attiny13.dat"

Config Pinb.1 = Output
Config Pinb.2 = Output

Do
Pinb.1 = 1
Pinb.2 = 0
Waitms 50
Pinb.1 = 0
Pinb.2 = 1
Waitms 50
Pinb.1 = 0
Pinb.2 = 0
Waitms 1000
Loop

a valóságban pedig kb 300 ms-al billeg a két led 300 ms szünettel...
csak villogtatni szeretném a ledeket
avr studióval programozom az ic-t egy hobbielektronikás progizóval(kölcsön kaptam)

kb ennyi lenne a bajom ...
segítséget előre is köszönöm