daten von serieller Schnittstelle

[binderj1]

Zitat von mkinzler:

Du musst die Informationen in einer Schleife Pollen.

hast du ein beispiel für mich? stehe voll am schlauch

[mkinzler]

Schau Dir das capture Beispiel, dass dabei ist.

[himitsu]

Hat die Componente vielleicht auch eine Art von OnData-Event?

(andere TComPort-Komponenten bieten ja auch sowas ... dort läuft dann im Hintergrund ein Thread, welcher immer mal wieder versucht Daten auszulesen und wenn etwas gelesen wurde, dann bekommt man das über ein Event mit)

[mkinzler]

Der Event heisst onRxChar

[binderj1]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

begin

  vacomm1.Open;

 end;




procedure TForm1.OnRxChar(Sender: TObject; Count: Integer);
   var
     s: string;
begin
 vaComm1.ReadChar(s, Count);
     label1.Caption:= s;

end;

so??

[hathor]

Brauchst Du nicht auch ein Programm für den ARDUINO als ADC?

Z.B.

Delphi-Quellcode:

// ADC 

int ADC0=0;   
int value;
int LEDpin=13;


void setup() 

  Serial.begin(9600);


void loop()

  value=analogRead(ADC0);
  Serial.print("ADC0 = ");  
  Serial.println(value);
  delay(1000);  
// alle nötigen Klammern entfernt - sind verwirrend...

Zum Testen: LED blinken lassen mit einstellbarer Frequenz durch Poti

Delphi-Quellcode:

// LED Blinkfrequenz über ADC einstellen

int ADC0=0;   
int value;
int LEDpin=13;


void setup() 
//{
  pinMode(LEDpin,OUTPUT);
//}

void loop()
//{
  value=analogRead(ADC0);    
  digitalWrite(LEDpin, HIGH);  
  delay(value);                
  digitalWrite(LEDpin, LOW);   
  delay(value);                  
//}

[binderj1]

Delphi-Quellcode:

const int analogInPin = A0;  
int sensorValue = 0;      
int winkel =0;
#include <LiquidCrystal.h>

 

LiquidCrystal lcd(12, 11, 6,5, 4, 3);

 

void setup() {
  
  lcd.begin(16, 2);
  Serial.begin(9600); 
}

void loop() {
 
  sensorValue = analogRead(analogInPin);            
 
  winkel = sensorValue /2.841;
  
 delay (500)
 Serial.println(winkel);   

  
lcd.clear();
lcd.setCursor(0, 0);
lcd.print("Winkel = ");
lcd.print(winkel);

}

das ist das Arduino-Programm

[hathor]

Was zeigt das LCD an?

[jensw_2000]

Zitat von binderj1:

Delphi-Quellcode:

procedure TForm1.OnRxChar(Sender: TObject; Count: Integer);
   var
     s: string;
begin
 vaComm1.ReadChar(s, Count);
     label1.Caption:= s;

end;

so??

Ne.
Du musst Dir einen Ringpuffer erstellen, an den die per ReadChar empfangenen Bytes angehängt werden.
Den Ringpuffer kannst Du dann auslesen und weiterverarbeiten (ausgeben, speichern, wasAuchImmer).

Ich hänge Dir mal ein XE2 DataModule an, das ich damals für einen Drehzahl Messplatz gebaut habe.
Für Delphi 6 wirst Du vermutlich einige Dinge anpassen müssen.
Dort verwendete ich die ComPort Library für die Serielle Kommunikation.

Es gibt sicher bessere Lösungen dafür. Schlechtere aber auch.
Das Prinzip sollte jedenfalls klar werden.
Schaue es den Code an und nimm, was Du davon verwenden möchtest.

[binderj1]

Zitat von hathor:

was zeigt das lcd an?

2014-07-12 11.04.01.jpg