如何繪聲音的Spectrum |
|
尚未結案
|
|
wearefamily
一般會員   發表：12 回覆：16 積分：5 註冊：2004-03-13 發送簡訊給我 |
|
|
李國維
高階會員  發表：42 回覆：287 積分：235 註冊：2003-02-07 發送簡訊給我 |
wearefamily:
可以利用Canvas來繪製.
簡單來說:
1.Canvas->Pen->Color = clRed; //設定顏色
2.Canvas->MoveTo(x,y);//移動
3.Canvas->LineTo(x,y); //劃線
只要在迴圈中去判斷資料跟相對位置即可.
小弟大約寫ㄌㄧ各範例程式.請參考
int x,data;
int divy =300;
Form1->Refresh();
Form1->Canvas->Pen->Color = clBlue;
randomize();
for ( x = 0 ; x < 600 ; x =2)
{
data = random(300);
Form1->Canvas->MoveTo(x,divy - data);
Form1->Canvas->LineTo(x,divy data);
}
發表人 - 李國維 於 2004/08/19 17:45:43 發表人 - 李國維 於 2004/08/19 17:52:14
|
|
nlj859
資深會員  發表：139 回覆：375 積分：322 註冊：2004-03-20 發送簡訊給我 |
發表時間：2004-08-19 15:48:52
IP:140.116.xxx.xxx 未訂閱
系統時間：2024-05-20 22:48:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |