ATNEL tech-forum

Re: Delphi - komendy AT

2017-07-09T22:08:50+01:00

Podepnę si e pod temat, bo zdaje się, że kolega Makowka ma ten sam problem co ja.
Zacznę od kodu:

[syntax=delphi]procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: string);

begin

if str = 'OK' then begin
FlagaCom1 := True;
end else begin
FlagaCom1 := False;
end;
end;[/syntax]

Problem jest taki: podczas pierwszego wywołania procedury ComDataPacket1Packet zmienna ( globalna ) FlagaCom1 przyjmuje wartość True, a po drugim wywołaniu ( pomimo, iż nadaję str = 'OK' ) zmienna FlagaCom1 przyjmuje już zawsze wartość False. Dlaczego ?

Sprawdzam w Memo1 i str powinna mieć wartość 'OK' czyli FlagaCom1 powinna być równa True.

Procedurę tą chcę wykorzystać w taki sposób, że co 3 sekundy wywołuje zdarzenie Timer1 z zapytaniem "AT", w odpowiedzi dostaje "OK" lub jeśli urządzenie nie odpowiada to nic i dlatego chce aby FlagaCom1 odpowiednio się ustawiała.

--------
Problem rozwiązałem - błąd w kodzie i to banalny, bo nie zerowałem flagi.
...

Statystyki: Napisane przez acid255 — 9 lip 2017, o 22:08

Re: Delphi - komendy AT

2017-06-26T14:15:12+01:00

Testowałem wszystkie funkcjonalności manualnie z terminala. Za każdym razem polecenie jest wykonywane prawidłowo i dostaję odpowiedź od ATmegi w puttym. Problem musi leżeć w aplikacji.

Sprawdzę jeszcze wieczorem ustawienia datapacket i comportu. Bo najprawdopodobniej tam musi leżeć problem.

Statystyki: Napisane przez Makowka — 26 cze 2017, o 14:15

Re: Delphi - komendy AT

2017-06-26T12:44:11+01:00

Ale skąd wiesz, że po wysłaniu czegoś na LCD, dane są prawidłowo odbierane? Musiałbyś może podpiąć się bezpośrednio pod ComPort i podglądać to co do niego dochodzi z pominięciem DataPacket. Spróbuj podzielić aplikację na mniejsze części, wykastruj do testów z obsługi grafiki itp., zostaw tylko samą komunikację i wtedy szukaj przyczyny. Posprawdzaj dokładnie ustawienia ComPort'a, może następuje np. przepełnienie bufora. Przede wszystkim musisz się upewnić czy ATmega po odbiorze danych do LCD odpowiada prawidłowo, a jeśli tak to czy to może w aplikacji coś się blokuje po wysłaniu tych danych.

Statystyki: Napisane przez Adam12 — 26 cze 2017, o 12:44

Re: Delphi - komendy AT

2017-06-25T20:59:26+01:00

Dziękuję Panowie za cenne wskazówki.
Udało mi się dojść do bardzo dziwnej rzeczy.

Oczyściłem główną pętlę while(1) w ATmedze (jest tam teraz tylko event rs232) i teraz sytuacja wygląda tak:
1. Po zmianie podświetlenia LCD (on/off) działa poprawnie (w polu memo aplikacji ładnie widać odpowiedzi AT)
2. TRUE/FALSE już również działa prawidłowo (dowolną ilość razy - w memo również mamy podgląd)
3. Wysyłanie tekstu do LCD działa, ale po wysłaniu czegokolwiek na wyświetlacz blokuje mi się na amen odbiór danych (tzn. wysyłanie z apki chodzi bez zarzutu, ale nie mogę już nic odebrać - memo milczy chociaż dane są odbierane...)

Wrzucam poniżej kod z ATmegi z funkcjami do obsługi wszystkich komend:
[syntax=c]int8_t at_service(uint8_t inout, char * params){
uart_puts("OK");
return 0;
}

int8_t at_rst_service(uint8_t inout, char * params){
return 0;
}

