| Вопрос: Несколько вопросов | Добавлено: 21.05.08 15:37 |
Автор вопроса:  Xapkep | Web-сайт: zaki.ru | ICQ: 301212 |
| Ответы | Всего ответов: 42 |
|
Номер ответа: 16 Автор ответа:  Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108 |
Web-сайт: Профиль | | #16 | Добавлено: 23.05.08 08:50 |
Циклом и проверкой условия
|
||
|
Номер ответа: 17 Автор ответа: Xapkep ICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #17 | Добавлено: 23.05.08 09:59 |
| Что значит циклом, я спросил, почему отличаются ответы? вроде по идеи они делают одну и туже операцию, ну почити одну и ответы должны получатся одинаковые... а нефига | ||
|
Номер ответа: 18 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #18 | Добавлено: 23.05.08 12:50 |
| Объяви все переменные как положено и обнули перед использованием. | ||
|
Номер ответа: 19 Автор ответа: XapkepICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #19 | Добавлено: 23.05.08 13:01 |
| Народ вы чего путаете.. цикл счетчик не включен. | ||
|
Номер ответа: 20 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #20 | Добавлено: 23.05.08 14:55 |
|
Да. Ты прав. Суммировать забыл. Вот: Dim f As Long
Dim n As Long Dim f1 As Long Dim n1 As Long Dim fx As Long Dim nx As Long f = 0 n = 0 f1 = 0 n1 = 0 fx = 0 nx = 0 If IsNumeric(Text1.Text) Or _ IsNumeric(Text2.Text) Or _ IsNumeric(Text3.Text) Or _ IsNumeric(Text4.Text) Then n = 5 For i = 1 To n fx = Val(Text1.Text) + Val(Text2.Text) * i f1 = f1 + fx nx = Val(Text3.Text) + Val(Text4.Text) * i n1 = n1 + nx Next i f = f1 / 5 n = n1 * 9.81 / 5 Else MsgBox "Ошибка!" End If |
||
|
Номер ответа: 21 Автор ответа: XapkepICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #21 | Добавлено: 23.05.08 15:04 |
|
f1 = f1 + Val(Text1.Text) + Val(Text2.Text) * i
Думаю и этого достаточно. Да и нече если я в качестве типа переменной использовал integer |
||
|
Номер ответа: 22 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #22 | Добавлено: 23.05.08 15:10 |
|
f1 = f1 + Val(Text1.Text) + Val(Text2.Text) * i
Думаю и этого достаточно. В твоем варианте - Да. При более сложных расчетах - дого будешь искать ошибку, если свалишь все в кучу. |
||
|
Номер ответа: 23 Автор ответа: VerhoLomВопросов: 20 Ответов: 285 |
Профиль | | #23 | Добавлено: 25.05.08 15:21 |
|
По поводу всплывающей подсказки: возьмите вот этот пример и посмотрите что к чему - очень интересно:
http://vbnet.ru/samples/zip/Cust-TTT.zip |
||
|
Номер ответа: 24 Автор ответа: XapkepICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #24 | Добавлено: 25.05.08 19:31 |
|
Возникло еще пару вопросов.
Dim Q, f, h1, h2, h, n As Integer
Private Sub Command1_Click() Fr4.Hide 'скрыть форму End Sub Private Sub Command2_Click() h = Text1.Text 'высота домкратной стойки l = Text2.Text 'длина ручки домкрата h1 = Text3.Text 'шаг подъемного винта h2 = Text4.Text 'шаг регулирующего винта Q = 10 * 9.8 'расчет силы Q действующая на домкрат с верху вниз f = (Val(Q) * Val(h)) / (2 * 3.14 * Val(l)) n = (Val(Q) * (Val(h1) + Val(h2))) / (Val(f) * 2 * 3.14 * Val(l)) Text5.Text = n End Sub ответ всегда выводит 0 входные данные h=400 l=100 h1=5 h2=6 накотал по тойже формуле на php и ответ вывело 0.271 Что я зделал в VB не так? |
||
|
Номер ответа: 25 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #25 | Добавлено: 25.05.08 20:07 |
|
n As Integer
Integer - тип данных для хранения целых |
||
|
Номер ответа: 26 Автор ответа: BonapartICQ: 175256 Вопросов: 32 Ответов: 108 |
Web-сайт: Профиль | | #26 | Добавлено: 25.05.08 20:09 |
| Val(f) замени на просто f в последней формуле при подсчете н | ||
|
Номер ответа: 27 Автор ответа: XapkepICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #27 | Добавлено: 25.05.08 20:18 |
| Брать Long? | ||
|
Номер ответа: 28 Автор ответа: XapkepICQ: 301212 Вопросов: 8 Ответов: 49 |
Web-сайт: Профиль | | #28 | Добавлено: 25.05.08 20:28 |
|
Понял нужно было String брать...
Я про него совсем забыл. давно постоянно ее использовал в паскале для избежания подобных проблем |
||
|
Номер ответа: 29 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #29 | Добавлено: 25.05.08 20:31 |
| Все в Single или Double ! | ||
|
Номер ответа: 30 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #30 | Добавлено: 25.05.08 20:34 |
|
Dim Q, f, h1, h2, h, n As Integer
[/code] Здесь у тебя все переменные кроме последней с типом Variant. Надо явно указывать: Dim Q as Single, f as Single ... |
||