Jak wyodrębnić dane z bufora RS232 w Delphi do wykresu TChart?

Question

Witam Niedawno zacząłem walke z DELPHI i chce napisać program który by dane odebrane przez RSa wyswietlał w formie wykresu. Mam przykład z książki RS232 Praktyczne programowanie RS_27.pas tam jest właśnie taki wykres , zmodyfikowałem program tak że pyta się wartością 54h atmela 89c2051 ,a on...

Piotrek_P · Answer

Witam Co do procedury val to Help się kłania. Służy ona do zamiany ciągu znaków na liczbę. Ma ona tą zaletę że zwraca kod błędu konwersji. Nie wiem jak wygląda ten program z książki ale jeżeli ramka danych się nie zmienia to można zrobić np tak: _temperatura_ := StrToInt(Copy(_bufor_, _pozycja_ , _ilosc_znakow_)); gdzie: _temperatura_ : to wynik zamiany stringa na integer _bufor_ : wiadomo, ciąg znaków z portu _pozycja_ : czytamy bufor od np 5-tego znaku _ilosc_znakow_ : interesują nas np tylko trzy Oczywiście zmienne muszą być wcześniej zadeklarowane. Pytanie, jak będzie wyglądać ramka jeżeli zmierzymy temeraturę ujemną? Pozdrawiam Piotrek

MAREK74 · Answer

sytuacja wyglada tak:
procek wysyła 15 , 10 , 13

gdzie 15 to temperatura w hex
10 i 13 to jakies tam wartości które sobie ot tak wysyłam

bufor wejsciowy:
const
cbOutQueue = 32;

var
Buffer_I : ARRAY[0..cbInQueue] of Char; // bufor wejściowy

zdefiniowany jako char bo przy zapytaniu 50h procek przedstawia się nazwą urządzenia która to nazwa wkładana jest do statusbar
moge zrobic tak :

temperatura := buffer_I[0];
ale zmienna "temperatura" musiała by być tez jako char
ale:
Form1.Series1.AddXY(intVar, temperatura , '',clTeeColor);

nie przyjmuje zmiennej "temperatura" jako char
problem w tym że buffer_i jest ładowany raz danymi które są napisem a raz danymi w formie hex
trza by przekonwertować buffer_I[0]; czyli pierwszą daną z bufora na byte lub integer żeby Form1.Series1.AddXY(intVar, temperatura , '',clTeeColor); ją przyjął

jak by co to umieszcze tu cały program bo nie jest długi

Piotrek_P · Answer

Jeżeli masz char a potrzebujesz integer to robisz tak: temperatura := StrToInt(bufor[0]); a potem robisz ze zmienną temperatura co chcesz. Pozdrawiam Piotrek

spros · Answer

to 10 13 to znak konca wiersza. dostajesz poprostu wiersz jak ze strumienia?

procedure val(S; var V; var Code: Integer);
jest zdecydowanie lepsze od StrToInt. masz lepsza kontrole nad tym co otrzymasz.

temperatura := StrToInt(bufor[0]); czy temperatura jest zawsze w zakresie 8bit? jesli nie to nie zadziala.

a i jesli to przychodzi nie jako tekst to robi sie to prosto:
temperatura = (byte)bufor[0];
lub do dowolnego innego typu (_TYPE):
temperatura = (_TYPE)bufor;

jesli jako tekst to wykorzystaj "val". sprawdz wartosc code. jesli jest niezerowa to tylko tyle pierwszych liter w buforze da sie reprezentowac jako liczbe zmiennoprzecinkowa. mozesz wtedy probowac konwersji dokladnie takiej liczby znakow. umozliwia to np. konwersje lancucha "23.45ghskfdj"
pierwszy val da code = 5 wiec teraz bierzemy tylko 5 pierwszych znakow "23.45" i konwertujemy do 23.45. co wiecej mozesz uzyskac prawidlowa wartosc jesli tekst bedzie np: "1.23456e-3" przekonwertuje ci jako 0.00123456

MAREK74 · Answer

zmieniłem bufor wejściowy na byte i uruchomiłem temperature czyli jest odkładana na osi pionowej i wyswietlana w okienku
ale nie moge uruchomic drugiej danej która jest dwubajtowa czyli w tym przykładzie 10 13 w dec (0Ah 0Dh) chce ją odkładac na osi poziomej kombinuje jak koń i nic

Buffer_I : ARRAY[0..cbInQueue] of word; // bufor wejściowy
obroty : word;

obroty := Copy(buffer_i, 1, 2);

lipa
Buffer_I : ARRAY[0..cbInQueue] of byte; // bufor wejściowy
obroty : word;

obroty := Copy(buffer_i, 1, 2);
lipa

spros · Answer

10 13 w dec (0Ah 0Dh)

to znak konca linii. prawdopodobnie informuje o koncu strumienia danych.

lipa. jak dostajesz worda to zrob tak:

Buffer_I : ARRAY[0..cbInQueue] of byte; // bufor wejściowy
obroty : word;

obroty := (word)Buffer_I;

nie mam kompliatora ale zobacz.

w porywach porwij sie na taka rzecz (tez bez testow):
Buffer_I : ARRAY[0..cbInQueue] of byte; // bufor wejściowy
bufptr : pointer;
obroty : word;

bufptr := ^Buffer_I;
obroty := (word)bufptr^;

MAREK74 · Answer

HA
zrobiłem łopatologicznie:

Buffer_I : ARRAY[0..cbInQueue] of byte; // bufor wejściowy
obrotyl : byte;
obrotyh : byte;
obroty : word;

obrotyh :=(buffer_i[1]);
obrotyl :=(buffer_i[2]);
obroty :=(256*obrotyh);
obroty :=(obrotyl+obroty);

Form1.Series2.AddXY(obroty , buffer_I[0] , '',clTeeColor);

i..... działa
musze jeszcz popracowac na programem z procka żeby komunikacja nie bruździła w pomiarach

MAREK74 · Answer

witam ponownie wykres działa w trzech kolorach:) jak go teraz zapisać ale jako np .jpg

MAREK74 · Answer

..to odpowiem sam sobie(i dla innych) Chart1.SaveToBitmapFile('wykres'); i mamy plik w formacie .bmp duży...ale na początek może być

Jak wyodrębnić dane z bufora RS232 w Delphi do wykresu TChart?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Podsumowanie tematu