Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 20.10.2018, 11:44   #1
ЮрийPI118
 
Регистрация: 20.10.2018
Сообщений: 6
По умолчанию Не могу понять что не так?

Код:
Private Sub CommandButton1_Click()
Макрос1
End Sub
Sub Макрос1()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Dim f As Double
Dim g As Double
Dim i As Double
Dim h As Double
Dim j As Double
pi = 3.14159265358979

a = ((1 * 2 * UserForm1.TextBox2 + 5 * UserForm1.TextBox1 * 1) / (1 * 5 * UserForn1.TextBox1 + 1 * (-2) * UserForm1.TextBox2) * 180 / pi)
b = ((1 * 3 * UserForm1.TextBox4 + 2 * UserForm1.TextBox3 * 1) / (1 * 2 * UserForm1.TextBox3 + 1 * (-3) * UserForm1.TextBox4) * 180 / pi)
c = ((1 * 1 * UserForm1.TextBox6 + 3 * UserForm1.Texybox5 * 1) / (1 * 3 * UserForm1.TextBox2 + 1 * 1 * UserForm1.TextBox6) * 180 / pi)
d = ((1 * 2 * UserForm1.TextBox8 + 4 * UserForm1.TextBox7 * 1) / (1 * 4 * UserForm1.TextBox7 + 1 * (-2) * UserForm1.TextBox8) * 180 / pi)
e = ((1 * 2 * UserForm1.TextBox10 + 3 * UserForm1.TextBox9 * 1) / (1 * 3 * UserForm1.TextBox7 + 1 * (-2) * UserForm1.TextBox10) * 180 / pi)

If a < 0 Then f = 360 + a Else f = a
If b < 0 Then g = 360 + b Else g = b
If c < 0 Then i = 360 + c Else i = c
If d < 0 Then h = 360 + d Else h = d
If e < 0 Then j = 360 = e Else j = e

UserForm1.TextBox11 = f
UserForm1.TextBox12 = g
UserForm1.TextBox13 = i
UserForm1.TextBox14 = h
UserForm1.TextBox15 = j

End Sub

Private Sub CommandButton2_Click()
End
End Sub
Пожалуйста, оформляйте Ваш код согласно правилам.
Изображения
Тип файла: jpg скрин ошибки.jpg (96.7 Кб, 126 просмотров)

Последний раз редактировалось Вадим Мошев; 22.10.2018 в 12:26.
ЮрийPI118 вне форума
Старый 20.10.2018, 12:04   #2
ЮрийPI118
 
Регистрация: 20.10.2018
Сообщений: 6
По умолчанию Вот эта ошибка

Помогите пожалуйста
Изображения
Тип файла: jpg скрин ошибки.jpg (96.7 Кб, 124 просмотров)
ЮрийPI118 вне форума
Старый 20.10.2018, 14:35   #3
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Ошибка-то какая?
Black Fregat вне форума
Старый 20.10.2018, 16:02   #4
ЮрийPI118
 
Регистрация: 20.10.2018
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Black Fregat Посмотреть сообщение
Ошибка-то какая?
да.
Изображения
Тип файла: jpg Новый точечный рисунок.jpg (106.2 Кб, 118 просмотров)
ЮрийPI118 вне форума
Старый 22.10.2018, 10:57   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

вообще-то вместо картинок можно было сделать небольшой тестовый файл с кнопкой, формой и макросом.

по сути. попробуйте все значения из textBox'ов сначала в переменные взять и потом их использовать.
да, и, по моему, обращение должно идти через метод Text
(вместо UserForm1.TextBoxX надо UserForm1.TextBoxX.Text)
Serge_Bliznykov вне форума
Старый 22.10.2018, 16:06   #6
ЮрийPI118
 
Регистрация: 20.10.2018
Сообщений: 6
По умолчанию

Теперь такая ошика
Изображения
Тип файла: jpg скрин ошибки.jpg (95.6 Кб, 120 просмотров)
ЮрийPI118 вне форума
Старый 22.10.2018, 16:29   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от ЮрийPI118 Посмотреть сообщение
Теперь такая ошика
1) читаете невнимательно.


Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
попробуйте все значения из textBox'ов сначала в переменные взять и потом их использовать.
2) а что это за
Цитата:
Код:
a = ((1 * 2 * UserForm1.TextBox2 + 5 * UserForm1.TextBox1 * 1) / (1 * 5 * UserForn1.TextBox1 + 1 * (-2) * UserForm1.TextBox2) * 180 / pi)
я имел в виду написать примерно такой код:
Код:
Dim tb1 As Double, tb2 As Double, tb3 As Double, tb4 As Double

tb1 = CDbl( UserForm1.TextBox1.Text )
tb2 = CDbl( UserForm1.TextBox2.Text )
tb3 = CDbl( UserForm1.TextBox3.Text )
tb4 = CDbl( UserForm1.TextBox4.Text )
...

a = ((1 * 2 * tb2 + 5 * tb1 * 1) / (1 * 5 * tb1 + 1 * (-2) * tb2) * 180 / pi)
...
Serge_Bliznykov вне форума
Старый 24.10.2018, 07:24   #8
ЮрийPI118
 
Регистрация: 20.10.2018
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
1) читаете невнимательно.




2) а что это за

я имел в виду написать примерно такой код:
Код:
Dim tb1 As Double, tb2 As Double, tb3 As Double, tb4 As Double

tb1 = CDbl( UserForm1.TextBox1.Text )
tb2 = CDbl( UserForm1.TextBox2.Text )
tb3 = CDbl( UserForm1.TextBox3.Text )
tb4 = CDbl( UserForm1.TextBox4.Text )
...

a = ((1 * 2 * tb2 + 5 * tb1 * 1) / (1 * 5 * tb1 + 1 * (-2) * tb2) * 180 / pi)
...
Получилось. Спасибо большое
ЮрийPI118 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу понять, что не так в коде Viraele Помощь студентам 4 16.06.2016 15:55
Не могу понять что не так(бинарное дерево) Stanislav94 Общие вопросы C/C++ 2 03.03.2013 18:20
не могу понять что не так aferistz Общие вопросы C/C++ 5 23.09.2010 02:21
строки и файлы не могу понять,что не так((((( marina_sergina Общие вопросы C/C++ 4 11.05.2010 07:49
строки и файлы не могу понять,что не так(((( marina_sergina Помощь студентам 1 11.05.2010 00:38