[VB6] fichier vers textbox

**m_didi** · 08/05/2006, 14h34

slt tout le monde voilà j'ai un projet comprenent deux feuilles et un module. Ma première feuille intitulée X montre les dépenses, les recettes, le nombre selon les catégories de pensionnaires ( profs, étudiants...) d'une cantine. Ma deuxième feuille nommée Y possède un textbox, un bouton ouvrir, un bouton effacer, et un bouton fin. Je voudrais enregistrer les infos saisies de la feuille X avec la date vers cette deuxième feuille Y afin d'obtenir un récapitulatif des journées avec les dépenses encourues et ceci consultable à n'importe quel moment. En gros, c'est comme une feuille récapitulative du mois , un journal de bord . Voilà, j'espère avoir été assez claire pour que vous puissiez.
merci

**jmfmarques** · 08/05/2006, 14h48

Montre-nous le code que tu as coçmmencé à écrire à cet effet.

**sovo** · 08/05/2006, 14h49

tout d'abord je ne vois pas de rapport entre ton titre et ton probleme. Priere de bien vouloir le revoir.

Ensuite que veux tu faire effectivement ?? mettre ces info (venant de la form X) dans le textbox (de la form Y). Si tel est le cas alors essai ceci :

Code :

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

1
2
 
formY.text1.text = formX.text1.text

si la reponse n'est pas satisfaisante, eclaircis ta demande.

**m_didi** · 08/05/2006, 14h56

voilà le code de la première feuille:

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
Private Sub cmd_charge_Click()
txt_charge.Text = txt_totalrepas.Text - txt_totalusagers.Text
End Sub
Private Sub Cmd_effacer_Click()
txt_internesDP.Text = ""
txt_profsbas.Text = ""
Txt_profshaut.Text = ""
Txt_agents.Text = ""
Txt_etudiants.Text = ""
Txt_personnesexterieures.Text = ""
txt_entrees.Text = ""
txt_coutautres.Text = ""
txt_dessert.Text = ""
txt_plat1.Text = ""
Txt_plat2.Text = ""
txt_prix1.Text = ""
txt_prix2.Text = ""
txt_total.Text = ""
txt_totalusagers.Text = ""
txt_charge.Text = ""
txt_perte.Text = ""
txt_reel.Text = ""
txt_totalrepas.Text = ""
End Sub
Private Sub Cmd_fin_Click()
End
End Sub
 
Private Sub cmd_perte_Click()
txt_perte.Text = txt_reel.Text - txt_totalusagers.Text
End Sub
Private Sub cmd_reel_Click()
txt_reel.Text = Val(txt_entrees.Text) * 0.27 + Val(txt_plat1.Text) * Val(txt_prix1.Text) + Val(Txt_plat2.Text) * Val(txt_prix2.Text) + Val(txt_dessert.Text) * 0.12 + Val(txt_coutautres.Text)
End Sub
Private Sub cmd_total_Click()
txt_total.Text = Val(Txt_agents.Text) + Val(Txt_etudiants.Text) + Val(txt_internesDP.Text) + Val(Txt_personnesexterieures.Text) + Val(txt_profsbas.Text) + Val(Txt_profshaut.Text)
End Sub
Private Sub cmd_totalrepas_Click()
txt_totalrepas.Text = txt_total.Text * 6
End Sub
Private Sub cmd_totalusagers_Click()
txt_totalusagers.Text = txt_profsbas.Text * 3.22 + Txt_profshaut.Text * 4.3 + txt_internesDP.Text * 2.25 + Txt_agents.Text * 2.8 + Txt_etudiants.Text * 4.1 + Txt_personnesexterieures.Text * 4.55
End Sub
Private Sub Cmd_enregistrer_Click()
F_enregistrer.Show
End Sub
Private Sub Form_Load()
numfic = FreeFile 'dossier libre créé
Open "txt_affichage.text" For Random As #numfic
Timer1.Enabled = True
Timer1.Interval = 1 'l'interval est le nbre de millisecondes au bout duquel l'évènement timer.timer a lieu
End Sub
Private Sub Timer1_Timer()
Dim today As Date
Lbl_today.Caption = Format$(Date, "dddd dd mmmm yyyy")
Lbl_today.Caption = UCase(Left(Lbl_today.Caption, 1)) & Right(Lbl_today.Caption, Len(Lbl_today.Caption) - 1)
Lbl_today.Caption = Lbl_today.Caption & " " & " " & Format$(Time, " - hh:mm:ss")
End Sub
Private Sub txt_coutautres_Change()
If Not IsNumeric(txt_coutautres.Text) Then
MsgBox "Veuillez insérez des chiffres!"
End If
If txt_coutautres.Text = "," Then
MsgBox " Veuillez insérer des points et non des virgules!"
End If
End Sub

voilà ensuite le code de la deuxième feuille ( form Y):

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
Private Sub Cmd_effacer_Click()
Cmd_effacer = ""
End Sub
Private Sub Cmd_fin_Click()
End
End Sub
Private Sub Cmd_ouvrir_Click()
f_ticketrepas.SetFocus
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Dim today As Date
Lbl_today.Caption = Format$(Date, "dddd dd mmmm yyyy")
Lbl_today.Caption = UCase(Left(Lbl_today.Caption, 1)) & Right(Lbl_today.Caption, Len(Lbl_today.Caption) - 1)
Lbl_today.Caption = Lbl_today.Caption & " " & " " & Format$(Time, " - hh:mm:ss")
End Sub

et dsl d'avoir mal intitulé mon titre mais je suis encore qu'une débutante en vb alors dsl

**zazaraignée** · 08/05/2006, 15h31

Salut

Tout d'abord, une astuce pour t'éviter d'initialiser séquentiellement à vide chacun de tes textBox (code exemple):

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
    Dim texte As Control
 
    For Each texte In Me.Controls
        If TypeOf texte Is TextBox Then
            texte.Text = ""
        End If
    Next texte
End Sub

Ensuite, je ne comprends pas pourquoi tu veux ouvrir en 'random access' un fichier au format Texte... On utilise généralement Random pour les fichiers binaires structurés. Utilises plutôt le FSO et le Textstream. Ou encore les bons vieux accès séquentiels. À moins que tu avais quelque part une définition de Type de donnée structurée que je n'ai pas vu...

Un conseil : évite des lignes de code trop longues. Ça incommode pour la lecture. Tu peux séparer une ligne de code ave un espace suivi d'un soulignement. Exemple

Code :

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

1
2
3
4
 txt_totalusagers.Text = txt_profsbas.Text * 3.22 + _
    Txt_profshaut.Text * 4.3 + txt_internesDP.Text * 2.25 + _
    Txt_agents.Text * 2.8 + Txt_etudiants.Text * 4.1 + _
    Txt_personnesexterieures.Text * 4.55

Voilà pour mes observations. Je ne sais pas si ça t'aide beaucoup. Dis nous si ça a amélioré quelque chose.

Bon courrage.

Edit : Je vois que sovo (qui est sans doute debout depuis plus longtemps que moi) a été plus rapide et plus exhaustif que moi dans sa réponse.

**sovo** · 08/05/2006, 15h22

avant de commencer j'ai detecter plusieur erreur dans ton code. Je vais donc te le montrer.

Envoyé par m_didi

Private Sub Cmd_effacer_Click()
txt_internesDP.Text = ""
txt_profsbas.Text = ""
Txt_profshaut.Text = ""
Txt_agents.Text = ""
Txt_etudiants.Text = ""
Txt_personnesexterieures.Text = ""
txt_entrees.Text = ""
txt_coutautres.Text = ""
txt_dessert.Text = ""
txt_plat1.Text = ""
Txt_plat2.Text = ""
txt_prix1.Text = ""
txt_prix2.Text = ""
txt_total.Text = ""
txt_totalusagers.Text = ""
txt_charge.Text = ""
txt_perte.Text = ""
txt_reel.Text = ""
txt_totalrepas.Text = ""
End Sub

optimisation de cette procedure

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Cmd_effacer_Click()
    dim ctl as control
 
    for each ctl in controls
          if typeof ctl is textbox then ctl.text=""
    next
End Sub

Envoyé par m_didi

Private Sub cmd_perte_Click()
txt_perte.Text = txt_reel.Text - txt_totalusagers.Text
End Sub

