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

Soyez le premier à donner votre avis sur cette source.

Vue 3 582 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

Commenter la réponse de cs_Jack

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.