如何做出模擬LED的效果? |
|
tytsai
一般會員 發表:1 回覆:1 積分:0 註冊:2002-07-12 發送簡訊給我 |
|
axsoft
版主 發表:681 回覆:1056 積分:969 註冊:2002-03-13 發送簡訊給我 |
|
tytsai
一般會員 發表:1 回覆:1 積分:0 註冊:2002-07-12 發送簡訊給我 |
Dear axsoft:
感謝您提供這個方法.
以下是我用所寫的簡單程式.
利用Timer元件與flag來做紅綠兩種顏色的切換. void __fastcall TForm1::FormCreate(TObject *Sender)
{
flag = true;
Timer1->Interval = 500;
Timer1->Enabled = true;
Shape1->Brush->Color = clRed;
}
//-------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Timer1->Enabled = false;
}
//-------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if ( flag )
{
Shape1->Brush->Color = clLime;
flag = false;
}
else
{
Shape1->Brush->Color = clRed;
flag = true;
}
} 假設如果我想自己來寫一個LED或LED七段顯示器數字顯示的程式,是不是可以提供文章來做參考呢?
Thanks!!
|
dllee
站務副站長 發表:321 回覆:2519 積分:1711 註冊:2002-04-15 發送簡訊給我 |
引言: 假設如果我想自己來寫一個LED或LED七段顯示器數字顯示的程式,是不是可以提供文章來做參考呢? Thanks!!如果是七段顯示器,可以使用圖檔切換。 使用多個 TImage 大小相同且重疊,同一時間只有一個 Visible, 或是使用一個 TImage 及一個 TImageList ,由 TImage 依顯示數值由 TImageList 取一張圖出來顯示。 最好是把「一個」LED 寫成一個 VCL 物件,這樣,要多位數時,只要再包一次即可很快產生。
------
http://www.ViewMove.com |
axsoft
版主 發表:681 回覆:1056 積分:969 註冊:2002-03-13 發送簡訊給我 |
引言: 假設如果我想自己來寫一個LED或LED七段顯示器數字顯示的程式,是不是可以提供文章來做參考呢? Thanks!!這有一個範例可以看看 作者:資訊小子 這是一個模擬LCD/LED的程式,讓時鐘看更具有美感 程式主要的寫法,先將電子數字用繪圖軟體 畫出來 並存入圖檔,使用BitBlt API,滿好用的函式,很多時候都會用到它 程式大體上沒有什麼技巧,但很多程式漂亮的外觀幾乎都是同理論做出來的 是個滿不錯的範例 下載 : http://netcity3.web.hinet.net/userdata/k1228341/time.zip 時間就是金錢---[ 發問前請先找找舊文章] |
swhsu
一般會員 發表:2 回覆:1 積分:0 註冊:2002-09-18 發送簡訊給我 |
引言:請問要怎麼寫成一個VCL呢? 我自己是用動態產生八個shape來當LED, 可是希望能用更省記憶體的模式來寫, 請問要怎麼寫呢?謝謝您的幫忙...引言: 假設如果我想自己來寫一個LED或LED七段顯示器數字顯示的程式,是不是可以提供文章來做參考呢? Thanks!!如果是七段顯示器,可以使用圖檔切換。 使用多個 TImage 大小相同且重疊,同一時間只有一個 Visible, 或是使用一個 TImage 及一個 TImageList ,由 TImage 依顯示數值由 TImageList 取一張圖出來顯示。 最好是把「一個」LED 寫成一個 VCL 物件,這樣,要多位數時,只要再包一次即可很快產生。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |