Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-09-08T06:51:50+01:00

Mam to połączone na płytce testowej a schemat edytowałem na szybko wiec jest tak ze na schemacie jest najpierw połączenie a potem naniesiony C5. Lecz nadal nie wiem czemu się tak zachowuje mój układ , opis problemu jest w 1 poście. Już nie mam pomysłu może jest coś z zasilaniem układu, może jest za mały prąd.

Statystyki: Napisane przez Vitor Borba — 8 wrz 2013, o 06:51

Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-09-07T23:23:53+01:00

hehe, chyba mi się wzrok psuje... No faktycznie.

Statystyki: Napisane przez sq8dsr — 7 wrz 2013, o 23:23

Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-09-07T23:14:22+01:00

Właśnie że nie, bo tam jest zwarcie

Widać że najpierw poprowadził połączenie, a potem zauważył/przypomniał sobie i położył na to kondensator.

Statystyki: Napisane przez Jaglarz — 7 wrz 2013, o 23:14

Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-09-07T23:08:07+01:00

barney napisał(a):

Ta filtracja AREF jest jakoś mocno zwierająca do masy (C5)

Zgodna z notą katalogową...

Statystyki: Napisane przez sq8dsr — 7 wrz 2013, o 23:08

Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-09-07T23:05:20+01:00

Ta filtracja AREF jest jakoś mocno zwierająca do masy (C5)

Statystyki: Napisane przez barney — 7 wrz 2013, o 23:05

Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-09-07T16:53:05+01:00

To jest schemat, tego układu proszę o jakieś podpowiedzi.

Statystyki: Napisane przez Vitor Borba — 7 wrz 2013, o 16:53

Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-08-30T16:55:53+01:00

wydaje mi sie ze tak poniewaz moge zmienic kierunek obrotu silnika ale zeby to zrobic musze wcisnac pomiedzy zmiana kierunku przycisk stop. nie potrafie jednak zrobic tego bezposrednio wciskajac np. prawo lewo prawo . jutro wrzuce schemat polaczenia moze jednak jest jakis blad w filtrowaniu.

Statystyki: Napisane przez Vitor Borba — 30 sie 2013, o 16:55

Re: Dziwne zachowanie komunikacji btm222 android i atmega

2013-08-29T22:51:34+01:00

Nie wiem czy w dobrą stronę idę, dobrze filtrujesz zasilanie? mówisz o silniku, może się btm resetuje przez szpilki przy przełączaniu kierunku?

Statystyki: Napisane przez mikandrzej — 29 sie 2013, o 22:51

Dziwne zachowanie komunikacji btm222 android i atmega

2013-08-29T19:49:06+01:00

Mam następujący problem. Napisałem aplikacje na androida która wysyła dane do atmegi8 za pomocą modułu btm222. Podłączyłem moduł do terminala i prawidłowo odbierał dane wysyłane przez androida a następnie podłączyłem atmege do terminala i wysłałem z niego znaki do atmegi która odebrała je dobrze. Problem zaczyna się kiedy wysyłam dane z androida do modułu btm222 podłączonego do atmegi.
Znaki przesyłane to '1' wtedy silnik kreci się w lewo , '2' wtedy kreci się w prawo , '3' wtedy się zatrzymuje.
Tak jak pisałem wszystko działa poprawnie ale tylko wtedy kiedy się połączę przez terminal jak pisałem powyżej. Natomiast kiedy się połączę android>btm>atmega to sterowanie dziwnie sie zachowuje:
mogę włączyć prawo i dać stop potem lewo i dać stop potem prawo stop prawo stop itd ( ogólnie mogę sterować silnikiem prawo lewo ale muszę wciskać stop żeby to działało)
Natomiast jak dam w prawo i lewo to silnik obróci się w prawo potem w lewo ale po tych operacjach już nic nie mogę zrobić i po kilkukrotnym kliknięciu na klawisze wysyłające dane następuje zerwanie połączenia. Proszę o podpowiedzi czemu się tak dzieje ?
Przesyłam programy z atmegi i b4a.
[syntax=c]#define F_CPU 8000000
#define FOSC 8000000// Clock Speed
#define BAUD 19200
#define MYUBRR (FOSC+BAUD*8UL)/(16UL*BAUD)-1
#include
#include

