ATNEL tech-forum

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-16T09:36:07+01:00

P. Mirku wiem iż nie ma nic wspólnego z I2C.... wykorzystam go tradycyjnie ... dysponuję 16 wyjściami pod które mam zamiar podłączyć inne urządzenia peryferyjne... np. przekaźniki i przyciski.. w ten sposób uda mi się zwiększyć możliwości programu .... a wzoruję się na tasiemcu Brazil lekcji 317 który modyfikuję do własnego pomysłu oraz na poradniku 341 ( sterownie jednym encoderem zamiast 3)..... Fakt w zamyśle mam zamiar wykorzystać magistralę I2C ale nie mam jeszcze takiej wiedzy jak wykorzystać programowo to poprzez powiązanie z Delphy..... Jest jeszcze inny powód który mnie martwi w LCD mogę tylko zaprogramować 7 własnych znaków..... więc myślę o dwóch LCD podłączonych gdzie brakujące znaki na nim umieszczę ......

Statystyki: Napisane przez Apofis — 16 sty 2022, o 09:36

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-15T23:09:12+01:00

Apofis napisał(a):

typu: CD74HC4067

to jest analogowy multiplexer i nie ma nic wspólnego z expanderem i2c

Statystyki: Napisane przez mirekk36 — 15 sty 2022, o 23:09

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-15T15:54:56+01:00

ok... wybrałem część pinów z PORTU C i PORTU D ..... i jakoś odpaliłem wyświetlacz LCD działa .. ale teraz już myślę o czymś innym aby zwiększyć ilość dostępnych pinów wykorzystując ekspander .. typu: CD74HC4067

Statystyki: Napisane przez Apofis — 15 sty 2022, o 15:54

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-15T15:28:35+01:00

No a program wykorzystuje przerwania INT albo korzysta z UART? To tylko od Ciebie zależy, gdzie podłączysz. Alternatywne funkcje pinów nie mają żadnego wpływu na działanie lcd, jeśli o tym myślisz

Statystyki: Napisane przez krawi92 — 15 sty 2022, o 15:28

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-15T15:23:13+01:00

Kolega ma rację z tym portem B. właściwie po analizie mogę każdy port wykorzystać jedyne ograniczenie które mi się nasuwa to aby nie korzystać z pinów odpowiedzialnych za przerwania oraz za UART. a z założenie programy cały PORT A też odpada gdyż program który piszę wykorzystuje ADC.

Statystyki: Napisane przez Apofis — 15 sty 2022, o 15:23

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-15T15:02:54+01:00

A kto Ci powiedział o tych zakłóceniach na PORTB? Bo pierwsze słyszę. Podłączasz tam gdzie masz miejsce i tyle. Nie ma tu jakieś większej filozofii.Nie musisz przeciez wszystkiego podłączać pod 1 port. Uważam, że przy lcd jest pełna dowolność byle byś sobie nie zajął jakiś pinów,z których chciałbyś korzystać.

Statystyki: Napisane przez krawi92 — 15 sty 2022, o 15:02

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-07T18:38:38+01:00

Rozumiem. Ale na których pinach Portu jest najlepiej podłączyć PORT A ..odpada ponieważ tam mam zamiar mieć podłączone przetworniki ACD, a wykorzystanie PORTU B mi odradzano ze względu na zakłócenia komunikacji więc pozostaje mi PORT C lub D .... nie wiem czy dobrze myślę ale wybrał bym PORT C piny I2C (SDA, SCL) nie będą używane to czy mogę je wykorzystać w tradycyjny sposób jako dane na wyświetlacz..

Statystyki: Napisane przez Apofis — 7 sty 2022, o 18:38

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-07T16:23:33+01:00

Quote:

Pytanie brzmi najlepiej do którego Portu Atmegi 16 lub 32 podłączyć wyświetlacz LCD

Tak naprawdę to pytanie powinieneś zadać sobie, bo to gdzie ma być podłączony LCD zależy od wymogów projektu np. jak potrzebujesz użyć uarta to na tych pinach nie podłączysz LCD. Zajrzyj do noty PDF tam masz wszystkie funkcjonalności pinów i zastanów co Ci będzie potrzebne a tam gdzie masz wolne to możesz dać LCD.

Statystyki: Napisane przez tonygryps — 7 sty 2022, o 16:23

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-07T15:14:10+01:00

Mam pytanie też siedzę nad tym tematem.. układ montuje na płytce stykowej. Pytanie brzmi najlepiej do którego Portu Atmegi 16 lub 32 podłączyć wyświetlacz LCD. PS jak dla mnie to ten stary temat jest jak najbardziej na czasie..

