Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Basic4Android

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 213, средняя оценка - 4.95
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
#1

Basic для платформы Android - Basic4Android - Basic4Android

19.04.2014, 19:43. Просмотров 28723. Ответов 111
Метки нет (Все метки)

Если кто не знает Basic4Android это простой и мощный инструмент разработки приложений для устройств, работающих под управлением операционной системы Android. Язык Basic4Android очень похож на популярный и всеми нами любимый язык Visual Basic. Лично мне показалось, что он больше похож на VB.NET, ООП полноценный.
Basic для платформы Android - Basic4Android
Что можно на нём написать? Да в принципе всё, что и на Java, только быстрее. Игры, GPS навигация, управление звонками, контактами, СМС, FTP, HTTP, виджеты.
Basic для платформы Android - Basic4Android
Огромное кол-во готовых библиотек сильно упрощают программирование, высокоразвитый IDE, отладчик реального времени, возможность отладки как на различных моделях эмуляторов различных устройств ( можно настроить любые параметры устройства) так и на реальном устройстве.
Basic для платформы Android - Basic4Android
Basic для платформы Android - Basic4Android
Если вы знаете Java, то это ещё плюс - можно самому писать любые библиотеки и подключать к своему проекту на Basic4Android.
Basic4Android выдает честный код, реальный .apk файл, без встроенных интерпретаторов, такой, что и на выходе скажем с Eclipse.
Из недостатков можно назвать его платность ($59 USD). Но если вы будете использовать его для написания платных программ, то думаю это смешная цена. А если не будете, то кого волнует, сколько он стоит? Всех волнует, где взять новую версию, а с этим проблем пока нет.
Проблема с общением и поиском единомышленников. Русских сообществ практически нет, форума, где можно задать вопрос на русском языке тоже нет.
Собственно потому я и пытаюсь создать что то подобное в теме. Сам я начал плотное знакомство с этим ЯП примерно неделю назад. Перевел кое что из документации, разобрал несколько примеров, написал свое собственное приложение. Пока всё нравится, и Basic4Android реально торт.
Но торт скучно есть в одиночку. Буду рад, если найдутся заинтересованные люди, готовые поддержать разговор.
22
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2014, 19:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Basic для платформы Android - Basic4Android (Basic4Android):

Литература по Basic4Android для новичков - Basic4Android
Добрый день,не подскажите ссылку на литературу Basic4Android для чайников или что-то подобное,давным давно vb5 увлекался,так простенькие...

Android SDK Manager не отображает платформы 2.3.3 (API 10), 2.3.1 (API 9). Как быть? - Программирование Android
Добрый день! Использую Android Studio под Windows 7. Из-за несовместимости с операционной системой Android SDK Manager не отображает...

Basic-authentication Https SSL Android, loopj library - Программирование Android
Никак не могу пройти аутентификацию в HTTPS с использованием loopj Asnctask Http library. Как можно это реализовать и что еще мне нужно...

Как подключить genymotion к basic4android? - Basic4Android
Подскажите, как подключить эмулятор genymotion к basic4android?

Выбор платформы разработки "1С Мобильная платформа" или "Android Studio" - Программирование Android
Всем, здравствуйте! Есть задача по разработке клиента для терминала сбора данных. Для использования его c WMS. После долгих раздумий было...

Выбор мощного android смартфона до 10 рублей, для тестирования проектов Android Studio, что посоветуете? - Программирование Android
Какую фирму посоветуете?

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Runkin
55 / 55 / 3
Регистрация: 22.12.2011
Сообщений: 252
Записей в блоге: 2
27.04.2014, 19:00 #31
в принципе да, но я выбираю время например "3 часа"
прибавляю к текущему и получаю время когда должно произойти действие!
теперь даже если закрыть приложение и открыть заново, таймер будет верно идти!
вот мой пример:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
timezone = DateTime.TimeZoneOffset * 3600000
 
Sub btn1_Click
    StopTime = DateTime.Now + ([кол-во часов]* 3600000) 'StopTime as long
    Timer1.Initialize("Timer1",1000)
    Timer1.Enabled = True
End Sub
 
Sub Timer1_Tick
    Label1.Text = DateTime.Time(StopTime - DateTime.now - timezone)
