伊莉討論區

標題: 求救請知道的大大幫幫小弟 [打印本頁]
作者: x514838    時間: 2009-4-5 02:43 PM     標題: 求救請知道的大大幫幫小弟

本帖最後由 x514838 於 2009-4-5 05:34 PM 編輯

我最近在寫一個跑馬燈的程式想讓它走完左邊3圈之後換右邊三圈,請問我應該還加哪些步驟
Dim a As Integer
Private Sub Form_Load()
a = 9
End Sub
Private Sub Timer1_Timer()
    Label1(a).BackColor = &H80C0FF
    a = a - 1
    If a = 0 Then
        a = 9
    End If
   Label1(a).BackColor = &H808080
End Sub
這是程式碼
請知道如何改的大大幫幫小弟好嗎


[localimg=180,113]1[/localimg]
作者: yyyyman    時間: 2009-4-6 12:46 AM

我也是初學,一起交流吧
  1. Option Explicit

  3. Dim a, i As Integer
  4. Dim cnt As Integer
  5. Dim flag As Integer


  8. Private Sub Form_Load()
  9. Timer1.Interval = 500
  10. Timer1.Enabled = True
  11. a = 9
  12. cnt = 0
  13. flag = 1

  15. End Sub
  16. Private Sub Timer1_Timer()
  17.    
  18.     If cnt <> 0 And cnt Mod 3 = 0 Then
  19.         cnt = 0
  20.         flag = -flag
  21.         If flag = 1 Then
  22.             a = 9
  23.         Else
  24.             a = 1
  25.         End If
  26.     End If
  27.    
  28.     For i = 1 To 9
  29.          Label1(i).BackColor = &H808080
  30.     Next i
  31.    
  32.     If flag = 1 Then
  33.         Label1(a).BackColor = &H80C0FF
  34.         a = a - 1
  35.         If a = 0 Then
  36.             a = 9
  37.             cnt = cnt + 1
  38.         End If
  39.         Label1(a).BackColor = &H808080
  40.     End If
  41.    
  42.     If flag = -1 Then
  43.         Label1(a).BackColor = &H80C0FF
  44.         a = a + 1
  45.         If a = 10 Then
  46.             a = 1
  47.             cnt = cnt + 1
  48.         End If
  49.         Label1(a).BackColor = &H808080
  50.     End If


  53. End Sub
複製代碼
作者: x514838    時間: 2009-4-6 08:08 AM

謝謝大大的回答,能否跟小弟解釋一下一些指令呢?
有些小地看不懂例如:cnt跟 <>
作者: Joseph77    時間: 2009-4-6 04:29 PM

提示: 作者被禁止或刪除 內容自動屏蔽
作者: x514838    時間: 2009-4-6 10:34 PM

謝謝大大的指導
作者: x514838    時間: 2009-4-8 05:01 PM

對了大大當初是怎麼練習VB的呢?
作者: Joseph77    時間: 2009-4-11 12:08 AM

提示: 作者被禁止或刪除 內容自動屏蔽
作者: arlin316    時間: 2009-4-14 05:43 PM

小第剛學VB,謝謝大大的程式指導,感恩
作者: x514838    時間: 2009-4-22 07:27 PM

大大們再一次請教
Dim a, b, c, d As Integer

Private Sub Form_Load()
a = 10
b = 1
c = 0
d = 1
End Sub

Private Sub Timer1_Timer()
If b <= 3 Then
Label1(a).BackColor = &H80C0FF
Label2.Caption = "逆時針(C.C.W)第" & b & "圈"
a = a - 1
If a = 0 Then
   a = 10
   b = b + 1
End If
Label1(a).BackColor = &HFF00&
Else
Label1(10).BackStyle = 0
Label1(c).BackColor = &H80C0FF
Label2.Caption = "順時針(C.W)第" & d & "圈"
c = c + 1
If c = 10 Then
   If d = 3 Then
    Timer1.Interval = 0
    c = 0
    Label2.Caption = "停止"
    Else
    c = 0
    d = d + 1
   
    End If
End If
Label1(c).BackColor = &HFF00&
End If

End Sub
假如我把Lebal1(10)改成Lebal1(0)要如何讓它跑呢?
小弟有試過彈沒辦法跑,請大大們再次幫幫小弟這個程式的改法好嗎?
小弟會非常感激的



歡迎光臨 伊莉討論區 (http://www.wahas.com/) Powered by Discuz!