Basic4Android. Готовые решения полезные коды

Sub Process_Globals
Private Client As FTP
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    Client.Initialize("ClientFTP", "сервер", 21, "логин", "пароль")
    ' Загрузить файл на сервер
    ' Обрабатываемые события: _UploadProgress, _UploadCompleted
    Client.UploadFile(File.DirAssets, "test.txt", True, "/test.txt")
    ' Скачать файл с сервера
    ' Обрабатываемые события: _DownloadProgress, _DownloadCompleted
    Client.DownloadFile("/test.txt", True, File.DirRootExternal, "test.txt")
    ' Удалить файл
    Client.DeleteFile("test.txt")
    
End Sub

#Region  Project Attributes 
    #ApplicationLabel: Ballast Timer
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: False
#End Region
 
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Timer2 As Timer
End Sub
 
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim ProgressBar1 As ProgressBar
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("mainactivity")
    Timer2.Initialize("Timer2", 50)
    Timer2.Enabled = True
    StartService(BackService)
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub
 
 
Sub Button1_Click
    BackService.Timer1.Enabled = True
End Sub
 
Sub Timer2_Tick()
    ProgressBar1.Progress = BackService.pbValue
End Sub

#Region  Service Attributes 
    #StartAtBoot: False
    
#End Region
 
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim GLO_NotificationSvc As Notification
    Dim Timer1 As Timer
    Dim s As SoundPool
    Dim sndFinishID As Int
    Dim pbValue As Int
End Sub
 
Sub Service_Create
    Timer1.Initialize("Timer1", 50)
    s.Initialize(1)
    sndFinishID = s.Load(File.DirAssets,"sound.wav")
    
    GLO_NotificationSvc.Initialize
    GLO_NotificationSvc.Icon = "icon"
    GLO_NotificationSvc.Sound = False
    GLO_NotificationSvc.SetInfo("Title","The time is over",Main)
    
    'Service.StartForeground(123456789,GLO_NotificationSvc)
    Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_ALWAYS
    
End Sub
 
Sub Service_Start()
    Timer1.Enabled = True
End Sub
 
Sub Timer1_Tick
        'Handle tick events
    If pbValue = 100 Then
        'Timer1.Enabled = False
        GLO_NotificationSvc.Notify(123456789)
        pbValue = 0
        PlaySound
    Else
        pbValue = pbValue + 1
    End If
End Sub
 
Sub PlaySound()
    If s.play(sndFinishID,1,1,1,0,1) = 0 Then MsgboxAsync("Ошибка при проигрывании файла","Ошибка")
End Sub