VBNet - Форум - Файлы

Вопрос: Файлы Добавлено: 30.05.07 07:22

Автор вопроса: Bonapart | Web-сайт: team16.tut.su | ICQ: 175256

Есть 2 программы
вот первая

If List1(0).ListCount > 0 And _
    star(0).ListCount > 0 Then
A = SaveDialog(Form1, "Acerace map|*.mir|", "Chose file to save", App.Path)
A = Strings.Left(A, Len(A) - 1) + ".mir"

Open A For Random As 1
Put 1, 1, List1(0).ListCount
Put 1, 2, star(0).ListCount

For i = 0 To List1(0).ListCount - 1
    For b = 0 To 3
        Put 1, 3 + z, Val(List1(b).List(i))
        z = z + 1
    Next b
Next i

For i = 0 To star(0).ListCount - 1
Put 1, z + 3 + i, Val(star(0).List(i))
Put 1, z + 3 + i, Val(star(1).List(i))
Next i

Close 1


Else
MsgBox "Try to create a map before"
End If

и вторая

With Form1
For i = 0 To 3
.List1(i).Clear
Next i
For i = 0 To 1
.star(i).Clear
Next i
a = App.Path + "\map.mir"
Open a For Random As 1
Dim x As Integer
Dim y As Integer
Get 1, 1, x
Get 1, 2, y
Dim px As Double
For i = 0 To x - 1
    For b = 0 To 3
        Get 1, 3 + z, px
        .List1(b).AddItem px
        z = z + 1
    Next b

Next i
Dim py As Double
For i = 0 To y - 1
Get 1, z + 3 + i, py
.star(0).AddItem py
Get 1, z + 3 + i, py
.star(1).AddItem py
Next i

End With

Но после сохранения первой вторая читает всё не правильно
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684	Профиль \| \| #1	Добавлено: 30.05.07 09:54
	А вот скажи счего ты взял что Val(List1(b).List(i)) записывает в файл всегда Double? Приведи пример содержимого листбокса Ответить

Номер ответа: 2 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #2	Добавлено: 30.05.07 10:22
	Там числа,целые от 0 до 1024 в 1 и 3 боксе и от 0 до 768 в 2 и 4 в стар тоже самое в первом до 1024 во втором до 768 Ответить

Номер ответа: 3 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| \| #3	Добавлено: 30.05.07 10:25
	И с Double хотя бы что то читает с Integer,Long,Single,Byte везде 0 пишет Ответить

Номер ответа: 4 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684	Профиль \| \| #4	Добавлено: 30.05.07 11:29
	Не важно что он читает, важней что пишет Открой бинарным редактором и посмотри Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #5	Добавлено: 31.05.07 08:36
	Там числа,целые от 0 до 1024 в 1 и 3 боксе и от 0 до 768 в 2 и 4 в стар тоже самое в первом до 1024 во втором до 768 Формат сжатия изображений? Ответить

Номер ответа: 6 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #6	Добавлено: 01.06.07 17:30
	Open A For Random As 1 Open A For Random As 1 Len = 8 Ответить

Страница: 1 |