Нарисовать звезды на небе разных размеров и цветов

@zacksss · Регистрация: 15.10.2011

Студворк — интернет-сервис помощи студентам

помогите пожалуйста создать программу : звёздное небо и чтобы появлялись и исчезали разноцветные звёзды в разных местах и разных размеров (звёзды рисуются с помощью команды circle)

Памирыч · 23.11.2011, 20:45

zacksss, Вам точно надо на Visual Basic .NET?
Не на QBasic?

@zacksss · 25.11.2011, 07:50 **[ТС]**

на visual basic 6.0

@gaw · 25.11.2011, 15:12

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
Dim k As Boolean
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.BackColor = 0
k = False
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
d = Int(Rnd * Me.Width / 400)
w = Int(Rnd * (Me.Width - 2 * d)) + d
h = Int(Rnd * (Me.Height - 2 * d)) + d
If k = False Then
cl_r = Int(Rnd * 255): cl_g = Int(Rnd * 255): cl_b = Int(Rnd * 255)
Else
cl_r = 0: cl_g = 0: cl_b = 0
d = 40 * d
End If
k = Not (k)
For i = 1 To d Step d / 100
Me.Circle (w, h), i, RGB(cl_r, cl_g, cl_b)
Next i
End Sub

@zacksss · 25.11.2011, 17:57 **[ТС]**

Добавлено через 1 минуту
всё спасибо поняла, что нужно сделать
а как сделать чтобы например после 10 звёзд они все исчезали?

@gaw · 25.11.2011, 22:21

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
Dim p%, pi#, angle#
 
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.BackColor = 0
 p = 0: pi = 4 * Atn(1): angle = 2 * pi / 5
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
d = Int(Rnd * Me.Width / 200) + Me.Width / 500
w = Int(Rnd * (Me.Width - 2 * d)) + d
h = Int(Rnd * (Me.Height - 2 * d)) + d
 
cl_r = Int(Rnd * 155) + 100: cl_g = Int(Rnd * 155) + 100: cl_b = Int(Rnd * 155) + 100
 
If p = 100 Then
p = 0
Me.Cls
End If
p = p + 1
If p < 51 Then
For i = 1 To 6.28
Me.Line (w - d * Cos(i * angle), h - d * Sin(i * angle))-(w + d * Cos(i * angle), h + d * Sin(i * angle)), RGB(cl_r, cl_g, cl_b)
Next i
End If
End Sub

@zacksss · 26.11.2011, 18:43 **[ТС]**

спасибо большое
но хотелось бы программу по проще=)

@gaw · 26.11.2011, 18:49

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
Dim p%
 
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.BackColor = 0
 p = 0
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
d = Int(Rnd * Me.Width / 400)
w = Int(Rnd * (Me.Width - 2 * d)) + d
h = Int(Rnd * (Me.Height - 2 * d)) + d
 
cl_r = Int(Rnd * 155) + 100: cl_g = Int(Rnd * 155) + 100: cl_b = Int(Rnd * 155) + 100
 
If p = 170 Then 'pause
p = 0
Me.Cls
End If
p = p + 1
If p < 10 Then
For i = 1 To d
Me.Circle (w, h), i, RGB(cl_r, cl_g, cl_b)
Next i
End If
End Sub

@zacksss · 27.11.2011, 11:26 **[ТС]**

а можно без таймера?

@Ципихович Эндрю · 27.11.2011, 11:45

а как они, звёзды будут появляться и находится на форме??

@zacksss · 28.11.2011, 17:14 **[ТС]**

ну чтобы по клику мышки появлялись и исчезали

@gaw · 28.11.2011, 18:13

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim p%, a(2)
 
Private Sub Form_Click()
p = 1 - p
Me.Cls
Me.ForeColor = RGB(Int(Rnd * 155) + 100, Int(Rnd * 155) + 100, Int(Rnd * 155) + 100)
Me.Print a(1 + p)
End Sub
 
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Font.Size = 120
Me.BackColor = 0
a(1) = "тут есть звезды"
a(2) = "тут нет звездей"
p = 1
End Sub

@zacksss · 28.11.2011, 21:11 **[ТС]**

PureBasic
1
2
3
4
5
6
7
8
9
scale(-8000,8000)-(8000,-8000)
for i=1 to 1000
x=fix(rnd*7500)
y=fix(rnd*5000)
n=fix(rnd*3)+1
c=fix(rnd*15)
drawwidth=n
pset(x,y),QBcolor(c)
next

Что нить типо этого

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Ниже машинный перевод статьи The Thinkpad X220 Tablet is the best budget school laptop period . Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы,. . .	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 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@zacksss 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 17

	Нарисовать звезды на небе разных размеров и цветов 23.11.2011, 20:25. Показов 5686. Ответов 12 Метки нет (Все метки) помогите пожалуйста создать программу : звёздное небо и чтобы появлялись и исчезали разноцветные звёзды в разных местах и разных размеров (звёзды рисуются с помощью команды circle) 0

Памирыч Почетный модератор 23248 / 9160 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	23.11.2011, 20:45
	zacksss, Вам точно надо на Visual Basic .NET? Не на QBasic? 0

@zacksss 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 17
	25.11.2011, 07:50 [ТС]
	на visual basic 6.0 0

@zacksss 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 17
	25.11.2011, 17:57 [ТС]
	Добавлено через 1 минуту всё спасибо поняла, что нужно сделать а как сделать чтобы например после 10 звёзд они все исчезали? 0

@zacksss 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 17
	26.11.2011, 18:43 [ТС]
	спасибо большое но хотелось бы программу по проще=) 0

@zacksss 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 17
	27.11.2011, 11:26 [ТС]
	а можно без таймера? 0

@Ципихович Эндрю 1708 / 577 / 74 Регистрация: 10.04.2009 Сообщений: 9,291
	27.11.2011, 11:45
	а как они, звёзды будут появляться и находится на форме?? 0

@zacksss 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 17
	28.11.2011, 17:14 [ТС]
	ну чтобы по клику мышки появлялись и исчезали 0