Flashlight Application in Android

Submitted by donbermoy on Friday, May 30, 2014 - 19:17.

Operating System

Hi there! I have created an app again named Flashlight Application. This application is programmed in Basic4Android that has the capabilities to trigger to on your flashlight in your phone. This is compatible with Android 2.2 version and above. Install FlashLight.apk that i have attached with the source code to run the app. Best Regards, Engr. Lyndon Bermoy IT Instructor/System Developer/Android Developer/Freelance Programmer If you have some queries, feel free to contact the number or e-mail below. Mobile: 09488225971 Landline: 826-9296 E-mail:[email protected] Add and Follow me on Facebook: https://www.facebook.com/donzzsky Visit and like my page on Facebook at: https://www.facebook.com/BermzISware

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Empty Source COde

the archieve is blank no source code..... pls email me [email protected]

check ur mailpls check ur

check ur mailpls check ur mail i sent something

Hi Got This error please help me....i am new in B4A programming.

#Region Module Attributes #FullScreen: False #IncludeTitle: True #ApplicationLabel: Flashlight #VersionCode: 1 #VersionName: 1.0 #SupportedOrientations: unspecified #CanInstallToExternalStorage: True #End Region Sub Process_Globals Dim cam As AdvancedCamera 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 cam As AdvancedCamera End Sub Sub Activity_Create(FirstTime As Boolean) cam.Initialize(Activity, "cam") End Sub Sub cam_Ready (Success As Boolean) Dim FlashMode As String : FlashMode = cam.getCurrentFlashMode If FlashMode.ToUpperCase = "OFF" Then cam.FlashOn Activity.Finish Else cam.FlashOff ExitApplication End If End Sub