Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
Dim counter1 As Int
counter1 = counter1 + 1
Dim camera1 As AdvancedCamera
Dim panel1 As Panel
Dim timer1 As Timer
Dim timer2 As Timer
Dim Button2 As Button
Dim btnAqua As Button
Dim btnBlackboard As Button
Dim btnMono As Button
Dim btnNegative As Button
Dim btnNegativo As Button
Dim btnPosterize As Button
Dim btnsepia As Button
Dim btnSolarize As Button
Dim BTNTAKE As Button
Dim btnWitheboard As Button
Dim btntakepicture As Button
Dim p As Phone
Dim now As Long
now = DateTime.now
Dim img1 As ImageView
Dim v_data As Long
v_data = DateTime.now
End Sub
Sub Activity_Create(FirstTime As Boolean)
'
' Just add a Panel to the layout and save it as Menu
'
Activity.LoadLayout("camera")
camera1.Initialize(panel1, "camera1")
p.SetScreenOrientation (0)
End Sub
'
' A C T I V I T Y - R E S U ME
'
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
camera1.StopPreview
camera1.Release
End Sub
Sub timer1_Tick
End Sub
Sub timer2_Tick
End Sub
Sub Camera1_Ready (Success As Boolean)
If Success Then
camera1.StartPreview
Else
ToastMessageShow("Cannot open camera.", True)
End If
End Sub
Sub btnAqua_Click
camera1.ColourEffect = "AQUA"
End Sub
Sub btnBlackboard_Click
camera1.ColourEffect = "BLACKBOARD"
End Sub
Sub btnMono_Click
camera1.ColourEffect ="MONO"
End Sub
Sub btnNegative_Click
camera1.ColourEffect = "NEGATIVE"
End Sub
Sub btnNegativo_Click
camera1.ColourEffect = "NONE"
End Sub
Sub btnPosterize_Click
camera1.ColourEffect = "POSTERIZE"
End Sub
Sub btnsepia_Click
camera1.ColourEffect = "SEPIA"
End Sub
Sub btnSolarize_Click
camera1.ColourEffect = "SOLARIZE"
End Sub
Sub btnWitheboard_Click
camera1.ColourEffect = "WHITEBOARD"
End Sub
Sub Camera1_PictureTaken (Data() As Byte)
camera1.StartPreview
Dim out As OutputStream
DateTime.DateFormat="dd.MM.yyyy"
DateTime.TimeFormat="HH.mm.ss"
out = File.OpenOutput(File.DirRootExternal, "Camera_" & DateTime.Date(v_data) & "_" & DateTime.Time(v_data) & counter1 & "_" & ".jpg" , False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
ToastMessageShow("IMMAGINE SALVATA: " & File.Combine(File.DirRootExternal, "Camera_" & DateTime.Date(v_data) & "_" & DateTime.Time(v_data) & counter1 & "_" & ".jpg"), True)
btntakepicture.Enabled = True
counter1 = counter1 + 1
End Sub
Sub btnTakePicture_Click
btntakepicture.Enabled = False
camera1.TakePicture
End Sub