Class bio pour les entrées/sorties en mode binary

Soyez le premier à donner votre avis sur cette source.

Vue 3 602 fois - Téléchargée 180 fois

Description

Bon ben voila ma toute premiere class (du moin la premiere qui marche). Elle permet de
gérer facilement les entrées sorties en mode binaires.

Source / Exemple :


Description de la class : 
 

Function ecrire(chaine as string, optional deb as long)
'Ecris la chaine passée en parrametre. Deb est optionel et si il n'apparais pas, ce sera écris a la position contenue dans position

Function lire(debut As Long, longueure As Long) As String
'Lis tous les octets de 'debut' a 'fin' et les réenvois sous forme de string

Public Function lireln(Optional debutln As Long) As String
'Lis une ligne (debutln permet de spécifier un numero de ligne. sinon il s'autoincrémente)

Public Function ecrireOctet(octet As Byte, Position As Long)
'Ecris un octet a la position 'position'

Public Function lireOctet(pos As Long) As Byte
'Lis l'octet qui est a la position 'pos'

Public Function fermer()
'Ferme le fichier

Private Sub SelectStat(RorW As String)
'Change le statu (écrir/lire). Vous ne l'utiliserez pas car les fonction l'appelles d'elle meme (et c'est une sub privée)

'************Ces deux fonctions n'ont qu'un intéret limité************

Public Function Bin2Dec(nb)
'Convertie un integer formé de 1 et de 0 (faux octet) en integer 
'ex : 101 réenvera 5

Public Function Dec2Bin(nb)
'Converti un nombre en son équivalent 1 et 0

Conclusion :


Bonnes vacances a tous!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

SimonKari
Messages postés
80
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
1 octobre 2004
-
Dans le cadre de la classe que je connais, il s'agit de fournir un tableau de byte à la fonction principale en référence et ce dernier est remplis ! Veux-tu que je t'envoi cette classe par mail ? Si oui, donne le moi (ton mail)
cs_Dohm
Messages postés
9
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
30 octobre 2003
-
Elle existe déja?? Mince... m'on po prévenus :// M'enfin celle la elle est de mwa ^^
Par contre comment verais tu cette class???
Tilois
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4 -
pas terrible
SimonKari
Messages postés
80
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
1 octobre 2004
-
Ah oui je voulais aussi dire que ta classe ne sert strictement à rien vu que tu ressort des strings ! Si tu fais une class binaire à quoi ce sert d'avoir des sorties en string ? Faut faire des sorties en binaire sinon autant avoir une class non binaire et qui peut-etre en interne traite les donnees en binaire !? Qu'est-ce que t'en pense ?
SimonKari
Messages postés
80
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
1 octobre 2004
-
Mon pauvre ami cette classe existe deja debut bien longtemps ! Tu n'a rien inventé désolé de te l'apprendre !
Si tu fréquentais un peu les newsgroup tu le saurais ! En particulier
microsoft.public.fr.vb !!!

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.