AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 02 10:13:17
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UN COMPTEUR DANS UN FICHIER


Information sur la source

Catégorie :Fichier / Disque Classé sous : compteur, fichier Niveau : Initié Date de création : 06/06/1999 Vu / téléchargé: 6 433 / 327
Auteur : Nix Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
2 / 10 - par 2 personnes
2,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

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

Utilisez ce code dan Votre Form_Load par exemple :
 

Source

  • 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.
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.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

URGENT aidez moiiiiiiiii svp [ par stidjeanmoulin ] 'pourkoi ca boucle?Private Sub CSupression_Click()Dim Fichier As IntegerDim Caractere As StringDim Compteur As Long'remplacer les tabulations par de Compteur Feuille Excel MAJ [ par williams ] Bonjour.J'ai un fichier Excel présent sur un serveur de mon entreprise ouvert à tous.Chaque personne peut donc utiliser ce fichier, même plusieurs per Compteur d'acces à un fichier [ par SIGVALENCE ] Bonjour,j'ai une appli qui est à disposition sur un réseau intranet.J'aimerai connaitre le nombre d'ouvertures de cette appli par un compteur indépend Changer le contenu d'une ligne dans fichier txt [ par Raphs ] Bonjour, J'ai un fichier txt de plusiquers millier de lignes et en fonction de certain crit&#232;res, je dois modifier certaine lignes. J'arrive &#224 compteur sur plusieurs fichier et plusieurs onglets [ par funkay91 ] Et oui encore moiJe cherche des commandes qui pourront me permettre de lanc&#233; une recherche. Sur plusieurs fichiers et sous plusieurs onglet de ex Incrémenter un compteur aprés enregistrement [ par ticrain ] Bonjours à tous!Voila je programme en VBA excel, je voudrai que mon programme incremente un compteur à chaque fois qu'il y'a un fichier d'enregistré.  VB.Net Copie d'un fichier et le Lire [ par JeffC1977 ] Salut à tous....J'ai fais un Post sur le forum sur ce sujet mais ca devait être un peu trop abstrait...J'ai un code pour faire une copie d'un fichier. Déserialisation d'un fichier binaire (VB2005) [ par Polack77 ] Bonjour et bonne année 2008, qu'elle vous soit (oui, à vous P.L., petit lecteur, lol) douce, agréable, et fructueuse (il est encore temps de faire ses Problème Fichier ".csv" [ par Alain92110 ] Bonjour,   <p class="MsoNormal" st Intégre la notion de dernière cellule libre [ par hidozo ] Bonjour,j'ai ce code qui me permet de copier la liste de fichier d'un répertoire. Simplement, j'aimerai pouvoir rajouter le fait que je puisses complé


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,562 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.