Нарисовать звезды на небе разных размеров и цветов - VB
Формулировка задачи:
помогите пожалуйста создать программу : звёздное небо и чтобы появлялись и исчезали разноцветные звёзды в разных местах и разных размеров (звёзды рисуются с помощью команды circle)
Решение задачи: «Нарисовать звезды на небе разных размеров и цветов»
textual
Листинг программы
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