AdMob error

[Deleted member 103]

Hello,
Why do I get this error message?

Compiling code. Error
Error parsing program.
Error description: Unknown type: admob
Are you missing a library reference?
Occurred on line: 20
Dim AdMob1 As AdMob

The Library AdMob is selected.

 

[XverhelstX]

According to the admob tutorial, I guess you have to add and check the googleadmobsdk (or smth) in your library tab.

XverhelstX

Sent from my SE Xperia Play using Tapatalk.

 

[Deleted member 103]

the library "googleadmobsdk" is selected and checked, but does not yet.

 

[Erel]

You should add an AdView object. Not AdMob.
See the updated tutorial: http://www.b4x.com/forum/basic4andr...orial-add-ads-your-application.html#post41709
AdMob SDK has changed recently.

 

[Deleted member 103]

Thank Erel,
now works. I was just confused with the German and English tutorial.

 

[klaus]

Hallo Filippo,
Was hat Dich zwischen dem deutschen und englischen Tutorial verwirrt.
Könnte man des verbessern ?

Beste Grüsse.

 

[Deleted member 103]

Hallo Klaus,

Könnte man des verbessern ?

Nein, es sollte nur syncronisiert werden.

Totorial von Erel:

Sub Process_Globals

End Sub

Sub Globals
Dim AdView1 As AdView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
AdView1.Initialize("Ad", "YourPublisherId") 'publisher id that you received from AdMob.
Activity.AddView(AdView1, 0dip, 0dip, 320dip, 50dip) 'previously the height was 48dip. Now it is 50dip.
AdView1.LoadAd 'loads an ad
End Sub

'debugging only:
Sub Ad_FailedToReceiveAd (ErrorCode As String)
Log("failed: " & ErrorCode)
End Sub
Sub Ad_ReceiveAd
Log("received")
End Sub

Totorial von Klaus:

Sub Process_Globals
Dim AdMob As AdMob
End Sub

Sub Globals
Dim AdView1 As AdView
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
AdMob.PublisherId = "99999992e5ae01c"
' AdMob.SetTestDevices(Array As String(AdMob.EMULATOR, _
' "99999C5BEA60675272C2A09D8E9799"))
End If
Activity.LoadLayout("1")
AdView1.Initialize("AdView1")
AdView1.RequestInterval = 20 'ad will refresh every 20 seconds.
Activity.AddView(AdView1, 0dip, 0dip, 320dip, 48dip)
End Sub

'debugging only:
Sub AdView1_FailedToReceiveAd
ToastMessageShow("FailedToReceiveAd", False)
End Sub
Sub AdView1_FailedToReceiveRefreshedAd
ToastMessageShow("FailedToReceiveRefreshAd", False)
End Sub
Sub AdView1_ReceiveAd
ToastMessageShow("ReceiveAd", False)
End Sub
Sub AdView1_ReceiveRefreshedAd
ToastMessageShow("ReceiveRefreshedAd", False)
End Sub

 

[klaus]

Hallo Filippo,
Das deutsche Tutorial ist auf den jetzigen Stand der englischen Version ergänzt worden.

Beste Grüsse.