Re: Problem z komunikacją pomiędzy BTM a Atmegą32

2013-04-12T17:14:39+01:00

ale jestem głupi, przyczyną błędu były źle podpięte wyprowadzenia Txd i Rxd. Zamieniłem je miejscami i bez problemu migam diodami . Dzięki za próbę pomocy.

Statystyki: Napisane przez stopa — 12 kwi 2013, o 17:14

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

2013-04-12T14:04:04+01:00

tak, telefon jest sparowany. Tak jak pisałem widzę przychodzące znaki '1' i '0' na terminalu, gdy każe wysłać aplikacji znak z telefonu. Jak wysyłam znak to miga czerwona dioda TXD na zestawie uruchomieniowym - jedyna reakcja jaką mi się udaje uzyskać

Edycja:
Tak, dioda na BTmie po połączeniu z telefonem świeci cały czas.

Edycja2:
Zauważyłem, że po skasowaniu programu z mikrokontrolera przy wpisywaniu komend do terminala nie pojawiają się żadne krzaki. Natomiast po wgraniu programu co drugi znak to 'krzaczek'. Tak powinno być?

Statystyki: Napisane przez stopa — 12 kwi 2013, o 14:04

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

2013-04-12T13:39:26+01:00

stopa napisał(a):

ak jak pisałem po zwykłym kablu wysyłam z terminala '1' i '0' i dioda zmienia swój stan.

Więc problem na 100% w apce na androida albo ze spraowaniem

Czy sparowałeś się z BTM poprzez telefon?
Dioda na module BTM miga albo świeci?

Statystyki: Napisane przez xamrex — 12 kwi 2013, o 13:39

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

2013-04-12T11:38:05+01:00

Mirek,
wiem, że powinienem dać input=USART_Receive(); , ale input=UDR; to efekt tego, że próbowałem kilku rozwiązań . Tak jak pisałem po zwykłym kablu wysyłam z terminala '1' i '0' i dioda zmienia swój stan.

Temat o RS232 czytałem, na razie chciałem spróbować prostej transmisji bez buforów, tylko do celów testowych.

Statystyki: Napisane przez stopa — 12 kwi 2013, o 11:38

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

2013-04-12T11:03:13+01:00

No pięknie pięknie - zrobiłeś sobie "piękny" program na AVR w którym nawet zrobiłeś sobie funkcję

USART_Receive()

a potem BACH!!! i w pętli głównej widzimy:

input = UDR;

widać, że jeszcze chyba hmmm może nigdy (zgaduję tylko) nie zajmowałeś się w ogóle zwykłą transmisją RS232 albo tylko tak po łepkach na zasadzie że coś "uda się albo nie uda" ... stąd twoje problemy

ja proponuję ci NAJPIERW napisać sobie program testowy do AVR'a tak żeby mógł się komunikować np z terminalem w komputerze PC i żeby poprawnie odbierał to co wysyłasz w każdej sytuacji, ale uwaga - PO ZWYKŁYM KABLU (byle jakim kablu ale kablu) - zapomnij na razie o Bluetooth .... ponieważ BT na tym etapie to dla ciebie tylko kolejny ogromny problem i kolejna niewiadoma. Powiedz mi czy czytałeś dokładnie rozdział o buforach cyklicznych z tej książki ?

http://atnel.pl/mikrokontrolery-avr-jezyk-c.html

to sporo wyjaśni

Statystyki: Napisane przez mirekk36 — 12 kwi 2013, o 11:03

Problem z komunikacją pomiędzy BTM a Atmegą32

2013-04-12T09:53:50+01:00

Witam,
od pewnego czasu staram się skomunikować za pomocą aplikacji na androida napisanej według poradnika na tym forum, a moją Atmegą 32. Napiszę na jakim etapie jestem:
-gdy wysyłam znaki z telefonu to wyświetlają się na terminalu. Na zestawie uruchomieniowym przy wysyłaniu zaczyna migać czerwona dioda TXD. Problem polega na tym, że Atmega32 nie reaguje na te znaki. Napisałem prosty program na nią, który ma zapalić lub zgasić diodę po dostaniu znaku 1 lub 0.
-gdy wpisuję ręcznie na klawiaturze znaki 1 i 0 do terminala to stan diody zmienia się, więc wydaje mi się, że program na Atmegę działa.

I tu pojawia się mój problem, bo teoretycznie i program na telefon i program na atmegę są napisane poprawnie, ale nic się nie dzieje, gdy próbuję wysłać bezpośrednio znak 1 lub 0 do mikrokontrolera.
Próbowałem prędkości 19200 i 4800, taktowanie procesora to 8MGHz. Prosiłym o jakieś wskazówki, bo nie mam pomysłu co może być nie tak.

Kody wstawiamy przy pomocy syntax=c- Zielony J.

Program na AVR:
[syntax=c]#include
#include
#include

#define UART_BAUD 4800 // ustalamy prędkość przesyłania danych
#define _UBRR (F_CPU/16/UART_BAUD-1) // obliczamy UBRR dla U2X=0 str.143 DS
// DS = DataSheet