------------------------ [ Dodano po: 7 minutach ]

doprecyzuję pytanie .. chodzi o normalne podłączenie bez wykorzystania magistrali I2C w wyświetlaczu LCD

Statystyki: Napisane przez Apofis — 7 sty 2022, o 15:14

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-07T00:25:35+01:00

Dobra posiedziałem trochę nad tym programem i ZNALAZŁEM BŁĄD. Otóż przy zamianie komponentów ASync Pro na Comport nie wytłumaczono w filmiku że należy w kodzie ( od przycisku Start ) przypisać StopStringa.
[syntax=delphi]procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ComDataPacket1.StopString:=#13;
cPort.Open;
cPort.Connected := True;
end;[/syntax]

Nie doszukałem nigdzie dlaczego dlaczego nie wystaczy ustawić go w Properties ComDataPacked
Stop String #13
Wszystko działa poprawnie - Dzięki Mirku za wskazówki i pomoc.

Statystyki: Napisane przez kidcowboy — 7 sty 2022, o 00:25

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-05T10:29:45+01:00

Dokładnie. Czyli jak coś przyleciało a w properties ComPortPacket Size jest ustawione 10 znaków i jest #13#10 w środku to go nie obcina ponieważ ComDataPacket odbierze np. 1,23,128CRLF1,24 - i wartość 128CRLF1 zostanie zinterpretowana jako całość

Statystyki: Napisane przez kidcowboy — 5 sty 2022, o 10:29

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-05T09:48:55+01:00

Trim wycina znaki niedrukowalne na początku i na końcu stringa a nie w środku

Statystyki: Napisane przez mirekk36 — 5 sty 2022, o 09:48

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-05T00:14:17+01:00

A mógłbym prosić o sam kod w DELPHI do lekcji #0333 #Delphi 004J ?
Ten komponent TComDataPacket, gdy ma ustawione domyślne 0 w propertisie (size) to nie chce odbierać danych przesyłanych z AVR. Natomiast jak ustawi mu się "jakąś" wartość to zbiera kolejne odczyty z AVR ale ucięte do tego ustawionego rozmiaru co powoduje problem z przetworzeniem danych

Po nierównej walce udało mi się jakoś problem rozwiązać. Należało zmienić trochę kod w Eclipsie i ustawić parametr w Delphi ( ilość znaków )
Wiem że metoda jest NIEOPTYMALNA itd. Ale jakoś z tego wybrnąłem. Jeżeli ktoś ma jakąś sugestię to poproszę ( może jakiś odpłatny komponent do komunikacji ? ) . Ewentualnie jakiś dobry link/materiały Instrukcji CPortLib - ponieważ to co znalazłem było niewystaczajace. Pozdrawiam i dziękuję za pomoc ( zwłaszcza Mirka )

Statystyki: Napisane przez kidcowboy — 5 sty 2022, o 00:14

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-04T18:08:37+01:00

No ja nawet jakbym chciał to nie dam rady teraz tego analizować aż w takich szczegółach - postaraj się zastosować Debuger na jednej diodzie LED

https://www.youtube.com/watch?v=yVFf22JxuEs

Statystyki: Napisane przez mirekk36 — 4 sty 2022, o 18:08

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-04T11:44:43+01:00

Witam. Gdzieś popełniłem chyba popełniłem błąd. Otóż komunikacja nie działa mi z AVR do App . W drugą stronę jest ok. Wykorzystałem komponent ComPort oraz MkUsbDetector . Wyciąłem "wrzody" po poprzednim komponencie ale pewnie z jakimś ważnym organem Poproszę o pomoc - jeśli się da

[syntax=delphi]unit Com_Uart_Avr;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls,
Vcl.Samples.Gauges, Vcl.Buttons, CPort, mk_usb_detector ;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Memo1: TMemo;
Splitter1: TSplitter;
Panel3: TPanel;
StatusBar1: TStatusBar;
Panel4: TPanel;
Timer1: TTimer;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Gauge1: TGauge;
Label1: TLabel;
Label2: TLabel;
ProgressBar1: TProgressBar;
Edit1: TEdit;
BitBtn1: TBitBtn;
TrackBar1: TTrackBar;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Button1: TButton;
Label3: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label4: TLabel;
CPort: TComPort;
ComDataPacket1: TComDataPacket;
MkUsbDetector1: TMkUsbDetector;
// procedure ApdDataPacket1StringPacket(Sender: TObject; Data: AnsiString);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure ComboBox1DropDown(Sender: TObject);
procedure ComDataPacket1Packet(Sender: TObject; const Str: String);
procedure MkUsbDetector1ComDetect(Sender: TObject; ComPort: string;
inout: Integer);

