| Вопрос: Гидравлическая машина(помогите) | Добавлено: 14.05.07 14:00 |
Автор вопроса:  SKuLL | Web-сайт: http://agronom.mylivepage.ru/
|
|
Всем привет!
Помогите плз составить код для примера Гидравлической машины, рисунок здесь: http://www.college.ru/physics/modules.php?name=models&func=show_model&model_id=214 P/S/ времени нету срок до 20 числа, плз помогите. |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 1 Автор ответа:  LonerWanderer Вопросов: 18 Ответов: 66 |
Профиль | | #1 | Добавлено: 14.05.07 18:53 |
|
Ну наверное я начну.
Начнем с формул, по которым будем считать модель. F1/F2=(m1*S1)/(m2*S2) Вроде так? ну и начнем код писать потихонечку. option explicite Dim F1, F2, m1, m2, S1, S1 as long Кто продолжит? |
||
|
Номер ответа: 2 Автор ответа: LonerWandererВопросов: 18 Ответов: 66 |
Профиль | | #2 | Добавлено: 14.05.07 18:55 |
|
Ой. Ошибся. В предыдущем посту надо начинать так:
Option Explicit
PS А что - свое сообщение отредактировать нельзя? |
||
|
Номер ответа: 3 Автор ответа: GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #3 | Добавлено: 14.05.07 19:05 |
|
ну и начнем код писать потихонечку.
Dim F1, F2, m1, m2, S1, S1 as long Стоит ли продолжать, если уже в этом отрывке столько ошибок? |
||
|
Номер ответа: 4 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #4 | Добавлено: 14.05.07 20:25 |
| угу, ошибок многовато )) аж целых 5 | ||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 14.05.07 23:03 |
| Вроде как объявление переменной как variant не является ошибкой. А вот повторное объявление S1... | ||
|
Номер ответа: 6 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #6 | Добавлено: 15.05.07 00:31 |
|
ну, тогда можно вообще не объявлять ничего)) все переменные будут Variant)
LonerWanderer, у вас только переменная S1 будет Long, а все остальные будут Variant надо так Dim F1 as Long, F2 as Long, m1 as Long, m2 as Long, S1 as Long или Dim F1&, F2&, m1&, m2&, S1& |
||
|
Номер ответа: 7 Автор ответа: LonerWandererВопросов: 18 Ответов: 66 |
Профиль | | #7 | Добавлено: 15.05.07 01:47 |
|
только переменная S1 будет Long, а все остальные будут Variant
надо так Dim F1 as Long, F2 as Long, m1 as Long, m2 as Long, S1 as Long или Dim F1&, F2&, m1&, m2&, S1& Всегда так объявлял. Еще по аналогии с первым бейсиком, на котором в школе учился. И по крайней мере в VBA (excel 2003) такое прокатывало при объявлении массивов. что-то вроде Public MyArray1 (1 to 1000), MyArray2 (1 to 5,1 to 3) as Integer При попытке запихнуть туда "32" как строку, а не как число - VBA ругался. |
||
|
Номер ответа: 8 Автор ответа: LonerWandererВопросов: 18 Ответов: 66 |
Профиль | | #8 | Добавлено: 15.05.07 01:48 |
|
А вообще - учиться, учиться, учиться.....
Пошел учить матчасть. |
||
|
Номер ответа: 9 Автор ответа: SKuLL Вопросов: 1 Ответов: 8 |
Web-сайт: Профиль | | #9 | Добавлено: 15.05.07 06:38 |
|
Спа уже за помощь надо так
Dim F1 as Long, F2 as Long, m1 as Long, m2 as Long, S1 as Long
или Dim F1&, F2&, m1&, m2&, S1& разве тут не надо добавлять S2 и также писать? Так должно быть: Dim F1 as Long, F2 as Long, m1 as Long, m2 as Long, S1 as Long, S2 as Long ?
|
||
|
Номер ответа: 10 Автор ответа: SKuLLВопросов: 1 Ответов: 8 |
Web-сайт: Профиль | | #10 | Добавлено: 15.05.07 06:42 |
|
И еще хтел спросить перед
Dim F1 as Long, F2 as Long, m1 as Long, m2 as Long, S1 as Long, S2 as Long
нужно писать то что LonerWanderer сказал: [CODE]Option Explicit[/CODE? |
||
|
Номер ответа: 11 Автор ответа: SKuLLВопросов: 1 Ответов: 8 |
Web-сайт: Профиль | | #11 | Добавлено: 15.05.07 06:45 |
|
Всмысле:
Option Explicit
|
||
|
Номер ответа: 12 Автор ответа: LonerWandererВопросов: 18 Ответов: 66 |
Профиль | | #12 | Добавлено: 15.05.07 09:19 |
|
Из справки вкратце:
If used, the Option Explicit statement must appear in a module before any procedures.
When Option Explicit appears in a module, you must explicitly declare all variables using the Dim, Private, Public, ReDim, or Static statements. If you attempt to use an undeclared variable name, an error occurs at compile time. Если по-русски еще короче, то примерно так: OPTION EXPLICIT должны быть написана перед всеми процедурами.
Эта комманда запрещает использовать любые переменные, если они предварительно не определены коммандами DIM, PRIVATE, PUBLIC, REDIM или STATIC. Очень помогает в отлове случайных оппечаток при написании имен переменных. напримаер в этом случае VB ругнется: dim a as integer
dim Stroka as string stroka=cells(2 , 5).value for a=1 to 20 stroka= stroca +1 next a |
||
|
Номер ответа: 13 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #13 | Добавлено: 15.05.07 15:29 |
| Хорошее начало темы про Гидравлические машины ) | ||
|
Номер ответа: 14 Автор ответа: SKuLLВопросов: 1 Ответов: 8 |
Web-сайт: Профиль | | #14 | Добавлено: 15.05.07 16:04 |
|
2 Pavel
Вообще-то тема про проект по Гидравлическим машинам) |
||
|
Номер ответа: 15 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #15 | Добавлено: 15.05.07 18:57 |
|
А ты сам, что можешь, хоть бы формулу дал.
насколько я помню? давно правда это было, но кажется считали так. F=(m1+m2)\(s1+S2) F1=F*S1*9.81 F2=f*S2*9.81 Посмотри может я в чем то ошибаюсь? Физику лет 30 назад читал, не помню уже. |
||