Ultima estrazione del Mese Bari

Condizioni:
Ultima del mese
Ruote di gioco: Ba.
Colpi di gioco: 13
Algoritmi in gioco:
...
Ambata: 1 di Ba + 5 di Ba + 10 *
Ambo: 3 di Ba + 2 di Nz + 21 *
Ambo: 1 di Pa + 1 di Ve + 05 *
Ambo: 1 di Ca + 5 di Ro + 07 *
...
Ambata: 4 di Ge + 2 di To + 18 *
Ambo: 3 di Ba + 2 di Nz + 21 *
Ambo: 1 di Pa + 1 di Ve + 05 *
Ambo: 1 di Ca + 5 di Ro + 07 *

sab 30.07.2016
Ambata 3
Abbinamenti per ambo: 37.65.42.
Esiti:
sab 20.08.2016 al 9 colpo su Ba ambata 3
sab 20.08.2016 al 9 colpo su Ba ambo 3 - 37
mar 23.08.2016 al 10 colpo su Ba ambata 3
Ambata 63
Abbinamenti per ambo: 37.65.42.
Esiti:
mar 16.08.2016 al 7 colpo su Ba ambata 63
gio 18.08.2016 al 8 colpo su Ba ambata 63
gio 18.08.2016 al 8 colpo su Ba ambo 63 - 37

mar 30.08.2016
Ambata 80
Abbinamenti per ambo: 39.12.24.
Esiti:
mar 13.09.2016 al 6 colpo su Ba ambata 80
gio 15.09.2016 al 7 colpo su Ba ambata 80
gio 15.09.2016 al 7 colpo su Ba ambo 80 - 39
gio 15.09.2016 al 7 colpo su Ba ambo 80 - 24
mar 20.09.2016 al 9 colpo su Ba ambata 80
mar 20.09.2016 al 9 colpo su Ba ambo 80 - 12
gio 22.09.2016 al 10 colpo su Ba ambata 80
gio 22.09.2016 al 10 colpo su Ba ambo 80 - 12
Ambata 82
Abbinamenti per ambo: 39.12.24.
Esiti:
gio 15.09.2016 al 7 colpo su Ba ambata 82
gio 15.09.2016 al 7 colpo su Ba ambo 82 - 39
gio 15.09.2016 al 7 colpo su Ba ambo 82 - 24
sab 17.09.2016 al 8 colpo su Ba ambata 82

gio 29.09.2016
Ambata 76
Abbinamenti per ambo: 35.69.50.
Esiti:
sab 15.10.2016 al 7 colpo su Ba ambata 76
sab 15.10.2016 al 7 colpo su Ba ambo 76 - 69
gio 20.10.2016 al 9 colpo su Ba ambata 76
gio 20.10.2016 al 9 colpo su Ba ambo 76 - 35
Ambata 33
Abbinamenti per ambo: 35.69.50.
Esiti:
mar 18.10.2016 al 8 colpo su Ba ambata 33
mar 18.10.2016 al 8 colpo su Ba ambo 33 - 35
gio 20.10.2016 al 9 colpo su Ba ambata 33
gio 20.10.2016 al 9 colpo su Ba ambo 33 - 35
sab 29.10.2016 al 13 colpo su Ba ambata 33

sab 29.10.2016
Ambata 74
Abbinamenti per ambo: 16.59.69.
Esiti:
ESITO NEGATIVO
Ambata 85
Abbinamenti per ambo: 16.59.69.
Esiti:
ESITO NEGATIVO

mar 29.11.2016
Ambata 67
Abbinamenti per ambo: 84.86.74.
Esiti:
sab 03.12.2016 al 2 colpo su Ba ambata 67
sab 03.12.2016 al 2 colpo su Ba ambo 67 - 86
sab 03.12.2016 al 2 colpo su Ba ambo 67 - 74
Ambata 53
Abbinamenti per ambo: 84.86.74.
Esiti:
ESITO NEGATIVO

sab 31.12.2016
Ambata 71
Abbinamenti per ambo: 81.67.42.
Esiti:
mar 03.01.2017 al 1 colpo su Ba ambata 71
mar 03.01.2017 al 1 colpo su Ba ambo 71 - 42
mar 10.01.2017 al 4 colpo su Ba ambata 71
Ambata 46
Abbinamenti per ambo: 81.67.42.
Esiti:
gio 19.01.2017 al 8 colpo su Ba ambata 46
sab 21.01.2017 al 9 colpo su Ba ambata 46
sab 21.01.2017 al 9 colpo su Ba ambo 46 - 81
mar 24.01.2017 al 10 colpo su Ba ambata 46

mar 31.01.2017
Ambata 61
Abbinamenti per ambo: 75.54.55.
Esiti:
gio 23.02.2017 al 10 colpo su Ba ambata 61
gio 23.02.2017 al 10 colpo su Ba ambo 61 - 75
mar 28.02.2017 al 12 colpo su Ba ambata 61
mar 28.02.2017 al 12 colpo su Ba ambo 61 - 55
Ambata 84
Abbinamenti per ambo: 75.54.55.
Esiti:
sab 18.02.2017 al 8 colpo su Ba ambata 84
sab 18.02.2017 al 8 colpo su Ba ambo 84 - 55
sab 18.02.2017 al 8 colpo su Ba ambo 84 - 75
mar 21.02.2017 al 9 colpo su Ba ambata 84
gio 23.02.2017 al 10 colpo su Ba ambata 84
gio 23.02.2017 al 10 colpo su Ba ambo 84 - 75

