Uit Hack42
Versie door Duur (overleg | bijdragen) op 3 aug 2018 om 17:05 (Naam toegevoegd via button)
Ga naar: navigatie, zoeken
Introductie: GUI bouwen met Lazarus / Free Pascal
Schroefje24.png
Schroefje24.png
Schroefje24.png
Schroefje24.png
GUI-Foucault.jpg
Naam GUI bouwen met Lazarus / Free Pascal
Locatie Hack42
Datum Jan 13 1337 13:37:00
Contact janbee
Info Een Graphical User Interface bouwen met Free-Pascal en de Lazarus IDE
Voorzitter janbee
GUI-Foucault.jpg File:GUI-Foucault.jpg


Wat

Je hebt een leuk projectje gemaakt met een Arduino, maar nu wil je de gegevens presenteren in een grafisch scherm op een PC of laptop. Hoe maak je zoiets? Of whatever ander programma met een smoelwerk.

1 van de vele mogelijkheden is om zelf een GUI (Graphical User Interface) te maken. Ook daar zijn veel platforms voor te vinden, maar na lang zoeken heb ik voor FreePascal (Wikipedia) + Lazarus (Wikipedia) gekozen, omdat dat een goed geïntegreerde omgeving is die zo goed als geen configuratie behoeft, gratis is en beschikbaar is voor Windows, Linux, Mac, Raspberry-Pi en zelfs Android. De slogan is "Write once, compile everywhere". Dat is niet 100% waar, maar het komt er dicht bij.

Free Pascal is een taal die qua nivo vergelijkbaar is met C++, het kent dezelfde structuren maar het heet allemaal net even anders, helaas. De Lazarus IDE laat je met de muis allerlei controls naar je forms slepen (wysiwyg) en eenvoudig de properties en event-handlers instellen. Mensen die eerder met MS Visual Basic of VisualC++ gewerkt hebben zullen veel herkennen.

Voorbeelden van door mij met Lazarus-FPC gemaakte GUI's zijn het bedieningsprogramma van mijn CNC in het Makerlab (PC-WXP-platform), de readout van de Boor-Freesmachine in de Metaalwerkplaats (Raspberry-Pi) en een interface voor de bediening en logging van een Foucault slinger, W7 (zie plaatje).

Deze introductie is bestemd voor mensen die al een redelijke programmeer ervaring hebben met bijv. C++ als bij de Arduino familie. Het is beslist géén beginnerscursus programmeren, Wel voor beginners op GUI gebied.

Hoe

Ik denk de introductie in 3 delen te doen:

1: Waarom FPC en Lazarus, de belangrijkste verschillen tussen Pascal en C, struktuur van een Pascal programma, enkele veel voorkomende controls (dat zijn oa die dingen waar je met een muis op kunt klikken), en de concepten van properties en events / event handlers. En natuurlijk starten we met een "Hello World" exercitie.

2: Communicatie met bijv. een Arduino, zowel seriëel als via een netwerk. Het installeren van pakketten.

3: Meerdere forms. Units in Pascal vs. Headerfiles in C/C++.

Voorbereiding

Installeer Lazarus / fpc op je laptop:

  • Windows: Google op "Lazarus fpc", download en installeer. Het doet er nier erg toe welke versie.
  • Linux: Met sudo apt-get install lazarus fpc krijg je een wat oudere versie maar die werkt prima. Voor de laatste versie moet je zoeken naar een debian pakket.
  • Mac: Weet ik niet. Zoeken en installeren.


Vooruitlopend vast enkele in het oog springende verschillen tussen Pascal en C/C++:

Pascal                                        C/C++
Niet hoofdlettergevoelig                      Hoofdlettergevoelig

begin                                         {
  < statement block >                           < statement block >
end;                                          }

{ Commentaar }                                 /* Commentaar */ 

var 
  lengte, breedte : real;                      float lengte, breedte;
  Aantal : integer;                            int Aantal;
  JaHetKan: boolean;                           bool JaHetKan;

if conditie then statement                     if (conditie) statement; 
  else anderstatement;                           else anderstatement;   

for i:= 1 to 10 do statement;                  for(i=1; i<=10; i++) statement;
for i:= 10 downto 1 do statement;              for(i=10; i>0; i--) statement; 

function Halveer (P: integer): real;           float Halveer (int P)
const twee = 2;                                {
begin                                            const twee = 2;
  Halveer:= P div twee;                          return(P / twee);
end;                                           }

procedure DoeIets (var K : real);              void DoeIets (float *K)
begin                                          {
  K:= Halveer(K);                                *K = Halveer(*K);
end;                                           }

Animo

Voeg jezelf toe als je interesse hebt in deze introductiecursus: