MON PROGRAMME DE TABLATURE
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2083-mon-programme-de-tablature
https://codes-sources.commentcamarche.net/source/2083-mon-programme-de-tablature
3 nov. 2001 à 16:01
J'aime trop critique la création des autres, ca donne l'air tout de suite prétentieux. Cependant ton prog est buggés. De plus tu fais référence à ton propre disque dur, non seulement tout le monde n'a pas c: pour désigner son HD mais en plus tout le monde à encore moins les meme dossier:
Open "C:EtienneaccordvbLaouA.txt" For Input As #1
While Not EOF(1)
Line Input #1, l$
List1.AddItem (l$)
Wend
Close #1
Open "C:EtienneaccordvbSiouB.txt" For Input As #2
While Not EOF(2)
Line Input #2, l$
List2.AddItem (l$)
Wend
Close #2
Open "C:EtienneaccordvbDoouC.txt" For Input As #3
While Not EOF(3)
Line Input #3, l$
List3.AddItem (l$)
Wend
Close #3
Open "C:EtienneaccordvbReouD.txt" For Input As #4
While Not EOF(4)
Line Input #4, l$
List4.AddItem (l$)
Wend
Close #4
Open "C:EtienneaccordvbMiouE.txt" For Input As #5
While Not EOF(5)
Line Input #5, l$
List5.AddItem (l$)
Wend
Close #5
Open "C:EtienneaccordvbFaouF.txt" For Input As #6
While Not EOF(6)
Line Input #6, l$
List6.AddItem (l$)
Wend
Close #6
Open "C:EtienneaccordvbSolouG.txt" For Input As #7
While Not EOF(7)
Line Input #7, l$
List7.AddItem (l$)
Wend
Close #7
Dim Lignes As Integer
Lignes = CompteLigne("C:EtienneaccordvbSiouB.txt")
Label10.Caption = Lignes
Lignes = CompteLigne("C:EtienneaccordvbDoouC.txt")
Label11.Caption = Lignes
Lignes = CompteLigne("C:EtienneaccordvbReouD.txt")
("C:EtienneaccordvbMiouE.txt")
("C:EtienneaccordvbFaouF.txt")
("C:EtienneaccordvbSolouG.txt")