End Sub
так вроде норм
1
Антихакер32
Заблокирован
29.04.2014, 06:19 #32
Я его пока не закачивал ...
но думаю освою я его за 5 минут
0
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
29.04.2014, 08:43  [ТС] #33
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
но думаю освою я его за 5 минут
Не, не освоишь. Вчера ставил на Win7 x64 товарищу. Полная установка и настройка с "нуля" заняла около часа.
Значит времени для освоения понадобится 1 час + 5 минут. Хотя сильно зависит от скорости доступа к Интернет.

Да и есть принципиальные отличия от VB6 в некоторых моментах. Нет WIN32 API
2
aptos
13 / 13 / 2
Регистрация: 04.06.2013
Сообщений: 156
29.04.2014, 18:37 #34
С нетерпением ждемс графический редактор
0
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
30.04.2014, 11:08  [ТС] #35
Цитата Сообщение от aptos Посмотреть сообщение
ждемс графический редактор
Ну вот вам, пожалуйста

Создаем простую программу для рисования для Android – PaintDroid



Приступаем к очередному занятию. Для него нам понадобятся следующие инструменты и файлы

1. Файл иконки проекта. Напомню, что найти его можно бесплатно на www.iconfinder.com
2. Среда программирования Basic4Android, желательно версии не древнее 3.**
3. Библиотеки Core (есть по умолчанию) и Dialogs ( см. урок по созданию Текстового редактора)


Запускаем исполняемый файл Basic4android.exe любым удобным вам способом. Меняем в меню Project->Package name на Paint.Droid. Напомню, что каждое приложение в Android идентифицируется по уникальному имени пакета. Это строка, состоящая из нескольких слов, разделенными точками.
Срока должна содержать как минимум две части. Вы не сможете установить два разных приложения с одинаковым именем пакета на одно устройство. Вернее ваше устройство подумает, что это обновление и заменит старое на новое приложение.
Устанавливаем нашу иконку меню Project->Choose Icon и заменить имя и версию под спойлером Project Attributes
Visual Basic
1
2
3
#ApplicationLabel: B4A Example -> Меняем на PaintDroid
    #VersionCode: 1 -> это пока лучше не менять
    #VersionName: -> тут можно поставить версию 0.01
#ApplicationLabel – это имя будет названием нашей программы в списке программ, под иконкой программы, когда мы её установим в устройство (или эмулятор)
Мы должны сохранить наш проект в надежное место. Для этого выберите меню File - Save. Рекомендуется сохранять каждую отдельную программу в свою собственную папку.
Создайте новую папку: " PaintDroid ", откройте ее и сохраните программу как "PaintDroid“. В папке будут созданы ещё 2 основные папки Files, Objects с подпапками и файл PaintDroid.b4a
Запускаем свой эмулятор или подключаем своё реальное устройство при помощи B4A-Bridge или просто из меню Tools - Run AVD Manager.




Приступаем к проектированию дизайна нашей программы. Запускаем дизайнер из главного меню-> Designer

Тут сразу меняем Title Activity-> PaintDroid Эта надпись будет видна в работающем приложении.

В нашем приложении будет 1 элемент – Panel, добавим её из меню AddView->Panel и растянем на весь экран. Тут мы и будем рисовать. Рисовать удобно в планшетном варианте, для этого добавим New Variant -> 480х320, т.е планшетный вариант, в этом варианте измените положение панели в соответствии с экраном.
Закрепляем результат – сохраняем в файл с именем Layout1. Если с другим, то запомните – потом пригодится. Этот файл будет в папке File с именем Layout1.bal
Идем в редактор кода и раскоментируем эту строчку
Visual Basic
1
'Activity.LoadLayout("Layout1")
Если сохранили с другим именем, то вставляйте своё.
Visual Basic
1
2
3
4
5
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
 
End Sub
В этом проекте у нас появляется новый элемент – модуль. Как и в случае с VB6, модули добавляются к проекту через меню. В данном случае это Project -> Add New Module-> Code Module. Один и тот же модуль можно использовать в различных своих проектах многократно, просто подключив его. Это обычный текстовый файл, имеющий расширение .bas
Создайте новый модуль с именем «SignatureCapture»
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
35
36
37
38
'Code module
Sub Process_Globals
    Dim px, py As Int
    Type SignatureData (Canvas As Canvas, Panel As Panel, SignatureColor As Int, SignatureWidth As Int)
    Dim color As Int
    End Sub
 