int8_t at_led_service(uint8_t inout, char * params){
if (1 == inout){
// Zapis danych
if( params[0] > '1' ) return -1;

if( '1' == params[0] ) LED_ON;
else LED_OFF;
uart_puts("+LED: ");
if ( LED_PIN & LED ) uart_putint(1,10);
else uart_putint(0,10);
uart_puts("\r\n");

} else if (!inout){
// Odczyt danych
uart_puts("+LED: ");
if ( LED_PIN & LED ) uart_putint(1,10);
else uart_putint(0,10);
uart_puts("\r\n");
} else if (2 == inout){
// Zwrot argumentow
uart_puts("AT+LED = (0/1)\r\n");
}
return 0;
}

int8_t at_lcd_service(uint8_t inout, char * params){
uint8_t y,x;
char * wsk;

if( 1 == inout ) {
// sprawdzamy czy s¹ parametry, jeli nie to b³¹d
if(!strlen(params)) return -1;
// wy³uskujemy pierwszy parametr do przecinka
wsk = strtok(params, ",");
// sprawdzamy czy s¹ parametry, jeli nie to b³¹d
if(!strlen(wsk)) return -1;
// zamieniamy liczbê ASCII na wartoœæ dziesiêtn¹
y=atoi(wsk);
// jeœli Y nie mieœci siê w zakresie od 0 do 3 to b³¹d
if( !(y>=0 && y<4) ) return -1;
// wy³uskujemy drugi parametr do przecinka
wsk = strtok(0, ",");
// sprawdzamy czy s¹ parametry, jeli nie to b³¹d
if(!strlen(wsk)) return -1;
// zamieniamy liczbê ASCII na wartoœæ dziesiêtn¹
x=atoi(wsk);
// jeœli X nie mieœci siê w zakresie od 0 do 39 to b³¹d
if( !(x>=0 && y<40) ) return -1;
// wy³uskujemy trzeci parametr do przecinka lub do koñca ³añcucha
wsk = strtok(0, ",");
// sprawdzamy czy s¹ parametry, jeli nie to b³¹d
if(!strlen(wsk)) return -1;
// ustawiamy kursor w zadanym miejscu y,x
lcd_locate(y,x);
// wyœwietlamy tekst
lcd_str( wsk );
uart_puts("OK\r\n");

} else if( 2 == inout ) {
uart_puts("AT+LCD = (0-3), (0-39),(TEXT)\r\n");
} else {
if( !inout ) return -1;
}

return 0;
}

int8_t at_cls_service(uint8_t inout, char * params){
lcd_cls();
return 0;
}

