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

[Nakh0d4]

تو فايل 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

[عــــلی]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

[Nakh0d4]

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

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

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Nakh0d4]

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

[عــــلی]

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