38kHz u Bascomu

[Kukinjos]

Evo nešto što Still jako voli :

Code: Select all

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portb.1 = Output
Tccr1a = &B01010000
Tccr1b = &B00001001
Ocr1a = 104

Do
Tccr1a = &B10010000
Waitus 29700
Tccr1a = &B01010000
Waitus 1550
Loop

Spajaš otpor cca. 150 oma na portb.1, drugi kraj na anodu IR diode, i katodu na masu.

edit:
spoji slušalicu na portb.1 i masu, moraš čut impulse 32 Hz.

[InTheStillOfTheNight]

Uf, svrsavam kad to vidim

Daj samo ugasite ove postavke od COM-a za OCR1B. Čisto da ne zbunjuju kad se vec ne koriste.
A sta uopce treba napraviti? Koliko vidim po naslovu trebalo je generirati 38 kHz, ali mi se nekako cini da to nije kraj price....

[Kukinjos]

Znao sam ono o svršavanju

Code: Select all

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portb.1 = Output
Tccr1a = &B01000000
Tccr1b = &B00001001
Ocr1a = 104

Do
Tccr1a = &B10000000
Waitus 29700
Tccr1a = &B01000000
Waitus 1550
Loop

A i meni se čini da će ova kobasica narast , uostalom @manac5800, zar nije atmega8 lagani overkill za ovo? Može li to neki Tiny? I pitanje, fuse bits? Kako si namjestio. Možeš "pogledat" diodu s kamerom mobitela i vidjet jel radi.

[Kukinjos]

Evo Still, da ne budeš nervozan:

Code: Select all

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portb.1 = Output
Tccr1a = &B10000000
Tccr1b = &B00001001
Ocr1a = 104

Dim Impuls As Byte
Impuls = 0
Const On = 12
Const Off = 232

config timer0=timer,prescale = 1024
Load Timer0 , Off
on ovf0 Timer0_isr
enable ovf0
start timer0
enable interrupts

Do

Loop

Timer0_isr:

   Toggle Impuls

   If Impuls = 0 Then
      Tccr1a = &B10000000
      Load Timer0 , Off

      Else
      Tccr1a = &B01000000
      Load Timer0 , On

   End If


  return

Ovo može u interrupt-u, neće se mega puno umorit

[Kukinjos]

A glupog Bascom-a, gledam kod i vidim da sam dimenzionirao varijablu impuls kao byte, pa kažem zašto kad može bit, kompajliram to a bascom poveća kod s 306 na 328 byte-a. Bože sačuvaj

[InTheStillOfTheNight]

Ja jos ne kuzim sta treba napraviti

[manac5800]

@ kukinjos: sry, nemam sad vremena za probati sve ovo...
evo fuse bitovi: http://www.easilysharing.com/images/836 ... 747509.png
diodu pogledao, radi..

@Still: ovo mi treba raditi kao transmitter s OVOG linka... i pokušavam napraviti baš taj sklop, samo ne sa 555 i svim tim ostalim nego pomoću MCU-a...

[Kukinjos]

Jesi li probao s nekim od ova dva zadnja programa, jel radi? Na osciloskopu su impulsi kao i kod onog lika i trebalo bi radit. Samo provjeri fuse bit za oscilator, trenutno ti je spojen interni RC oscilator, a ako koristiš kristal na 8 MHz onda ih trebaš promjenit na Ext. Cristal/Resonator High Freq.

[InTheStillOfTheNight]

Ja i dalje ne kuzim u cemu je trik... Samo lud decko bi uzeo MCU i generirao 38 kHz... Ako je to jedina misija koju MCU treba raditi onda bolje uzmi 555... Nista ti nisi bolje i preciznije dobio koristeci MCU, osim sto je cijena uređaja sigurno narasla...

[Kukinjos]

