Lazarus e domotica

[Diego1981]

ciao xiny
grazie della dritta, comunque a forza di "sniffare" la seriale sono riuscito a capire ed anche a fare accendere e spegnere i relè della scheda di output

giusto se servisse a qualcuno
la stringa viene inserita in esadecimale e sempre in esadecimale (non in binario come pensavo) deve essere mandata alle schede via rs 485 quindi mi sono mosso cosi:

traduco la stringa esadecimale in decimale e da decimale la traduco in char(a coppie),  unisco i char in una stringa e la invio .......
risultato
la stringa viene inviata nel formato esadecimale e quindi il comando viene eseguito.
mi manca solo capire perchè devo inviare una stringa di char per ottenere una striga esadecimale (giusto per avere una spiegazione)
spero di essere stato chiaro
ciao e grazie
diego

[Diego1981]

ciao ragazzi
sto procedendo con l'imparare un po' su queste schede e ora ho una nuova questione....
visto che per continuare a verificare lo stato di ingressi ed uscite devo far si che il programma continui a comunicare con la seriale......come faccio nel bel mezzo ad infilarci un comando inviato dal mio software se questo è sempre impegnato ad inviare e ricevere? credo sia una problematica normale per la comunicazione seriale ma non so 
ciao e grazie a tutti come sempre
Diego

[nomorelogic]

immagino che ci sarà una interrogazione ad intervalli di tempo, spero non si tratti di una interrogazione in un loop infinito

innanzitutto hai bisogno di un semaforo che indichi se stai comunicando o no.

poi devi prevedere una coda:
- quando devi inviare un comando alla seriale in realtà lo inserisci nella coda
- una volta inserito il comando lanci subito l'elaborazione della coda: se il semaforo è rosso esci e non fai nulla

nel timer dell'interrogazione:
- appena terminata l'interrogazione, metti il semaforo a verde e lanci l'elaborazione della coda

[Diego1981]

Ciao Nomore
la mia paura era quella di dovere usare un multithread ma come lo hai messo giù tu mi semplifica molto la vita ed ovviamente non ci avevo pensato.
Fortuna che c'è il forum
Grazie
Diego

[nomorelogic]

in questo caso i thread non sarebbero una buona soluzione in quanto la rs485 di sicuro non è (multi)thread safe
un semaforo ti mette di sicuro al riparo

ciao
nomorelogic

[Diego1981]

anche se stavo pensando che il ciclo è praticamente infinito
e quindi come gestisto il semaforo? auz
sono tornato nella confusione

[nomorelogic]

con un TTimer?

[Diego1981]

ciao nomore
grazie della pazienza,inannazitutto (con me ce ne vuole tanta)

provo a descriverti la procedura (magari è sbagliata anche quella):

1 una volta connesso alla seriale invio comando di status degli I/O
2 ricevo risposta dalla seriale
3 elaboro la stringa ricevuta (ma nello stesso tempo devo già richiedere lo status degli input per non perdere eventuali segnali in ingresso)

domanda

non capisco come sia possibile ,per esempio, premere un bottone su di una form se "dietro" lo stesso programma continua ad interrogare (inviare e ricevere) dati dalla seriale e quindi il programma è sempre impegnato nel ciclo "infinito" di comunicazione
(credo sia un po' come fare elaborare dati da una parte e volere continuare ad inserirne dall'altra)spero di essermi spiegato

forse non riesco a capire bene come interpretare il tuo suggerimento del semaforo con il ttimer

grazie 

[nomorelogic]

il discorso del ciclo infinito alla fine non è che sia questo gran problema, basta mettere uno sleep per ottenere un'attesa.

per quanto riguarda il "bottone sulla form", come dicevo sul post precedente, non devi mandare il comando direttamente ma lo devi mettere in coda.

poi il famoso loop infinito lo puoi fare tipo

Codice: [Seleziona]

var esci_dal_ciclo: boolean;
      s: string;
