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

Роза ветров

05.06.2016, 11:12. Показов 3341. Ответов 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
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
 Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru