none
語法錯誤 RRS feed

  • 問題

  • 原碼
    Dim a, n As Integer
    Dim g(20) As Integer

    Private Sub CommandG_Click()
    If TimerR.Enabled = False Then
       TimerG.Enabled = True
       a = 0
      
      
       g(0) = 8
       g(1) = 20
       g(2) = 34
       g(3) = 65
       g(4) = 0
       n = 5
    End If
      
    End Sub

    Private Sub CommandR_Click()
    If TimerG.Enabled = flase Then
       TimerR.Enabled = True
       a = 0
    End If

    End Sub

    Private Sub CommandE_Click()
    End
    End Sub

    Private Sub TimerG_Timer()
      Out &H37A, 8
      If a <= n Then
      Out &H378, g(a)
       a = a + 1
    Else
      Out &H37A, 0
      TimerG.Enable = False
    End If

    End Sub

    Private Sub TimerR_Timer()
    If a <= 8 Then
      Out &H378, 2 ^ a
      a = a + 1
      Out &H37A, 4
      Out &H37A, 0
    Else
      TimerR.Enable = False
    End If

    End Sub
    Private Sub TimerT_Timer()
    Text1.Text = "Current Time:" & Time&

    End Sub
    .........................................................................................
    執行時錯誤為
    Private Sub TimerG_Timer()
      Out &H37A, 8
    編譯錯誤:
                     沒有定義這個Sub或Function

    2009年1月3日 上午 01:50

解答

所有回覆