private
{ Private declarations }
dir :Integer;
val:Integer;
max:Integer;

public
{ Public declarations }

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MkUsbDetector1ComDetect(Sender: TObject; ComPort: string;
inout: Integer);
begin

if inout=1 then begin
StatusBar1.Panels[0].Text:=ComPort;
end

else begin
StatusBar1.Panels[0].Text:='COM?';
if CPort.Port=ComPort then CPort.Close; // zniknął COM6 // to zamknij port

end;

end;

//procedure TForm1.ApdDataPacket1StringPacket(Sender: TObject; Data: AnsiString);

// var
// buf: String;
// tab: TArray ;
//
//begin
//// Trim -> obcięcie znaków niedrukowanlych Enter etc.
//buf := Trim ( String (Data )); //rzutowanie Ansi Data na String
//Memo1.Lines.Add( buf );
//
//tab:= buf.Split([',']);
//
// dir:= StrToIntDef(tab[0],0); // jakby wapdł inny znak niż int to 0
// val:= StrToIntDef(tab[1],0);
// max:= StrToIntDef(tab[2],0);
//
// TrackBar1.Max:=max;
// TrackBar1.Position:=val;
//
// Label1.Caption:= tab[1];
// Label2.Caption:= tab[1];
//
// ProgressBar1.Max:= max ;
// Gauge1.MaxValue:= max;
//
//
// ProgressBar1.Position:=val;
// Gauge1.Progress:=val;
//
//// StatusBar1.Panels[0].Text:= 'COM'+IntToStr(CPort.ComNumber);
// StatusBar1.Panels[1].Text:= 'val='+tab[1];
// StatusBar1.Panels[2].Text:= 'max='+tab[2];

//end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var
buf:string;
vl:Integer;
begin

buf:=Edit1.Text;
vl:=StrToIntDef(buf,128);
if(vl<16) then vl :=16 ;
if(vl>999) then vl:=999 ;
buf:=IntToStr(vl);
Edit1.Text:=buf;
buf:= 'max:'+buf ;
// Należy dodać znak ENTER do wysłania stringa pzrez bufor
//
// Poprzednia Wersja // CPort.PutString(buf+#13);
CPort.WriteStr(buf+#13);

Memo1.Lines.Add(buf);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
CPort.Connected :=TRUE ;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
CPort.Connected:=FALSE ;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin

MkUsbDetector1.GetAvailableComPorts(ComboBox1.Items);

end;

procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: String);

var
buf : string;
tab : TArray ;

begin

// Trim -> obcięcie znaków niedrukowanlych Enter etc.
buf := Trim( Str );
Memo1.Lines.Add( buf );

tab:= buf.Split([',']);

dir:= StrToIntDef(tab[0],0); // jakby wapdł inny znak niż int to 0
val:= StrToIntDef(tab[1],0);
max:= StrToIntDef(tab[2],0);

TrackBar1.Max:=max;
TrackBar1.Position:=val;

Label1.Caption:= tab[1];
Label2.Caption:= tab[1];

ProgressBar1.Max:= max ;
Gauge1.MaxValue:= max;

ProgressBar1.Position:=val;
Gauge1.Progress:=val;

// StatusBar1.Panels[0].Text:= 'COM'+IntToStr(CPort.ComNumber);

StatusBar1.Panels[1].Text:= 'val='+tab[1];
StatusBar1.Panels[2].Text:= 'max='+tab[2];

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//CPort.Open:=TRUE;;
//StatusBar1.Panels[0].Text:= 'COM'+(CPort.Port); //
max:=128;
PageControl1.ActivePageIndex:=0;
MkUsbDetector1.GetAvailableComPorts(ComboBox1.Items);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var
buf:string;
begin
Timer1.Enabled:=False;
buf:='val:'+ IntToStr(TrackBar1.Position)+','+IntToStr(max);

