Delphi Programming
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
User Name:
Password:
Remember me
Go Back   Dev Shed ForumsProgramming Languages - MoreDelphi Programming

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread Dev Shed Forums Sponsor:
  #1  
Old March 7th, 2004, 02:37 PM
wriggles wriggles is offline
Registered User
Dev Shed Newbie (0 - 499 posts)
 
Join Date: Mar 2004
Posts: 2 wriggles User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
plotting with TChart

Hello all.

I'm getting MIDI timestamp information which I want to plot in real-time using TChart. I'm putting the values ( in milliseconds ) into a listbox at the moment to see what they are. Could anyone give me a clue how to get these values to plot on the Chart?

Thanks all

David.

Reply With Quote
  #2  
Old March 8th, 2004, 05:09 PM
Scorpions4ever's Avatar
Scorpions4ever Scorpions4ever is offline
Banned ;)
Click here for more information.
 
Join Date: Nov 2001
Location: Glendale, Los Angeles County, California, USA
Posts: 7,713 Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level)Scorpions4ever User rank is General 3rd Grade (Above 100000 Reputation Level) 
Time spent in forums: 1 Month 3 Days 11 h 21 m 11 sec
Reputation Power: 1179
See the section on Adding Data to a Series here:
http://www.adug.org.au/reference/NotesOnTeeChart.htm
__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne

Puzzle of the Month solved by Keath and KevinADC, superior perl programmers of the month

Reply With Quote
  #3  
Old March 9th, 2004, 03:02 AM
wriggles wriggles is offline
Registered User
Dev Shed Newbie (0 - 499 posts)
 
Join Date: Mar 2004
Posts: 2 wriggles User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Quote:
Originally Posted by Scorpions4ever
See the section on Adding Data to a Series here:
URL




Thanks man, I'll check it out. Maybe it'll engender a "Wind of Change". For the rest:

Ok, so maybe I didn't inspire you to come to my rescue, but can you resist the temptation of code?

I'm plotting chart values from MIDI input values. The bottom axis is timestamp values and the left axis should be different for each MIDI note number. I've got the chart doing kind of the right thing for one Y value. Here's my procedure:

procedure TForm1.FormCreate(Sender: TObject);
begin
MidiInput1.Open;
MidiInput1.Start;
MidiOutput1.Open;
end;

procedure TForm1.MidiInput1MidiInput(Sender: TObject);
var
thisEvent: TMyMidiEvent;
begin
with ( Sender As TMidiInput ) do
begin
thisEvent := MidiInput1.GetMidiEvent;
ListBox1.Items.Add(IntToStr( thisEvent.Time ));
ListBox2.Items.Add(IntToStr( thisEvent.Data1 ));
MidiOutput1.PutMidiEvent(thisEvent);
thisEvent.Free;
end;

with Series1 do
begin
AddX ( thisEvent.Time , IntToStr( thisEvent.Time ), clRed );
end;



Any advance on this would be great as I'm stuck at this point.

Thanks in hope.

Dave.

Reply With Quote
Reply

Viewing: Dev Shed ForumsProgramming Languages - MoreDelphi Programming > plotting with TChart


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 3 hosted by Hostway
Stay green...Green IT