bubù
Advanced Member >PLATINUM PLUS<
BARI alla decima estrazione del mese
10^ estrazione del mese
Ruote di gioco: Bari
Colpi di gioco: 1
Algoritmi in gioco in lunghetta:
1 di Ca + 08; 3 di Fi + 3 di Ro + 56; Cadenza 1 di Ba + 35; Cadenza 2 di Fi + 3 di Na + 64; Decina 4 di Nz + 52; 2 di To + 15; 1 di Ca + 35;
10^ estrazione del mese
Ruote di gioco: Bari
Colpi di gioco: 1
Algoritmi in gioco in lunghetta:
1 di Ca + 08; 3 di Fi + 3 di Ro + 56; Cadenza 1 di Ba + 35; Cadenza 2 di Fi + 3 di Na + 64; Decina 4 di Nz + 52; 2 di To + 15; 1 di Ca + 35;
gio. 22.04.2021
Numeri in gioco: 69.18.35.01.54.43.04
Esiti: sab. 24.04.2021 al 1 colpo su Bari Terno 35.18.54
sab. 22.05.2021
79.75.43.01.60.83.14
Esiti: mar. 25.05.2021 al 1 colpo su Bari Terno 75.43.01
mar. 22.06.2021
02.59.43.30.60.79.27
Esiti: gio. 24.06.2021 al 1 colpo su Bari Ambo 43.59
gio. 22.07.2021
67.79.41.48.57.81.02
Esiti: sab. 24.07.2021 al 1 colpo su Bari Terno 81.02.79
mar. 24.08.2021
80.55.36.12.56.13.15
Esiti: gio. 26.08.2021 al 1 colpo su Bari Terno 12.15.55
gio. 23.09.2021
89.47.37.67.52.06.24
Esiti: sab. 25.09.2021 al 1 colpo su Bari Ambo 89.67
sab. 23.10.2021
32.54.43.29.57.44.58
Esiti: mar. 26.10.2021 al 1 colpo su Bari Quaterna 43.29.32.57
mar. 23.11.2021
17.12.38.52.53.30.42
Esiti: gio. 25.11.2021 al 1 colpo su Bari Ambo 52.17
gio. 23.12.2021
53.43.44.45.59.46.78
Esiti: lun. 27.12.2021 al 1 colpo su Bari Terno 44.53.43
Casi esaminati: 9
Ambi vinti: 24
Terni vinti: 9
Quaterne vinte: 1
Dal 25 Gennaio 2022
BARI:
41.13.40.86.58.49.66
BARI:
41.13.40.86.58.49.66
Sub Main()
Scrivi
ColoreTesto 1
Scrivi
Scrivi"=== 10^ del mese Bari in 1 colpo by BubùLotto Production",1
Dim rt(3) 'le ruote sono due (2)
Dim nr(11),amb1(10),amb2(10),amb3(10) ' i nr in gioco sono 5 per ambo (5) e uno, in abbinamento, per terno (5)
co = co + 1
Dim pta1(5),pta2(5),pta3(5)',pta4(5),pta5(5)
pta1(1) = 1 ' la puntata per l'ambata è di 1 euro
pta2(2) = 1 ' la puntata per l'ambo è di 1 euro
pta3(2) = 1
pta3(3) = 1
rt(1) = 1
co = co + 1
k = 1 ' i colpi in gioco sono 11
Scrivi
ColoreTesto 1
Scrivi
For n = 9909 To EstrazioneFin
If IndiceMensile = 10 Then 'i conti li faccio all'undicesima estrazione del mese
co = co + 1
cont = cont + 1
nr(1) = Fuori90(Estratto(n,2,1) + 8)
nr(2) = Fuori90(Estratto(n,3,3) + Estratto(n,8,3) + 56)
nr(3) = Fuori90(Cadenza(Estratto(n,1,1)) + 35)
nr(4) = Fuori90(Decina(Estratto(n,12,4)) + 52)
nr(5) = Fuori90(Cadenza(Estratto(n,3,2)) + Estratto(n,6,3) + 64)
nr(6) = Fuori90(Estratto(n,9,2) + 15)
nr(7) = Fuori90(Estratto(n,2,1) + 33)
'**********************************************************
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nr) Then
rip = 1
While NumeriRipetuti(nr)
For x = 1 To 6 ' numeri totali 5-1=4
For y = x + 1 To 7 ' 5 perche i numeri in totale sono 5
If nr(x) = nr Then nr = Fuori90(nr + 1)
Next
Next
Wend
End If
Rem fine formula
'*****************************************************
co = 0
Scrivi
ColoreTesto 0
amb3(1) = nr(1)
amb3(2) = nr(2)
amb3(3) = nr(3)
amb3(4) = nr(4)
amb3(5) = nr(5)
amb3(6) = nr(6)
amb3(7) = nr(7)
co = co + 1
ImpostaGiocata co,amb3,rt,pta3,k
Gioca n',1
End If
Next
Scrivi
ColoreTesto 0
ScriviResoconto
End Sub