Gambas France BETA


Pas de compte ? Incription

creation d'un tableau tout simple

Ce sujet est résolu.

1
AuteurMessages
archi12#1 Posté le 28/6/2014 à 11:12:41
bonjour,
je voudrais creer un tableau de 48 entrees, contenant des strings de 0 à 80 caracteres de long.
et y acceder par exemple par
tableau[2]="blabla"
ou par
print tableau[3]
je n'ai pas du chercher dans les bonnes docs !
merci de votre aide
Jack#2 Posté le 28/6/2014 à 11:34:00
Bonjour,


en premier tu dois typer ta variable comme ceci :
private tableau as string[]

puis dans ta procédure :
tableau = New tableau[48] 'cela va créer un tableau d'une colonne contenant 48 variables.

selon tes besoins, pour le remplir tu fais par exemple

For n= 0 To 47
tableau[n] = n
Next

j'espère que cela t'aidera

jack
Pour un code démocratique nationalisons Gambas.
gambix#3 Posté le 28/6/2014 à 23:22:38
Faire simple !On peut aussi donner la taille dans la déclaration !!

Private MonTableau as new String[48]
Moins de texte dans une signature c'est agrandir son espace.
archi12#4 Posté le 29/6/2014 à 09:46:35
mais c'est tout simple ! (comme tjs avec Gambas !)
merci Jack et Gambix
Reivillo#5 Posté le 2/7/2014 à 14:16:22
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour archi12.

Après ceci, tu pourras peut-être mettre ton sujet en Résolu.
( Ne perdons-pas, les bonnes habitudes... )

Reivillo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
PUBLIC MyTab AS NEW STRING[32] ' Déclare le Tableau

PUBLIC SUB Form_Open()

DIM iWhl AS INTEGER = 0

WHILE iWhl < MyTab.Count ' Charge les Éléments du Tableau,
MyTab[iWhl] = iWhl ' avec leurs Numeros d'index respectifs. ( Exemple! )
INC iWhl
WEND

END

PUBLIC SUB AddElem_Click() ' Ajoute un Élément

PRINT "AddElem_Click"
PRINT " Avant > " & MyTab.Count;; MyTab[MyTab.Count - 1] ' Affiche le nombres d'Élément, et le contenu du dernier, Avant Ajout.
MyTab.Add(MyTab.Count) ' Ajout.
PRINT " Apres > " & MyTab.Count;; MyTab[MyTab.Count - 1] ' Après Ajout.

END

PUBLIC SUB SwpElem_Click() 'ÉChange, ( Ici, le Contenu du premier Élément, avec le dernier. )

PRINT "SwpElem_Click"
PRINT " Avant > " & MyTab[0];; MyTab[MyTab.Count - 1] ' Affiche le Contenu des Élément, Avant Échange.
SWAP MyTab[0], MyTab[MyTab.Count - 1] ' Échange.
PRINT " Apres > " & MyTab[0];; MyTab[MyTab.Count - 1] ' Après Échange.

END


Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
1