|
Svet elektronike Revija za prave elektronike
|
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
maxx83 Novinec
Pridružen/-a: Sob Jul 2005 9:10 Prispevkov: 3
|
Objavljeno: Sre Jul 06, 2005 8:28 am Naslov sporočila: Avr-8051 |
|
|
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 |
|
|
|
|
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
|