Fonction binaire vb6 -> vb.net (vs 2008)

Signaler
Messages postés
4
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
16 avril 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour, voila je vous expose mon problème: actuellement j'ai un serveur de jeu en vb6 et je souhaite le traduire en vb.net mais le probleme est que les maps, items, ect... sont en binaire et je n'ai aucune idée de comment le "traduire" en vb.net
Voila le code de chargement des maps en vb6 :
Sub LoadMaps()
Dim FileName As String
Dim i As Long
Dim f As Long

    Call CheckMaps
    For i = 1 To MAX_MAPS
        FileName = App.Path & "\maps\map" & i & ".bin"
        f = FreeFile
        Open FileName For Binary As #f
        Get #f, , Map(i)
        Close #f
        DoEvents

    Next
End Sub


Voila le code de sauvegarde des maps en vb6 :
Sub SaveMap(ByVal MapNum As Long)
Dim FileName As String
Dim f As Long

    FileName = App.Path & "\maps\map" & MapNum & ".bin"
        
    f = FreeFile
    Open FileName For Binary As #f
        Put #f, , Map(MapNum)
    Close #f
End Sub


Voila je voudrais que vous m'aidiez a traduire ceci en vb.net, Merci d'avance
Cordialement Joris-luffy

8 réponses

Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
157
Bonjour,

Regardes du coté de System.io.file.StreamReader et System.io.file.StreamWriter.

Ils te permettront d'accéder au fichier en binaire.

Mon site
Messages postés
4
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
16 avril 2010

Oui j'ai vus mais après je ne sais pas comment stocké les donnée dans une structure
Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
157
Bonjour,

Pour mettre en forme les données pour les écrire dans un fichier, il y a la sérialisation.

Un lien pour voir ce que c'est (attention en anglais) : http://msdn.microsoft.com/en-us/library/7ay27kt9

Mon site
Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
157
Messages postés
4
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
16 avril 2010

Oui j'ai déja lu des chose sur la sérialisation mais moi je veux lire un fichier binaire et stocké ces donnée dans une structure
Structure Var1
public var2
public var3
...
End Structure
Voila désolé si je me suis mal exprimé ^^'
Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
157
Bonjour,

Tu peux faire une fonction chargée de mettre en binaire (et l'inverse) ta structure pour l'écrire, c'est aussi faisable, non ?

MonTableau() as Byte

MonTableau(0)=MaStructure.Champ1

Mon site
Messages postés
4
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
16 avril 2010

Oui je n'avais pas pensé a cette possibilité mais comme j'ai déja des maps de créer es-ce-que vous pensez qu'avec un système de tableau cela sera compatible ?
Mais merci pour la solution des tableau je vais voir ce que je peu faire ^^
Cordialement Joris-luffy
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,

MAP est un tableau de bytes? non de VAR1 apparemment....

fichier vers tableau de byte :
http://www.codyx.org/snippet_mettre-fichier-dans-tableau-bytes_1.aspx#1

tableau byte vers structure (VB6!! à adapter) :
http://www.codyx.org/snippet_tableau-byte-vers-structure_854.aspx#2556

structure vers tableau byte :
http://www.codyx.org/snippet_structure-vers-tableau-byte_760.aspx#2261

tableau byte vers fichier :
http://www.codyx.org/snippet_enregistrer-tableau-bytes-dans-fichier_5.aspx#9

++
[hr]