Un compteur dans un fichier


Télécharger le projet
Commenter

Description

Comment puis créer un Compteur en Utilisant un Fichier ?

Utilisez ce code dan Votre Form_Load par exemple :

Source / Exemple : 


Private Sub Form_Load()
 ' Les lignes suivantes sont le compteur d'utilisation</font>
Dim Compteur As Integer
    
    On Error Resume Next
    
    Open "c:\nom du fichier" For Input As #1
    Input #1, Compteur
    Close #1
    
    Compteur = Compteur + 1
    
    Open "c:\nom du fichier" For Output As #1
    Print #1, Compteur
    Close
    
  If Compteur >= 10 Then End  'si le nbre d'éxécutions est > à 10 le prog stoppe.</font>

' Seul inconvénient: il faut connaitre l'emplacement du répertoire où
l'on veut créer le fichier.Le mieux serait de créer une entrée 
dans la base de registre.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)