daten von serieller Schnittstelle

[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:

Zitat von binderj1 (Beitrag 1265281)

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:

Zitat von hathor (Beitrag 1265295)

was zeigt das lcd an?

Anhang 41448

[binderj1]

ich muss jetzt auf eine Hochzeit, am Montag mache ich wieder weiter.

Danke an alle die mir bis jetzt ihre Zeit geopfert haben.:-D

mfG
Johannes

[himitsu]

Diese ComPort-Komponente bietet nicht zufällig eine Möglichkeit an, die Daten zeilenweise auszulesen, oder bis zu einem definierbarem Stoppzeichen?

Man kann mantürlich die empfangenen Daten selber Cachen und an den Trennzeichen aufsplitten, um die Daten zu bekommen,
oder man lässt es automatischmachen.

Code:

Serial.println(...);

Trennt die einzelnen Werte ja mit einem Zeilenumbruch und an diesem kann man sie auch auftrennen.


PS: Man kann das ganze natürlich auch andersrum gestalten, indem das Arduino-Programm den aktuellen Wert nur auf Anfrage rausrückt,
oder zumindestens doppelte Werte weglässt. (z.B. nur bei Änderung "schnell" die Werte rausrückt und ansonsten längere Pausen lässt ... gibt weniger Probleme bei der Auswertung, da man bei einer Auslastung im PC nicht so schnell in ein Pufferüberlauf läut und auch so weniger "unnötige" Daten auswerten muß)

[hathor]

Hier gibt es ein kostenloses Paket mit Sourcecode + Beispielprogrammen:
http://comport.sf.net/

Das MiniTerm-Programm passt perfekt zum ARDUINO.