VB/VB.Net 226 Traduction

K

kangogoo

Membre
#21
Inscrit
5 Decembre 2010
Messages
114
Reactions
0
#21
_loc_5 = 0, et _loc_4 = 4
et _loc_16 = 36 puis 11 je ne sais pas pourquoi.
 
A

Anonymous

Invité
#22
#22
Donc actor.count = 1 ?

Lors de l'erreur, je précise
 
A

Anonymous

Invité
#24
#24
Désolé de vous embêter mais j'ai du mal a traduire ma class, sa me gêne de rester parmi vous, je suis nul en traduction.

Voila ma classe un peu traduit: (a peine)
Public Class HouseInformationsExtended

Public guildInfo As GuildInformations
Public Const protocolId As UInteger = 112

Public Function HouseInformationsExtended()

Me.guildInfo = New GuildInformations()nb
Return Me
End Function

Public Function getTypeId() As UInteger

Return 112
End Function

public function initHouseInformationsExtended(param1 As uinteger = 0, param2 As List(Of uinteger) = nothing, param3 As String = "", param4 As Boolean = false, param5 As Boolean = false, param6 As uinteger = 0, param7 As GuildInformations = nothing) As HouseInformationsExtended

MyBase.initHouseInformations(param1, param2, param3, param4, param5, param6)
Me.guildInfo = param7
Return Me
End Function

Public Function reset()

MyBase.reset()
Me.guildInfo = New GuildInformations()
Return Me
End Function

Public Function serialize(ByVal param1 As Dofus.DofusWriter)

Me.serializeAs_HouseInformationsExtended(param1)
Return Me
End Function

Public Function serializeAs_HouseInformationsExtended(ByVal param1 As Dofus.DofusWriter)

MyBase.serializeAs_HouseInformations(param1)
Me.guildInfo.serializeAs_GuildInformations(param1)
Return Me
End Function

Public Function deserialize(ByVal param1 As Dofus.DofusReader)

Me.deserializeAs_HouseInformationsExtended(param1)
Return Me
End Function

Public Function deserializeAs_HouseInformationsExtended(ByVal param1 As Dofus.DofusReader)

MyBase.deserialize(param1)
Me.guildInfo = New GuildInformations()
Me.guildInfo.deserialize(param1)
Return Me
End Function
End Class
 
A

Anonymous

Invité
#25
#25
@Kangogoo : D'accord, maintenant on sait où ce situe le problème. Il faut que tu fasse un débogage pas à pas à partir du premier actor (le 36). Tu dois vérifier par rapport aux source que tu ne t'es pas trompé dans la traduction (par exemple un ReadShot à la place d'un ReadInt)

@Luls : Je fini mon film et je regarde ça
 
A

Anonymous

Invité
#26
#26
Merci beaucoup, mais je vais arrêter de vous embêter après sa me gêne.
 
K

kangogoo

Membre
#27
Inscrit
5 Decembre 2010
Messages
114
Reactions
0
#27
@Maxilia C'est ce que j'ai fait, le seul point ou sa diffère c'est dans la déclaration des variables, parce que il ( D. ) déclare une variable en uint (UIntenger) mais la lise en UShort, j'ai donc mis des ushort au lieu des uint. C'est quand même pas ça qui fais tout buger ?
 
A

Anonymous

Invité
#28
#28
Non, ça viens obligatoirement d'une mauvaise lecture

@ Luls : Tu n'es pas loin, par contre pour alléger un peu le code tu peux supprimer toute les fonction sauf "deserialize" et "deserializeAs_..." (car tu cherches simplement à recevoir ce packet). Il faut ensuite ajouter un "Inherits HouseInformations"puis manipuler "Overrides"/"Overridable". (http://www.siteduzero.com/tutoriel-3-31 ... #ss_part_5 peux t'aider)
 
A

Anonymous

Invité
#29
#29
Merci mais j'ai une nouvelle erreur:
 
A

Anonymous

Invité
#30
#30
Vire cette ligne, à la base c'est si tu as une valeur foireuse mais généralement ça n'arrive jamais ;)
(Toute ces lignes tu peux les supprimer)
 
A

Anonymous

Invité
#32
#32
merci beaucoup mais j'ai une nouvelle erreur:
 
A

Anonymous

Invité
#33
#33
Il me semble que tu as oublier la ligne avec protocolTypeManager
 
A

Anonymous

Invité
#34
#34
Je suis perdu...
Code: 
Imports WindowsApplication1.jerakine.network.utils

