Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Basic для платформы Android - Basic4Android - Basic4Android

Войти
Регистрация
Восстановить пароль

Показать сообщение отдельно
Evgeniy45
Сообщений: n/a
26.07.2014, 17:28
Всем привет! Народ, а как должна выглядеть в данном языке конструкция из vb6:
Visual Basic
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
Sub Eag(ByVal Re, ByVal Im)
        piobs = 3.141593
        If Re = 0 Then
            Select Case Im
                Case Is > 0
                    phase = 90 : Exit Sub
                Case Is < 0
                    phase = 270 : Exit Sub
            End Select      [COLOR="Red"]"вадаёт ошибку здесь не могу понять что не так"[/COLOR]
Parsing code.                           Error
Error parsing program.
Error description: Missing Keyword: end select
            
       End If
        
        If Im = 0 Then
            Select Case Re
                Case Is > 0
                    phase = 0 : Exit Sub
                Case Is < 0
                    phase = 180 : Exit Sub
            End Select
        
        If Re > 0 Then
            Select Case Im
                Case Is > 0
                    phase = ATan(Im / Re) * 180 / piobs
                    Exit Sub
                Case Is < 0
                    phase = ATan(Im / Re) * 180 / piobs
                    phase = 360 + phase
                    Exit Sub
            End Select
        End If
        If Re < 0 Then
            phase = ATan(Im / Re) * 180 / piobs
            phase = phase + 180
        End If
    End Sub
Сижу над этим уже почти сутки! Вот вот башню сорвёт!
Заранее благодарен за помощь!!!
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru