#Region Project Attributes
#ApplicationLabel: Bolsa Família 2019
#VersionCode: 4
#VersionName: V1.1
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: false
#End Region
#BridgeLogger: true
Sub Process_Globals
End Sub
Sub Globals
Dim Cont=2 As Int
Private sp1 As Spinner
Private sp2 As Spinner
Dim result As String
Dim result1 As String
Dim btnconsultar As Button
Dim P As String
Dim R As String
Private lblresult As Label
Private sm As SlidingMenu
Private BannerAd As AdView
Private IAd As InterstitialAd
Private Panel1 As Panel
End Sub
'ID do aplicativo: ca-app-pub-9911966482560411~1283528793
'banner
'ca-app-pub-9911966482560411~1283528793
'ca-app-pub-9911966482560411/8367811895
'interticial
'ca-app-pub-9911966482560411~1283528793
'ca-app-pub-9911966482560411/6152712099
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'início prop
BannerAd.Initialize2("BannerAd", "ca-app-pub-9911966482560411/8367811895", BannerAd.SIZE_SMART_BANNER) 'Banner
Dim height As Int
If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
'phones
If 100%x > 100%y Then height = 32dip Else height = 70dip
Else
'tablets
height = 90dip
End If
Activity.AddView(BannerAd, 0dip, 100%y - height, 100%x, height)
BannerAd.LoadAd
IAd.Initialize("iad", "ca-app-pub-9911966482560411/1585164129") ' declara pra quando ir pra activity principal ele puxar o anuncio 'Intersticial
IAd.LoadAd
'If IAd.Ready Then IAd.Show
'fim prop
Activity.LoadLayout("bf")
btnconsultar.Visible=False
Sleep(7000)
If IAd.Ready Then IAd.Show
Sleep(0)
Panel1.Visible=False
btnconsultar.Visible=True
'CARREGA MENU LATERAL E O LAYOUT DELE
sm.Initialize("sm")
Dim offset As Int = 20%x
sm.BehindOffset = offset
sm.Mode = sm.LEFT
sm.Menu.LoadLayout("menu")
'FACILITA O MOVIMENTO PARA ABRIR O MENU ARRASTANDO NA TELA INVEZ DE APERTAR O BOTÃO MENU
Dim jo As JavaObject = sm
jo.RunMethod("setTouchmodeMarginThreshold", Array(50%x))
'PEGAMOS O EVENTO DE ABRIR (SABER QUANDO O MENU ESTIVER ABERTO)
Dim jo2 As JavaObject = sm
Dim event As Object = jo2.CreateEventFromUI("com.jeremyfeinstein.slidingmenu.lib.SlidingMenu$OnOpenListener", "Open", Null)
jo2.RunMethod("setOnOpenListener", Array(event))
'PEGAMOS O EVENTO DE FECHAR (SABER QUANDO O MENU ESTIVER ABERTO)
Dim jo3 As JavaObject = sm
Dim event As Object = jo3.CreateEventFromUI("com.jeremyfeinstein.slidingmenu.lib.SlidingMenu$OnCloseListener", "Close", Null)
jo3.RunMethod("setOnCloseListener", Array(event))
'TRATAMENTO SPINNER
sp1.AddAll(Array As String("Selecione","0","1","2","3","4","5","6","7","8","9"))
Dim cdH As ColorDrawable
cdH.Initialize(Colors.White , 10)
sp1.Width=290dip
sp1.Background=cdH
sp1.TextSize=16
sp1.TextColor=Colors.black
sp1.DropdownBackgroundColor=Colors.White
sp1.SelectedIndex=sp1.IndexOf("Selecione")
'FIM TRATAMENTO SPINNER
sp2.AddAll(Array As String("Selecione","JANEIRO 2019","FEVEREIRO 2019","MARÇO 2019","ABRIL 2019","MAIO 2019","JUNHO 2019","JULHO 2019","AGOSTO 2019","SETEMBRO 2019","OUTUBRO 2019","NOVEMBRO 2019","DEZEMBRO 2019"))
Dim cdH As ColorDrawable
cdH.Initialize(Colors.White , 10)
sp2.Width=290dip
sp2.Background=cdH
sp2.TextSize=16
sp2.TextColor=Colors.black
sp2.DropdownBackgroundColor=Colors.White
sp2.SelectedIndex=sp1.IndexOf("Selecione")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub sp1_ItemClick (Position As Int, Value As Object)
result=Value
Select result
Case ("Selecione")
Case ("0")
Case ("1")
Case ("2")
Case ("3")
Case ("4")
Case ("5")
Case ("6")
Case ("7")
Case ("8")
Case ("9")
End Select
End Sub
Sub sp2_ItemClick (Position As Int, Value As Object)
result1=Value
Select result1
Case ("Selecione")
Case ("JANEIRO 2019")
Case ("FEVEREIRO 2019")
Case ("MARÇO 2019")
Case ("ABRIL 2019")
Case ("MAIO 2019")
Case ("JUNHO 2019")
Case ("JULHO 2019")
Case ("AGOSTO 2019")
Case ("SETEMBRO 2019")
Case ("OUTUBRO 2019")
Case ("NOVEMBRO 2019")
Case ("DEZEMBRO 2019")
End Select
End Sub
Sub btnconsultar_Click
If Cont=2 Then
If IAd.Ready Then IAd.Show
Sleep(0)
Cont=0
Else
Cont=Cont+1
End If
If result="" Or result1="" Then
lblresult.Text= "Por Favor, selecione Número de Benefício e Mês de Pagamento."
Else
P=result&result1
If P= "1JANEIRO 2019" Then R="sexta-feira, 18 de janeiro de 2019"
If P= "2JANEIRO 2019" Then R="segunda-feira, 21 de janeiro de 2019"
If P= "3JANEIRO 2019" Then R="terça-feira, 22 de janeiro de 2019"
If P= "4JANEIRO 2019" Then R="quarta-feira, 23 de janeiro de 2019"
If P= "5JANEIRO 2019" Then R="quinta-feira, 24 de janeiro de 2019"
If P= "6JANEIRO 2019" Then R="sexta-feira, 25 de janeiro de 2019"
If P= "7JANEIRO 2019" Then R="segunda-feira, 28 de janeiro de 2019"
If P= "8JANEIRO 2019" Then R="terça-feira, 29 de janeiro de 2019"
If P= "9JANEIRO 2019" Then R="quarta-feira, 30 de janeiro de 2019"
If P= "0JANEIRO 2019" Then R="quinta-feira, 31 de janeiro de 2019"
If P= "1FEVEREIRO 2019" Then R="sexta-feira, 15 de fevereiro de 2019"
If P= "2FEVEREIRO 2019" Then R="segunda-feira, 18 de fevereiro de 2019"
If P= "3FEVEREIRO 2019" Then R="terça-feira, 19 de fevereiro de 2019"
If P= "4FEVEREIRO 2019" Then R="quarta-feira, 20 de fevereiro de 2019"
If P= "5FEVEREIRO 2019" Then R="quinta-feira, 21 de fevereiro de 2019"
If P= "6FEVEREIRO 2019" Then R="sexta-feira, 22 de fevereiro de 2019"
If P= "7FEVEREIRO 2019" Then R="segunda-feira, 25 de fevereiro de 2019"
If P= "8FEVEREIRO 2019" Then R="terça-feira, 26 de fevereiro de 2019"
If P= "9FEVEREIRO 2019" Then R="quarta-feira, 27 de fevereiro de 2019"
If P= "0FEVEREIRO 2019" Then R="quinta-feira, 28 de fevereiro de 2019"
If P= "1MARÇO 2019" Then R="segunda-feira, 18 de março de 2019"
If P= "2MARÇO 2019" Then R="terça-feira, 19 de março de 2019"
If P= "3MARÇO 2019" Then R="quarta-feira, 20 de março de 2019"
If P= "4MARÇO 2019" Then R="quinta-feira, 21 de março de 2019"
If P= "5MARÇO 2019" Then R="sexta-feira, 22 de março de 2019"
If P= "6MARÇO 2019" Then R="segunda-feira, 25 de março de 2019"
If P= "7MARÇO 2019" Then R="terça-feira, 26 de março de 2019"
If P= "8MARÇO 2019" Then R="quarta-feira, 27 de março de 2019"
If P= "9MARÇO 2019" Then R="quinta-feira, 28 de março de 2019"
If P= "0MARÇO 2019" Then R="sexta-feira, 29 de março de 2019"
If P= "1ABRIL 2019" Then R="terça-feira, 16 de abril de 2019"
If P= "2ABRIL 2019" Then R="quarta-feira, 17 de abril de 2019"
If P= "3ABRIL 2019" Then R="quinta-feira, 18 de abril de 2019"
If P= "4ABRIL 2019" Then R="segunda-feira, 22 de abril de 2019"
If P= "5ABRIL 2019" Then R="terça-feira, 23 de abril de 2019"
If P= "6ABRIL 2019" Then R="quarta-feira, 24 de abril de 2019"
If P= "7ABRIL 2019" Then R="quinta-feira, 25 de abril de 2019"
If P= "8ABRIL 2019" Then R="sexta-feira, 26 de abril de 2019"
If P= "9ABRIL 2019" Then R="segunda-feira, 29 de abril de 2019"
If P= "0ABRIL 2019" Then R="terça-feira, 30 de abril de 2019"
If P= "1MAIO 2019" Then R="segunda-feira, 20 de maio de 2019"
If P= "2MAIO 2019" Then R="terça-feira, 21 de maio de 2019"
If P= "3MAIO 2019" Then R="quarta-feira, 22 de maio de 2019"
If P= "4MAIO 2019" Then R="quinta-feira, 23 de maio de 2019"
If P= "5MAIO 2019" Then R="sexta-feira, 24 de maio de 2019"
If P= "6MAIO 2019" Then R="segunda-feira, 27 de maio de 2019"
If P= "7MAIO 2019" Then R="terça-feira, 28 de maio de 2019"
If P= "8MAIO 2019" Then R="quarta-feira, 29 de maio de 2019"
If P= "9MAIO 2019" Then R="quinta-feira, 30 de maio de 2019"
If P= "0MAIO 2019" Then R="sexta-feira, 31 de maio de 2019"
If P= "1JUNHO 2019" Then R="sexta-feira, 14 de junho de 2019"
If P= "2JUNHO 2019" Then R="segunda-feira, 17 de junho de 2019"
If P= "3JUNHO 2019" Then R="terça-feira, 18 de junho de 2019"
If P= "4JUNHO 2019" Then R="quarta-feira, 19 de junho de 2019"
If P= "5JUNHO 2019" Then R="quinta-feira, 20 de junho de 2019"
If P= "6JUNHO 2019" Then R="segunda-feira, 24 de junho de 2019"
If P= "7JUNHO 2019" Then R="terça-feira, 25 de junho de 2019"
If P= "8JUNHO 2019" Then R="quarta-feira, 26 de junho de 2019"
If P= "9JUNHO 2019" Then R="quinta-feira, 27 de junho de 2019"
If P= "0JUNHO 2019" Then R="sexta-feira, 28 de junho de 2019"
If P= "1JULHO 2019" Then R="quinta-feira, 18 de julho de 2019"
If P= "2JULHO 2019" Then R="sexta-feira, 19 de julho de 2019"
If P= "3JULHO 2019" Then R="segunda-feira, 22 de julho de 2019"
If P= "4JULHO 2019" Then R="terça-feira, 23 de julho de 2019"
If P= "5JULHO 2019" Then R="quarta-feira, 24 de julho de 2019"
If P= "6JULHO 2019" Then R="quinta-feira, 25 de julho de 2019"
If P= "7JULHO 2019" Then R="sexta-feira, 26 de julho de 2019"
If P= "8JULHO 2019" Then R="segunda-feira, 29 de julho de 2019"
If P= "9JULHO 2019" Then R="terça-feira, 30 de julho de 2019"
If P= "0JULHO 2019" Then R="quarta-feira, 31 de julho de 2019"
If P= "1AGOSTO 2019" Then R="segunda-feira, 19 de agosto de 2019"
If P= "2AGOSTO 2019" Then R="terça-feira, 20 de agosto de 2019"
If P= "3AGOSTO 2019" Then R="quarta-feira, 21 de agosto de 2019"
If P= "4AGOSTO 2019" Then R="quinta-feira, 22 de agosto de 2019"
If P= "5AGOSTO 2019" Then R="sexta-feira, 23 de agosto de 2019"
If P= "6AGOSTO 2019" Then R="segunda-feira, 26 de agosto de 2019"
If P= "7AGOSTO 2019" Then R="terça-feira, 27 de agosto de 2019"
If P= "8AGOSTO 2019" Then R="quarta-feira, 28 de agosto de 2019"
If P= "9AGOSTO 2019" Then R="quinta-feira, 29 de agosto de 2019"
If P= "0AGOSTO 2019" Then R="sexta-feira, 30 de agosto de 2019"
If P= "1SETEMBRO 2019" Then R="terça-feira, 17 de setembro de 2019"
If P= "2SETEMBRO 2019" Then R="quarta-feira, 18 de setembro de 2019"
If P= "3SETEMBRO 2019" Then R="quinta-feira, 19 de setembro de 2019"
If P= "4SETEMBRO 2019" Then R="sexta-feira, 20 de setembro de 2019"
If P= "5SETEMBRO 2019" Then R="segunda-feira, 23 de setembro de 2019"
If P= "6SETEMBRO 2019" Then R="terça-feira, 24 de setembro de 2019"
If P= "7SETEMBRO 2019" Then R="quarta-feira, 25 de setembro de 2019"
If P= "8SETEMBRO 2019" Then R="quinta-feira, 26 de setembro de 2019"
If P= "9SETEMBRO 2019" Then R="sexta-feira, 27 de setembro de 2019"
If P= "0SETEMBRO 2019" Then R="segunda-feira, 30 de setembro de 2019"
If P= "1OUTUBRO 2019" Then R="sexta-feira, 18 de outubro de 2019"
If P= "2OUTUBRO 2019" Then R="segunda-feira, 21 de outubro de 2019"
If P= "3OUTUBRO 2019" Then R="terça-feira, 22 de outubro de 2019"
If P= "4OUTUBRO 2019" Then R="quarta-feira, 23 de outubro de 2019"
If P= "5OUTUBRO 2019" Then R="quinta-feira, 24 de outubro de 2019"
If P= "6OUTUBRO 2019" Then R="sexta-feira, 25 de outubro de 2019"
If P= "7OUTUBRO 2019" Then R="segunda-feira, 28 de outubro de 2019"
If P= "8OUTUBRO 2019" Then R="terça-feira, 29 de outubro de 2019"
If P= "9OUTUBRO 2019" Then R="quarta-feira, 30 de outubro de 2019"
If P= "0OUTUBRO 2019" Then R="quinta-feira, 31 de outubro de 2019"
If P= "1NOVEMBRO 2019" Then R="segunda-feira, 18 de novembro de 2019"
If P= "2NOVEMBRO 2019" Then R="terça-feira, 19 de novembro de 2019"
If P= "3NOVEMBRO 2019" Then R="quarta-feira, 20 de novembro de 2019"
If P= "4NOVEMBRO 2019" Then R="quinta-feira, 21 de novembro de 2019"
If P= "5NOVEMBRO 2019" Then R="sexta-feira, 22 de novembro de 2019"
If P= "6NOVEMBRO 2019" Then R="segunda-feira, 25 de novembro de 2019"
If P= "7NOVEMBRO 2019" Then R="terça-feira, 26 de novembro de 2019"
If P= "8NOVEMBRO 2019" Then R="quarta-feira, 27 de novembro de 2019"
If P= "9NOVEMBRO 2019" Then R="quinta-feira, 28 de novembro de 2019"
If P= "0NOVEMBRO 2019" Then R="sexta-feira, 29 de novembro de 2019"
If P= "1DEZEMBRO 2019" Then R="terça-feira, 10 de dezembro de 2019"
If P= "2DEZEMBRO 2019" Then R="quarta-feira, 11 de dezembro de 2019"
If P= "3DEZEMBRO 2019" Then R="quinta-feira, 12 de dezembro de 2019"
If P= "4DEZEMBRO 2019" Then R="sexta-feira, 13 de dezembro de 2019"
If P= "5DEZEMBRO 2019" Then R="segunda-feira, 16 de dezembro de 2019"
If P= "6DEZEMBRO 2019" Then R="terça-feira, 17 de dezembro de 2019"
If P= "7DEZEMBRO 2019" Then R="quarta-feira, 18 de dezembro de 2019"
If P= "8DEZEMBRO 2019" Then R="quinta-feira, 19 de dezembro de 2019"
If P= "9DEZEMBRO 2019" Then R="sexta-feira, 20 de dezembro de 2019"
If P= "0DEZEMBRO 2019" Then R="segunda-feira, 23 de dezembro de 2019"
lblresult.Text="Seu benefício será creditado na "&R
End If
End Sub
Sub lblmenu_Click
sm.showmenu
End Sub
Sub lblsair1_Click
Activity.Finish
End Sub
Sub lblsair_Click
Activity.Finish
End Sub
Sub lblapp_Click
Private i As Intent
i.Initialize(i.ACTION_VIEW, "http://play.google.com/store/apps/dev?id=8634986142733594563")
StartActivity(i)
End Sub
Sub lblapp1_Click
Private i As Intent
i.Initialize(i.ACTION_VIEW, "http://play.google.com/store/apps/dev?id=8634986142733594563")
StartActivity(i)
End Sub
Sub lblaval1_Click
Private i As Intent
i.Initialize(i.ACTION_VIEW, "https://play.google.com/store/apps/details?id=com.bf20191")
StartActivity(i)
End Sub
Sub lblaval_Click
Private i As Intent
i.Initialize(i.ACTION_VIEW, "https://play.google.com/store/apps/details?id=com.bf20191")
StartActivity(i)
End Sub
Sub lblcomp_Click
'BOTÃO COMPARTILHAR
Dim i As Intent
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
i.PutExtra("android.intent.extra.TEXT", "https://play.google.com/store/apps/details?id=com.com.bf20191")
i.PutExtra("android.intent.extra.SUBJECT", "This is the subject")
StartActivity(i)
If IAd.Ready Then IAd.Show
End Sub
Sub lblcomp1_Click
'BOTÃO COMPARTILHAR
Dim i As Intent
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
i.PutExtra("android.intent.extra.TEXT", "https://play.google.com/store/apps/details?id=com.com.bf20191")
i.PutExtra("android.intent.extra.SUBJECT", "This is the subject")
StartActivity(i)
If IAd.Ready Then IAd.Show
End Sub
'INTERSTICIAL
Sub iad_AdClosed 'ESSE EVENTO DETECTA SE O ANUNCIO FOI FECHADO, INTERSTICIAL
If IAd.IsInitialized Then IAd.LoadAd 'SE FOI FECHADO JÁ MANDA RECARREGAR OUTRO, PRA MOSTRAR DEPOIS
'SE SPLASH TIVER VISIVEL AQUI MANDA FECHAR
'IF painelSplash.visible then painelSplash.visible = false
End Sub
Sub iad_ReceiveAd
End Sub
Sub iad_FailedToReceiveAd (ErrorCode As String)
Recarrega_Intersticial
Log(ErrorCode)
End Sub
Sub iad_adopened
End Sub
Sub iad_PresentScreen
End Sub
Sub Recarrega_Intersticial
Sleep(2000)
If Not(IsPaused(Me)) And IAd.IsInitialized Then IAd.LoadAd
End Sub
'BANNER
Sub BannerAd_ReceiveAd
End Sub
Sub BannerAd_FailedToReceiveAd (ErrorCode As String)
Recarrega_Banner
Log(ErrorCode)
End Sub
Sub BannerAd_PresentScreen
End Sub
Sub BannerAd_AdScreenDismissed
Recarrega_Banner 'USUÁRIO FECHOU NO X DO BANNER
End Sub
Sub Recarrega_Banner
Sleep(2000)
If Not(IsPaused(Me)) And BannerAd.IsInitialized Then BannerAd.LoadAd
End Sub