Hey everyone,
First of all, I'm sorry I didn't reply. I was on vacation and didn't check B4A a lot.
So it's time for a new update!
The following things are added to
version 3.4!
Silentsea: - Added FlashTorch, FlashOn. (See which one works for your device. it should be FlashOn)
alfcen: - Added FocalLength, HorizontalViewAngle, VerticalViewAngle
Neotechni: - Now you can show an inputlist with all supported modes that the device can handle:
The problem was related that I had to use .Equal instead of "==" in Java
Code:
Sub mnuList_Click
'Declare the variables.
Dim strColourEffect As String
Dim strSelectedItem As String
Dim arrayColourEffects() As String
Dim List1 As List
strColourEffect = camera1.SupportedColourEffect 'Gets all the supported effects from the device
strColourEffect = strColourEffect.SubString2(1,strColourEffect.Length-1) ' Removes the '[' and ']' at the beginning and the end of the string
arrayColourEffects = Regex.Split(", ",strColourEffect) ' Splits all the items with ', ' (space included) and puts it in an arrayDim List1 As List
List1.Initialize
For i = 0 To arrayColourEffects.Length-1 ' adds the items to the list. (.Length shows how many items there are)
List1.Add(arrayColourEffects(i)) 'Add the items
Next
Dim reslist As Int
reslist = InputList(List1, "Select Colour Effect.", -1) 'show list with the items.
For i = 0 To arrayColourEffects.Length-1 ' works with the items
If reslist = i Then
strSelectedItem = list1.Get(i)
If strSelectedItem.ToUpperCase = "SEPIA" Then
Msgbox(strSelectedItem,strSelectedItem.Length) 'Displays the item.
End If
camera1.ColourEffect = strSelectedItem.ToUpperCase 'Sets the value. Uppercase it to work with the Advanced Camera Library.
End If
Next
End Sub
Other things:
- ExposureCompensation
- ISO Value
- SupportedPreviewFpsRange
- PreviewFpsRange (int min, int max)
- AppTrial (has nothing to do with the Camera, but I didn't want to make a new lib for it
used for my upcoming tutorial)
- PictureOnCurrentFrame(int Width, int Height, int Quality) (worked long on this)
Now you are able to take a picture on the current frame without Camera_TakePicture
Call PictureOnCurrentFrame and Eventname__PreviewTaken() will be called.
Sub Camera1_PreviewTaken (PictureFrame() As Byte)
- decodeYUV420SP(int[] rgb, byte[] yuv420sp, int width, int height)
converts raw data to jpg
- and a lot more! (i think :s)
Two things that are added but doesn't work yet
- detectFaces
- Video Recorder
If you have more questions, feel free to ask or you want some more things added.
XverhelstX
