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

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

  • upload_2015-2-13_10-34-31.png
    upload_2015-2-13_10-34-31.png
    375 KB · Views: 167

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
Thanks so much. I use the More Notes one all the time. No ads. Let me know if you want a promo code for it. FREE is good. Hehe
 

Mark Turney

Active Member
Licensed User
Sure, later when I'm back in my computer, I'll be happy to post the code!
 

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