21.02.2017 / 17:40 | |
Dimon638 Пользователь Сейчас: Offline
Регистрация: 12.04.2011
| 380679477932, а бывают мягкие тайлы? |
21.02.2017 / 21:13 | |
380679477932 Пользователь Сейчас: Offline
Имя: Vlad Регистрация: 19.12.2016
| еЕсли захочешь Изменено 380679477932 (21.02 / 21:14) (всего 1 раз) |
23.02.2017 / 08:36 | |
1961uvg Пользователь Сейчас: Offline
Имя: Victor Откуда: Минск Регистрация: 28.07.2015
| Изменено 1961uvg (23.02 / 08:38) (всего 2 раза) |
23.02.2017 / 09:00 | |
380679477932 Пользователь Сейчас: Offline
Имя: Vlad Регистрация: 19.12.2016
| Дайте пж пример .Буду очень благодарен
|
23.02.2017 / 18:58 | |
b0ing Пользователь Сейчас: Offline
Имя: Макс Регистрация: 24.08.2016
| Пример способа анимации без gr.modify. Как вариант можно использовать для несложной графики, т.к обновляет ВСЕ графические объекты в программе. Открыть спойлер Закрыть спойлер ! Пример способа анимации графики
! без gr.modify
gr.open ,,,,0,1
gr.screen sw,sh
cw=sw/2 : ch=sh/2
gosub gr_functions
!Выше все должно быть ясно
!Поехали
Do
!Цикл начинается с отрисовки фигур.
!Заканчивается стиранием всей графики и удалением
!графических объектов из памяти.
!При помощи переменных v_, фигуры отрисовываются
!снова с измененным углом наклона.
!Белый фон
white_background()
!пустой квадрат по-часовой
coordinates= figure(sw/3,sh/5,4,v1++)
draw(coordinates)
!пустой треугольник против часовой
coordinates= figure(sw/3*2,sh/5,3,v2--)
draw(coordinates)
!линия против часовой
v3-=2
coordinates= figure(sw/3,ch,2,v3)
draw(coordinates)
!восьмиугольник по_часовой
v4+=2.5
coordinates= figure(sw/3*2,ch,8,v4)
draw(coordinates)
!залитый шестнадцатиугольник по-часовой
v5+=1.4
coordinates= figure(sw/3,sh/5*4,16,v5)
draw_fill(coordinates)
!Залитый треугольник против часовой
v6-=3
coordinates= figure(sw/3*2,sh/5*4,3,v6)
draw_fill(coordinates)
!Рисуем
gr.render
!Стираем графику
gr.cls
Until 0
Gr_functions:
fn.def draw(coordinates)
gr.color 255,0,0,200,0
gr.set.stroke 2
gr.poly op,coordinates
fn.end
fn.def draw_fill(coordinates)
gr.color 255,0,0,200,1
gr.set.stroke 2
gr.poly op,coordinates
fn.end
fn.def figure(x0, y0, n, a)
list.create n,coordinates
r=100
for i=1 to 360 step 360/n
x=cos(toradians(i+a))*r+x0
y=sin(toradians(i+a))*r+y0
list.add coordinates,x,y
next
fn.rtn coordinates
fn.end
fn.def white_background()
gr.screen w,h
gr.color 255,255,255,255,1
gr.rect r,0,0,w,h
fn.end
Return
Изменено b0ing (23.02 / 18:59) (всего 1 раз)
Прикрепленные файлы: rotate_figure_e(…).bas (2.12 кб.) Скачано 970 раз Screenshot_2017(…).png (24 кб.) Скачано 220 раз |
24.02.2017 / 03:54 | |
Linevic Пользователь Сейчас: Offline
Имя: Reestr2Waper Регистрация: 12.06.2014
| Сделал функцию потокового воспроизведения. Пока что собственного проигрывателя нет, воспроизводит через установленный на телефоне проигрыватель. Чтобы запустить воспроизведение, надо набрать команду: stream("ссылка_на_поток", "путь_для_кэш_файла", "имя_кэш_файла"). Radio Maria stream - образец программы использующей эту функцию.
Изменено Linevic (24.02 / 03:58) (всего 2 раза)
Прикрепленные файлы: stream.bas (0.12 кб.) Скачано 797 раз Radio Maria str(…).bas (0.11 кб.) Скачано 999 раз |
28.02.2017 / 11:08 | |
levapbar Пользователь Сейчас: Offline
Имя: Павел Регистрация: 04.09.2016
| Как лучше выложить все шпаргалки, подскажите плиз: все в zip архиве или каждый файлик отдельно? Вроде все написал, кроме GPS, блютуз, debug и подобных несложных вещей.
|
1.03.2017 / 12:03 | |
1961uvg Пользователь Сейчас: Offline
Имя: Victor Откуда: Минск Регистрация: 28.07.2015
| Изменено 1961uvg (1.03 / 12:04) (всего 1 раз) |
7.03.2017 / 12:42 | |
1961uvg Пользователь Сейчас: Offline
Имя: Victor Откуда: Минск Регистрация: 28.07.2015
| Я считал что команду присваивания LET не обязательно употреблять ! Оказалось , что употребление ее сильно увеличивает скорость работы программы. Вот здесь разбор и примеры : http://rfobasic.freeforums.org/var-constant-against-var-t4928.html levapbarЯ не знаю, что сказать по поводу подсказок - они ведь и так тут выложены. А у меня в смартфоне в отдельной папке. Или у тебя еще есть которые ты не помещал здесь ? Изменено 1961uvg (7.03 / 13:09) (всего 3 раза) |
7.03.2017 / 22:09 | |
levapbar Пользователь Сейчас: Offline
Имя: Павел Регистрация: 04.09.2016
| 1961uvg, Еще немного появилось шпаргалок. Выкладываю в зипе, кому интересно- поковыряются.
Прикрепленные файлы: Шпаргалки.zip (57.46 кб.) Скачано 692 раза |