witam, mam maly problem, nie bede podawal szczegolow projektu, gdyz nie sa istotne. chodzi mi o przekazanie informacji w JEDNYM kiedrunku z jednego AVRa do drugiego. polaczenie mialoby byc zrealizowane przez UARTa. jakie dane? w programie pierwszego AVRa wystepuja 4 zmienne typu byte, ktorych...

Przeciez to banal. Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka $regfile = 8535def.dat $crystal = 4000000 $baud = 9600 Dim Wskaznik As Byte Dim Dane(4) As Byte On Urxc Odebranybajt Nosave Enable Interrupts Wskaznik = 0 Do If Wskaznik = 4 Then Wskaznik = 0 'a tu dalsze intrukcje 'jak juz masz wszystkie 4 bajty End If Loop Odebranybajt: Wskaznik = Wskaznik + 1 Dane(wskaznik) = Udr Return Mniej wiecej. Dlatego wlasnie warto sie uczyc innych jezykow programowania. Bascom jest do zabawy, ale oczywiscie mozna cos z niego wykrzesac schodzac nieco nizej do sprzetu. Tylko wtedy juz nie programujemy w Bascomie (mimo ze skladnia jest Bascoma) tylko bardziej w C lub Pascalu. Pozdro Dexter

Zrob to po swojemu, bez kozystania z procedur Bascoma. ustaw odpowiednie rejestry, wlacz przerwanie i w jego obsludze wpisz byte=udr i tyle. W zmiennej byte bedziesz mial odebrana dana. Zmienna najprosciej zadeklarowac jako tablice czteroelementowa i do tego wskaznik zliczajacy do 4. Kazde przerwanie bedzie zwiekszalo dodatkowo wskaznik i sprawdzalo czy tablica jest juz pelna (odebrane wszystkie 4 dane) Pozdro Dexter

mniej wiecej pojmuje o co Ci chodzi, jednak bardziej łopatologicznie prosze:D max

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Jak przesłać dane przez UART między dwoma AVR w BASCOM?

04 Lip 2005 03:18 1293 3

REKLAMA

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 1627270 04 Lip 2005 03:18

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #1
1627270 04 Lip 2005 03:18

witam,
mam maly problem, nie bede podawal szczegolow projektu, gdyz nie sa istotne. chodzi mi o przekazanie informacji w JEDNYM kiedrunku z jednego AVRa do drugiego. polaczenie mialoby byc zrealizowane przez UARTa. jakie dane? w programie pierwszego AVRa wystepuja 4 zmienne typu byte, ktorych wartosci chcialbym przetransportowac do drugiego AVRa. wysylam dane poleceniem PRINT. tu nie ma problemu. ale jak je odebrac? poleceniem INPUT operujemy gdy mamy do czynienia z terminalem. w jakims numerze EP byl artykul o laczu RS232. bylo powiedziane tam, ze jest polecenie INPUTBIN. odebrane informacje nie kleja sie "kupy". macie jakies pomysly? a moze SEROUT? (programowe) z tym ze tu nie pojawiaja sie zadne informacje na wyjsciu. studiowalem juz plik pomocy (ten tlumaczenia p Gibka), jednak nadal nie moge tego rozgryzc.
za pomoc z gory dziekuje,
max

Arrow MultiSolution Day Warsaw 2026 – bezpłatna konferencja elektroniki i automatyki już 16 czerwca [sponsorowany]

REKLAMA
#2 1627328 04 Lip 2005 08:18

Dexter77 Dexter77

Poziom 28

Posty: 889

Pomógł: 134

Ocena: 19
Pomocny post? (0)

Post #2
1627328 04 Lip 2005 08:18

Zrob to po swojemu, bez kozystania z procedur Bascoma. ustaw odpowiednie rejestry, wlacz przerwanie i w jego obsludze wpisz byte=udr i tyle. W zmiennej byte bedziesz mial odebrana dana. Zmienna najprosciej zadeklarowac jako tablice czteroelementowa i do tego wskaznik zliczajacy do 4. Kazde przerwanie bedzie zwiekszalo dodatkowo wskaznik i sprawdzalo czy tablica jest juz pelna (odebrane wszystkie 4 dane)
Pozdro
Dexter
REKLAMA
#3 1627817 04 Lip 2005 12:37

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #3
1627817 04 Lip 2005 12:37

mniej wiecej pojmuje o co Ci chodzi, jednak bardziej łopatologicznie prosze:D
max
Pomocny post

#4 1628864 04 Lip 2005 19:53

Dexter77 Dexter77

Poziom 28

Posty: 889

Pomógł: 134

Ocena: 19
Pomocny post? (+1)

Pomocny post
Post #4
1628864 04 Lip 2005 19:53

Przeciez to banal.
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
$regfile = "8535def.dat" $crystal = 4000000 $baud = 9600 Dim Wskaznik As Byte Dim Dane(4) As Byte On Urxc Odebranybajt Nosave Enable Interrupts Wskaznik = 0 Do If Wskaznik = 4 Then Wskaznik = 0 'a tu dalsze intrukcje 'jak juz masz wszystkie 4 bajty End If Loop Odebranybajt: Wskaznik = Wskaznik + 1 Dane(wskaznik) = Udr Return

Mniej wiecej. Dlatego wlasnie warto sie uczyc innych jezykow programowania. Bascom jest do zabawy, ale oczywiscie mozna cos z niego wykrzesac schodzac nieco nizej do sprzetu. Tylko wtedy juz nie programujemy w Bascomie (mimo ze skladnia jest Bascoma) tylko bardziej w C lub Pascalu.
Pozdro
Dexter
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa

REKLAMA