Archives mensuelles : mars 2007

Meuble de rangement en pin deuxième étape…

Aujourd’hui, pas grand chose… J’ai découpé 5 étagères de 88cm de longueur dont 2 seront fixes (celle du bas), j’ai donc fait les trous pour les tourillons. J’ai en plus ajouté un renfort en chêne qui sera placé au fond et en dessous d’une de ces étagères. Ce renfort est plus long que l’étagère, ce qui permettera de visser dans les montants par l’arrière pour éviter l’écartement du meuble… (Pas clair ? vous aurez des éclairssissements lors du montage…)


Serrage du renfort à l’aide de sert-joints


Une autre vue : il fait moins le malin le renfort !

 

Meuble de rangement en pin première étape…

Voilà un nouveau projet dont voici le plan…

C’est un meuble d’angle de 2,07m sur 2,65m pour habiller une salle de jeu dépouvue de rangements… A priori, il sera toute hauteur (3,15m) mais  c’est encore en négociation.

Pour cela, j’ai acheté 20 planches en pin de 2m sur 40cm et 18mm d’épaisseur et un kit « gabarit de perçage en serie » de wolfcraft pour l’assemblage des planches (pareil que Métabo, je veux bien recevoir des produits pour les tester…comme Le vissage du bois invisible)

Pour rigidifier l’ensemble et pour faire moins massif, les deux extremités sont des étagères d’angles (de 20×40 au lieu des  40×40 initialement prévus…) Je vais commencer par elle de droite.

L’outils est une aide au perçage en positionnement et en équerrage (trous pour les tourillons et pour les étagères) :


La règle ainsi positionnée permet de faire des trous à 50mm du bord espacés de 37mm, comme les meubles IKEA !


Là, c’est une vue d’artiste ! 😉


Assemblage des étagères pour l’angle


En bleu ce sont les sert-joints, essentiels !


La première partie non poncée en position

Bon c’est tout pour ce soir !

 

Redimensionner un tableau ASP à deux dimensions sans perdre les données

Un tableau ASP peut être redimensionné

Voilà une solution aux erreurs suivantes « This array is fixed or temporarily locked » ou « Tableau fixe ou temporairement verrouillé » sur le redimensionnement d’un tableau à deux dimensions :

Dim a
Redim a(3,0)
au lieu de
Dim a(3,0)
 
Il  faut dimensionner le tableau à une dimension, puis lui ajouter la deuxième avec un redim
ensuite, on peut faire
 
<%
Dim a
Redim a(3,0)
‘Dim a(3,0)

fc = split(« toto,titi,tutu,tyty », », »)
For Each f In fc
Redim Preserve a(3,UBound(a,2)+1)
a(1,UBound(a,2)) = f
a(2,UBound(a,2)) = f
a(3,UBound(a,2)) = f
Next
%>

Dim a ‘Déclaration du tableau
Redim a(3,0) ‘redimensionnement du tableau

fc = split(« toto,titi,tutu,tyty », », »)
For Each f In fc
   Redim Preserve a(3,UBound(a,2)+1) ‘redimensionnement de la dernière dimension uniquement
   a(1,UBound(a,2)) = f
   a(2,UBound(a,2)) = f
   a(3,UBound(a,2)) = f
Next