begin
   esci_dal_ciclo := false;
   repeat

      while coda.count > 0 then         
            // preleva comando da prima posizione coda
            s := coda[0];
            // elimina il primo elemento nella coda
            coda.delete(0); 
            // invia comando
            send_command_rs485(s);
            // legge risultato
            s := get_rs485_result;
            // fa qualcosa col risultato
            process_rs485_result(s);
      end;

      // legge status
      send_command_rs485('get_status');
      s := get_rs485_result;
      process_rs485_result(s);

      // se è il caso aspetta
      if coda.count = 0 then
         sleep(300);

   until esci_dal_ciclo;
end;

In questo modo se l'utente non invia comandi, il loop esegue sempre una interrogazione dello stato.
Se ci sono comandi, questi vengono eseguiti e poi si riparte con l'interrogazione.
Nel pezzo di codice sopra i comandi utente vengono eseguiti tutti quanti prima di riprendere ad interrogare lo stato, se non dovesse andar bene puoi fare 1 comando e poi interroghi.

Poi nella form ci puoi mettere 2 pulsanti:
1) un bottone che imposta esci_dal_ciclo = true (per uscire dal repeat/until e chiudere il programma)
2) un bottone che mette il comando che vuole l'utente nella coda


Con questo modo non ti serve neanche il semaforo; non so se il pezzo di codice è adatto a quello che vuoi fare tu ma intanto può essere un inizio.

Ciao
nomorelogic

[Diego1981]

ciao Nomore
grazie delle dritte ma vorrei sottoporti ilseguente codice (che poi è quasi il tuo)...
Una form e due pulsanti: il primo fa partire e il secondo dovrebbe fermare ma è in possibile in quanto il ciclo continua...è li che non capisco
ho inserito 1000 righe allo show in una stringlist
lancio il via (button1)
ma ne durante l'eliminazione delle 1000 righe ne durante il ciclo di sleep riesco a preme l'altro bottone.
in buona sostanza fino a che il ciclo di repeat non finisce non posso intervenire e nemmeno durante il ciclo di sleep

Codice: [Seleziona]

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure ciclo;
  private
    { private declarations }
    ferma: Boolean;
    coda: TStringList;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to 100 do
      coda.Add('comando'+IntToStr(i));
  ciclo;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ferma:= True;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  coda.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  coda:= TStringList.Create;
end;

procedure TForm1.ciclo;
var
  s: String;
begin
  ferma:= False;
   repeat
      while coda.count > 0 do
        begin
          // preleva comando da prima posizione coda
          s := coda[0];
          // elimina il primo elemento nella coda
          coda.delete(0);
          // fa qualcosa col risultato
          Label1.Caption:= s;
        end;
      if coda.count = 0 then
         sleep(300);
   until ferma;
end;

end. 

[nomorelogic]

metti in mezzo al loop:
Application.ProcessMessages;

in questo modo il loop sarà un po' più lento ma la form e soprattutto i bottoni dovrebbero rispondere

[Diego1981]

stavo per dirti la stessa cosa
ahah
gli ingressi vengono letti e visualizzati gli stati sulla form
anche i bottoni funzionano
il loop rallenta
grazie

[Stilgar]

xinyiman, il mio spacciatore di schede arduino è http://www.robot-italy.com/.
Preso tutto on line e pagamento in contrassengo.
All'epoca era l'unico che mi permetteva di pagare quando vedevo il pacchetto.
"Non fidarsi si fa peccato, ma non si sbaglia mai" (cit)

Stilgar

[xinyiman]

xinyiman, il mio spacciatore di schede arduino è http://www.robot-italy.com/.
Preso tutto on line e pagamento in contrassengo.
All'epoca era l'unico che mi permetteva di pagare quando vedevo il pacchetto.
"Non fidarsi si fa peccato, ma non si sbaglia mai" (cit)

Stilgar

Interessante grazie

[Diego1981]

ho visto diverse cosette interessanti su quel sito e secondo me si possono applicare anche alla domotica fai da te