?
Solved

Please Help Me URGENTLY : Drawing A dynamic Chart

Posted on 2006-04-11
16
Medium Priority
?
184 Views
Last Modified: 2010-04-05
Hi,
I need a program that give its X,interval, and Y From My Program and
chart for me a diagram?

Best Regards
Hamid Reza
0
Comment
Question by:123456
  • 7
  • 3
  • 3
  • +1
14 Comments
 
LVL 46

Expert Comment

by:aikimark
ID: 16436313
0
 
LVL 2

Author Comment

by:123456
ID: 16929051
Hi,
>>Accept: aikimark
i dont have your idea.
because i need a sample program on that time.not a manual for reading.
if i want to read everything in a few time why i exist in EE.
I know Tchart have manual but i need a Example that cover least of my needs.
i knew some examples exist o demo section but it is so general.



0
 
LVL 2

Author Comment

by:123456
ID: 16929059
I think you should refund my points.
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 14

Expert Comment

by:cwwkie
ID: 16929117
> I think you should refund my points.
Then you should have said earlier that the answer of aikimark was not good, and give aikimark a change to reply to that.
( see also http://www.experts-exchange.com/help.jsp#hi49 and http://www.experts-exchange.com/help.jsp#hi51)

> because i need a sample program on that time.not a manual for reading.
I think aikimark has given a link to a sample program which fit your needs.
0
 
LVL 46

Expert Comment

by:aikimark
ID: 16929363
* I might suggest posting a 20-point question in the Delphi TA that includes the URL to this question.  At this point, this question is off the first page and it will draw little attention from other EE experts.

* You ought to clarify what you want/need in greater detail.  I realize that English is probably not your first language, so please be patient with our responses.  If you have problems understanding or following the online help, we probably need to know that as well.

Examples:
"I need a program" may mean that you need a procedure or an entire project.

"chart for me a diagram?" may limit our responses and suggestions to TChart (or equivalent) solutions.  Maybe you have plotting/graphing in mind.  Also, the "?" makes your sentence a question rather than a description of your problem, so the readers might not have understood this correctly.

* It may also help us to know what your Delphi (and general) programming experience is.  I will often give a very terse response, assuming that it will help a moderate-advanced developer.  As far as I knew, my response had helped you and you were off coding the rest of your application.

========================
I'm currently working on a question-writing helper specification for a future version of Experts-Exchange.com.  Language issues are one of the known obstacles that hinder efficient communications between question askers and experts.  Until that is in place, cwwkie probably put it best when recommending a dialog when you don't understand or have a problem with one of our suggestions.
0
 
LVL 2

Author Comment

by:123456
ID: 16929606
Ok,
i dont think anyone restrict 250 points for a link.
i solved my problems on that time.
i need that response urgently.
he responsed me after one day a link.
i should asked him another resource  and (S)he want response
me another link.

ok when he responsed a link and it is not my desired one.
i did myself it.
and i forgotten to refund my points.
and today see EE mail on my mail-box.


0
 
LVL 2

Author Comment

by:123456
ID: 16929616
i did that project myself.
i can put it on this thread.
0
 
LVL 2

Author Comment

by:123456
ID: 16929655
i have another open question that EE notify me.
but i accept that answer. because he helped me completely.
if you add a link about have simple Tchart that not helped me. i cant accept that question.
i  do that with Timage and using points.

>>
  I will often give a very terse response
<<
Terse response have Not 250 points value.

interval in Tchart restrcited with that component not with us.





0
 
LVL 14

Expert Comment

by:cwwkie
ID: 16930649
> Terse response have Not 250 points value.
Maybe it is not, but you have to let the experts know if you expect more. Often only a push in the right direction is needed. Then a simple link is all what is needed. Do not forget you don't give points for the quality of an answer, but to get your problem solved. Otherwise you should post a 100 point question, and if you receive a very good answer, you can always increase the points.

Also look from the other side, aikimark has spend some time on this question. I don't think it is fair to delete this question if the answer looks valid. he did not get a change to give a better answer because he did not know you were not happy with the answer (until now).

> and i forgotten to refund my points.
> and today see EE mail on my mail-box.
There are discussions about automatically sending an email to remind you a question is still open. But some members would call that spam, and I think the current member agreement would not allow such a mail. Until there is a better way, we use this way to clean up old questions.

> i solved my problems on that time.
If you have solved it yourself, the normal procedure is to post your own solution. Then you can ask to refund all or a part of your points. But because it is now in the cleanup process, the situation is a bit different. But I would suggest to post your own solution anyway, so we can look at it.
0
 
LVL 2

Author Comment

by:123456
ID: 16931218
My final code:


procedure TForm1.Button1Click(Sender: TObject);

Var
aryPoints:Array[0..10] of TPoint;
aryPoint:Array[1..10] of TPoint;
X1,Y1,i:Integer;
Y,delta:variant;
X,K:Double;
begin
// Center
AryPoints[0].x := 40   ;
AryPoints[0].y := 460;
// up
AryPoints[1].x := 40;
AryPoints[1].y := 40;
// left
AryPoints[2].x:=  440;// 580 +20
AryPoints[2].Y:=  460;

Form2.Image1.Picture.Bitmap:=nil;

with Form2.Image1 do
 begin
   // vertical
   Canvas.MoveTo(AryPoints[0].x,AryPoints[0].y);
   Canvas.LineTo(AryPoints[1].x,AryPoints[1].y);

   // Vertical
   CanVas.TextOut(AryPoints[1].X -5 ,AryPoints[1].Y-10 ,'Reliability');

   //Horizental
   Canvas.MoveTo(AryPoints[0].x,AryPoints[0].y);
   Canvas.LineTo(AryPoints[2].x,AryPoints[2].y);

   //
   CanVas.TextOut(AryPoints[2].x +10,AryPoints[2].y-5,'t(H)');

 X1:=AryPoints[0].x; //:= 40   ;
 y1:=AryPoints[0].y; //:= 420;
 Y1:=Y1-40;
 For i:=1 to 10 do
  begin
   Canvas.MoveTo(X1,Y1 );
   Canvas.LineTo(X1-5,Y1);
   Canvas.TextOut(X1-25,Y1-8,FloattostrF(i/10,ffFixed,1,1) );
   y1:=y1-40;

  end;

X1:=AryPoints[0].x; //:= 40   ;
y1:=AryPoints[0].y; //:= 420;
X1:=X1+(36);

 For i:=1 to 10 do
  begin
   Canvas.MoveTo(X1,Y1 );
   Canvas.LineTo(X1,Y1+5);
   Canvas.TextOut(X1-8,Y1+8,FloattostrF(i/10,ffFixed,0,1) );
   X1:=X1+40;
  end;

 if strtofloat(Edit3.Text)<0.4 then
    K:=0.00001
else
 if  strtofloat(Edit3.Text)<0.7 then
    K:=0.0025
else
    K:=0.01;


 If strtofloat(Edit3.Text)<0.5 then
  case NALL of
  4..6: X:=1-(P[NALL+1].Value+ 0.025)-K;
  9..20: X:=(1-((P[NALL+1].Value))-0.0025)-K;
  21..35:X:=(1-((P[NALL+1].Value))-0.00025)-K;
  36..55:x:=(1-((P[NALL+1].Value))-0.000025)-K;
  end
 else
  if  strtofloat(Edit3.Text)<0.9 then
  Case NALL of
  4..6: x:=1-(p[NALL+1].Value+ 0.016)-K;
  9..20:X:=(1-((P[NALL+1].Value))- 0.0016)-K;
  21..35:X:=(1-((P[NALL+1].Value)) -0.00016)-K;
  36..55:X:=(1-((P[NALL+1].Value)) -0.000016)-K;
  end
  else
    if  Strtofloat(Edit3.Text)<=1 then
    Case NALL of
       4..6: X:=1-(p[NALL+1].Value+ 0.0012)-K;
       9..20: x:=(1-((P[NALL+1].Value))- 0.00012)-K;
       21..35:x:=(1-((P[NALL+1].Value)) -0.000012)-K;
       36..55:X:=(1-((P[NALL+1].Value)) -0.0000012)-K;
  end;

   Y:=X*400;
   x1:=440;
   delta:=(400-y)/10;
 For i:=10 downto 1 do
   begin
    Arypoint[i].X:=X1;
    Arypoint[i].y:=460-y+2;
    if y<400 then
     y:=y+delta;
    X1:=X1-40;
   end;
Arypoint[1].X:=40;
Arypoint[1].y:=60;

form2.Image1.canvas.Polyline(Arypoint);
form2.Image1.Canvas.TextOut(Arypoint[10].x,Arypoint[10].y,FloattostrF(x,ffFixed,10,10));

form2.showmodal;
end;
end;
0
 
LVL 2

Author Comment

by:123456
ID: 16931250
>>Also look from the other side, aikimark has spend some time on this question. I don't think it is fair to delete this question if the answer looks valid. he did not get a change to give a better answer because he did not know you were not happy with the answer (until now). <<
OK,i m old member of EE.
this way of responsing is not good.because quality of response decrease.
i think it should be a trade off between quality on answer and number of answers.
with terse reponse only increase number of answers.
with this work(unaccepting), experts know that if he  want to earn points in EE.
he should attempt much more(as meikl and geobul and slick and nasman do that work very good).





0
 
LVL 46

Expert Comment

by:aikimark
ID: 16934784
Since the questioner solved (and has now posted) their own problem, I recommend a PAQ status with points refunded.

I realize this is equivalent to a questioner's petition to close the problem in Community Support, but it is acceptable to me.
0
 
LVL 14

Expert Comment

by:cwwkie
ID: 16936037
aikimark,

thanks for your cooperation! I appreciate it if a solution can be found with everybody happy :-)
0
 

Accepted Solution

by:
GranMod earned 0 total points
ID: 16949478
PAQed with points refunded (250)

GranMod
Community Support Moderator
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …
Suggested Courses

807 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question