Android Tutorial Android In-App Billing v3 Tutorial

Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
Log(Success)
If Success Then
Log(purchases)
For Each p As Purchase In purchases.Values
Log(p.ProductId & ", Purchased? " & (p.PurchaseState = p.STATE_PURCHASED))
Next

label1.Visible = True
button2.Visible = True
'do my paid program
End If
End Sub

Sub Process_Globals
    Dim manager As BillingManager3
       Private key As String = "MIIBIjANBgkq....."
End Sub

Sub Globals
    Dim button1, button2 As Button
    Dim label1 As Label
    Dim ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
      manager.Initialize("manager", key)
      manager.DebugLogging = True
    End If
     
    Activity.LoadLayout("Main")    
    label1.Visible = False
    button2.Visible = False
   
End Sub

Sub Manager_BillingSupported (Supported As Boolean, Message As String)
    Log(Supported & ", " & Message)
       Log("Subscriptions supported: " & manager.SubscriptionsSupported)
       If Supported Then
       manager.GetOwnedProducts  
       End If
End Sub

Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
       Log(Success & "$$$$")
       If Success Then
      Log(purchases)
      label1.Visible = True ' only if inapp purchase done!
      button2.Visible = True ' only if inapp purchase done!
      For Each p As Purchase In purchases.Values
         Log(p.ProductId & ", Purchased? " & (p.PurchaseState = p.STATE_PURCHASED))
      Next
       End If
  
End Sub

Sub button1_click
    manager.RequestPayment("testbill", "inapp", "buyapp")
   
End Sub

Sub button2_click
    ImageView1.Visible = True
End Sub

Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
       Log(Success & "$$$$")
       If Success Then
        If purchases.ContainsKey("YOUR_PRODUCT_ID") Then
           label1.Visible = true
            Button2.Visible = true
      End If
    End If
End Sub

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
Dim manager As BillingManager3
   Private key As String = "MIIBIjANBgkqhkiG9w0.."
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 AdView1 As AdView
Dim paneladmob As Panel
Dim prodottoacquistato As Boolean
    Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")  
  
    If FirstTime = True Then
        manager.Initialize("manager", key)
        manager.DebugLogging = True
    Else
        manager.GetOwnedProducts
    End If
    'manager.DebugLogging = True

Activity.LoadLayout("main")

manager.GetOwnedProducts

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Manager_BillingSupported (Supported As Boolean, Message As String)
   Log(Supported & ", " & Message)
   Log("Subscriptions supported: " & manager.SubscriptionsSupported)
End Sub

Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
   Dim result As Int
 
  
    If Success Then
        Log(purchases)
prodottoacquistato=False
For Each pu As Purchase In purchases.Values
         
If pu.ProductId = "removeads" AND pu.PurchaseState = pu.STATE_PURCHASED Then
prodottoacquistato=True
  paneladmob.Visible=False
  AdView1.Initialize("Ad", "ca-app-pub-492941727xxx/647398xx")'
  paneladmob.AddView(AdView1, 0dip, 0, Activity.width, 50dip) '<b>previously the height was 48dip. Now it is 50dip.
  AdView1.LoadAd
Else

  paneladmob.Visible=False
  End If
Next
End If
If prodottoacquistato=False Then Button1.visible=True
'il tasto acuista prodotto compare solo se il prodotto no risulta acquistato

End Sub

Public Sub manager_PurchaseCompleted (Success As Boolean, Product As Purchase)
   If Success=True Then paneladmob.Visible=False
   'il prodotto + stato acquistato e rendo invisibile il panel che contiene il banner
End Sub

Sub manager_ProductConsumed (Success As Boolean, Product As Purchase)

End Sub
Sub Button1_Click
    manager.RequestPayment("removeads","inapp","DeveloperPayload")
End Sub

** Activity (main) Create, isFirst = true **


java.lang.NullPointerException


    at anywheresoftware.b4a.objects.IbHelper.startSetup(IbHelper.java:269)
    at anywheresoftware.b4a.inappbilling3.BillingManager3.Initialize(BillingManager3.java:44)
    at com.holdemadvantage.billingtest.main._activity_create(main.java:329)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:507)
    at anywheresoftware.b4a.BA.raiseEvent2(BA.java:175)
    at com.holdemadvantage.billingtest.main.afterFirstLayout(main.java:98)
    at com.holdemadvantage.billingtest.main.access$100(main.java:16)
    at com.holdemadvantage.billingtest.main$WaitForLayout.run(main.java:76)
    at android.os.Handler.handleCallback(Handler.java:587)
    at android.os.Handler.dispatchMessage(Handler.java:92)
    at android.os.Looper.loop(Looper.java:130)
    at android.app.ActivityThread.main(ActivityThread.java:3683)
    at java.lang.reflect.Method.invokeNative(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:507)
    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:839)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:597)
    at dalvik.system.NativeStart.main(Native Method)
java.lang.NullPointerException