OSCILLO ENTRÉE MICRO BETA V1.02
recherchelesavoir
Messages postés
13
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
6 juin 2005
-
26 août 2003 à 12:15
freyr86 Messages postés 4 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 16 juillet 2010 - 4 juil. 2010 à 23:39
freyr86 Messages postés 4 Date d'inscription vendredi 9 septembre 2005 Statut Membre Dernière intervention 16 juillet 2010 - 4 juil. 2010 à 23:39
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/6845-oscillo-entree-micro-beta-v1-02
https://codes-sources.commentcamarche.net/source/6845-oscillo-entree-micro-beta-v1-02
4 juil. 2010 à 23:39
si tu met just le nom du fichier sa marche aussi pour autant que l exe soit dans le même dossier je te remet le bout de code tu va comprendre
voila ton code de base
Private Sub Form_Load()
Open "c:\temp\para.txt" For Input As #1 Input #1, valseuil: seuil1 valseuil: seuil valseuil: Close #1 Timer1.Interval 1: Label3 0: Close #2
SoundMeter.BUFFER_SIZE = 700
Open "c:\temp\trace.txt" For Output As #2
Print #2, "Valeur", "Secondes", "MilliSecondes", Date
End Sub
change le pour sa et ressaye
Private Sub Form_Load()
Open "para.txt" For Input As #1 Input #1, valseuil: seuil1 valseuil: seuil valseuil: Close #1 Timer1.Interval 1: Label3 0: Close #2
SoundMeter.BUFFER_SIZE = 700
Open "trace.txt" For Output As #2
Print #2, "Valeur", "Secondes", "MilliSecondes", Date
End Sub
voila une petit amélioration je me pencherais dessus plus longuement plus tard.
Nice code
1 nov. 2009 à 00:42
8 juin 2006 à 16:28
Mais des que je lance l'appli elle reste en permanence dans la 1 er boucle de getvolume.
Peux tu m'aider ?
Merci
19 févr. 2004 à 13:57
Si tu a une idéé ou une solution car ici et mm ailleurs je ne trouve rien !!!
26 août 2003 à 12:15