مشکل با باینری ریدر

[Ner'zhul Arthas]

من یه شطرنج نوشتم. وقتی بازی رو ذخیره میکنم و دوباره میخونم اون جوری که باید خونده بشه خونده نمیشه. چند بار باز نویسیش کردم نمیدونم مشکل چیه.

این کدش:


Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
If OpenFileDialog1.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
' Try
Dim F As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim Fs As New BinaryReader(F)
Fs.BaseStream.Seek(0, SeekOrigin.Begin)
Dim EndMoves2 As Integer = Fs.ReadInt32()
ReDim LastMoves(0)
EndMoves = 0
ListBox1.BeginUpdate()
ListBox1.Items.Clear()
ListBox1.Items.Add(" - - - ")
Myboard.BCastle_OO = Fs.ReadBoolean()
Myboard.BCastle_OOO = Fs.ReadBoolean()
Myboard.WCastle_OO = Fs.ReadBoolean()
Myboard.WCastle_OOO = Fs.ReadBoolean()
For i As Byte = 0 To 63
Myboard.User(i) = Fs.ReadByte()
Myboard.Type(i) = Fs.ReadByte()
Next
LastMoves(0).CBoard = Myboard
Dim a1, a2 As Byte
For i As Integer = 1 To EndMoves2 - 1
a1 = Fs.ReadByte()
a2 = Fs.ReadByte()
Dim Movx As New MMove
Movx = MoveEn(a1, Myboard, Myboard.User(a1), LastMoves(EndMoves))
Myboard = MoveDo(a2, Movx, Myboard)
Next
Fs.Close()
' Catch ex As Exception
' MsgBox(ex.Message())
' End Try

Myboard = LastMoves(EndMoves).CBoard
BoardMoveShow(New MMove)
SetBoard(Myboard)
ListBox1.EndUpdate()
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
End If
End Sub


Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
If SaveFileDialog1.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then
' Try
Dim F As New FileStream(SaveFileDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Write)
Dim Fs As New BinaryWriter(F)
Fs.BaseStream.Seek(0, SeekOrigin.Begin)

Fs.Write(LastMoves.Length)
Fs.Write(LastMoves(0).CBoard.BCastle_OO)
Fs.Write(LastMoves(0).CBoard.BCastle_OOO)
Fs.Write(LastMoves(0).CBoard.WCastle_OO)
Fs.Write(LastMoves(0).CBoard.WCastle_OOO)
For i As Byte = 0 To 63
Fs.Write(LastMoves(0).CBoard.User(i))
Fs.Write(LastMoves(0).CBoard.Type(i))
Next
For i As Integer = 1 To LastMoves.Length - 1
Fs.Write(LastMoves(i).CC2(0))
Fs.Write(LastMoves(i).CC2(1))
Next
Fs.Close()
' Catch ex As Exception
' MsgBox(ex.Message())
' End Try
End If
End Sub

[Ner'zhul Arthas]

متشکر از جواباتون :چشمک:

مشکل از این نیست که F در هنگام اجرای برنامه این شکلیه؟
باید این شکلی باشه یا نه؟
این عکسش:

[Ner'zhul Arthas]

جواب پیدا شد:

وقتی میخوایم از Enum استفاده کنیم باید نوعش رو تعریف کنیم:




Public Enum BT As Byte ' اگر این از بایت رو نذاریم اینطوری میشه '
None = 0
King = 1
Queen = 2
Rook = 3
Knight = 4
Bishop = 5
Pawn = 6
End Enum