www.elektronik.si

[Predkambrij]

Pozdarvljeni,

Naredil sem Uart povezavo na računalnik in s terminalom lahko berem in pošiljam signale.
Naredil sem, da ob dolečenih številkah se zgodi določeno na mikrokontrolerju.
(z računalnika dela vse)

Potem sem pa naredil, da pošilja čip enake cifre, pa sem ugotovil, da poleg tiste cifre pošlje na koncu še 13 in 10 če gledamo desetiški sestav.
A = Inkey() 'cakam na ASCII vrednost na UARTu
If A > 0 Then 'ce smo nekaj dobili…
Print A
(program za test) pa če gledam dohodni podatki je recimo za mali "a" 97, ko pa printa je pa 97, 13, 10)

Če pošlem pa (A = 97) pošle pa pa po cifran, najprej 9 pol 7 pol pa še 13 in 10)

Zanima me, kako bo lahko naredil komunikacijo, na bolj preprost način.

Tole sem si zamislil bolj tako testni program, (še veliko za dodelat)
pa se ne obnese.
(1. čip)
'$sim
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600

Config Portc = Input

Dim A As Word

Naprej Alias Pinc.0
Naprejlevo Alias Pinc.1
Naprejdesno Alias Pinc.2
Nazaj Alias Pinc.3
Nazajlevo Alias Pinc.4
Nazajdesno Alias Pinc.5


Do

If Naprej = 1 Then
A = 131
End If
If Naprejlevo = 1 Then
A = 132
End If
If Naprejdesno = 1 Then
A = 133
End If
If Nazaj = 1 Then
A = 134
End If
If Nazajlevo = 1 Then
A = 135
End If
If Nazajdesno = 1 Then
A = 136
End If
If Naprej = 1 Or Naprejlevo = 1 Or Naprejdesno = 1 Or Nazaj = 1 Or Nazajlevo = 1 Or Nazajdesno = 1 Then
nop
Else
A = 0
End If
Print A

Loop
--------------------------------
(2.čip)
'$sim
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600

Config Portc = Output

Dim A As Byte
Naprej Alias Portc.0
Naprejlevo Alias Portc.1
Naprejdesno Alias Portc.2
Nazaj Alias Portc.3
Nazajlevo Alias Portc.4
Nazajdesno Alias Portc.5

Do
A = Inkey()
If A = 131 Then
Naprej = 1 'ce smo nekaj dobili…
Else
Naprej = 0
End If

A = Inkey()
If A = 132 Then
Naprejlevo = 1 'ce smo nekaj dobili…
Else
Naprejlevo = 0
End If

A = Inkey()
If A = 133 Then
Naprejdesno = 1 'ce smo nekaj dobili…
Else
Naprejdesno = 0
End If

A = Inkey()
If A = 134 Then
Nazaj = 1 'ce smo nekaj dobili…
Else
Nazaj = 0
End If

A = Inkey()
If A = 135 Then
Nazajlevo = 1 'ce smo nekaj dobili…
Else
Nazajlevo = 0
End If

A = Inkey()
If A = 136 Then
Nazajdesno = 1 'ce smo nekaj dobili…
Else
Nazajdesno = 0
End If
Loop

Hvala, LP

[strobos]

Pozdrav,

tista dva znaka sta ukaza za novo vrstico (13, 10). Da jih kontroler ne bo pošiljal, moraš dodati še podpičje Print A;
V sprejemnem kontrolerju pa bo lepše, če boš uporabil case stavek

do
A = Inkey()
select case A
case 131:Naprej = 1
case 132:Naprejlevo = 1
...
...
end select
loop

Zelo priporočljivo bi bilo, če bi zamenjal kristala za npr. 11.0592 MHz ali katerega, ki je tudi narejen za uart komunikacijo in potem boš lahko prenašal podatke z višjo hitrostjo brez napak.
Namesto ukaza Print lahko uporabiš Printbin za oddajanje in Inputbin za sprejem.

Lp

[NeoTO]

[dkone]

A je kdo probal med sabo povezati preko I2C? Bascom-AVR?

[Predkambrij]

heh, jaz ne, sej sem se šele zdej začel ukvarjat iz rs232
strobos, NeoTO hvala. Dela kakor sem si zamislil.

[Predkambrij]