il ne va jamais marche plutot

Code :

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

1
2
3
4
 
Private Sub cmd_perte_Click()
txt_perte.Text = val(txt_reel.Text) - val(txt_totalusagers.Text)
End Sub

Envoyé par m_didi

Private Sub cmd_totalrepas_Click()
txt_totalrepas.Text = txt_total.Text * 6
End Sub

aussi

Code :

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

1
2
3
4
 
Private Sub cmd_totalrepas_Click()
txt_totalrepas.Text = val(txt_total.Text) * 6
End Sub

Envoyé par m_didi

Private Sub cmd_totalusagers_Click()
txt_totalusagers.Text = txt_profsbas.Text * 3.22 + Txt_profshaut.Text * 4.3 + txt_internesDP.Text * 2.25 + Txt_agents.Text * 2.8 + Txt_etudiants.Text * 4.1 + Txt_personnesexterieures.Text * 4.55
End Sub

encore

Code :

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

1
2
3
4
 
Private Sub cmd_totalusagers_Click()
txt_totalusagers.Text = val(txt_profsbas.Text) * 3.22 + val(Txt_profshaut.Text) * 4.3 + val(txt_internesDP.Text) * 2.25 + val(Txt_agents.Text) * 2.8 + val(Txt_etudiants.Text) * 4.1 + val(Txt_personnesexterieures.Text) * 4.55
End Sub

Envoyé par m_didi

Private Sub Form_Load()
numfic = FreeFile 'dossier libre créé
Open "txt_affichage.text" For Random As #numfic
Timer1.Enabled = True
Timer1.Interval = 1 'l'interval est le nbre de millisecondes au bout duquel l'évènement timer.timer a lieu
End Sub

ou est que tu fermes le fichier ?? et pourquoi tu l'ouvre si tu n'y mets rien a l'interieur ??

Envoyé par m_didi

If txt_coutautres.Text = "," Then
MsgBox " Veuillez insérer des points et non des virgules!"
End If

ne te sert a rien car ne va jamais (car la possibilite est tres faible) marche met plutot

Code :

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

1
2
3
 
txt_coutautres.text=replace(txt_coutautres.text,",",".")
'la il le fait automatiquement.

dans ton code de la form Y je ne vois pas comment tu fait pour recuperer (et ou tu voudrais le faire) les infos venant de la form X.

**m_didi** · 08/05/2006, 15h48

merci sovo pour avoir corriger mon code. Tu sais je suis vraiment une débutante.
Pour ce qui du fichier pour enregistrer les ifnos, j'avais marqué au début dans le cmd_ouvrir de la deuxième ce code:

Code :

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

1
2
3
4
5
6
7
Dim numfic As Integer
numfic = FreeFile
Source = f_ticketrepas
chemin = "txt_affichage.text"
Open chemin For Output As #numfic
Print #numfic, Source
Close #numfic

voilà
merci aussi à toi z'araignée ça m'aidé

**sovo** · 08/05/2006, 16h08

Envoyé par m_didi

Dim numfic As Integer
numfic = FreeFile
Source = f_ticketrepas
chemin = "txt_affichage.text"
Open chemin For Output As #numfic
Print #numfic, Source
Close #numfic

quelque question :

c'est quoi "f_ticktrepas" ?? si c'est un form alors mauvais, si c'est un textbox (et j'en doute) alors d'ou viennent ces donnees je ne les vois pas dans ton code.

je croyais que tu voulais utiliser des donnees dans une form venant d'une autres ?? mais jusqu'ici je ne vois pas comment tu le fait , ou alors c'est la tout ton probleme ??

**m_didi** · 08/05/2006, 16h11

oui f_ticketrepas c'est le nom de la première feuille en question
et oui je n'arrive pas à enregistrer les infos de cette feuille dans la seconde feuille du projet
donc comme tu l'as dit implicitement je suis dans la m****.
enfin, pour ton aide

**sovo** · 08/05/2006, 16h16

bon la c plus clair.

connaisant les champs qui sont dans cette form (dans le code plus haut) dit moi ceux que tu veux envoyer dans le fichier (txt_affichage).