Мне нужна помощь с изучением синтаксиса.

User avatar
Фант
Posts: 1363
Joined: Sat Nov 30, 2013 10:01 am
My devices: iPad 4 (iOS 9.3), iMac (MAC OS 11.03)
Location: Россия,Санкт-Петербург
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by Фант »

Все верно! Для управления надо использовать или просто касания, или кнопки-спрайты. Кнопки-это элементы интерфейса.

User avatar
MARK99
Posts: 292
Joined: Tue Feb 03, 2015 2:33 pm
My devices: Ipad 4 , iphone 5
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by MARK99 »

Кто знает в чём ошибка? Нужно увеличить качество фото...
Код:

CAMERA "photocam" AT BACK PHOTO
CAMERA "photocam" SNAPSHOT "N.jpg"
GRAPHICS
GRAPHICS CLEAR 1,1,1
DRAW IMAGE "N.jpg" AT 10,10 SCALE 10/80
Image

User avatar
Фант
Posts: 1363
Joined: Sat Nov 30, 2013 10:01 am
My devices: iPad 4 (iOS 9.3), iMac (MAC OS 11.03)
Location: Россия,Санкт-Петербург
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by Фант »

Mark990530 wrote:Кто знает в чём ошибка? Нужно увеличить качество фото...
Код:

CAMERA "photocam" AT BACK PHOTO
CAMERA "photocam" SNAPSHOT "N.jpg"
GRAPHICS
GRAPHICS CLEAR 1,1,1
DRAW IMAGE "N.jpg" AT 10,10 SCALE 10/80
Привет!
Вот небольшой пример фотоаппарата. Программа позволяет 1 раз сделать фотографию с задней фотокамеры кнопкой "ФОТО", сохраняет фотографию в альбом устройства и воспроизводит фотографию на экране Вашего устройства. Изображение отмасштабировано по высоте экрана.

Code: Select all

GRAPHICS
maxx=screen_width()
maxy=screen_height()
button 1 title "Фото" at 0,0 size 100,100
sprite 1 begin maxx,maxy
sprite end
sprite 1 show
CAMERA 1 AT BACK PHOTO
CAMERA 1 VIEW 1
GET CAMERA 1 SIZE W,H
kof=maxy/h
loop:
if button_pressed ("1") then
CAMERA 1 SNAPSHOT "N.jpg"
goto 10
endif
goto loop
10 
ALBUM EXPORT "N.jpg"
GRAPHICS CLEAR 1,1,1
DRAW IMAGE "N.jpg" AT 0,0 scale kof

User avatar
MARK99
Posts: 292
Joined: Tue Feb 03, 2015 2:33 pm
My devices: Ipad 4 , iphone 5
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by MARK99 »

Фант wrote:
Mark990530 wrote:Кто знает в чём ошибка? Нужно увеличить качество фото...
Код:

CAMERA "photocam" AT BACK PHOTO
CAMERA "photocam" SNAPSHOT "N.jpg"
GRAPHICS
GRAPHICS CLEAR 1,1,1
DRAW IMAGE "N.jpg" AT 10,10 SCALE 10/80
Привет!
Вот небольшой пример фотоаппарата. Программа позволяет 1 раз сделать фотографию с задней фотокамеры кнопкой "ФОТО", сохраняет фотографию в альбом устройства и воспроизводит фотографию на экране Вашего устройства. Изображение отмасштабировано по высоте экрана.

Code: Select all

GRAPHICS
maxx=screen_width()
maxy=screen_height()
button 1 title "Фото" at 0,0 size 100,100
sprite 1 begin maxx,maxy
sprite end
sprite 1 show
CAMERA 1 AT BACK PHOTO
CAMERA 1 VIEW 1
GET CAMERA 1 SIZE W,H
kof=maxy/h
loop:
if button_pressed ("1") then
CAMERA 1 SNAPSHOT "N.jpg"
goto 10
endif
goto loop
10 
ALBUM EXPORT "N.jpg"
GRAPHICS CLEAR 1,1,1
DRAW IMAGE "N.jpg" AT 0,0 scale kof
Спасибо
Image

User avatar
MARK99
Posts: 292
Joined: Tue Feb 03, 2015 2:33 pm
My devices: Ipad 4 , iphone 5
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by MARK99 »

Фант wrote:
Dionis wrote:Накарябал программку, которая с помощью кнопок позволяет гонять кружок по экрану. Сильно не пинать, я только вчера начал изучение языка. Очистка всего экрана для новой отрисовки - это, конечно, сильно. Помниться, когда я классе в 3-м писал игры на бейсике, мне приходилось заливать персонажей цветом фона, перед тем как отрисовать в новом месте, так как из-за тамошнего CLS жутко мерцал экран.

Code: Select all

GRAPHICS
GRAPHICS CLEAR

l$ = "left"
r$ = "right"
x = 500

DRAW COLOR 1,0,0
DRAW CIRCLE x,250 SIZE 50

button l$ text "Влево" at 50,550 size 100,100
button r$ text "Вправо" at 200,550 size 100,100

loop:
IF BUTTON_PRESSED (l$) = 1 THEN
x -= 15
movement(x)
ENDIF

IF BUTTON_PRESSED (r$) = 1 THEN
x += 15
movement(x)
ENDIF

goto loop

DEF movement(x)
GRAPHICS CLEAR
DRAW CIRCLE x,250 SIZE 50
END DEF
Для таких целей в smart Basic используются спрайты! Вы дропбокс настроили? Я Вам могу в качестве примера бросить программку для перемещения мяча по экрану...
Фант , в качестве примера для изучения работы спрайты ,скиньте мне пожалуйста в Дропбокс .Мой адрес :dart9905@list.ru
Image

User avatar
Фант
Posts: 1363
Joined: Sat Nov 30, 2013 10:01 am
My devices: iPad 4 (iOS 9.3), iMac (MAC OS 11.03)
Location: Россия,Санкт-Петербург
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by Фант »


User avatar
MARK99
Posts: 292
Joined: Tue Feb 03, 2015 2:33 pm
My devices: Ipad 4 , iphone 5
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by MARK99 »

Фант wrote:Открытая ссылка:
https://www.dropbox.com/sh/bkczg4zojmaj ... 8piia?dl=0
Спасибо
Image

User avatar
MARK99
Posts: 292
Joined: Tue Feb 03, 2015 2:33 pm
My devices: Ipad 4 , iphone 5
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by MARK99 »

Что делают эти команды ,и где их можно найти в HELP?
get touch 0 as x,y
И
pause
Image

User avatar
Фант
Posts: 1363
Joined: Sat Nov 30, 2013 10:01 am
My devices: iPad 4 (iOS 9.3), iMac (MAC OS 11.03)
Location: Россия,Санкт-Петербург
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by Фант »

get touch 0 as X,Y -снимает координаты касания экрана пальцем. ее надо заключать в цикл.
pause n-пауза в программе
P.S. Mark, спасибо за отзыв к бесплатной игрушке В Клетке!!!

User avatar
MARK99
Posts: 292
Joined: Tue Feb 03, 2015 2:33 pm
My devices: Ipad 4 , iphone 5
Flag: Russia
Contact:

Re: Мне нужна помощь с изучением синтаксиса.

Post by MARK99 »

Фант wrote:get touch 0 as X,Y -снимает координаты касания экрана пальцем. ее надо заключать в цикл.
pause n-пауза в программе
P.S. Mark, спасибо за отзыв к бесплатной игрушке В Клетке!!!
Спасибо
Image

Post Reply