سلام
ميشه يه نيگا به اين بندازين
کد:http://samba.persiangig.com/shape%5Bbarkhord%5D.exe
Printable View
سلام
ميشه يه نيگا به اين بندازين
کد:http://samba.persiangig.com/shape%5Bbarkhord%5D.exe
سلام
آقا من اينو نوشتم فقط نمي دونم مشكلش چيه
كسي ميتونه عيبش رو بگه
کد:
Private x1 As Long
Private y1 As Long
Private x2 As Long
Private y2 As Long
Private r As Long
Private xadd1 As Long
Private yadd1 As Long
Private xadd2 As Long
Private yadd2 As Long
Public xball1 As Long
Public yball1 As Long
Public xball2 As Long
Public yball2 As Long
Private Sub Form_Load()
xball1 = s1.Left
yball1 = s1.Top
xball2 = s2.Left
yball2 = s2.Top
xadd1 = 60
yadd1 = 60
xadd2 = 60
yadd2 = 60
Timer1.Interval = 10
Timer2.Interval = 10
End Sub
Private Sub Timer1_Timer()
xball1 = xball1 + xadd1
yball1 = yball1 + yadd1
s1.Move xball1, yball1
If Form1.ScaleWidth - (s1.Left + s1.Width) <= 0 Or xball1 <= 0 Then
xadd1 = -xadd1
End If
If Form1.ScaleHeight - (s1.Top + s1.Height) <= 0 Or yball1 <= 0 Then
yadd1 = -yadd1
End If
Call CheckBall
End Sub
Private Sub Timer2_Timer()
xball2 = xball2 + xadd2
yball2 = yball2 + yadd2
s2.Move xball2, yball2
If Form1.ScaleWidth - (s2.Left + s2.Width) <= 0 Or xball2 <= 0 Then
xadd2 = -xadd2
End If
If Form1.ScaleHeight - (s2.Top + s2.Height) <= 0 Or yball2 <= 0 Then
yadd2 = -yadd2
End If
End Sub
Private Sub CheckBall()
x1 = xball1 + (s1.Width) / 2
y1 = yball1 + (s1.Height) / 2
x2 = xball2 + (s2.Width) / 2
y2 = yball2 + (s2.Height) / 2
r = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
If r = (s1.Width + s2.Width) / 2 Then
xadd2 = -xadd2
yadd2 = -yadd2
End If
End Sub