// kalibracja RS232
void USART_Init( uint16_t baud )
{
// ustawienie prędkości
UBRRH = (uint8_t)(baud>>8);
UBRRL = (uint8_t)baud;

// włączenie nadajnika i odbiornika
UCSRB = (1<
// ustawienie formatu ramki na: 8bitów danych, brak bitu parzystości, 1 bit stopu. STR.162 DS
UCSRC = (1<}

// funkcja nadająca bajty STR.147 DS
void USART_Transmit( unsigned char data )
{
/* Wait for empty transmit buffer */
while ( !( UCSRA & (1</* Put data into buffer, sends the data */
UDR = data;
}

// funkcja odbierająca bajty STR.150 DS
unsigned char USART_Receive( void )
{
/* Wait for data to be received */
while ( !(UCSRA & (1<;
/* Get and return received data from buffer */
return UDR;
}

int main(){
DDRB |= (1< USART_Init( _UBRR );
char input;
PORTB &= ~(1<
while(1){
input = UDR;

if(input == '1' ) PORTB |= (1< else
if(input == '0' ) PORTB &= ~(1< }
}[/syntax]

Program na telefon:
[syntax]Sub Process_Globals

End Sub

Sub Globals

Dim Button1 As Button
Dim Label1 As Label
Dim ProgressBar1 As ProgressBar
Dim Timer1 As Timer
Dim Timer2 As Timer
Dim Timer3 As Timer
Dim Timer4 As Timer
Dim Rotacja As Phone
Dim Adapter As Serial
Dim Ekran As PhoneWakeState
Dim Nazwa As String
Dim Adres As String
Dim Flaga As Boolean
Dim Timeout As Int
Dim EditText1 As EditText
Dim Button2 As Button
Dim Label2 As Label
Dim SeekBar1 As SeekBar
Dim SeekBar2 As SeekBar
Dim SeekBar3 As SeekBar
Dim Val1 As String
Dim Val2 As String
Dim Val3 As String
Dim Strumien As AsyncStreams
Dim Nadawanie As Boolean
Dim Odebrane As String
Dim Suwak1 As Int
Dim Suwak2 As Int
Dim Suwak3 As Int
Dim Zmiana As Boolean
Dim Zmiana2 As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("final")
Activity.Title="Bluetooth"
Rotacja.SetScreenOrientation(1)
Ekran.KeepAlive(True)

Button1.Top=0
Button1.Left=0
Button1.Width=Activity.Width
Button1.Height=Activity.Height/9
Button1.TextSize=Activity.Height/9/5

Label1.Left=0
Label1.Width=Activity.Width
Label1.Height=Activity.Height/9
Label1.Top=(Activity.Height/9)*1
Label1.TextSize=Activity.Height/9/4
Label1.Gravity = Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL

ProgressBar1.Visible=False
ProgressBar1.Height=Activity.Height/9
ProgressBar1.Progress=0
ProgressBar1.Left=0
ProgressBar1.Top=(Activity.Height/9)*2
ProgressBar1.Width=Activity.Width

EditText1.Width=Activity.Width
EditText1.Height=Activity.Height/8
EditText1.Top=(Activity.Height/9)*2
EditText1.TextSize=Activity.Height/9/4
EditText1.Visible=False
EditText1.Left=0
EditText1.InputType=EditText1.INPUT_TYPE_NUMBERS
EditText1.Hint="maksymalnie 1 znak"
EditText1.Gravity=Gravity.CENTER_HORIZONTAL+Gravity.CENTER_VERTICAL

Button2.Height=Activity.Height/9
Button2.Width=Activity.Height/7
Button2.Left=(Activity.Width-Activity.Height/7)/2
Button2.Gravity=Gravity.CENTER_HORIZONTAL+Gravity.CENTER_VERTICAL
Button2.TextSize=Activity.Height/9/5
Button2.Text="Wyślij"
Button2.Top=(Activity.Height/9)*3
Button2.Visible=False

SeekBar1.Width=Activity.Width
SeekBar1.Height=Activity.Height/9
SeekBar1.Top=(Activity.Height/9)*4
SeekBar1.Left=0
SeekBar1.Max=999
SeekBar1.Value=0

SeekBar2.Width=Activity.Width
SeekBar2.Height=Activity.Height/9
SeekBar2.Top=(Activity.Height/9)*5
SeekBar2.Left=0
SeekBar2.Max=999
SeekBar2.Value=0

SeekBar3.Width=Activity.Width
SeekBar3.Height=Activity.Height/9
SeekBar3.Top=(Activity.Height/9)*6
SeekBar3.Left=0
SeekBar3.Max=999
SeekBar3.Value=0

Label2.Left=0
Label2.Width=Activity.Width
Label2.Height=Activity.Height/9
Label2.Top=(Activity.Height/9)*7
Label2.TextSize=Activity.Height/9/4
Label2.Gravity = Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
Label2.Text=Suwak1 & Suwak2 & Suwak3

Timer1.Initialize("Timer1",100)
Timer1.Enabled=True
Timer2.Initialize("Timer2",100)
Timer2.Enabled=False
Timer3.Initialize("Timer3", 100)
Timer3.Enabled=True
Timer4.Initialize("Timer4", 100)
Timer4.Enabled=False

Nazwa=""
Adres=""

Timeout=0

Flaga=False

Adapter.Initialize("Adapter")

Nadawanie=True

Odebrane=""

Zmiana=False
Zmiana2=False
End Sub
Sub Timer3_Tick
Dim x As String
If Zmiana=True Then
x=NumberFormat(SeekBar1.Value, 3 ,0)
x=x & NumberFormat(SeekBar2.Value, 3 ,0)
x=x & NumberFormat(SeekBar3.Value, 3 ,0)
Rozkaz( x & Chr(13) & Chr(10) )
Zmiana=False
End If
End Sub
Sub Timer4_Tick
Dim x As String
If Zmiana2=True Then
x=NumberFormat2(EditText1.Text,0,0,0,False)
Rozkaz( x )
Zmiana2=False
End If
End Sub
Sub Timer1_Tick
Try
If Adapter.IsEnabled=True Then
Button1.Enabled=True
Label1.Text=Adapter.Address
If Flaga=True Then
Button1.Text="MAC " & Nazwa & CRLF & Adres
EditText1.Visible=True
Button2.Visible=True
Else
Button1.Text="Brak połączenia. Kliknij aby połączyć"
End If
Else
Button1.Enabled=False
Label1.Text="Bluetooth wyłączony"
Button1.Text="Brak połączenia" & CRLF & "kliknij aby połączyć"
Flaga=False
End If
Catch
End Try
End Sub
Sub Timer2_Tick
Timeout=Timeout+1
ProgressBar1.Visible=True
If Timeout=100 Then
Timeout=0
ProgressBar1.Visible=False
Timer2.Enabled=False
Timer1.Enabled=True
End If
ProgressBar1.Progress=Timeout
End Sub

Sub Strumien_Error
Adapter.Disconnect
Flaga=False
End Sub
Sub Strumien_Terminated
Adapter.Disconnect
Flaga=False
End Sub
Sub Strumien_NewData (Buffer() As Byte)
Nadawanie=False
Odebrane=Odebrane & BytesToString(Buffer, 0, Buffer.Length, "UTF8")
If Odebrane.Length=10 Then
If Odebrane.EndsWith(Chr(13))Then
Try
Suwak1=Odebrane.SubString2(0,2+1)
Suwak2=Odebrane.SubString2(3,5+1)
Suwak3=Odebrane.SubString2(6,8+1)
If Suwak1>=0 AND Suwak1<=999 Then SeekBar1.Value=Suwak1
If Suwak2>=0 AND Suwak2<=999 Then SeekBar2.Value=Suwak2
If Suwak3>=0 AND Suwak3<=999 Then SeekBar3.Value=Suwak3
Catch
End Try
End If
Odebrane=""
Dim Val1 As String
Dim Val2 As String
Dim Val3 As String
Val1=NumberFormat(Suwak1,3,0)
Val2=NumberFormat(Suwak2,3,0)
Val3=NumberFormat(Suwak3,3,0)
Label2.Text = Val1 & Val2 & Val3
End If
Nadawanie=True
End Sub

Sub Adapter_Connected(Powodzenie As Boolean)
Timeout=0
Flaga=Powodzenie
Timer2.Enabled=False
Timer1.Enabled=True
ProgressBar1.Visible=False
If Powodzenie=True Then
Strumien.Initialize(Adapter.InputStream, Adapter.OutputStream, "Strumien")
Rozkaz("?")
End If
End Sub
Sub Button1_Click
If Flaga=False Then
Dim Urzadzenia As Map
Dim Lista As List
Dim Wybierz As Int
Urzadzenia=Adapter.GetPairedDevices
Lista.Initialize
For i=0 To Urzadzenia.Size-1
Lista.Add(Urzadzenia.GetKeyAt(i))
Next
Wybierz=InputList(Lista,"Wybierz urządzenie",-1)
If Wybierz >= 0 Then
Timer1.Enabled=False
Timer2.Enabled=True
Button1.Enabled=False
Adres=Urzadzenia.GetValueAt(Wybierz)
Nazwa=Urzadzenia.GetKeyAt(Wybierz)
Adapter.Connect3(Adres,1)
End If
Else
Strumien.Close
Adapter.Disconnect
Flaga=False
End If
End Sub
Sub EditText1_TextChanged (Old As String, New As String)
Dim Pline As String
Pline = EditText1.Text
If Pline.Length > 1 Then
EditText1.Text = Pline.SubString2(0,1)
EditText1.SelectionStart = 1
ToastMessageShow("1 character limit",False)
End If
End Sub
Sub Rozkaz(x As String)
If Flaga=True Then
Strumien.Write(x.GetBytes("UTF8"))
End If
End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
If Nadawanie=True Then
Zmiana=True
End If
End Sub
Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean)
If Nadawanie=True Then
Zmiana=True
End If
End Sub
Sub SeekBar3_ValueChanged (Value As Int, UserChanged As Boolean)
If Nadawanie=True Then
Zmiana=True
End If
End Sub
Sub Button2_Click
Zmiana2=True
Timer4.Enabled=True
End Sub[/syntax]

Statystyki: Napisane przez stopa — 12 kwi 2013, o 09:53

ATNEL tech-forum

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

Re: Problem z komunikacją pomiędzy BTM a Atmegą32

Problem z komunikacją pomiędzy BTM a Atmegą32