Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / исправьте пожалуйста ошибки. / 5 сообщений из 5, страница 1 из 1
26.11.2013, 00:36
    #38477492
tortik2
tortik2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
исправьте пожалуйста ошибки.
написал программный код задачи в vb, точнее помогли. но выдает ошибки. помогите исправить плиз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2013, 15:25
    #38478427
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
исправьте пожалуйста ошибки.
Это VB.NET, а не VB6 или VBA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2013, 20:04
    #38478961
tortik2
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, 23:05
    #38479114
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
исправьте пожалуйста ошибки.
Модератор: Флуд убрал. Дальнейшие ответы в топике только если кто-то захочет сделать перевод текста на VB6
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2013, 15:21
    #38480061
Клевер
Клевер
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
исправьте пожалуйста ошибки.
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / исправьте пожалуйста ошибки. / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 414ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156673]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 267ms
total:  414ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]