Bonjour,
J'aimerais faire communiquer mon Arduino avec une application Lazarus à l'aide du composant "synaser" ou bien "lazserial", peu importe lequel puisque l'un est inspiré de l'autre et fonctionne sur le même principe d'après ce que j'ai compris. Cependant j'ai beaucoup de mal à les utiliser, j'ai beau regarder l'exemple fourni avec, je n'arrive pas à réceptionner les données sur ma carte. J'ai également regardé cette documentation http://synapse.ararat.cz/doc/help/synaser.html mais elle n'indique pas quelles fonctions utiliser.
Voici mon code actuel:
Avant de transmettre des commandes complexes, je me suis fixé comme objectif de transmettre simplement une variable qui s'incrémente au fur et à mesure que j'appuie sur un bouton. En cas de réussite, je devrais voir sur mon Arduino: 0 1 2 3...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 procedure TForm1.FormCreate(Sender: TObject); begin i:=0; ser:=TBlockserial.Create; try ser.RaiseExcept:=True; ser.Connect('COM5'); ser.Config(9600,8,'N',SB1,false,false); ser.SendString(inttostr(i)); //ser.Recvstring(consigne); //writeln (ser.ATCommand('ATI8')); finally ser.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin inc(i,1); Edit1.text:=inttostr(i); ser:=TBlockserial.Create; try ser.SendString(inttostr(i)); finally ser.Free; end; end;
Merci d'avance pour votre aide.
Partager