Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 01.06.2016
Сообщений: 2

Роза ветров

05.06.2016, 11:12. Показов 3367. Ответов 6
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Построить на экране розу ветров по заданным натуральным числа к1,…к8,
определяющим северное, северо-восточное, восточное, юго-восточное, южное, юго-
западное, западное или северо-западное направление. Числа считываются из
текстового файла.
0
Лучшие ответы (1)
Сообщение: #9249323
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 05.06.2016, 11:12
Ответы с готовыми решениями:

Разработайте программу, которая преобразует введенный пользователем текст в обратный и выдает результат на форму, например: роза > азор
Только начал учиться программированию, и одна вроде бы простая задачка вызывает затруднение, помогите с кодом "Разработайте...

Роза ветров
Как люди есть такая задачка,но я ее не сделаю без помощи,помогите пожалуйста!!! распредение скорости ветра по каждому из восьми...

Роза ветров
Довольна интересная задача, но непосильная пока мне(( на борланде надо Создать файл, содержащий информацию о направление ветра на...

6
133 / 148 / 64
Регистрация: 27.06.2013
Сообщений: 536
08.06.2016, 16:20
Лучший ответ Сообщение было отмечено The trick как решение

Решение

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

Private Sub Command1_Click()
Dim k(7, 2) As Integer, i As Integer, nm, x As Integer
Pct.Cls
Pct1.Cls
Pct1.Print "Значения k1 - k8 :" & Chr(13)
Pct.ScaleHeight = 220
Pct.ScaleWidth = 220
Pct.FontSize = 6
Pct.Line (110, 10)-(110, 210), &HFF0000, B
Pct.CurrentX = 109
Pct.CurrentY = 0
Pct.Print "N"
Pct.Line (110, 10)-(107, 14), &H0&
Pct.Line (110, 10)-(113, 14), &H0&
Pct.CurrentY = 211
Pct.Print "S"
Pct.Line (110, 210)-(107, 206), &H0&
Pct.Line (110, 210)-(113, 206), &H0&
 
Pct.Line (10, 110)-(210, 110), &HFF0000, B
Pct.CurrentX = 5
Pct.CurrentY = 108
Pct.Print "W"
Pct.Line (10, 110)-(14, 106), &H0&
Pct.Line (10, 110)-(14, 114), &H0&
Pct.CurrentX = 212
Pct.CurrentY = 108
Pct.Print "O"
Pct.Line (210, 110)-(206, 106), &H0&
Pct.Line (210, 110)-(206, 114), &H0&
 
Pct.Line (10, 210)-(210, 10), &HFF0000
Pct.CurrentX = 3
Pct.CurrentY = 212
Pct.Print "SW"
Pct.Line (10, 210)-(14, 210), &H0&
Pct.Line (10, 210)-(10, 206), &H0&
Pct.CurrentX = 211
Pct.CurrentY = 0
Pct.Print "NO"
Pct.Line (210, 10)-(210, 14), &H0&
Pct.Line (210, 10)-(206, 10), &H0&
 
Pct.Line (10, 10)-(210, 210), &HFF0000
Pct.CurrentX = 3
Pct.CurrentY = 0
Pct.Print "NW"
Pct.Line (10, 10)-(14, 10), &H0&
Pct.Line (10, 10)-(10, 14), &H0&
Pct.CurrentX = 211
Pct.CurrentY = 212
Pct.Print "SO"
Pct.Line (210, 210)-(210, 206), &H0&
Pct.Line (210, 210)-(206, 210), &H0&
 
Randomize
For i = 0 To 7
    k(i, 0) = Int(Rnd * 100)
    If i Mod 2 <> 0 Then x = Sqr((k(i, 0) ^ 2) / 2)
    Select Case i
    Case 0
        nm = "Север - "
        k(i, 1) = 110
        k(i, 2) = 110 - k(i, 0)
    Case 1
        nm = "Северо-восток - "
        k(i, 1) = 110 + x
        k(i, 2) = 110 - x
    Case 2
        nm = "Восток - "
        k(i, 1) = 110 + k(i, 0)
        k(i, 2) = 110
    Case 3
        nm = "Юго-восток - "
        k(i, 1) = 110 + x
        k(i, 2) = 110 + x
    Case 4
        nm = "Юг - "
        k(i, 1) = 110
        k(i, 2) = 110 + k(i, 0)
    Case 5
        nm = "Юго-запад - "
        k(i, 1) = 110 - x
        k(i, 2) = 110 + x
    Case 6
        nm = "Запад - "
        k(i, 1) = 110 - k(i, 0)
        k(i, 2) = 110
     Case 7
        nm = "Северо-запад - "
        k(i, 1) = 110 - x
        k(i, 2) = 110 - x
        Pct.Line (k(7, 1), k(7, 2))-(k(0, 1), k(0, 2)), &H80&
   End Select
   If i <> 0 Then
        Pct.Line (k(i - 1, 1), k(i - 1, 2))-(k(i, 1), k(i, 2)), &H80&
   End If
   Pct.CurrentX = k(i, 1)
   Pct.CurrentY = k(i, 2)
   Pct.Print k(i, 0)
   Pct1.Print nm & k(i, 0)
Next i
End Sub
 
Private Sub Command2_Click()
End
End Sub
Pct, Pct1 - элементы PictureBox.
k1 - k8 - случайные числа. Ввод из текстового файла додумайте сами.
Миниатюры
Роза ветров  
1
Заблокирован
12.06.2016, 19:33
Kapytan!
Мне понравилось Ваше творчество. Спасибо.
Немного "упростил код" по принципу: сразу наливай и пей!
На Форму помещаем три элемента: Command1, Command2 и Picture1.
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

Option Explicit
 
Private Sub Command1_Click()
Dim k(7, 2) As Integer, i As Integer, nm, x As Integer
Picture1.Cls
Picture1.Cls
Picture1.Print "Значения k1 - k8 :" & Chr(13)
Picture1.ScaleHeight = 220
Picture1.ScaleWidth = 220
Picture1.FontSize = 6
Picture1.Line (110, 10)-(110, 210), &HFF0000, B
Picture1.CurrentX = 109
Picture1.CurrentY = 0
Picture1.Print "N"
Picture1.Line (110, 10)-(107, 14), &H0&
Picture1.Line (110, 10)-(113, 14), &H0&
Picture1.CurrentY = 211
Picture1.Print "S"
Picture1.Line (110, 210)-(107, 206), &H0&
Picture1.Line (110, 210)-(113, 206), &H0&
 
Picture1.Line (10, 110)-(210, 110), &HFF0000, B
Picture1.CurrentX = 5
Picture1.CurrentY = 108
Picture1.Print "W"
Picture1.Line (10, 110)-(14, 106), &H0&
Picture1.Line (10, 110)-(14, 114), &H0&
Picture1.CurrentX = 212
Picture1.CurrentY = 108
Picture1.Print "O"
Picture1.Line (210, 110)-(206, 106), &H0&
Picture1.Line (210, 110)-(206, 114), &H0&
 
Picture1.Line (10, 210)-(210, 10), &HFF0000
Picture1.CurrentX = 3
Picture1.CurrentY = 212
Picture1.Print "SW"
Picture1.Line (10, 210)-(14, 210), &H0&
Picture1.Line (10, 210)-(10, 206), &H0&
Picture1.CurrentX = 211
Picture1.CurrentY = 0
Picture1.Print "NO"
Picture1.Line (210, 10)-(210, 14), &H0&
Picture1.Line (210, 10)-(206, 10), &H0&
 
Picture1.Line (10, 10)-(210, 210), &HFF0000
Picture1.CurrentX = 3
Picture1.CurrentY = 0
Picture1.Print "NW"
Picture1.Line (10, 10)-(14, 10), &H0&
Picture1.Line (10, 10)-(10, 14), &H0&
Picture1.CurrentX = 211
Picture1.CurrentY = 212
Picture1.Print "SO"
Picture1.Line (210, 210)-(210, 206), &H0&
Picture1.Line (210, 210)-(206, 210), &H0&
 
Randomize
For i = 0 To 7
    k(i, 0) = Int(Rnd * 100)
    If i Mod 2 <> 0 Then x = Sqr((k(i, 0) ^ 2) / 2)
    Select Case i
    Case 0
        nm = "Север - "
        k(i, 1) = 110
        k(i, 2) = 110 - k(i, 0)
    Case 1
        nm = "Северо-восток - "
        k(i, 1) = 110 + x
        k(i, 2) = 110 - x
    Case 2
        nm = "Восток - "
        k(i, 1) = 110 + k(i, 0)
        k(i, 2) = 110
    Case 3
        nm = "Юго-восток - "
        k(i, 1) = 110 + x
        k(i, 2) = 110 + x
    Case 4
        nm = "Юг - "
        k(i, 1) = 110
        k(i, 2) = 110 + k(i, 0)
    Case 5
        nm = "Юго-запад - "
        k(i, 1) = 110 - x
        k(i, 2) = 110 + x
    Case 6
        nm = "Запад - "
        k(i, 1) = 110 - k(i, 0)
        k(i, 2) = 110
     Case 7
        nm = "Северо-запад - "
        k(i, 1) = 110 - x
        k(i, 2) = 110 - x
        Picture1.Line (k(7, 1), k(7, 2))-(k(0, 1), k(0, 2)), &H80&
   End Select
   If i <> 0 Then
        Picture1.Line (k(i - 1, 1), k(i - 1, 2))-(k(i, 1), k(i, 2)), &H80&
   End If
   Picture1.CurrentX = k(i, 1)
   Picture1.CurrentY = k(i, 2)
   Picture1.Print k(i, 0)
   Picture1.Print nm & k(i, 0)
Next i
End Sub
 
Private Sub Command2_Click()
End
End Sub
Миниатюры
Роза ветров  
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
13.06.2016, 18:51
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

Private Sub Command1_Click()
pi = 4 * Atn(1)
NW = Array("N", "NO", "O", "SO", "S", "SW", "W", "NW")
R = Array(375, 400, 450, 350, 420, 420, 480, 450)
Ro = 100
Max = 1.2 * 500
Pic1.Scale (-Max, -Max)-(Max, Max)
Pic1.Cls
 
    For i = 1 To 8
      
       angle = (i - 1) * (2 * pi / 8) - pi / 2
       
       Pic1.DrawStyle = 2
         Pic1.Circle (0, 0), R(i - 1), &HFFC0C0
            Pic1.DrawStyle = 0
      
       Pic1.Line (Ro * Cos(angle + pi / 8), Ro * Sin(angle + pi / 8))-(R(i - 1) * Cos(angle), R(i - 1) * Sin(angle)), 0
         Pic1.Line (Ro * Cos(angle - pi / 8), Ro * Sin(angle - pi / 8))-(R(i - 1) * Cos(angle), R(i - 1) * Sin(angle)), 0
           Pic1.Line (0, 0)-(Ro * Cos(angle + pi / 8), Ro * Sin(angle + pi / 8)), 0
       
       Pic1.Line (0, 0)-(R(i - 1) * Cos(angle), R(i - 1) * Sin(angle)), vbRed
         Pic1.Print NW(i - 1); R(i - 1)    
      Next i       
      Pic1.Circle (0, 0), Ro, 0    
End Sub
1
Заблокирован
13.06.2016, 21:34
Объясните, пожалуйста — кто сможет. Почему мне приходится корректировать коды Kapytan и gaw.

Мой Visual Basic 6.0 сразу пишет: "ошибка 424" если встречает сокращённое обозначение, пример ниже. А у них "хоть бы хны" — как с гуся вода. В чём дело? Может пустую работу делаю?

Visual Basic
1
2

Pic1.Scale (-Max, -Max)-(Max, Max)
Pic1.Cls
Сейчас по коду gaw пришлось внести уйму уточнений по запросам Visual Basic 6.0.
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

Option Explicit
Private Sub Command1_Click()
Dim pi, NW, Max, angle  As Double
Dim R, Ro, i As Integer
pi = 4 * Atn(1)
NW = Array("N", "NO", "O", "SO", "S", "SW", "W", "NW")
R = Array(375, 400, 450, 350, 420, 420, 480, 450)
Ro = 100
Max = 1.2 * 500
Picture1.Scale (-Max, -Max)-(Max, Max)
Picture1.Cls
 
    For i = 1 To 8
      
       angle = (i - 1) * (2 * pi / 8) - pi / 2
       
       Picture1.DrawStyle = 2
         Picture1.Circle (0, 0), R(i - 1), &HFFC0C0
            Picture1.DrawStyle = 0
      
       Picture1.Line (Ro * Cos(angle + pi / 8), Ro * Sin(angle + pi / 8))-(R(i - 1) * Cos(angle), R(i - 1) * Sin(angle)), 0
         Picture1.Line (Ro * Cos(angle - pi / 8), Ro * Sin(angle - pi / 8))-(R(i - 1) * Cos(angle), R(i - 1) * Sin(angle)), 0
           Picture1.Line (0, 0)-(Ro * Cos(angle + pi / 8), Ro * Sin(angle + pi / 8)), 0
       
       Picture1.Line (0, 0)-(R(i - 1) * Cos(angle), R(i - 1) * Sin(angle)), vbRed
         Picture1.Print NW(i - 1); R(i - 1)
      Next i
      Picture1.Circle (0, 0), Ro, 0
End Sub
Получилась картинка, ниже.
Миниатюры
Роза ветров  
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
13.06.2016, 21:45
Pic1 у меня, это как бы сокращение от Picture1
когда Вы ставите на форму ЭУ Picture1 - справа в окошке свойств -
в первой же строке имя элемента по умолчанию Picture1
напишите там МЕСТО ДЛЯ РОЗЫ ВЕТРОВ
и это будет другое имя . Тогда всюду в коде где должно было бы быть
Picture1 надо писать МЕСТО ДЛЯ РОЗЫ ВЕТРОВ

т.о., положили на форму Picture1 и в строке Имя написали Pic1
1
Заблокирован
13.06.2016, 21:51
Цитата Сообщение от gaw Посмотреть сообщение
т.о., положили на форму Picture1 и в строке Имя написали Pic1
Спасибо, сейчас догадался.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 13.06.2016, 21:51
Помогаю со студенческими работами здесь

Трехмерная роза ветров
Здравствуйте, уважаемые форумчане. Я ломаю готову над тем, как построить трехмерную розу ветров в Mathcad? У меня есть данные по...

Типизированные файлы. "Роза Ветров"
Файл(типизированный), содержит информацию о направлении ветра в некотором населенном пункте в течении некоторого продолжительного времени....

Изобразить розу ветров
Всем привет. Задание: Роза ветров – это график, отражающий статистику направлений ветра за некоторый период времени (за месяц, год или...

нарисовать розу ветров на с++
нарисовать розу ветров на языке с++?

Нарисовать розу ветров в Delphi
Задание: Необходимо нарисовать розу ветров для некоторого промежутка времени по данным файла INPUT.TXT. В файле в одной строке записано 8...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru