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

Global > Dim CalcTime as Long
 
sub btn_click
        Timer1.Initialize("Timer1",1000)
        Timer1.Enabled = True
    CalcTime = 0
end sub
 
Sub Timer1_Tick
    CalcTime = CalcTime + 60000
    timelbl1.Text = DateTime.Time(CalcTime)
End Sub

Sub btn2_Click
    StopTime = DateTime.now + 3600000 'Добавим часик!
    Timer1.Initialize("Timer1",1000)
    Timer1.Enabled = True
End Sub
 
Sub Timer1_Tick
    Label1.Text = DateTime.Time(StopTime-DateTime.now)
End Sub

Msgbox("DateTime 0 =" & DateTime.Time(0),"Test")

Dim timezone As Long 
timezone = -DateTime.DateParse("01/01/1970")

Sub Process_Globals
        Dim Timer1 As Timer 
End Sub
 
Sub Globals
    
Dim CalcTime As Long = 0
Private timelabel1 As Label
Private Button1 As Button
Dim timezone As Long 
timezone = -DateTime.DateParse("01/01/1970")
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("Layout1")
 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub
 
Sub Timer1_Tick
    CalcTime = CalcTime + 60000
    timelabel1.Text = DateTime.Time( CalcTime - timezone)
End Sub
Sub Button1_Click
        Timer1.Initialize("Timer1",1000)
        Timer1.Enabled = True
    CalcTime = 0
End Sub

timezone = -DateTime.DateParse("01/01/1970")
Msgbox(DateTime.Time(0-timezone),"zero") 'Всё логично, получаем 00:00:00
Msgbox(DateTime.Time(0-timezone+3600000),"1h") 'Тут вместо 01:00:00, получаем 2:00:00

DateTime.TimeZoneOffset

DateTime.DateParse("01/01/1970")

timezone = DateTime.TimeZoneOffset * 3600000

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

#ApplicationLabel: B4A Example -> Меняем на PaintDroid
    #VersionCode: 1 -> это пока лучше не менять
    #VersionName: -> тут можно поставить версию 0.01

'Activity.LoadLayout("Layout1")

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

'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

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

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

If File.ExternalWritable = False

Panel1.SetLayout(0%x, 0%y, 100%x, 100%y)

 SD.SignatureColor = Colors.Black ' Начальный цвет черный
    SD.SignatureWidth = 3dip 'Толщина линии

Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
    SignatureCapture.Panel_Touch(SD, X, Y, Action)
End Sub

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

Sub mnuOpen_Click
   ReadPaintExample
End Sub

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

Sub mnuNew_Click
  SignatureCapture.Clear(SD)
End Sub
 
Sub mnuColor_Click
  SignatureCapture.SetColor
End Sub

SD.Canvas.DrawCircle(150dip,150dip,20dip,Colors.Red,False,10dip)

Dim PhoneAwake As PhoneWakeState
PhoneAwake.KeepAlive(True)