ATNEL tech-forum

Re: [Lazarus] Pierwszy program

2016-09-07T14:56:37+01:00

nixie napisał(a):

Naprawdę za dużo jest tych języków, środowisk... Można popaść tylko w rozterkę. Jak by był tylko Asembler to by było biednie ale sprawiedliwie

Niech żyje asembler!!!
Łatwy do nauczenia, krótkie i szybkie programy wynikowe, świetne - darmowe środowisko programowania:

Atmel Studio v.7.0

do pobrania ze strony:

http://www.atmel.com

Możliwość programowania procesorów:

Atmel AVR 8-bitowych
Atmel AVR 32-bitowych
Atmel AVR XMEGA
Atmel ARM
8051

w językach programowania:

asembler
C
C++
C dla Arduino

Statystyki: Napisane przez artom — 7 wrz 2016, o 14:56

Re: [Lazarus] Pierwszy program

2016-09-06T21:31:37+01:00

Naprawdę za dużo jest tych języków, środowisk... Można popaść tylko w rozterkę. Jak by był tylko Asembler to by było biednie ale sprawiedliwie

Statystyki: Napisane przez nixie — 6 wrz 2016, o 21:31

Re: [Lazarus] Pierwszy program

2016-09-06T21:12:15+01:00

dobry pomysł choć lazarus nigdy do mnie nie przemawiał , podobnie jak kilka lat w projekcie PLD
uważam za zmarnowane ... ale brawo ... że ci się chciało
to dobry pomysł ..

Mam takie przemyslenie ....

Słuchajcie olejcie standardy , nie trzymajcie się narzuconych schematów
popatrzcie jak to samo można napisac niemal tak samo w róznych językach ...
no dobra lazarus się nie liczy bo to też pascalopochodne ...

ale naprawdę da się swobodnie pracować w kilku - ba kilkunastu językach i dialektach
trzeba tylko chcieć ... zgłebić wiedzę , a gdy to się uda masz problem
bo zaraziłeś się rozjęzykowieniem pospolitym,

Statystyki: Napisane przez SunRiver — 6 wrz 2016, o 21:12

[Lazarus] Pierwszy program

2016-09-06T20:55:49+01:00

Po przeczytaniu tego wątku http://forum.atnel.pl/topic16144.html natchnęło mnie żeby samemu spróbować sił i pomrugać diodą ale w programie napisanym w Lazarusie. Chodziło mi głównie o to żeby stworzyć prostą aplikację i skompilować ją pod Windowsem i Linuxem. Zabrałem się do roboty jak dziecko we mgle i powstało coś takiego:

Udało mi się to odpalić w W10 a następnie przenieść projekt do Linuxa i tam go skompilować i pomrugać diodą. Do połaczenia z RSem użyłem biblioteki synaser http://synapse.ararat.cz/doku.php/download .Właściwie potrzebne są trzy pliki z tej biblioteki: synaser.pas, synautil.pas, synafpc.pas które skopiowałem do katalogu z projektem. Plik wynikowy początkowo miał pod Windowsem ok 18MB ale po odhaczeniu paru ptaszków w opcjach kompilacji zgodnie z tym poradnikiem https://www.youtube.com/watch?v=cm9c0FVNiuc&index=2&list=PL0BE41D3CA142028F wyszło 1,8MB Zdaję sobie sprawę z tego, że jest to prosty i prymitywny kod ale dla mnie ciekawe doświadczenie.

[syntax=delphi]unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Synaser;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
ser: TBlockSerial;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
ser.SendString('1');
Memo1.Lines.Add('Led ON');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ser.SendString('0');
Memo1.Lines.Add('Led OFF');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ser:=TBlockSerial.Create;
try
ser.Connect(Edit1.Text);
Sleep(1000);
ser.config(StrToInt(Edit2.Text), 8, 'N', SB1, False, False);
Sleep(1000);

finally
if ser.LastError <> 0 then
ShowMessage('Nie mogÄ™ podlÄ…czyÄ‡ portu')
else
begin
Button3.Enabled:=false;
Button1.Enabled:=true;
Button2.Enabled:=true;
Button4.Enabled:=true;
Memo1.Lines.Add('PodlÄ…czony do portu '+Edit1.Text);
end;
end;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin

ser.free;

Memo1.Lines.Add('RozlÄ…czony');

Button3.Enabled:=true;
Button1.Enabled:=false;
Button2.Enabled:=false;
Button4.Enabled:=false;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
end;

end.[/syntax]

Statystyki: Napisane przez nixie — 6 wrz 2016, o 20:55