Recimo ATTiny13 bi bio donekle razumna zamjena za NE556 i onih par elemenata. Ali ja ne bih s gledišta struke, nikad to radio s kontrolerom, ako to ne bi radilo još nešto imalo inteligentnije, da ne spominjem megu-8, totalni overkill.

[manac5800]

Ma ne, pa nisam ni ja toliko lud da bi koristio MCU samo za to...nego želim napraviti rasvjetu za stepenište pomoću onih LED traka.. i na svaku stepenicu staviti IR senzor tako da kad se stane na stepenicu (prekine se IR zraka) na stepenici se upali svjetlo... tako da mi ni mega8 čak nije dovoljna jer trebam za 13 stepenica...znači 13 ulaznih signala i 13 za upravljanje svjetlima...

sad sam probao, ne radi baš ko na linku onom...doduše možda je do glavnog programa ili TSOP1738 (nemam 1838 :S)
evo cijeli..:

Code: Select all

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portc.5 = Output
Config Pind.0 = Input

Led1 Alias Portc.5
Ulaz Alias Pind.0

Reset Ulaz
Config Portb.1 = Output
Tccr1a = &B10000000
Tccr1b = &B00001001
Ocr1a = 104

Dim Impuls As Byte
Impuls = 0
Const On = 12
Const Off = 232

config timer0=timer,prescale = 1024
Load Timer0 , Off
on ovf0 Timer0_isr
enable ovf0
start timer0
enable interrupts

Do
If Ulaz = On Then
   Led1 = 0
   End If

   If Ulaz = Off Then
   Led1 = 1
   End If

Loop

Timer0_isr:

   Toggle Impuls

   If Impuls = 0 Then
      Tccr1a = &B10000000
      Load Timer0 , Off

      Else
      Tccr1a = &B01000000
      Load Timer0 , On

   End If


  return

[Kukinjos]

A bome za taj uređaj ti i ne treba mikrokontroler, ali ako ga već i koristiš, razmisli o multipleksiranju ulaza i ili izlaza Reci kako to "ne radi baš ko na linku onom..." u čemu je razlika?

[manac5800]

Ma mislio sam dodati još "nesenzorskih" načina rada, tipa trčeće svjetlo i tako to...nezz, 5-6 različitih, u slučaju da se nešto od senzora pokida ili nešto drugo...

LED na izlazu onako treperi, slično ko kad uperim daljinski upravljač u 1738 i stisnem neku tipku...samo malo brže čak... :/ ako treba snimim pa stavim..

[Kukinjos]

Treperi u ritmu 32 Hz, trebaš stavit RC filter ili softverski rješit.

[Kukinjos]

Ima li pomaka, jesi stavio RC filter ili napravio kao onaj lik?

[manac5800]

Stavio elektrolitski od 4.7uF između + i - i 330Ohm, kao što je u datasheetu od 1738...danas sam tek našao od 100Ohm pa ću zamijeniti... ugl. to nije pomoglo... moguće da sam i krivo napravio, ili samo TSOP 1738 niti ne može dati kontinuiran signal... :/ tako da sam počeo tražiti i drugi prijamnik...

izgleda da ću nakon svega ipak napraviti ko onaj sa linka, a MCU koristiti samo za paljenje i gašenje svjetla... nemam doma neku trgovinu s takvim elektroničkim komponentama pa ću se prvom prilikom zaletiti do OS ili ZG kupiti potrebno...

[Kukinjos]

Pa ti si to stavio u napajanje, ali treba RC filter stavit na izlaz (OUT), recimo 4,7K i 2,2uF. To će filtrirat 32 Hz iz TSOP-a i na ulaz dovest čisti signal. Ovako:

TSOPxx.png (1.24 KiB) Viewed 9171 times

[Kukinjos]

Evo odgovaram sam sebi, ovo bi bilo bolje:

TSOPxx.png (1.41 KiB) Viewed 9166 times

[manac5800]

hm..nemam 2,2uF sad.. mogu staviti 1uF, 10uF ili 22uF?

[Kukinjos]

Što god, samo probaj