Discussion :

[thomasmrl]

Bonjour, je suis à codé un VB qui a pour but de créer et gérer des stocks, qui a pour but de pouvoir placer un objet entrant des une place de stock qui peut lui être attribué.

j'en suis à la création d'un emplacement, il se fait grace a la page ci contre.
En appuyant sur "ajouter un emplacement", les données remplies dans les text box sont remplies dans des variables qui seront ensuite mit dans un fichier texte en cliquant sur "QUITTER".


http://img822.imageshack.us/img822/8389/stockd.jpg


Ce que j'aimerais, c'est quand je clique sur "AJOUTER UN EMPLACEMENT" que les champs du dessus se vident, et lorsque je vais dans mon fichier texte je retrouve des lignes avec que des "0" dedans.. je ne comprends pas bien

par la suite j'aimerais bien retrouver mes emplacements dans ma liste déroulante à droite a partir du fichier texte pour pouvoir les retirer


je vous place mon code déjà fait ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
38
39
40
41
Private Sub Cmd02_Click()
    nbvaleur = nbvaleur + 1
 
    ReDim Preserve nom(nbvaleur)
    ReDim Preserve largeurE(nbvaleur)
    ReDim Preserve hauteurE(nbvaleur)
    ReDim Preserve profondeurE(nbvaleur)
    ReDim Preserve chargemaxE(nbvaleur)
 
 
    nom(nbvaleur) = Me.Txt00.Text
    largeurE(nbvaleur) = Me.Txt01.Text
    hauteurE(nbvaleur) = Me.Txt02.Text
    profondeurE(nbvaleur) = Me.Txt03.Text
    chargemaxE(nbvaleur) = Me.Txt04.Text
 
 
 
 
End Sub
Private Sub Cmd03_Click()
Dim i As Integer
sep = vbTab
 
    Open stock For Output As 1    'le output permet de recopier les variables dans un fichier pour les sauvegarder
        Print #1, "nom" & sep & "largeur" & sep & "hauteur" & sep & "prof." & sep & "charge"
        For i = 0 To (nbvaleur)
            Print #1, nom(i) & sep & largeurE(i) & sep & hauteurE(i) & sep & profondeurE(i) & sep & chargemaxE(i)
        Next i
    Close (1)
 
    Unload Me               'Sortie de la page
    acceuil.Show
End Sub
 
 
 
Private Sub Form_Load()
 
    stock = "H:\Mes documents\ENSIBS 1\semestre 2\VB\dimstock.txt"
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Public largeurO As Integer
Public hauteurO As Integer
Public profondeurO As Integer
Public chargeO As Integer
'caracteristique de l'objet
 
Public nom() As String
Public largeurE() As Integer
Public hauteurE() As Integer
Public profondeurE() As Integer
Public chargemaxE() As Integer
'caracteristique de l'emplacement
 
Public nbvaleur As Integer
Public stock As String
 
 
 
Public Sub init()
 
stock = "H:\Mes documents\ENSIBS 1\semestre 2\VB\dimstock.txt"
    Dim i As Integer
    Dim numfic As Integer
    Dim tmpStr As String
    Dim morceau As Variant
    nbvaleur = 0
 
 
    numfic = FreeFile
    Open stock For Input As numfic
    If Not EOF(numfic) Then
        Line Input #numfic, tmpStr  'ligne d'en tete : non traitée
 
 
        'comptage du nombre de valeurs dans le fichier
        Dim tmp As Single
        Do While Not EOF(numfic)
            Line Input #numfic, tmpStr
            nbvaleur = nbvaleur + 1
        Loop
        Close (numfic)
 
        ReDim nom(nbvaleur)
        ReDim largeurE(nbvaleur)
        ReDim hauteurE(nbvaleur)
        ReDim profondeurE(nbvaleur)
        ReDim chargemaxE(nbvaleur)
 
        Close (numfic)
 
 
        Open stock For Input As numfic
        Line Input #numfic, tmpStr
        For i = 1 To nbvaleur
            Line Input #numfic, tmpStr
            morceau = Split(tmpStr, vbTab)  'decouper les lignes par champs
            nom(i) = morceau(0)
            largeurE(i) = morceau(1)
            hauteurE(i) = morceau(2)
            profondeurE(i) = morceau(3)
            chargemaxE(i) = morceau(4)
        Next i
        Close (numfic)
    End If
 
    Close (numfic)
 
    ReDim nom(nbvaleur + 100)
    ReDim largeurE(nbvaleur + 100)
    ReDim hauteurE(nbvaleur + 100)
    ReDim profondeurE(nbvaleur + 100)
    ReDim chargemaxE(nbvaleur + 100)
 
End Sub

en esperant que vous pouvez m'aider.. merci d'avance !

[Leona-7]

C'est pas bien ça..sinon je vais dire à Monsieur Monnier xD !

[petit rabot]

Ce que j'aimerais, c'est quand je clique sur "AJOUTER UN EMPLACEMENT" que les champs du dessus se vident, et lorsque je vais dans mon fichier texte je retrouve des lignes avec que des "0" dedans.. je ne comprends pas bien

Je ne comprends pas bien, tu veux des "0" dans ton fichier texte, ou tu les as à présent???

Pour vider un textbox, tu fais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Command1_Click()
 
    Text1.Text = ""
 
End Sub