Need HELP! part2

[MagnuM]

Расскажите ломаку как записать данные из textbox в файл, и как их считать их из файла с присвоением какой либо переменной

[KDima]

1.

Код: Выделить всё

Open "C:\myfile.txt" For Output As 1
Print #1, txtTextbox
Close 1


2.

Код: Выделить всё

Dim ret As String
Open "C:\myfile.txt" For Input As 1
Line Input #1, ret
Close 1


[MagnuM]

У меня чёто не получается...
Делаю всё как написано выше, только вот не хочет у меня выполнять

Код: Выделить всё

q = Round ((a+b)*c)

где a, b - значения задаваемые на форме, а c - значение из файла, при запуске выводит 0 вместо необходимого мне результата...
Мож я чёто не так делаю?? если да, то укажите где ошибка

[Amed]

Вероятно, несовпадение типов?
c, читаемое из файла с помощью Line Input, имеет тип String, а как умножить строку на число?

Попробуйте писать

Код: Выделить всё

q = Round ((a+b)*Val(c))


*)
Val Returns the numbers contained in a string
Функция возвращает число, содержащееся в строке

[MagnuM]

Всё равно "0" выводит.

[Konst_One]

Код: Выделить всё

dim q as double
dim a as double
dim b as double
dim c as double
....
'читаем файл
....
'преобразуем в число
a=Cdbl(s1)
b=cdbl(s2)
c=cdbl(s3)
'считаем
q = Round ((a+b)*c)
'выводим
text1.text=cstr(q)


[MagnuM]

чё то я ничё не понял

[Amed]

Код: Выделить всё

Private Sub Form_Load()
dim q as double
dim a as double
dim b as double
dim c as double
Dim s1 As String, s2 As String, s3 As String
'читаем файл
Open "C:\myfile.txt" For Input As #1
Line Input #1, s1
Line Input #1, s2
Line Input #1, s3
Close #1
'преобразуем в число
a=Cdbl(s1)
b=cdbl(s2)
c=cdbl(s3)
'считаем
q = Round ((a+b)*c)
'выводим
MsgBox cstr(q)
End Sub


[MagnuM]

Я не могу понять алгоритм того что написал мне уважаемы Амед, обьясните мне по проще и может это можно както проще выполнить

[Amed]

Код внутри процедуры Form_Load выполняются по загрузке формы (окна программы)

Код: Выделить всё

Private Sub Form_Load()


Создаём 3 переменные для трёх строк, прочитанных из файла.

Код: Выделить всё

Dim s1 As String, s2 As String, s3 As String


Открываем файл, читаем по порядку 3 строки в переменные s1, s2, s3.

Код: Выделить всё

Open "C:\myfile.txt" For Input As #1
Line Input #1, s1
Line Input #1, s2
Line Input #1, s3
Close #1


Преобразуем строковые переменные в числовые, чтобы можно было перемножить

Код: Выделить всё

a=Cdbl(s1)
b=Cdbl(s2)
c=Cdbl(s3)


Считаем, выводим

Код: Выделить всё

'считаем
q = Round ((a+b)*c)
'выводим
MsgBox cstr(q)


Что непонятно? Только конкретное место, которое непонятно, укажите

[MagnuM]

1: я не пойму зачем мы считываем 3 переменных из одной строки,

2: я попробывал этот код, не работает

[MagnuM]

Смотрите какое дело : у меня из файла считывается 0 а не записаное число

[MagnuM]

Чё значит "Duplicate declaration is current scop" ??

[hCORe]

"Двойное объявление в выбранном бронепоезде"
А если честно, то ты дважды объявил переменную с одним и тем же именем

[Ramzes]

Теоретически знал, практически...

Код: Выделить всё

Dim x As Integer

Private Sub Form_Click()
MsgBox x
End Sub

Private Sub Form_Load()
Dim x
x = "String"
MsgBox x
End Sub


[tyomitch]

2Ramzes: у твоих x разные scope.
Ты попробуй:

Код: Выделить всё

Function F(x)
Dim x
End Function