Zacznę od omówienia mojego problemu , mianowicie wykorzystuję uP Atxmega 128A3U-AU jako przetwornika ADC - zakres napięć 0- 1 V , przetworzone napięcie trafia do modułu Bluetooth XM-15 , który komunikuje się z Androidem , gdzie potrzebuję wyświetlić owe napięcie. Po sparowaniu modułu i uruchomieniu terminalu na komputerze , wszystko działa , dostaje przetworzone wartości po enterze w UTF-8 np:
70
72
. Poniżej prześlę wszystkie kody . Po napisaniu aplikacji na androida , telefon paruje się z modułem , wyświetla nazwę oraz adres urządzenia , próbując wyświetlić wynik w Label5 , po naciśnięciu button2 aplikacja wyłącza się ....proszę o podpowiedź co robię nie tak , w programie mam podkreślenie :
próbowałem inicjalizacji na różne sposoby ale nie poradziłem sobie
co do bibliotek to aktywne: AndroidResorcues ; Core; Phone; Serial; TTS ; RandomAccesFile
Kod uP:
[syntax=c]#define F_CPU 2000000UL
#include <avr/io.h>
#include <avr/pgmspace.h>
#include "usart.h"
#include <util/delay.h>
#include <stdio.h>
void itoa(int __val, char *__s, int __radix);
void USART_init()
{
PORTC_OUTSET=PIN3_bm;
PORTC_DIRSET=PIN3_bm; //Pin TxD musi być wyjściem
USARTC0.CTRLB=USART_TXEN_bm | USART_RXEN_bm; //Włącz nadajnik USART
USARTC0.CTRLC=USART_CHSIZE_8BIT_gc; //Ramka 8 bitów, bez parzystości, 1 bit stopu
usart_set_baudrate(&USARTC0, 9600, F_CPU);
}
void ADCA_init()
{
PORTA.DIR = 0x00;
ADCA.CTRLB = ADC_RESOLUTION_12BIT_gc;
ADCA.CTRLB = (1<<4);
ADCA.REFCTRL = ADC_REFSEL_INT1V_gc;
ADCA.PRESCALER = ADC_PRESCALER_DIV512_gc;
ADCA.CTRLA = ADC_ENABLE_bm;
}
unsigned int ADCA_Conversion(ADC_CH_t *Channel, char Pin)
{
Channel->CTRL = ADC_CH_INPUTMODE_SINGLEENDED_gc;
Channel->MUXCTRL = (Pin << 3);
Channel->CTRL |= ADC_CH_START_bm;
while(!Channel->INTFLAGS);
return Channel->RES;
}
int main(void)
{
unsigned int ADC_Value;
char Wynik[10];
USART_init();
ADCA_init();
USART_send_F(&USARTC0, PSTR("Miernik Gazu CO\n\r"));
while(1)
{
ADC_Value = ADCA_Conversion(&(ADCA.CH0),0) + 30;
itoa(ADC_Value, Wynik, 10);
USART_send(&USARTC0, Wynik);
USART_send_F(&USARTC0, PSTR("\n\r"));
_delay_ms(1000);
}
}[/syntax]
Z pomiarów analogowych i przeliczeniu przetworzonych wszystko jest ok ...
Kod aplikacji:
[syntax=basic4gl]Sub Process_Globals
Dim Adapter As Serial
Dim Timer1 As Timer
Dim Timer2 As Timer
End Sub
Sub Globals
Dim Label1 As Label
Dim Label2 As Label
Dim Label3 As Label
Dim Label4 As Label
Dim Label5 As Label
Dim Label6 As Label
Dim Button1 As Button
Dim Button2 As Button
Dim ProgressBar1 As ProgressBar
Dim Ekran As PhoneWakeState
Dim Flaga As Boolean
Dim Timeout As Int
Dim Nazwa As String
Dim Adres As String
Dim reader As TextReader
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("figaro")
Activity.Title="Pomiar stężenia czadu"
'----------------------------------------
Button2.Text="Odśwież"
Label4.Text="Mój adres MAC"
'----------------------------------------
Label3.Text="Aktualne stężenie wynosi:"
'-----------------------------------------
Label6.Text=" Proszę o natychmiastowe opuszczenie pomieszczenia i telefon do straży pożarnej "
'-----------------------------------------
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
Else
Button1.Text="Połącz"
Label2.Text=""
End If
Else
Label1.Text="Bluetooth wyłączony"
Label2.Text=""
Button1.Enabled=False
Button1.Text="Włącz" & CRLF &"bluetooth"
Flaga=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
Label5.Text=reader.ReadLine
End Sub[/syntax]
Poniżej Designer oraz wygląd apki :
Próbowałem też kombinować z odbiorem z tutoriala topic1274.html , lecz niestety też nie szło , bardzo proszę o pomoc ...
Pozdrawiam i z góry dziękuję
Statystyki: Napisane przez dzodzoTS — 16 lut 2016, o 22:45
]]>