Zanima me še nekej. Brskam po helpu, pa bo precej hitreje, če tukaj vprašam.
Enkrat mi je profesor omenil nek ukaz, s katerim naredi, da mikrokontroler varčuje z energijo. (verjetno v primeru, da dalj časa ni sprememb za ukrepat)
Naj bi zdržal z 9V baterijo tudi do enega leta.
Hvala Lp

[strobos]

Ukazi so Power down, Power save, Idle in ša kakšen bi se našel. Moraš pa v helpu prebrat kaj posamezen ukaz naredi.
Če hočeš, da boš z 9V baterijo kontroler poganjal eno leto, bo moral večino časa spati .

Lp

[Predkambrij]

Aha, si bom pogledal, hvala zaenkrat

[Predkambrij]

Pozdrav, po nekej časa
naredil sem zdej povezavo in deluje odlično.
Zamislil sem si, da bi dal vmes še pwm modulacijo in sicer dela, ADC je 10 biten, prav tako tudi pwm. Ko sem simuliral iz terminala, sem naredil, da vrednost pomnoži iz 8, tako da je največja vrednost 127. In zadeva je delovala kakor sem si jo zamislil. Ko sem naredil "oddajnik" je prišlo pa do nekakšnih težav. Vrednost ADC sem delil iz 8 in ko jo pošlem z ukazom printbin pošle 2 številki, če shranim kot byte pa samo 1.
1024 mislim da je 255 4 (verjetno 255× 4)
Zanima me, kako bi naredil da bi adc delil z 8, ali pa iz 4 in rezultat poslal po uartu, da bi bila samo 1 številka (vrednosti od 0 - 255)
Moj nov program:
oddajnik:
'$sim
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portd = Input
Config Portc.5 = Output

Config Adc = Single , Prescaler = Auto , Reference = Aref
Dim Adc0 As Word
Dim A As Byte
Dim B As Word
Dim J As Byte
Print "test"

Naprej Alias Pind.2
Nazaj Alias Pind.3
Levo Alias Pind.4
Desno Alias Pind.5

Do
Portc.5 = 0
Gosub Poizvedba_stanj
'pošlemSTART
Printbin 110
J = Adc0
'pošlem vrednost adc za pwm
Printbin J
'Treba poslat številka case
'NAPREJ
If A = 8 Then
Printbin 97
End If
'NAZAJ
If A = 4 Then
Printbin 100
End If
'NAPREJLEVO
If A = 10 Then
Printbin 98
End If
'NAPREJDESNO
If A = 9 Then
Printbin 99
End If
'NAZAJLEVO
If A = 6 Then
Printbin 101
End If
'NAZAJDESNO
If A = 5 Then
Printbin 102
End If
'STOJ!!!
If A = 16 Then
Printbin 103
End If



Portc.5 = 1
Waitms 10
'Waitms 1000
Loop

Poizvedba_stanj:
Adc0 = Getadc(0)
If Naprej = 0 And Nazaj = 0 And Levo = 0 And Desno = 0 Then
A = 16
End If
If Naprej = 0 And Nazaj = 0 And Levo = 0 And Desno = 1 Then
A = 1
End If
If Naprej = 0 And Nazaj = 0 And Levo = 1 And Desno = 0 Then
A = 2
End If
If Naprej = 0 And Nazaj = 0 And Levo = 1 And Desno = 1 Then
A = 3
End If
If Naprej = 0 And Nazaj = 1 And Levo = 0 And Desno = 0 Then
A = 4
End If
If Naprej = 0 And Nazaj = 1 And Levo = 0 And Desno = 1 Then
A = 5
End If
If Naprej = 0 And Nazaj = 1 And Levo = 1 And Desno = 0 Then
A = 6
End If
If Naprej = 0 And Nazaj = 1 And Levo = 1 And Desno = 1 Then
A = 7
End If
If Naprej = 1 And Nazaj = 0 And Levo = 0 And Desno = 0 Then
A = 8
End If
If Naprej = 1 And Nazaj = 0 And Levo = 0 And Desno = 1 Then
A = 9
End If
If Naprej = 1 And Nazaj = 0 And Levo = 1 And Desno = 0 Then
A = 10
End If
If Naprej = 1 And Nazaj = 0 And Levo = 1 And Desno = 1 Then
A = 11
End If
If Naprej = 1 And Nazaj = 1 And Levo = 0 And Desno = 0 Then
A = 12
End If
If Naprej = 1 And Nazaj = 1 And Levo = 0 And Desno = 1 Then
A = 13
End If
If Naprej = 1 And Nazaj = 1 And Levo = 1 And Desno = 0 Then
A = 14
End If
If Naprej = 1 And Nazaj = 1 And Levo = 1 And Desno = 1 Then
A = 15
End If
Return
-------
sprejemnik:
'$sim
$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Enable Timer1
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 64
Portb = 0


