請問:VB用SHAPE做跑馬燈and啟動停止(20)

表單如下:

●○○○○○○○ 黑色那個shape會移動以順時鐘方向移動!!

○___________○ 然後有兩個button一個是"+"一個是"-"

○___________○ "+"的按鈕可以讓黑色的shape增加一個

○___________○ "-"的按鈕可以讓黑色的shape減少一個

○○○○○○○○ 在按加減的button不用回到起始點

___是因為發問的SPACE會自動縮排所以以_代替空白鍵

另外有啟動和停止的BUTTON

啟動和停止視同一顆BUTTON

麻煩大家了!!

Update:

謝謝郁平詳細的解說和教學!!

我在嘗試看自己能不能寫出來!!

阿國的程式碼我也看了^^謝謝你

但是我想要的是自己學~如果可以的話我想要問問題

我有把你的程式碼拿來看^^

有一兩個地方我不是很懂想要問您!!

在三個Select Case Data裡的is<xx和data=xx的數值要怎設定呀

另外數值意思是什麼??

在最後的showled中的&Hx又該怎設定呢...

抱歉麻煩您了!!

2 Answers

Rating
  • 1 decade ago
    Favorite Answer

    請參閱部落格:

    http://tw.myblog.yahoo.com/lk-hsu/article?mid=1182...

    2007-09-20 01:17:38 補充:

    跑馬燈:請參考:

    http://tw.myblog.yahoo.com/lk-hsu/article?mid=1185...

    &Hxx 是以16進制的資料型態來表示

    1Byte=8位元,

    利用位元偵測方式來檢示跑馬燈目前的狀態值

    16進位權值分別為1,2,4,8,16,32,64,128 對照程式該會看得懂。

    Source(s): 阿國仔
    • Commenter avatarLogin to reply the answers
  • 1 decade ago

    設定:

    1、將 shape 物件作成陣列型態,並將位置調整好。

    2、使用一個計時器元件。

    3、宣告一個公用變數,作為燈號控制。

    4、準備二個按鈕作為啟動與停止。

    程式:

    1、利用啟動按鈕,設定計時器時間間格,讓計時器啟動。

    2、計時器每次將公用變數加一,並利用 mod 做歸 0 的動作,

    以取得應處理的 shape 陣列元素值。

    3、將對應的 shape 陣列元素改變顏色,並將前一個元素也一併變更回原狀的顏色。

    4、按下停止鈕時,則將計時器的時間間格,變更為 0 ,即停止。

    2007-09-19 00:18:39 補充:

    此種寫法,還可以變成類似延遲型的燈號,

    就是好幾顆一起亮。

    利用色差,可以讓效果更好。

    2007-09-19 00:20:51 補充:

    沒注意到你需要 + 和 - 二個按鈕增加燈號,

    你只需要在程式 3 的步驟中進行調整就好,

    當然最好準備一個變數紀錄,現在要顯示幾顆,

    才可以作適當調整。

    Source(s): 郁筱平就是我
    • Commenter avatarLogin to reply the answers
Still have questions? Get your answers by asking now.