Sub Panel_Touch(SD As SignatureData, x As Int,y As Int, Action As Int)
    SD.SignatureColor = color
    If Action = 0 Then 'mouse down constant
        px = x
        py = y
    Else
        SD.Canvas.DrawLine(px, py, x, y, SD.SignatureColor, SD.SignatureWidth)
        SD.Panel.Invalidate
        px = x
        py = y
    End If
End Sub
Sub Clear(SD As SignatureData)
    SD.Canvas.DrawColor(Colors.White)
    SD.Panel.Invalidate
End Sub
Sub Save(SD As SignatureData, Dir As String, Name As String)
    Dim out As OutputStream
    out = File.OpenOutput(Dir, Name, False)
    SD.Canvas.Bitmap.WriteToStream(out, 100, "PNG")
    out.Close
End Sub
 
Sub SetColor
    Dim cd As ColorPickerDialog
    
    cd.RGB = Colors.Black
    ret = cd.Show("Цвет линии", "Применить", "", "Отмена", Null)    
    
    color = cd.RGB
End Sub
Этот модуль обеспечивает рисование при наступлении события Panel_Touch.
Проще говоря, когда вы будете пальцем водить по экрану, то он будет рисовать.

Переходим на основной код. Объявляем переменные и настраиваем форму диалога для загрузки и сохранения файлов. Я выбрал png файлы, но можно работать и с jpg!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
      Dim Panel1 As Panel
    Dim Canvas1 As Canvas
    Dim SD As SignatureData 'This object holds the data required for SignatureCapture
    ' For Paint
    Dim fdp As FileDialog
    fdp.FastScroll = True
    fdp.KeyboardPopUp = True
    fdp.FilePath = File.DirRootExternal ' also sets ChosenName to an emtpy string
    fdp.FileFilter = ".png" ' for example or ".jpg,.png" for multiple file types
    Dim ret As Int
End Sub
Что у нас есть? С панелью всё понятно. Далее Canvas1 – это как раз тот контекст, на котором мы и будем рисовать, а SD это объект, в котором будут хранится данные для рисования.
Код при запуске приложения
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
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    If File.ExternalWritable = False Then
        Msgbox("Нет доступа к записи на карту памяти.", "PaintDroid")'"Cannot write on storage card."
        Activity.Finish
        Return
    End If
    Panel1.SetLayout(0%x, 0%y, 100%x, 100%y)' Растягиваем панель на весь экран
    Canvas1.Initialize(Panel1)
    SD.Initialize
    SD.Canvas = Canvas1
    SD.Panel = Panel1
    SD.SignatureColor = Colors.Black ' Начальный цвет черный
    SD.SignatureWidth = 3dip 'Толщина линии
    
    ' Menu 
    Activity.AddMenuItem("Цвет","mnuColor") ' Adds menu 
    Activity.AddMenuItem("Новый","mnuNew") ' Adds menu 
    Activity.AddMenuItem("Загрузить файл","mnuOpen") ' Adds menu 
    Activity.AddMenuItem("Сохранить файл","mnuSave") ' Adds menu 
    
End Sub
Проверяем, есть ли у устройства возможность записывать изображения:
Visual Basic
1
If File.ExternalWritable = False
Далее, вне зависимости от размеров экрана ( если помните, то у нас 480х320, для современных устройств это крайне мало!) растягиваем панель на весь экран:
Visual Basic
1
Panel1.SetLayout(0%x, 0%y, 100%x, 100%y)
Устанавливаем начальный цвет линии, которой будем рисовать и её толщину.
Visual Basic
1
2
 SD.SignatureColor = Colors.Black ' Начальный цвет черный
    SD.SignatureWidth = 3dip 'Толщина линии
Добавляем 4 пункта меню. Как делать меню с иконками было в прошлый раз, теперь без иконок ( но вы можете импровизировать!)
Процедура, которая обрабатывает нажатие на экан
Visual Basic
1
2
3
Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
    SignatureCapture.Panel_Touch(SD, X, Y, Action)
End Sub
Заметьте, как вызывается функция из модуля – вначале пишем имя модуля и через точку имя вызываемой функции или процедуры.
Загрузка изображения из памяти устройства. Используем файловый диалог
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ReadPaintExample
    Dim Bild As Bitmap 
    Dim DisRect As Rect
    
    ret = fdp.Show("Загрузить png", "", "Нет", "Да", Null)  
    If ret = -2 Then
     Bild.Initialize(File.DirRootExternal,fdp.ChosenName )
     DisRect.Initialize(0,0,Bild.Width,Bild.Height)
     SD.Canvas.DrawBitmap( Bild, Null, DisRect)
     Activity.Invalidate ' обновляем изображение на экране
        Else
    'ToastMessageShow("Загрузка отменена!", True)   ' на некоторых устройствах с сообщением бывают проблеммы!
    End If
    
    
End Sub
При нажатии на пункт меню “Загрузить файл” вызываем эту процедуру:
Visual Basic
1
2
3
Sub mnuOpen_Click
   ReadPaintExample
End Sub
Сохраняем созданный файл, используем тот же диалог выбора файла:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub mnuSave_Click
    ret = fdp.Show("Сохранить как", "", "Нет", "Да", Null)  
    If ret = -2 Then
    SignatureCapture.Save(SD, File.DirRootExternal, fdp.ChosenName) 
    ToastMessageShow("Сохранено в : " & File.Combine(File.DirRootExternal, fdp.ChosenName), True)
        Else
    ToastMessageShow("Сохранение отменено!", True' на некоторых устройствах с сообщением бывают проблеммы!
 
    End If
 
End Sub
Очистка изображения и смена цвета линии. Эти процедуры описаны в модуле, из меню мы их только вызываем:
Visual Basic
1
2
3
4
5
6
7
Sub mnuNew_Click
  SignatureCapture.Clear(SD)
End Sub
 
Sub mnuColor_Click
  SignatureCapture.SetColor
End Sub
Для смены цвета линии для рисования мы применяем ColorPickerDialog ( см. код модуля)
Basic для платформы Android - Basic4Android

Готовый вид приложения
Basic для платформы Android - Basic4Android

Как можно развивать приложение?
Рисовалка у нас есть, а вот стиралки нет. Стирать можно так же как и рисовать, выбирая цвет фона. Чтобы не менять каждый раз Цвет кисти-> Цвет фона лучше вывести эту функцию отдельно.
Раз уже заговорили о цвете фона, то его тоже можно менять-выбирать в начале рисования.

Рисование примитивов – овал, квадрат, линия. К примеру, круг:
Visual Basic
1
SD.Canvas.DrawCircle(150dip,150dip,20dip,Colors.Red,False,10dip)
Смотрите свойства SD.Canvas. – после точки выплывает подсказка со всеми возможностями.
Меню может существенно увеличится, и потому управление процессом лучше организовать кнопками, которые расположить по нижнему краю панели.
Т.о. можно создать приложение отличной функциональности за короткий срок и очень компактное по размеру. Готовый apk всего около 135 КБ.
В приложении все материалы + готовый отдельный apk
2
Вложения
Тип файла: zip PaintDroid.zip (421.7 Кб, 76 просмотров)
Тип файла: zip PaintDroidAPK.zip (131.4 Кб, 56 просмотров)
Flamberg
33 / 33 / 3
Регистрация: 14.11.2012
Сообщений: 152
30.04.2014, 17:53 #36
А как сделать что бы экран не затемнялся пока работает приложение?
0
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
30.04.2014, 18:53  [ТС] #37
Цитата Сообщение от Flamberg Посмотреть сообщение
А как сделать что бы экран не затемнялся пока работает приложение?
Из библиотеки Phone объект PhoneWakeState предотвращает переход устройства в спящий режим.
Пользователь сможет выключить экран нажатием на кнопку питания.
Visual Basic
1
2
Dim PhoneAwake As PhoneWakeState
PhoneAwake.KeepAlive(True)
При использовании блокировок сна важно понимать, что необходимо правильно снимать эти блокировки, когда они не нужны. Иначе аккумулятор устройства быстро сядет: ведь устройство не сможет вернуться в состояние пониженного расхода электроэнергии.
2
Антихакер32
Заблокирован
30.04.2014, 19:14 #38
Как сложно !...
найти единомышленника,
и как просто ! его потерять, ..яушол
0
Igor-13
0 / 0 / 0
Регистрация: 06.05.2014
Сообщений: 8
09.05.2014, 17:09 #39
А существует литература по basic4android на русском?
0
Flamberg
33 / 33 / 3
Регистрация: 14.11.2012
Сообщений: 152
09.05.2014, 19:30 #40
на русском не знаю, но вот на http://www.basic4ppc.com/ и без перевода все ясно.
0
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
09.05.2014, 21:35  [ТС] #41
Цитата Сообщение от Igor-13 Посмотреть сообщение
литература по basic4android на русском?
есть перевод 20 глав руководства.
1
Flamberg
33 / 33 / 3
Регистрация: 14.11.2012
Сообщений: 152
10.05.2014, 11:01 #42
а как сделать что-бы при установке на рабочий стол ярлык добавлялся?

Еще вопрос:
проблема с лебелами. Почему-то любой лебел, фон которого изменен программно теряет половину фона, после любого события (смена его текста, прокрутка скрола, и любая другая манипуляция). На картинке красным выделен лебел изначально черный, цвет програмно изменен на серо-голубой, после смены текста лебела, нижняя его половина стала черной. Причем повторное окрашивание в серо-голубой не помогает, нижняя часть все равно черная.
Basic для платформы Android - Basic4Android

Окраска происходит так:
PureBasic
1
2
3
Dim DrA, DrX As ColorDrawable
DrA.Initialize(Colors.RGB(40,80,80),0)
LabelA1.Background = DrA
В чем причина?
0
Pro_grammer
Модератор
5934 / 2095 / 401
Регистрация: 24.04.2011
Сообщений: 3,569
Записей в блоге: 10
10.05.2014, 15:02  [ТС] #43
Цитата Сообщение от Flamberg Посмотреть сообщение
а как сделать что-бы при установке на рабочий стол ярлык добавлялся?
Как я понял, надо искать по ключевому слову INSTALL_SHORTCUT
Что удалось найти:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.SetComponent(Common.ShortcutPackage & "/.shortcutexec")
shortcutIntent.PutExtra("from_shortcut", True)
shortcutIntent.PutExtra("sc_type", SCType)
shortcutIntent.PutExtra("sc_value", SCValue)
shortcutIntent.PutExtra("sc_destination", SCDestination)
shortcutIntent.PutExtra("sc_toast", SCToast)
shortcutIntent.PutExtra("sc_notification", SCNotification)
shortcutIntent.PutExtra("sc_extra1", "")
shortcutIntent.PutExtra("sc_extra2", "")
Dim in As Intent
in.Initialize("", "")
in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
in.PutExtra("android.intent.extra.shortcut.NAME", txtName.Text)
in.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, imageFN))
Не пробовал, испытай, потом расскжи кк работает.

Добавлено через 14 минут
Цитата Сообщение от Flamberg Посмотреть сообщение
Окраска происходит так:
Я это делаю проще, без всяких прелюдий сразу
Visual Basic
1
Label1.Color = Colors.RGB(255,80,80)
И всё работает замечательно.
1
Flamberg
33 / 33 / 3
Регистрация: 14.11.2012
Сообщений: 152
10.05.2014, 15:25 #44
По поводу ярлыка: ваш код попробовал, ничего не произошло. Я так понял что нужно еще какие-то изменения в Manifest. Не думал, что это так сложно, попозже попробую разобраться.
0
Igor-13
0 / 0 / 0
Регистрация: 06.05.2014
Сообщений: 8
10.05.2014, 16:26 #45
Цитата Сообщение от Pro_grammer Посмотреть сообщение
есть перевод 20 глав руководства
А это можно где-то посмотреть?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2014, 16:26
Привет! Вот еще темы с ответами:

Посоветуйте книги, самоучители, видео для обучения программирование под мобильные платформы - Программирование Android
Имею навык и опыт программирования по паскалю и делфи, закончил 1 курс института и понял, что ко всему придется идти самому....

Какие горячие клавиши используются для Find Usages в Android Studio для мака - Программирование Android
Как настроить на маке Find usages в scope Projects and libraries в Android studio? В винде я делаю Ctrl Alt Shift F7 а как в маке?

Выбор книги или статей для создания приложений под Android (клиент для сервера) - Программирование Android
С какой книги посоветуете начать изучение (желательно сразу на 4 версии). Важно что бы была глава про то как парсить json с сервера...

Qt для Android - Программирование Android
подскажите можно ли на Qt писать для андройда?если нет,то почему?? ведь это кросплотформенная либа


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
10.05.2014, 16:26
Закрытая тема Создать тему
Опции темы

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