Dim A As Byte
Dim B As Word
Dim C As Word
Dim D As Word
Print "test"
Motorp Alias Portb.3
Motorm Alias Portb.4
Tuljavap Alias Portb.2
Tuljavam Alias Portb.1


Do
A = Inkey()
If A > 0 Then
Print A

'START programa
If A = 110 Then
Print "program štartan"
B = Waitkey()
'Print "je enako:" ; B
Print "vrednost PWM-ja" ; B
A = Waitkey()
Print "selekt case A = " ; A
If A > 99 Then
If A < 103 Then
B = 1024 - B
Print "B po deljenju umes u casah " ; B
End If
End If
Select Case A
Case 97 : Gosub Naprej
Case 98 : Gosub Naprejl
Case 99 : Gosub Naprejd
Case 100 : Gosub Nazaj
Case 101 : Gosub Nazajl
Case 102 : Gosub Nazajd
Case 103 : Gosub Stoj
Case Else : Gosub Cistfalen
End Select

End If
End If

Loop




Naprej:
Pwm1a = B 'Motorp
Motorm = 0
Tuljavap = 0
Tuljavam = 0
Return
Naprejl:
Pwm1a = B 'Motorp = Pwm1a
Motorm = 0
Tuljavap = 0
Tuljavam = 1
Return
Naprejd:
Pwm1a = B 'Motorp = Pwm1a
Motorm = 0
Tuljavap = 1
Tuljavam = 0
Return
Nazaj:
Pwm1a = B
Motorm = 1
Tuljavap = 0
Tuljavam = 0
Return
Nazajl:
Pwm1a = B
Motorm = 1
Tuljavap = 0
Tuljavam = 1
Return
Nazajd:
Pwm1a = B
Motorm = 1
Tuljavap = 1
Tuljavam = 0
Return
Stoj:
Pwm1a = 0
Motorm = 0
Tuljavap = 0
Tuljavam = 0
Return

Cistfalen:
Print "Nima mujo sreče"
Return

----

Hvala, lep pozdrav

[rudiP]

Dostikrat so pripete kode nepregledne:

naprimer:

[Predkambrij]

Ja.. naj razložim kako sem si ga zamislil. Delno sem provizorično rešil problem, vendar ni to - to.
Pri oddajniku gre najprej na "poizvedba stanj" v tem podprogramu dobi informacije o stanjih.
Adc0 = Getadc(0) - kolikor naj bo pwm, vse ostalo dol je pa logična tabela, ki določi A za določeno kombinacijo.
printbin 110 sem naredil, da "se program štarta" pri sprejemniku gre naprej, ko dobi za inkey 110. Po te številki v vrstnem redu sledi vrednost pwm, nato pa selekt case. V mojem primeru imam tukaj težavo, ker ne znam narediti, da bi resolucijo ad in pwm skrčil na 8 bitov, tako do bi imel samo eno številko. če številko delim z 4 dobim od 0 do 255, vendar je še vedno ta številka word, če dam shraniti v drugo spremenljivko, ki je byte imam 2 številke. 1. je potem 0-32 druga je več čas 0, ker deli vsako posebaj.

Trenutno sem program še malo dodelal, ga bom zakomentiral in uredil, pa ga pošlem v priponki, da ne bom raztegnil teme.

Hvala

[rudiP]

Poskusi tako:

[rudiP]

Ni mi dalo miru, pa sem malo popravil. Upam da ti bo to kaj koristilo.

[Predkambrij]

a... hvala, bom rabil nekaj časa da preštudiram.
Moja začasna rešitev ja bila ta, da sem dejansko skalkuliral tiste dve številki. Dejansko imam zdaj 10 bitno resolucijo. Terminal mi deluje tudi če ne pošlem 13 in 10, ker lahko opazujem tudi dobljene številke v desetiškem sestavu. (znaki se nadaljujejo v isti vrstici)