Kazalo po Svet elektronike forumu Svet elektronike
Revija za prave elektronike
 
AlbumAlbum   Pomoč pogostih vprašanjPomoč pogostih vprašanj   IščiIšči   Seznam članovSeznam članov   Skupine uporabnikovSkupine uporabnikov   Registriraj seRegistriraj se 
 Tvoj profilTvoj profil   Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil   PrijavaPrijava 

Avr-8051

 
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Samogradnje
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
maxx83
Novinec


Pridružen/-a: Sob Jul 2005 9:10
Prispevkov: 3

PrispevekObjavljeno: Sre Jul 06, 2005 8:28 am    Naslov sporočila: Avr-8051 Odgovori s citatom

Kako bi usrezno spremenil spodnji program da bo deloval tudi v bascom-AVR?
Pri 8051 so registri Scon.1 (serial port control) in Sbuf (serial data input) ; Kakšne so ustrezne zamenjave za AVR?
Kaj mogoče SPCR (serial port control) in SPDR(serial data input).
Pri definiciji teksta ima bascom-avr tudi neke probleme (Tekst="123")
Je treba še kaj zamenjat v spodnjem programu za pravilno delovanje?

primer: vf_oddajnik
$crystal = 12000000
$baud = 2400

Dim Kazalec As Byte , Kolikokrat As Byte 'kazalec doloca st.karakterjev
'kolikokrat doloca, kolikokrat se odda ista koda
Dim Crka As String * 1
Dim Tekst As String * 3
Dim Dolzina As Byte

Tekst = "123" ' tekst, ki ga zelimo sprejeti, prvi kanal
Dolzina = Len(tekst) ' Doloci dolzino teksta

Kazalec = 0
Kolikokrat = 0
Scon.1 = 1 'Scon=serial port control (!!!!)
Do ' neskoncna zanka
If Scon.1 = 1 Then 'predhodni byte je ze odsel
Scon.1 = 0 ' resetiramo
If P1.3 = 1 Then ' P1.3 = 1;vklop/izklop prvega kanala (!!porta.1=1)
Incr Kazalec
If Kazalec > Dolzina Then
Kazalec = 0
Incr Kolikokrat
If Kolikokrat = 1 Then ' ali je bila koda 1x oddana?
Powerdown ' mikrokontroler programsko ustavimo
End If
End If
Crka = Mid(tekst , Kazalec , 1)
Sbuf = Asc(crka) ' Sbuf = serial data port(!!!!!!!)
End If
End If
Waitms 10
Loop

Print " " ' ta ukaz nikoli ne bo prisel na vrsto
' prevajalnik bo nastavil vse potrebne registre
' za oddajo samo, ce kje sreca PRINT " "
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Samogradnje Časovni pas GMT + 1 ura, srednjeevropski - zimski čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
You cannot attach files in this forum
You cannot download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group