www.elektronik.si

[Maxx]

Pri 8051 imamo registre 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).

primer:
$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
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 " "