اقا كسي مي دونه مشكل اين چيه-

تو فايل 5 ذخيره ميشه تو خوندن 4354مثلا خونده ميشه!!!!!!!!

نقل قول:

---

Private Sub write_in_file_x_y_Color(ByVal x As Int16, ByVal y As Int16, ByVal Pixel_color As Byte)

FileClose(1)

FileOpen(1, System.IO.Path.GetTempPath() + "\XY.hm", OpenMode.Binary)

Dim xx, yy As Int16

Dim cc As Byte

file_record_write_pixel += 1

xx = x

FilePut(1, xx, file_record_write_pixel)

yy = y

file_record_write_pixel += 1

FilePut(1, yy, file_record_write_pixel)

file_record_write_pixel += 1

cc = Pixel_color

FilePut(1, cc, file_record_write_pixel)

FileClose(1)

End Sub

---

و خوندنش

نقل قول:

---

Private Sub read_in_file_x_y_Color()
Dim X_array_for_read_from_file(500), Y_array_for_read_from_file(500) As Int16
Dim Color_array_for_read_from_file(500) As Byte
FileClose(1)
FileOpen(1, System.IO.Path.GetTempPath() + "\XY.hm", OpenMode.Binary)
' read data form file and save in array
Dim num_of_record As Integer
num_of_record = (LOF(1)) / 3
Dim record_temp1 As Int16
For index_read As Int16 = 1 To num_of_record
Dim temp As Int16
Dim color_temp As Byte
record_temp1 += 1
FileGet(1, temp, record_temp1)
X_array_for_read_from_file(index_read) = temp
record_temp1 += 1
FileGet(1, temp, record_temp1)
Y_array_for_read_from_file(index_read) = temp
record_temp1 += 1
FileGet(1, color_temp, record_temp1)
Color_array_for_read_from_file(index_read) = color_temp


Next
End Sub

---

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

کد:

---

Public Class Form1
    Public Shared Function Serialize(value As Object) As Byte()
        Dim stream = New System.IO.MemoryStream()
        Dim formatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        formatter.AssemblyFormat = System.Runtime.Serialization.Formatters.FormatterAssemblyStyle.Simple
        formatter.Serialize(stream, value)
        Return stream.ToArray()
    End Function

    Public Shared Function Deserialize(bytes As Byte()) As Object
        Dim formatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()

        formatter.AssemblyFormat = System.Runtime.Serialization.Formatters.FormatterAssemblyStyle.Simple
        Return formatter.Deserialize(New System.IO.MemoryStream(bytes))
    End Function
End Class

<Serializable> _
Public Class ColorClass
    Public Property X() As Integer
        Get
            Return m_X
        End Get
        Set(value As Integer)
            m_X = Value
        End Set
    End Property
    Private m_X As Integer
    Public Property Y() As Integer
        Get
            Return m_Y
        End Get
        Set(value As Integer)
            m_Y = Value
        End Set
    End Property
    Private m_Y As Integer
    Public Property Color() As Byte
        Get
            Return m_Color
        End Get
        Set(value As Byte)
            m_Color = Value
        End Set
    End Property
    Private m_Color As Byte
End Class

---

مثال استفاده:

کد:

---

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim items As New List(Of ColorClass)()
        For i As Integer = 0 To 9
            items.Add(New ColorClass())
        Next
        System.IO.File.WriteAllBytes("D:\serialByte.bin", Serialize(items))
        Dim it As List(Of ColorClass) = DirectCast(Deserialize(System.IO.File.ReadAllBytes("D:\serialByte.bin")), List(Of ColorClass))
    End Sub

---

موفق و سربلند باشید در پناه حق:11:.

دستت درد نكنه ولي تو اين حالتيم كه نوستي ميگي؟؟؟

نقل قول:

---

Private Sub write_in_file_x_y_Color(ByVal x As Int16, ByVal y As Int16, ByVal Pixel_color As Int16)


FileClose(1)
Dim path_xy As String
path_xy = System.IO.Path.GetTempPath() + "xy.hm"
FileOpen(1, path_xy, OpenMode.Binary)


Dim xx, yy As Int16


file_record_write_pixel += 1
xx = x
FilePut(1, xx, file_record_write_pixel)


FileClose(1)
End Sub

---

بالا مينويسه تو موقع نوشتنم چك ميكنم درست مينوسيه
پايينيم ميخونه ولي تو موقع خوندن درست نميخونه

کد:

---

Private Sub read_in_file_x_y_Color()
 
Dim X_array_for_read_from_file(500) as int16
 
 
FileClose(1)
Dim path_xy As String
path_xy = System.IO.Path.GetTempPath() + "xy.hm"
FileOpen(1, path_xy, OpenMode.Binary)
 
 
 
Dim temp As Int16
 
record_temp1 += 1
FileGet(1, temp, record_temp1)
X_array_for_read_from_file(index_read) = temp
 
End Sub

---

كسي نيست جواب بده؟؟؟؟؟؟؟؟

بنام خدا.
سلام.
دوست عزیز اگه به روشی که گفتم عمل کنید مشکلتون حل خواهد شد.
کد شما اصلاً مشخص نیست چی هست.
موفق باشید.