Sub Düğme4_Tıklat()
'
' Düğme4_Tıklat Makro
' Makro GERRARD tarafından 25.07.2011 tarihinde kaydedildi.
'
'
k = 48 + [B2].Value
r = 345 - [B3].Value
For t = 1 To [B5].Value Step 0.01
Next t
ActiveSheet.Shapes("Oval 3").Select
SelectionShapeRange.Left = k BU KISIMDA HATA VERIYOR (424)
SelectionShapeRange.Top = r
x1 = ([B2].Value + [b1].Value * Cos([C4].Value) * 10 * t)
y1 = ([B2].Value + [b1].Value * Cos([C4].Value) * t - ½ * 10 * t * t)
k = 48 + [B2].Value + x1
r = 345 - [B3].Value - y1
End Sub
'
' Düğme4_Tıklat Makro
' Makro GERRARD tarafından 25.07.2011 tarihinde kaydedildi.
'
'
k = 48 + [B2].Value
r = 345 - [B3].Value
For t = 1 To [B5].Value Step 0.01
Next t
ActiveSheet.Shapes("Oval 3").Select
SelectionShapeRange.Left = k BU KISIMDA HATA VERIYOR (424)
SelectionShapeRange.Top = r
x1 = ([B2].Value + [b1].Value * Cos([C4].Value) * 10 * t)
y1 = ([B2].Value + [b1].Value * Cos([C4].Value) * t - ½ * 10 * t * t)
k = 48 + [B2].Value + x1
r = 345 - [B3].Value - y1
End Sub