void USART_Init( unsigned int ubrr)
{
/* Set baud rate */
UBRRH = (unsigned char)(ubrr>>8);
UBRRL = (unsigned char)ubrr;
/* Enable receiver and transmitter */
UCSRB = (1</* Set frame format: 8data, 2stop bit */
UCSRC = (1<}

void USART_Transmit( unsigned char data )
{
/* Wait for empty transmit buffer */
while ( !( UCSRA & (1<;
/* Put data into buffer, sends the data */
UDR = data;
}

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(void) //program główny
{
USART_Init(MYUBRR);

//USTAWIENIE PRZYCISKÓW
DDRC &= ~ (1<DDRC &= ~ (1<PORTC |= (1<PORTC |= (1<
//USTAWIENIE WYJSC POD PWM
DDRB |= (1<DDRB |= (1<
//PWM FAST 8BIT
TCCR1A |= (1<TCCR1B |= (1<//PRESKALER 64BIT
TCCR1B |= (1<TCCR1B |= (1<//USTAWIENIE OC1A I OC1B
TCCR1A |= (1<TCCR1A |= (1<

//deklaracja zmiennych
unsigned int i;

//ustawienie portu pc5 i pc4 jak wyjscia
DDRC |=(1<DDRC |=(1<char input;

while(1)

{
input=USART_Receive();
if (input=='1')
{
PORTC |=(1<PORTC &= ~ (1<

OCR1A=255;

}
if (input=='2')
{
PORTC |=(1<PORTC &= ~ (1<

OCR1A=255;

}
if (input=='3')
{
PORTC |=(1<PORTC |=(1<

}
}

}[/syntax]

Kod z b4a:
[syntax=basic4gl]Sub Process_Globals

End Sub
Sub Globals
Dim Label1 As Label
Dim Label2 As Label
Dim Button1 As Button
Dim Button2 As Button
Dim Button3 As Button
Dim Button4 As Button
Dim ProgressBar1 As ProgressBar
Dim Timer1 As Timer
Dim Timer2 As Timer
Dim Ekran As PhoneWakeState
Dim Adapter As Serial
Dim Flaga As Boolean
Dim Timeout As Int
Dim Nazwa As String
Dim Adres As String
Dim TextWriter1 As TextWriter
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("program1")
Activity.Title="Bluetooth"
'----------------------------------------
Label1.Width=Activity.Width
Label1.Height=Activity.Height/8
Label1.Top=(Activity.Height/8)*7
Label1.Left=0
Label1.Gravity = Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
Label1.TextSize=Activity.Height/8/2
'----------------------------------------
Label2.Width=Activity.Width
Label2.Height=Activity.Height/8
Label2.Top=(Activity.Height/8)*3
Label2.Left=0
Label2.Gravity = Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
Label2.TextSize=Activity.Height/8/4
'----------------------------------------
Button1.Width=Activity.Width/2
Button1.Height=(Activity.Height/8)*2
Button1.Top=(Activity.Height/8)*1
Button1.Left=(Activity.Width/2)-(Button1.Width/2)
Button1.TextSize=Activity.Height/8/2
'----------------------------------------
Button2.Width=Activity.Width/3
Button2.Height=(Activity.Height/8)*2
Button2.Top=(Activity.Height/8)*4
Button2.Left=0
Button2.TextSize=Activity.Height/8/2
Button2.Text="LED 1"
Button2.Enabled=False
'----------------------------------------
Button3.Width=Activity.Width/3
Button3.Height=(Activity.Height/8)*2
Button3.Top=(Activity.Height/8)*4
Button3.Left=(Activity.Width/3)*1
Button3.TextSize=Activity.Height/8/2
Button3.Text="LED 2"
Button3.Enabled=False
'----------------------------------------
Button4.Width=Activity.Width/3
Button4.Height=(Activity.Height/8)*2
Button4.Top=(Activity.Height/8)*4
Button4.Left=(Activity.Width/3)*2
Button4.TextSize=Activity.Height/8/2
Button4.Text="LED 3"
Button4.Enabled=False
'----------------------------------------
ProgressBar1.Width=Activity.Width
ProgressBar1.Height=(Activity.Height/8)
ProgressBar1.Top=(Activity.Height/8)*6
ProgressBar1.Left=0
ProgressBar1.Progress=0
'----------------------------------------
Flaga=False
'----------------------------------------
Adapter.Initialize("Adapter")
'----------------------------------------
Timer1.Initialize("Timer1", 100)
Timer1.Enabled=True
Timer2.Initialize("Timer2", 50)
Timer2.Enabled=False
'----------------------------------------
Ekran.KeepAlive(True)
'----------------------------------------
Timeout=0
'----------------------------------------
Nazwa=""
Adres=""
'----------------------------------------
End Sub

Sub Timer1_Tick
Try
If Adapter.IsEnabled = True Then
Label1.Text=Adapter.Address
Button1.Enabled=True
If Flaga=True Then
Button1.Text="Rozłącz"
Label2.Text=Nazwa & CRLF & Adres
Button2.Enabled=True
Button3.Enabled=True
Button4.Enabled=True
TextWriter1.Initialize(Adapter.OutputStream)
Else
Button1.Text="Połącz"
Label2.Text=""
Button2.Enabled=False
Button3.Enabled=False
Button4.Enabled=False
End If
Else
Label1.Text="Bluetooth wyłączony"
Label2.Text=""
Button1.Enabled=False
Button1.Text="Włącz" & CRLF &"bluetooth"
Flaga=False
Button2.Enabled=False
Button3.Enabled=False
Button4.Enabled=False
End If
Catch
End Try
End Sub

Sub Timer2_Tick
Timeout=Timeout+1
If Timeout=100 Then
Timer1.Enabled=True
Timer2.Enabled=False
Timeout=0
End If
ProgressBar1.Progress=Timeout
End Sub

Sub Adapter_Connected (Powodzenie As Boolean)
Timeout=0
ProgressBar1.Progress=Timeout
Timer1.Enabled=True
Flaga=Powodzenie
If Powodzenie=True Then
Timer2.Enabled=False
End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = 4 Then
Adapter.Disconnect
Activity.Finish
ExitApplication
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
Timer2.Enabled=True
Button1.Enabled=False
Timer1.Enabled=False
Label1.Text="Czekaj.."
Adres=Urzadzenia.GetValueAt(Wybierz)
Nazwa=Urzadzenia.GetKeyAt(Wybierz)
Adapter.Connect(Adres)
End If
Else
Adapter.Disconnect
Flaga=False
End If
End Sub

Sub Button2_Click
Rozkaz(1)
End Sub

Sub Button3_Click
Rozkaz(2)
End Sub

Sub Button4_Click
Rozkaz(3)
End Sub

Sub Rozkaz(x As Int)
If Flaga=True Then
Try
TextWriter1.Write(Chr(x+48))
TextWriter1.Flush
Catch
Flaga=False
End Try
End If
End Sub[/syntax]

Statystyki: Napisane przez Vitor Borba — 29 sie 2013, o 19:49

ATNEL tech-forum

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Re: Dziwne zachowanie komunikacji btm222 android i atmega

Dziwne zachowanie komunikacji btm222 android i atmega