arkadaslar bir odev aldım. verilen odevde gudumlu fuze mantığı cizimle isteniyor.
hedefim sağa, sola gidebilir veya olduğu yerde kalabilir.hedef ilk başta rasgele bir yerde başlıyor ve hedefimin ve fuzemin x koordinatı aynı. fuzem adım adım ilerleyip hedefi vuruyor.
hazırladığım program aşağıda. bir yerde hata var ama onu bulamıyorum. fikirleriniz icin şimdiden teşekkurler...

Private Sub Command1_Click()
Command1.Visible = False
Scale (-20, 20)-(20, -20)
y = Int(Rnd * 5)
x = Int(Rnd * 9)
Line (x, y)-(x + 1, y)
a = 20
b = x
Line (b, a)-(b, a - 1)
For i = 20 To y Step -1
xx = Int(Rnd * (-3) + 2)
If xx = -1 Then
Line (x, y)-(x + xx, y)
Line (b, a)-(b - 1, a + 1)
b = x - 1
a = a + 1
Else
If xx = 0 Then
Line (b, a)-(b, a + 1)
a = a + 1
Else
If xx = 1 Then
Line (x, y)-(x + xx, y)
Line (b, a)-(b + 1, a + 1)
b = b + 1
a = a + 1
End If
End If

End If
Next
End Sub
__________________