mar 28.02.2017
Ambata 49
Abbinamenti per ambo: 82.12.28.
Esiti:
gio 30.03.2017 al 13 colpo su Ba ambata 49
Ambata 74
Abbinamenti per ambo: 82.12.28.
Esiti:
gio 02.03.2017 al 1 colpo su Ba ambata 74
gio 02.03.2017 al 1 colpo su Ba ambo 74 - 28
sab 11.03.2017 al 5 colpo su Ba ambata 74
mar 14.03.2017 al 6 colpo su Ba ambata 74
mar 14.03.2017 al 6 colpo su Ba ambo 74 - 12
mar 21.03.2017 al 9 colpo su Ba ambata 74
mar 21.03.2017 al 9 colpo su Ba ambo 74 - 12

gio 30.03.2017
Ambata 60
Abbinamenti per ambo: 51.55.30.
Esiti:
gio 06.04.2017 al 3 colpo su Ba ambata 60
mar 11.04.2017 al 5 colpo su Ba ambata 60
gio 27.04.2017 al 12 colpo su Ba ambata 60
gio 27.04.2017 al 12 colpo su Ba ambo 60 - 30
gio 27.04.2017 al 12 colpo su Ba ambo 60 - 55
Ambata 32
Abbinamenti per ambo: 51.55.30.
Esiti:
sab 15.04.2017 al 7 colpo su Ba ambata 32

sab 29.04.2017
Ambata 63
Abbinamenti per ambo: 88.54.76.
Esiti:
IN CORSO ...
Ambata 62
Abbinamenti per ambo: 88.54.76.
Esiti:
IN CORSO ...

Data inizio ricerca : sab 30.07.2016
Data fine ricerca : sab 29.04.2017

Casi esaminati : 10
Casi positivi : 8
Casi negativi : 1
Casi in corso : 1
Casi positivi per ambata : 8
Casi positivi per ambo : 8

Vincite totali nei colpi di gioco:

Ambate : 35
Ambi vinti : 26

Estratti in 1 posizione (31%)
Estratti in 2 posizione (17%)
Estratti in 3 posizione (20%)
Estratti in 4 posizione (14%)
Estratti in 5 posizione (17%)

Vincite su Ba (100%)

'Ultima del Mese BARI 1.05.2017
ColoreTesto 2: Scrivi
Scrivi String(30," ") & "Ultima del Mese BARI by DjNomade"
Scrivi String(03," ") & "listato By DjNomade "
ColoreTesto 0: Scrivi
Sub main()
Dim amb(2),ambo1(2),ambo2(2),ambo3(2),ambo4(2),lg(10)
Dim ruote(2),posta(5),poste1(5),poste2(5)
posta(1)=1 : posta(2)=1
poste1(2)=1
poste2(2)=1 : poste2(3)=1.80: poste2(3)=.20
t=0
cl=13 'CInt (InputBox("Quanti colpi vuoi controllare le giocate?","F.F.",14))

r1 =1
ini=9193
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es
If IsUltimaDelMese(es) Then
n1=Fuori90 (Estratto (es,1,1)+Estratto (es,1,5)+10)'ambata
n2=Fuori90 (Estratto (es,4,4)+Estratto (es,9,2)+18)'ambata

n3=Fuori90 (Estratto (es,1,3)+Estratto (es,12,2)+21)'abbinamenti
n4=Fuori90 (Estratto (es,7,1)+Estratto (es,10,1)+5)'abbinamenti
n5=Fuori90 (Estratto (es,2,1)+Estratto (es,8,5)+7) 'abbinamenti


ruote(1)=r1
t=t+1
Scrivi "------------------------------------------------------------",1

Scrivi "---------------------------Ultima del Mese BARI----"& "Giocata n° "& Format2(t),1
amb(1) = n1 :amb(2) =n2
ImpostaGiocata 1,amb,ruote,posta,cl,1
ambo1(1) = n1 :ambo1(2) =n3
ImpostaGiocata 2,ambo1,ruote,poste1,cl,2
ambo1(1) = n1 :ambo1(2) =n4
ImpostaGiocata 3,ambo1,ruote,poste1,cl,2
ambo1(1) = n1 :ambo1(2) =n5
ImpostaGiocata 4,ambo1,ruote,poste1,cl,2
ambo1(1) = n2 :ambo1(2) =n3
ImpostaGiocata 5,ambo1,ruote,poste1,cl,2
ambo1(1) = n2 :ambo1(2) =n4
ImpostaGiocata 6,ambo1,ruote,poste1,cl,2
ambo1(1) = n2 :ambo1(2) =n5
ImpostaGiocata 7,ambo1,ruote,poste1,cl,2

Gioca es
End If
Next
ScriviResoconto
End Sub
'Funzione realizzata dal bravissimo Joe
Function IsUltimaDelMese (idEstr)

Dim sData , sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr

sData = Replace(DataEstrazione(idEstr) , "." , "/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay (sData)

Select Case idGiornoSettimana

Case vbTuesday ' martedi
gMancanti =2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select

sDataNew = DateAdd( "d" , gMancanti ,sData)

If Month (sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If

End Function