1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim moveJ1 As Move
Set moveJ1 = productJoueur1.Move
Set moveJ1 = moveJ1.MovableObject
Dim arrayOfVariantOfDoubleA(11)
arrayOfVariantOfDoubleA(0) = 1#
arrayOfVariantOfDoubleA(1) = 0#
arrayOfVariantOfDoubleA(2) = 0#
arrayOfVariantOfDoubleA(3) = 0#
arrayOfVariantOfDoubleA(4) = 1#
arrayOfVariantOfDoubleA(5) = 0#
arrayOfVariantOfDoubleA(6) = 0#
arrayOfVariantOfDoubleA(7) = 0#
arrayOfVariantOfDoubleA(8) = 1#
arrayOfVariantOfDoubleA(9) = 0#
arrayOfVariantOfDoubleA(10) = DeplacementJ
arrayOfVariantOfDoubleA(11) = 0#
moveJ1Variant.Apply arrayOfVariantOfDoubleA |