CPort.WriteStr(buf+#13);

// CPort.Port := buf+#13 ;

//To wersja poprzednia // CPort.PutString( buf+#13 );
Memo1.Lines.Add( buf);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin

Timer1.Enabled:=False;// ŻEBY ZAWSZE ODLICZAŁ SIĘ OD NOWA
Timer1.Enabled:=True;

end;

end.[/syntax]

Statystyki: Napisane przez kidcowboy — 4 sty 2022, o 11:44

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-03T08:58:20+01:00

po stronie AVR zamieniaj to na wartości procentowe 0-100

Statystyki: Napisane przez mirekk36 — 3 sty 2022, o 08:58

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-02T21:28:49+01:00

Problem polegał na tym, że obliczenia zmiennej [syntax=c]int w =((barpx*val)+(val_max/2))/val_max;[/syntax] powodują na pewnym etapie przekroczenie zakresu przy wartości 591 ( zdjęcia ) i stąd problem

Natomiast przeliczenie z rzutowaniem do UL
[syntax=c]int w =((1UL*barpx*val)+(val_max/2))/val_max;[/syntax]
powoduje nadpisanie (skasowanie ) prawego ogranicznika bargrafa - podczas przesuwania w lewo suwakiem z pozycji 600 na 599- brak zdjęcia

Problem nie występuje podczas przeliczania i rzutowania zaprezentowanego wcześniej przez Mirka
[syntax=c]int w =(barpx*1000UL)/((val_max*1000UL)/val);[/syntax]

Statystyki: Napisane przez kidcowboy — 2 sty 2022, o 21:28

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-02T11:29:53+01:00

ok ale ja nie mogę sobie wyobrazić o czym mówisz - jeden obraz - czyli screnshoot zastąpiłby tysiąc słów

Statystyki: Napisane przez mirekk36 — 2 sty 2022, o 11:29

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-02T10:50:44+01:00

Witaj "Niezmordowany Mirku" mi chodzi o to, że podczas zwiększania w Polu Edit zakresu np. val_max=600 "coś się dzieje" przy w/w wartości ( zwiększając wartość track barem) Bardzo dziękuję za szybki jak zawsze odzew.

Statystyki: Napisane przez kidcowboy — 2 sty 2022, o 10:50

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-02T10:34:22+01:00

kidcowboy napisał(a):

ale czy ktoś może wytestował ten suplement na wartościach większych od 512 ?

Z tego co pamiętam to progressbar działa na wartościach procentowych od 0 do 100 a nie tam jakichś kosmicznych wartościach, ale to trzeba sobie zajrzeć do kodu - bo ja teraz nie mam możliwości

Statystyki: Napisane przez mirekk36 — 2 sty 2022, o 10:34

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2022-01-02T09:29:07+01:00

Witam. Przepraszam że odgrzewam temat, ale czy ktoś może wytestował ten suplement na wartościach większych od 512 ? Powiedzmy na 590 ? Bo mi przy tej wartości wykrzacza się LCD. Objawia się to tym że " kreski z progress bara " wypełniają cały wyświetlacz LCD ( ba wiersze)

Statystyki: Napisane przez kidcowboy — 2 sty 2022, o 09:29

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2017-03-12T19:57:15+01:00

Quote:

kurnachatka - mogę się mylić ale może to być spowodowane tym że przejściówką jaką masz na pokładzie arduino nie posiada numeru seryjnego. U mnie tak jest przy arduino nano że jest informacja o producencie ale brakuje numeru seryjnego.

Dzięki za info.

Statystyki: Napisane przez kurnachatka — 12 mar 2017, o 19:57

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2017-03-12T19:26:45+01:00

kurnachatka - mogę się mylić ale może to być spowodowane tym że przejściówką jaką masz na pokładzie arduino nie posiada numeru seryjnego. U mnie tak jest przy arduino nano że jest informacja o producencie ale brakuje numeru seryjnego.

Statystyki: Napisane przez MichalXY — 12 mar 2017, o 19:26

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2017-03-12T17:54:31+01:00

Witam Kolegów,
testował ktoś może tą aplikację pod Arduino? (w moimi przypadku Arduino UNO)
Bo u mnie wszystko śmiga do czasu za symulowania odłączenia kabla usb aplikacja się wiesza.
Na zestawie ATB 1.04 wszystko śmiga jak trzeba na wszelkie próby odłączania i przyłączania usb jak w poradniku.

Statystyki: Napisane przez kurnachatka — 12 mar 2017, o 17:54

Re: Delphi - AVR i nieco bardziej zaawansowana komunikacja R

2017-02-27T21:27:58+01:00

Hannibal9 napisał(a):

czy to możliwe, że uruchamiając aplikacją na komputerze dochodzi do przerwy w zasilaniu z USB i dlatego zestaw AVR się resetuje?

sprawdź zworki domyślne, szczególnie białą ARST

Statystyki: Napisane przez mirekk36 — 27 lut 2017, o 21:27