исправьте пожалуйста ошибки. / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / исправьте пожалуйста ошибки.

5 сообщений из 5, страница 1 из 1

исправьте пожалуйста ошибки.

#38477492

tortik2

Гость

написал программный код задачи в vb, точнее помогли. но выдает ошибки. помогите исправить плиз.

...

Рейтинг:

0 / 0

26.11.2013, 00:36

| Ответить | Цитировать | Написать

исправьте пожалуйста ошибки.

#38478427

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Это VB.NET, а не VB6 или VBA.

...

Рейтинг:

0 / 0

26.11.2013, 15:25

| Ответить | Цитировать | Написать

исправьте пожалуйста ошибки.

#38478961

tortik2

Гость

Public Function косинусугла(ByVal x1 As Single, _
ByVal y1 As Single, ByVal x2 As Single, _
ByVal y2 As Single) As Single
return csng (sqrt(x^2+y^2))
retutn CSng(x1 * x2 + y1 * y2) / (sqrt(x1 ^ 2 + y1 ^ 2) + sqrt(x2 ^ 2 + y2 ^ 2))
End Function
Sub уголaуголb(ByVal x1 As Single, ByVal y2 As Single, _
ByVal x2 As Single, ByVal y2 As Single, _
ByVal x3 As Single, ByVal y3 As Single, _
ByRef arccosa As Single, ByRef arccosb As Single)
Dim cosa, cosb As Single
cosa = косинусуглаa(x1, y1, x2, y2)
cosb = косинусуглаb(x2, y2, x3, y3)
arccos(a) = Atn(-a / sqrt(-a * a + 1)) + 2 * Atn(1)
arccos(b) = Atn(-b / aqrt(-b * b + 1)) + 2 * Atn(1)
Private Sub button1_click (byval sender as system.object, _
byval e as System.Eventargs) haNdles button1.click
Dim x1 As Single, x2 As Single, x3 As Single
Dim y1 As Single, y2 As Single, y3 As Single
Dim уголb As Single, уголa As Single
x1 = vvod(textbox1): x2 = vvod(textbox2): x3 = vvod(textbox3)
y1 = vvod(textbox6): y2 = vvod(textbox7): y3 = vvod(textbox8)
ab(x1,y1,x2,y2,x3,y3, угол1, угол2)
vivod(arccosa, textbox4) : vivod (arccosb, textbox5)
End Sub

Private Sub button2Click(byval sender as System.object, _
byval e as System.eventargs) handles button2.click
End
End Sub
end class

...

Рейтинг:

0 / 0

26.11.2013, 20:04

| Ответить | Цитировать | Написать

исправьте пожалуйста ошибки.

#38479114

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Модератор: Флуд убрал. Дальнейшие ответы в топике только если кто-то захочет сделать перевод текста на VB6

...

Рейтинг:

0 / 0

26.11.2013, 23:05

| Ответить | Цитировать | Написать

исправьте пожалуйста ошибки.

#38480061

Клевер

Участник

Сообщения: 216

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.

Option Explicit

Private Sub Command1_Click()
Dim x1 As Double
x1 = Val(InputBox("введите координату x первого вектора", "ввод данных"))
Dim x2 As Double
x2 = Val(InputBox("введите координату x второго вектора", "ввод данных"))
Dim x3 As Double
x3 = Val(InputBox("введите координату x третьего вектора", "ввод данных"))
Dim y1 As Double
y1 = Val(InputBox("введите координату y первого вектора", "ввод данных"))
Dim y2 As Double
y2 = Val(InputBox("введите координату y второго вектора", "ввод данных"))
Dim y3 As Double
y3 = Val(InputBox("введите координату y третьего вектора", "ввод данных"))
'Const Pi As Double = 3.1415926535897932
Dim cosinus As Double
Dim ArcCos As Double
cosinus = (x1 * x2 + y1 * y2) / ((x1 ^ 2 + y1 ^ 2) ^ 0.5 * (x2 ^ 2 + y2 ^ 2) ^ 0.5)
    If cosinus = 1 Then
    ArcCos = 0
    Else
    ArcCos = Atn(-cosinus / Sqr(-cosinus * cosinus + 1)) + 2 * Atn(1)
    'ArcCos = ArcCos * 180 / Pi
    End If
MsgBox "угол между 1 и 2 выекторами равен " & ArcCos & " радиан" 'градусов
cosinus = (x1 * x3 + y1 * y3) / ((x1 ^ 2 + y1 ^ 2) ^ 0.5 * (x3 ^ 2 + y3 ^ 2) ^ 0.5)
    If cosinus = 1 Then
    ArcCos = 0
    Else
    ArcCos = Atn(-cosinus / Sqr(-cosinus * cosinus + 1)) + 2 * Atn(1)
    End If
MsgBox "угол между 1 и 3 выекторами равен " & ArcCos & " радиан"
cosinus = (x2 * x3 + y2 * y3) / ((x2 ^ 2 + y2 ^ 2) ^ 0.5 * (x3 ^ 2 + y3 ^ 2) ^ 0.5)
    If cosinus = 1 Then
    ArcCos = 0
    Else
    ArcCos = Atn(-cosinus / Sqr(-cosinus * cosinus + 1)) + 2 * Atn(1)
    End If
MsgBox "угол между 2 и 3 выекторами равен " & ArcCos & " радиан"
End Sub

...

Рейтинг:

0 / 0

27.11.2013, 15:21

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / исправьте пожалуйста ошибки.

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2156673]:	0ms
get settings:	11ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	76ms
get topic data:	11ms
get first new msg:	8ms
get forum data:	3ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	15ms

total:	183ms