Share My Creation Less Note 1.0.1 - with iAd - Approved!

Mark Turney

Active Member
Licensed User
Less is more with many things in life. I believe this is supremely true when it comes to apps meant to make our daily lives easier.

I couldn't find a note pad app with just enough features to do what I wanted without any extraneous features that make the utility cumbersome.

So, I decided to create one and share it for FREE with the iOS community.

Features include:
- Black (default), red, green, blue, and eraser pens
- Smooth, flowing writing and drawing
- Ability to turn the graph paper on / off
- Ability to turn the buttons on / off
- Lighted buttons so that you know which color pen is active, including the eraser
- Ability to save the drawing to the photo gallery

upload_2015-2-13_10-33-38.png
upload_2015-2-13_10-35-6.png
upload_2015-2-13_10-35-34.png
upload_2015-2-13_10-35-56.png
upload_2015-2-13_10-36-21.png
upload_2015-2-13_10-36-40.png


Works landscape or portrait. Will be FREE on the App Store as soon as approved!

Enjoy!
 

Attachments

Mark Turney

Active Member
Licensed User
Version 1.0.1 approved in 1 day. Added iAd support, and a link to "More Notes" on the Help page. It took an extra day for ads to start showing up ... here's what they look like:

upload_2015-4-11_8-46-8.png


upload_2015-4-11_8-46-21.png

Thanks for looking!
 
Last edited:

Mark Turney

Active Member
Licensed User
This is all the iAd code used in Less Note.

Sub Process_Globals
B4X:
Private myAd As AdBannerView
Private Sub Application_Start (Nav As NavigationController)
B4X:
myAd.Initialize("iad", myAd.SIZE_BANNER)
Page1.RootPanel.AddView(myAd, 0, 100%y - 50dip, 100%x - (InstrBut.Width * 2.5), 50dip)
B4X:
Private Sub Page1_Resize(Width As Int, Height As Int)
    Dim adHeight As Int
   If App.iPadDevice Then
     adHeight = 66dip
   Else
     If Width > Height Then 'landscape
       adHeight = 32dip
     Else
       adHeight = 50dip
     End If
   End If
   myAd.SetLayoutAnimated(0, 1, 0, 100%y - adHeight, 100%x - (InstrBut.Width * 2.5), adHeight)
End Sub

Sub myAd_ActionBegin
   Log("action begin")
End Sub

Sub myAd_ActionFinish
   Log("action finish")
End Sub

Sub myAd_FailedToReceiveAd (ErrorCode As String)
   Log("Error: " & ErrorCode)
End Sub

Sub myAd_ReceiveAd
   Log("Received ad")
End Sub
Hope this helps.
 
Top