1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Zıplayan Top


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Eklenecek nesneler; timer1, shape1
    (timer1'in interval özelliğini 10 yapıyoruz)
    (shape1'in shape özelliğini circle seçiyoruz)
    Kod:
    Private Sub Timer1_Timer()
           Static ax, ay
           If IsEmpty(ax) Then
           ax = 50
           ay = 50
    End If
    
    If Shape1.Top <= 0 Or Shape1.Top >= Form1.ScaleHeight - Shape1.Height Then
            ay = -ay
            Beep
    End If
    
    If Shape1.Left <= 0 Or Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then
            ax = -ax
            Beep
    End If
    
            Shape1.Left = Shape1.Left + ax
            Shape1.Top = Shape1.Top + ay
    End Sub 
     
  2. TheCombo

    TheCombo Bilgiliyim rank8

    Kayıt:
    24 Eylül 2007
    Mesajlar:
    1.158
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Yapamıyorum yav