1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| SUB RoundNumber (ID AS INTEGER, Valeur AS SINGLE, Precision as _BYTE)
'Init variable
SpriteTableau(ID).ValeurCoordX = 0
'Dfinition valeur entire
SpriteTableau(ID).ValeurCoordX = INT(Valeur)
'Dfinition longueur de la variable entire
SpriteTableau(ID).LongueurCoordX = LEN(SpriteTableau(ID).ValeurCoordX)
'Calcul de l'arrondissement
SpriteTableau(ID).ResultatCoordX = MID$(STR$(Valeur), 1, SpriteTableau(ID).LongueurCoordX + Precision)
'Attribution de la nouvelle valeur
Valeur = VAL(SpriteTableau(ID).ResultatCoordX)
END SUB |
Partager