Köszi!kapu48 írta:Minél gyorsabb a kristályod annál finomabban be tudod lőni.
Próbáld a Timert mondjuk 100Khz-re beállítani.
És a megszakítás rutinban osztani.
Holnap kipróbálom!
Üdv. Ottó
Kód: Egész kijelölése
$crystal = 1000000
Kód: Egész kijelölése
$regfile = "ATtiny2313.DAT"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 32
Do
waitms 1
toggle portb.1
Loop
kapu48 írta:Mértékegységek átszámítási táblázata:
http://sry.atw.hu/mertek.htm
Vagy: http://tankonyv.ham.hu/A_vizsga-DJ4UF/?cid=a03
1 min (Perc) = 60 sec (másodperc)
1 sec (másodperc) = 10a 3.kon = 1000 (MilliSec)
Mivel 2 (MilliSec) Alatt van teljes 0-1-0 Periódusod ezért:
1000 (MilliSec) / 2 (MilliSec) = 500Hz
Kód: Egész kijelölése
$regfile = "ATtiny2313.DAT"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 32
Config Portb = Output
Portb.1 = 0
Do
Toggle Portb.1
Wait 10
Loop
Kód: Egész kijelölése
$regfile = "ATtiny2313.DAT"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 32
Config Portd.2 = Input
Config Portd.3 = Input
Config Portb.2 = Output
Config Portb.0 = Output
Dim A As Integer
A = 1
Portb.2 = 0
Portb.0 = 0
Print "Nesto:" , Portb.2
Do
If A < 10 Then
Portb.0 = 1
Else
Portb.0 = 0
End If
If Pind.2 = 1 Then
A = A + 10
End If
If Pind.3 = 1 Then
If A < 1 Then
A = 1
Else
A = A - 1
End If
End If
Portb.2 = 0
Waitms A
Portb.2 = 1
Waitms A
Loop
Kód: Egész kijelölése
Timer0 = 6 'mivel 256-250 = 6
Start Timer0
On Timer0 Letelt
Letelt:
Toggle portb.1