Ici une matrice finale de 4x4 depuis un vecteur de 16 éléments. Deux solutions différentes : - une imbrication de boucles, permettant d'avoir un accès aux deux dimensions de la matrice avec une variable locale incrémentée (pas de 1) ; - une seule boucle, dont on applique au numéro de l'itération une division euclidienne (quotient et reste forment les deux dimensions de la matrice). nb : la même matrice est réutilisée, ce qui ne serait probablement pas le cas dans ...
Dans le cadre d'un projet de jeu vidéo, j'ai été amené à réaliser un prototype en TypeScript avec le framework Phaser. J'en profite pour partager une petite collection de fonctions que j'ai regroupé dans une bibliothèque que j'ai très simplement nommé Geometry2D. ...
Mis à jour 14/08/2016 à 19h31 par yahiko
Code : Sélectionner tout - Visualiser dans une fenêtre à part 123456789101112 'Fonction qui récupere un vecteur Function ExtraireVecteur(ByVal Matrice As Variant, Ligne As Long, OneColonne As Boolean) As Variant 'defintion variables Dim i As Long, j As Long Dim VaR As Variant 'extraction If OneColonne = False Then ReDim VaR(UBound(Matrice, 2)) End If For i = 1 To UBound(Matrice, 1) If i = Ligne Then If OneColonne = False Then ...
'Fonction qui récupere un vecteur Function ExtraireVecteur(ByVal Matrice As Variant, Ligne As Long, OneColonne As Boolean) As Variant 'defintion variables Dim i As Long, j As Long Dim VaR As Variant 'extraction If OneColonne = False Then ReDim VaR(UBound(Matrice, 2)) End If For i = 1 To UBound(Matrice, 1) If i = Ligne Then If OneColonne = False Then