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

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

Enjoy!

 

[Mark Turney]

Approved ... 9 days wait this time.

 

[Mark Turney]

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:

Thanks for looking!

 

[rapblack]

So Simply and I like it.

 

[Mark Turney]

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

 

[tufanv]

Great !

 

[abhishek007p]

@Mark Turney

there seems to be some issues with iAd, can you share your codes for showing iAds? and your config (osx, xcode)

Thanks.

 

[Mark Turney]

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

 

[Mark Turney]

This is all the iAd code used in Less Note.

Sub Process_Globals

Private myAd As AdBannerView

Private Sub Application_Start (Nav As NavigationController)

myAd.Initialize("iad", myAd.SIZE_BANNER)
Page1.RootPanel.AddView(myAd, 0, 100%y - 50dip, 100%x - (InstrBut.Width * 2.5), 50dip)

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.

 

[abhishek007p]

Thanks