Hiển thị kết quả từ 1 đến 4 / 4
  1. #1
    Tham gia
    04-05-2011
    Bài viết
    14
    Like
    0
    Thanked 0 Times in 0 Posts

    Cần giúp đỡ về game đỡ bóng trong VB

    E mới bắt đầu học VB,sắp kiểm tra giáo viên yêu cầu về làm game đỡ bóng với cách chơi như sau:
    *bóng sẽ tự chạy trên màn hình,khi đụng vào phía bên trái,phải,trên thì tự động dội ngược lại,còn khi đụng đáy là game over.Dùng chuột có icon là 1 thanh ngang nhỏ để đỡ bóng,sao cho khi đụng vào sẽ dội ngược lại.

    Em mới biết code để bóng tự di chuyển àh,hix.chưa làm đc gì.Ai làm ơn giúp em vơi
    Quote Quote

  2. #2
    Tham gia
    04-05-2011
    Bài viết
    14
    Like
    0
    Thanked 0 Times in 0 Posts
    ai giúp em với...............................

  3. #3
    Tham gia
    04-05-2011
    Bài viết
    14
    Like
    0
    Thanked 0 Times in 0 Posts
    Dim l As Integer
    Dim t As Integer

    Private Sub Timer1_Timer()
    If Shatraibanh.Left + Shatraibanh.Width >= Form1.Width Then
    l = 1
    ElseIf Shatraibanh.Left = 0 Then
    l = 1
    End If
    If Shatraibanh.Top + Shatraibanh.Height >= Form1.Height Then
    t = 1
    ElseIf Shatraibanh.Top = 5 Then
    t = 0
    End If
    If l = 0 Then
    Shatraibanh.Left = Shatraibanh.Left + 100
    Else
    Shatraibanh.Left = Shatraibanh.Left - 100
    End If
    If t = 0 Then
    Shatraibanh.Top = Shatraibanh.Top + 100
    Else
    Shatraibanh.Top = Shatraibanh.Top - 100
    End If
    End Sub

    em mới làm đc tới đây thôi,ai xem giúp em

  4. #4
    Tham gia
    04-05-2011
    Bài viết
    14
    Like
    0
    Thanked 0 Times in 0 Posts
    uppppppppppppppppppppppppppppppppp

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •