Results 1 to 6 of 6

Thread: [RESOLVED] dead or alive state help needed

Threaded View

  1. #1

    Thread Starter
    Fanatic Member
    Join Date
    Feb 2009
    Posts
    573

    Resolved [RESOLVED] dead or alive state help needed

    hey im having a little trouble ,i have five blue tanks on the form and ive tried
    to setup a dead or alive .state .im missing something because i keep getting errors .methed or data member not found on .state part .its probly simple
    but i cant see it
    thanks


    Code:
    Option Explicit
    
    
    Private Enum bouncedir
    upLeft = 1
    upright = 2
    downLeft = 3
    downright = 4
    up = 5
    down = 6
    Left = 7
    Right = 8
    
    End Enum
    
    Private Const ALIVE        As Integer = 10
    Private Const DEAD         As Integer = 20
    Private Const max_tanks    As Integer = 5
    
    Private Const MAX_DISTANCE = 200
    Dim Running As Boolean
    Public state               As Integer
    Private xdir(0) As bouncedir  '~~~~ using an array
    Private ydir(0) As bouncedir  '~~~~ using an array
    
    Sub Inittanks()
        ' init variables for start-up
        Dim i As Integer
            
       
        
        For i = 0 To max_tanks
        
          
          With blue(i)
            
            .state = ALIVE
          End With
        Next i
        
    End Sub
    Attached Files Attached Files
    Last edited by flyhigh; Aug 12th, 2010 at 12:23 PM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width