Public Class HouseInformations

    Public houseId As UInteger = 0
    Public doorsOnMap As List(Of UInteger)
    Public ownerName As String = ""
    Public isOnSale As Boolean = False
    Public isSaleLocked As Boolean = False
    Public modelId As UInteger = 0
    Public Const protocolId As UInteger = 111

    Public Function HouseInformations()

        Me.doorsOnMap = New List(Of UInteger)
        Return Me
    End Function

    Public Function getTypeId() As UInteger

        Return 111
    End Function

    Public Function initHouseInformations(ByVal param1 As UInteger, ByVal param2 As List(Of UInteger), ByVal param3 As String, ByVal param4 As Boolean, ByVal param5 As Boolean, ByVal param6 As UInteger) As HouseInformations

        Me.houseId = param1
        Me.doorsOnMap = param2
        Me.ownerName = param3
        Me.isOnSale = param4
        Me.isSaleLocked = param5
        Me.modelId = param6
        Return Me
    End Function

    Public Function reset()

        Me.houseId = 0
        Me.doorsOnMap = New List(Of UInteger)
        Me.ownerName = ""
        Me.isOnSale = False
        Me.isSaleLocked = False
        Me.modelId = 0
        Return Me
    End Function

    Public Function serialize(ByVal param1 As Dofus.DofusWriter)

        Me.serializeAs_HouseInformations(param1)
        Return Me
    End Function

    Public Function serializeAs_HouseInformations(ByVal param1 As Dofus.DofusWriter)

        Dim _loc_2 As UInteger = 0
        BooleanByteWrapper.setFlag(_loc_2, 0, Me.isOnSale)
        BooleanByteWrapper.setFlag(_loc_2, 1, Me.isSaleLocked)
        param1.WriteByte(_loc_2)


        Console.WriteLine("Forbidden value (" + Me.houseId + ") on element houseId.")

        param1.WriteInt32(Me.houseId)
        param1.WriteShort(Me.doorsOnMap.Count)
        Dim _loc_3 As UInteger = 0
        While (_loc_3 < Me.doorsOnMap.Count)




            Console.WriteLine("Forbidden value (" + Me.doorsOnMap(_loc_3) + ") on element 2 (starting at 1) of doorsOnMap.")

            param1.WriteInt32(Me.doorsOnMap(_loc_3))
            _loc_3 = _loc_3 + 1
        End While
        param1.WriteUTF(Me.ownerName)


        Console.WriteLine("Forbidden value (" + Me.modelId + ") on element modelId.")

        param1.WriteShort(Me.modelId)
        Return Me
    End Function

    Public Function deserialize(ByVal param1 As Dofus.DofusReader)

        Me.deserializeAs_HouseInformations(param1)
        Return Me
    End Function

    Public Function deserializeAs_HouseInformations(ByVal param1 As Dofus.DofusReader)

        Dim _loc_5 As UInteger = 0
        Dim _loc_2 As UInteger = param1.ReadByte()
        Me.isOnSale = BooleanByteWrapper.getFlag(_loc_2, 0)
        Me.isSaleLocked = BooleanByteWrapper.getFlag(_loc_2, 1)
        Me.houseId = param1.ReadInt()




        Dim _loc_3 As UInteger = param1.ReadUnSignedshort()
        Dim _loc_4 As UInteger = 0
        While (_loc_4 < _loc_3)


            _loc_5 = param1.ReadInt()




            Me.doorsOnMap.Add(_loc_5)
            _loc_4 = _loc_4 + 1
        End While
        Me.ownerName = param1.ReadUTF()
        Me.modelId = param1.ReadShort()



        Return Me
    End Function
End Class
 
S

Shornaal

Membre Actif
#35
Inscrit
17 Février 2011
Messages
194
Reactions
0
#35
Évite les double-posts et favorise le "bouton éditer" ! Ensuite pour rendre ton code plus lisible met entre les baliser
Code:
. Quand à ton problème là c'est un peu brouillon et pour être franc, je ne vois pas.
 
A

Anonymous

Invité
#37
#37
Merci beaucoup max mais avec la nouvelle MAJ je ne peux plus me connecter.
 
L

Lakh92

Membre Actif
#38
Inscrit
24 Decembre 2009
Messages
118
Reactions
0
#38
Bon écoute, essaye de comprendre ce que tu fais, avant de vouloir copier sur je ne sais pas quel code déjà existant.
Tu ne comprends absolument RIEN à ce que tu fais, c'est à se demander comment tu en es arrivé là, non mais vraiment...
 
T

tifoux

Membre
#39
Inscrit
29 Septembre 2011
Messages
393
Reactions
3
#39
Lakh92 ta réussi toi la nouvelle maj?
 
F

FastFrench

Membre Actif
#40
Inscrit
19 Octobre 2010
Messages
214
Reactions
0
#40
Tout est dans les quelques fichiers .as que t'a déjà signalé ToOnS. Franchement, tu as de la chance qu'il y est si peu de changements, c'est vraiment enfantin...
 
Vous devez vous connecter ou vous inscrire pour répondre ici.
Haut Bas