簡易時鐘製作，誰來改造一下 - Visual Basic 語言 - 電腦程式設計

ewe
(緣)

中學生(1000/4000)

潛水

UID 330304
精華 0
積分 1004
帖子 760
潛水 19086 米
閱讀權限 30
註冊 2006-10-26

#1

發表於 2007-7-6 08:15 PM 資料文集短消息

維克斯討論區

簡易時鐘製作，誰來改造一下

[顯示] [隱藏]

Dim a, b, o, d, e, f As Integer '分別控制6個七段,也分別代表時間位數
Dim n As String

Private Sub option1_Click()          圖像例子: 時                      分                      秒
Timer1.Interval = 1000  '原速                ──    ──    ──    ──    ──    ──
End Sub                                              │ │ │ │ │ │ │ │  │ ││ │
                                                            ──    ──       ──    ──    ── ──
                                                         │ │ │ │ │ │ │ │  │ ││ │
Private Sub option2_Click()                      ──    ──    ──       ──    ── ──
Timer1.Interval = 100  '10倍速                   f          e          d             o          b       a
End Sub

Private Sub option3_Click()
Timer1.Interval = 10 '100倍速
End Sub
Private Sub Form_Load() ' 給予初值
  a = 0  '秒個位數
  b = 0  '秒十位數
  o = 0  '分個位數
  d = 0  '分十位數
  e = 0  '時個位數
  f = 0  '時十位數
  Timer1.Interval = 1000
  Form1.Caption = "一起來倒數吧"
End Sub

Private Sub Option4_Click()
  Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
  Const i = 15 '控制顏色
  a1.BackColor = QBColor(i)
  b1.BackColor = QBColor(i)
  c1.BackColor = QBColor(i)
  d1.BackColor = QBColor(i)
  e1.BackColor = QBColor(i)
  f1.BackColor = QBColor(i)
  g1.BackColor = QBColor(i)
  a2.BackColor = QBColor(i)
  b2.BackColor = QBColor(i)
  c2.BackColor = QBColor(i)
  d2.BackColor = QBColor(i)
  e2.BackColor = QBColor(i)
  f2.BackColor = QBColor(i)
  g2.BackColor = QBColor(i)
  a3.BackColor = QBColor(i)
  b3.BackColor = QBColor(i)
  c3.BackColor  [ 瀏覽完整內容請先註冊或登入會員。]

superccf

幼兒生(0/200)

潛水

UID 1169532
精華 0
積分 93
帖子 419
潛水 1038 米
閱讀權限 10
註冊 2007-4-26

#2

發表於 2007-7-8 04:30 PM 資料文集短消息

伊莉遊戲

建議你分一些副程式出來，像顯示數字的部份可以用顯示值當參數，一個模組超過一個畫面就太多了。

ewe
(緣)

中學生(1000/4000)

潛水

UID 330304
精華 0
積分 1004
帖子 760
潛水 19086 米
閱讀權限 30
註冊 2006-10-26

#3

發表於 2007-7-9 11:20 AM 資料文集短消息

維克斯討論區

回復 #2 superccf 的帖子

這個建議很不錯，感謝給予意見，這樣能讓自己更進步。

1xnswitch

小學生(200/1000)

潛水

UID 1791008
精華 0
積分 247
帖子 229
潛水 1597 米
閱讀權限 20
註冊 2007-7-13

#4

發表於 2007-7-18 03:59 PM 資料文集短消息

維克斯討論區

從程式的角度來說,這程式是把上面複雜的的重複片段,縮減成一個子程序.
public sub Show(byval l1 as lable,byval l2 as lable,byval l3 as lable,byval l4 as lable,byval l5 as lable,byval l6 as lable,byval l7 as lable)

Select Case a '以下用來判別6個七段需要顯示什麼數字,秒個位數
      Case 0
      l1.BackColor = QBColor(c)
      l2.BackColor = QBColor(c)
      l3.BackColor = QBColor(c)
      l4.BackColor = QBColor(c)
      l5.BackColor = QBColor(c)
      l6.BackColor = QBColor(c)
      l7.BackColor = QBColor(c)
   case 1
   ...
end select
end sub

[ 本帖最後由 1xnswitch 於 2007-7-19 08:19 AM 編輯 ]