int8_t at_qtf_service(uint8_t inout, char * params){
TF_flag = 1;
//uart_puts("QTF service in progress...\r\n");
while (1){
if (!(PIND & (1<uart_puts("ans_tf+TRUE");
//key_flag.True = 0;
TF_flag = 0;
break;
} if (!(PIND & (1<uart_puts("ans_tf+FALSE");
//key_flag.False = 0;
TF_flag = 0;
break;
}
}

return 0;
}[/syntax]

Wstawiam filmik z działania aplikacji. W momencie wysyłania do LCD i zmiany tekstu na ATB wszystko działa (oczywiście poza T/F). Tak jak pisałem nie przychodzą powiadomienia.
Jest dobrze dopiero po "resecie" comportu.

https://youtu.be/TlCtnwmxrjc

Pozdrawiam,
Michał

Statystyki: Napisane przez Makowka — 25 cze 2017, o 20:59

Re: Delphi - komendy AT

2017-06-25T17:14:11+01:00

Adam12 napisał(a):

Przecież to jest tablica stringów - tab: TArray;

Ach to przepraszam - mi się coś pomieszało .... sorki

Statystyki: Napisane przez mirekk36 — 25 cze 2017, o 17:14

Re: Delphi - komendy AT

2017-06-25T17:06:47+01:00

Przecież to jest tablica stringów - tab: TArray; Ja tu błędu nie widzę. Ta procedura działa poprawnie jeśli się jej podstawia pod Str stringi takie jakie są wysyłane z ATmegi. W linii 8 buf.Split dzieli wg "+" i w tab[0] jest np. "ans_tf", nie może być inaczej. Pytanie co Ci się wyświetla w Memo2, bo widzę, że masz podgląd zawartości buf? Jeśli już tu jest błąd to znaczy, że DataPacket złego stringa podstawia.

Statystyki: Napisane przez Adam12 — 25 cze 2017, o 17:06

Re: Delphi - komendy AT

2017-06-25T13:06:56+01:00

Makowka napisał(a):

Chciałem sprawdzić, czy pierwszy element tablicy (czyli pierwsza część stringu do znaku "+") jest równa "ans_tf".

Powiedz mi jak pierwszy (JEDEN ELEMENT) tablicy może być równy jakiemuś całemu stringowi hmmm?

Statystyki: Napisane przez mirekk36 — 25 cze 2017, o 13:06

Re: Delphi - komendy AT

2017-06-25T07:59:21+01:00

Dziękuję za szybką odpowiedź.

mirekk36 napisał(a):

Makowka napisał(a):
if tab[0] = 'ans_tf' then begin

Zastanów się i spróbuj sam wyjaśnić sobie i nam - np co to oznacza wg ciebie ?

Chciałem sprawdzić, czy pierwszy element tablicy (czyli pierwsza część stringu do znaku "+") jest równa "ans_tf". Chodziło o prosty sposób analizowania jaki rodzaj odpowiedzi przysłało urządzenie.

[syntax=c]uart_puts("ans_tf+TRUE\r\n"); // Odpowiedź wysyłana przez uC[/syntax]

Jak rozumiem tab[0] powinien się równać "ans_tf", natomiast tab[1] - "TRUE".
Chociaż z tego co widzę to chyba nie jest najlepszy sposób.

Pozdrawiam,
Michał

Statystyki: Napisane przez Makowka — 25 cze 2017, o 07:59

Re: Delphi - komendy AT

2017-06-25T00:36:15+01:00

Makowka napisał(a):

if tab[0] = 'ans_tf' then begin

Zastanów się i spróbuj sam wyjaśnić sobie i nam - np co to oznacza wg ciebie ?

Statystyki: Napisane przez mirekk36 — 25 cze 2017, o 00:36

Delphi - komendy AT

2017-06-24T21:54:29+01:00

Witam szanownych użytkowników forum,
Po wielu godzinach pracy poddałem się i postanowiłem zasięgnąć pomocy osób bardziej doświadczonych w Delphi ode mnie. Jestem praktycznie początkujący jeżeli chodzi o aplikacje na Windowsa.
Wszystko na PC zrobione jest na podstawie poradników Mirka natomiast po stronie uC zastosowałem komunikację AT z Greenbooka.

Za pomocą aplikacji na PC wysłam prostą komendę do uC, następnie urządzenie przechodzi w stan badania 2 przycisków i zależnie od wciśnięcia wysyłana jest odpowiedź jako string "TRUE" lub "FALSE" z powrotem do aplikacji. Do tej pory wszystko jest ok. Nastepnie string jest parsowany w programie i label obok przycisku zmienia się na TRUE lub FALSE (zdjęcie poniżej).

Niestety działa to tylko raz po nawiązaniu połączenia. Aby jeszcze raz sprawdzić stan przycisków, muszę zamknąć i otworzyć comport. Dane na 100% są wysyłane poprawnie. Potwierdzają to diody na ATB i terminal. Po prostu DataPacket analizuje je tylko za pierwszym razem.

[syntax=delphi]procedure TForm1.dPacketPacket(Sender: TObject; const Str: string);
var
buf: String;
tab: TArray;
begin
buf := Trim( Str );
Memo2.Lines.Add(buf);
tab := buf.Split( ['+'] );

if tab[0] = 'ans_date' then begin
DateAnswer := tab[1];
Label5.Caption := DateAnswer;
end;

if tab[0] = 'ans_multi' then begin
MultipleAnswer := tab[1];
Label6.Caption := MultipleAnswer;
end;

if tab[0] = 'ans_tf' then begin
TFAnswer := tab[1];
Label7.Caption := TFAnswer;
end;

end;[/syntax]

Obsługa komendy AT ze strony ATmegi:
[syntax=c]int8_t at_qtf_service(uint8_t inout, char * params){
TF_flag = 1;
//uart_puts("QTF service in progress...\r\n");
while (1){
if (!(PIND & (1<uart_puts("ans_tf+TRUE\r\n");
//key_flag.True = 0;
TF_flag = 0;
break;
} if (!(PIND & (1<uart_puts("ans_tf+FALSE\r\n");
//key_flag.False = 0;
TF_flag = 0;
break;
}
}

return 0;
}[/syntax]

Z góry dziękuję za odpowiedź.

Pozdrawiam,
Michał

Statystyki: Napisane przez Makowka — 24 cze 2017, o 21:54