Microsoft Small Basic
Program Listing:
Embed this in your website
<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'> <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/> <param name='onError' value='onSilverlightError' /> <param name='background' value='white' /> <param name='minRuntimeVersion' value='3.0.40624.0' /> <param name='autoUpgrade' value='true' /> <param name='initParams' value='programId=FDP450' /> </object>
' J'affiche la Tortue.
Turtle
.
Show
(
)
' Je définie la vitesse de déplacement de la Tortue.
Turtle
.
Speed
=
7
' Lorsque je clic sur un bouton de la souris,
' j'appelle la méthode GraphicsWindow_MouseDown décrite plus bas.
GraphicsWindow
.
MouseDown
=
GraphicsWindow_MouseDown
' Méthode appellée lorsque je clic sur un bouton de la souris.
Sub
GraphicsWindow_MouseDown
' Calcul de la nouvelle position de la Tortue.
NouvellePositionX
=
Mouse
.
MouseX
-
GraphicsWindow
.
Left
NouvellePositionY
=
Mouse
.
MouseY
-
GraphicsWindow
.
Top
' Je déplace la Tortue aux nouvelles coordonnées.
Turtle
.
MoveTo
(
NouvellePositionX
,
NouvellePositionY
)
EndSub
Copyright (c) Microsoft Corporation. All rights reserved.