Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic Найти квадраты нечетных чисел в множестве http://www.cyberforum.ru/basic/thread682843.html
задано множество целых чисел, как в этом множестве найти удвоенные нечетные числа. например:дано мн-во {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25,26.........}, где ...
Basic Перевод текстового значения в числовое в Small Basic
К сожалению не нашел раздела для Small Basic. Пользователь вводит какие-либо цифры, переменная отвечающая за текст считывает их, затем необходимо перевести их в числовое значение. Считывать сразу...
Макрос замены четных и нечетных слов местами Basic
помогите пожалуйста с таким заданием "сделать макрос для обмена четных и нечетных слов местами" заранее спасибо
Basic С помощью программы magnetism определите силовые линии магнитиого поля круговой петли с током Здравствуйте, помогите с решением одной программкой, есть у меня такая программка которая по задачке в ней "рассматривается круговая петля с током в плоскости x-z и рисуются силовые линии магнитного... http://www.cyberforum.ru/basic/thread677949.html
Basic Как определить ОС и имя пользователя http://www.cyberforum.ru/basic/thread676982.html
и имя пользователя. Так же хотелось бы узнать, где находится каталог с данными приложений.
Basic Создание раздела FreeBasic (голосование)
Приветствую всех форумчан!:) Многие из вас, наверное, заметили, что на форуме слишком мало подразделов языка Бейсик, особенно если сравнивать с Паскалем и си, в которых существуют свободные...
Самоуничтожения программы Basic
Здравствуйте, есть программа самоуничтожения программы при помощи bat файла на Дельфи кто-то делал на ВБ6? в чём там принцип? в ней четыре файла Unit1.dfm Unit1.pas Project1.dpr Project1.res...
Basic Mobile Basic: как найти длину строки Не нашел в списке такого ЯП, думаю, в этом разделе будет правильно задать вопрос. Вообщем, есть код, который позволяет выводить кириллицу в строках на экран: sub main a$ = "это моя контрольная... http://www.cyberforum.ru/basic/thread668460.html
Basic Открыть нужный html файл в IE и нажать кнопку в его MsgBox http://www.cyberforum.ru/basic/thread663085.html
Здравствуйте, пробую так Sub Открыть_нужный_html_файл() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "J:\Просмотровщик дисков, папок, файлов.html",...
Basic Определить название месяца выбранного дня Доброе время суток помогите решить задачки пожалуйста. 1. По названию введенной физической величины, характеризующей движение тела (координата, скорость, ускорение, время, сила) вывести ее... http://www.cyberforum.ru/basic/thread658545.html
stabud
122 / 49 / 1
Регистрация: 26.10.2012
Сообщений: 84
02.11.2012, 14:28 0

Графика FreeBasic

02.11.2012, 14:28. Просмотров 6210. Ответов 34
Метки (Все метки)

Ответ

На QBASIC нашел простой код паутины:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CONST Pi = 3.141592653589793#
CLS : LOCATE 2
Dim As Integer x= 300,y=250,r =20,k=10,r1=20
SCREEN 12
LINE (x, 0)-(x, 600)
LINE (0, y)-(600, y)
LINE (0, y + x)-(y + x, 0)
LINE (x-y, 0)-(600, 600-x+y)
FOR i As Integer= 1 TO k
    Var z = 0
    r = r + r1
    DRAW "BM" + LTRIM$(STR$(INT(x + r * COS(2 * z * Pi / 360)))) + "," + LTRIM$(STR$(INT(y + r * SIN(2 * z * Pi / 360))))
    DO
        z = z + 45
        LINE STEP(0, 0)-(x + r * COS(2 * z * Pi / 360), y + r * SIN(2 * z * Pi / 360)), 7
    LOOP UNTIL 360 <= z
Next
sleep
Однако у меня в закромах нашелся еще один код:

Кто автор не знаю.

PureBasic
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
'WEB
type point2d
    as double x,y
    end type
 
function rotatepoint2d(pivot As point2d,_
                         _point as point2d,_
                          angle As Double,_
                        dilator as double=1) as point2d
      Dim pi As Double=4*Atn(1) 
    #define rad *pi/180
dim as point2d np
np.x=dilator*(Cos(angle rad)*(_point.x-pivot.x)-Sin(angle rad)*(_point.y-pivot.y)) +pivot.x
np.y=dilator*(Sin(angle rad)*(_point.x-pivot.x)+Cos(angle rad)*(_point.y-pivot.y)) +pivot.y
return np
End function
 
dim as integer xres,yres
screeninfo xres,yres
screenres xres,yres,32
dim as point2d piv,pt,temp
dim as double dil,k=1
piv.x=xres/2
piv.y=yres/2
pt.x=piv.x+yres/4
pt.y=piv.y
dim pi as double=4*atn(1)
#define rad *pi/180
for z as double=1 to 6000 step 1
    if z mod 30=0 then
        line(piv.x,piv.y)-(piv.x+1.5*piv.x*cos(z rad),piv.y+1.5*piv.y*sin(z rad)),rgb(100,100,100)
        end if
    if z mod 30=0 then k=-1.5*.001*z
    if z mod 60=0 then k=2.5*.001*z
    dil=dil+k*.001
 temp= rotatepoint2d(piv,pt,z,dil)
 pset(temp.x,temp.y)
 if z mod 25=0 then circle(temp.x,temp.y),2,rgb(200,200,200),,,,F 'dew?
next z
sleep


Вернуться к обсуждению:
Графика FreeBasic
2
Миниатюры
Графика FreeBasic   Графика FreeBasic  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.11.2012, 14:28

FreeBasic круги на воде
Очень интересный код имитирующий распространение кругов на воде. Описание алгоритма тут Что меня...

Задача на графику в FreeBASIC
Помогите с задача по графике в FreeBASIC Построить совокупность n равных отрезков, центры которых...

FreeBasic. MyFbFramework + VisualFBEditor
Начал новый фреймворк для FreeBasic: MyFbFramework И редактор для него: VisualFBEditor Файлы...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru