volf
Junior Member
Casi esaminati : 17 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT
Casi vincenti : 16
Casi in corso : 1. | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT
+----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 94,12 % | | BA | | 40| 6| 1| | | BA | | 100| 100| 100| | | BA |
| Spesa : 1.715,20 €
| Vincita : 22.558,63 €
| Guadagno : 20.843,43 € | | TT | | 66| 6| 1| | | TT | | 165| 100| 100| | | TT | | |
| Perc. Rendimento : 1215,218 %
| Mass. Esposizione : 124,80 € |
| Ambo su ruota : 40 |
| Ambo su tutte : 66 |
| Terno su ruota : 6 |
| Terno su tutte : 6 |
| Quaterna su ruota : 1 |
| Quaterna su tutte : 1 |
Estrazione genaratrice 13a
3 estratto Nazionale si ricava figura per ogni figura si procede a calcoli come tabella
Casi vincenti : 16
Casi in corso : 1. | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT
+----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 94,12 % | | BA | | 40| 6| 1| | | BA | | 100| 100| 100| | | BA |
| Spesa : 1.715,20 €
| Vincita : 22.558,63 €
| Guadagno : 20.843,43 € | | TT | | 66| 6| 1| | | TT | | 165| 100| 100| | | TT | | |
| Perc. Rendimento : 1215,218 %
| Mass. Esposizione : 124,80 € |
| Ambo su ruota : 40 |
| Ambo su tutte : 66 |
| Terno su ruota : 6 |
| Terno su tutte : 6 |
| Quaterna su ruota : 1 |
| Quaterna su tutte : 1 |
Option Explicit
Sub Main
' --- COSTANTI RUOTE ---
Dim BA_, CA_, FI_, GE_, MI_, NA_, PA_, RO_, TO_, VE_, TT_, NZ_
BA_ = 1 : CA_ = 2 : FI_ = 3 : GE_ = 4 : MI_ = 5 : NA_ = 6
PA_ = 7 : RO_ = 8 : TO_ = 9 : VE_ = 10 : TT_ = 11 : NZ_ = 12
Dim FIn, Es, Es2, Ini, N1, N2, N3, N4, Retnum, Retvinc
Dim Caso, Casi, Clp, Ind_Me, Ambetto, k, flFig
Dim Ambo(2), Ambo1(2), Ambo2(4), Poste(5), Ruo(3), Ruo1(2)
Dim tA, tB, tC, tD, tE
' --- IMPOSTAZIONI ---
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione da cui iniziare",, FIn - 2800)
Clp = 15 ' Impostato a 15 colpi
Ind_Me = 13 ' 11ª estrazione del mese
' --- Configurazione Poste ---
Poste(2) = 1 ' Posta per Ambo
Poste(3) = 0.5 ' Posta per terno
Poste(4) = 0.10 ' Posta per quaterna
Ruo(1) = BA_ : Ruo(2) = TT_' Ruote di gioco principali
Casi = 0
' --- CICLO PRINCIPALE ---
For Es = Ini To FIn
' FILTRO MESE DI AGOSTO
If Mese(Es) = 8 Then
' FILTRO INDICE MENSILE
If IndiceMensile(Es) = Ind_Me Then
tA = Estratto(Es, NZ_, 1)
tB = Estratto(Es, NZ_, 2)
tC = Estratto(Es, NZ_, 3)
tD = Estratto(Es, NZ_, 4)
tE = Estratto(Es, NZ_, 5)
If tC > 0 Then
flFig = Figura(tC) ' Calcolo figura sul 3° di Nazionale
' --- NUOVA LOGICA FIGURE ---
Select Case flFig
Case 1 : N1 = Fuori90(tA + 50) : N2 = Fuori90(tD + 15) : N3 = Fuori90(tA + 47) : N4 = Fuori90(tC + 29)
Case 2 : N1 = Fuori90(tE + 41) : N2 = Fuori90(tD + 79) : N3 = Fuori90(tD + 09) : N4 = Fuori90(tC + 80)
Case 3 : N1 = Fuori90(tD + 86) : N2 = Fuori90(tA + 84) : N3 = Fuori90(tE + 49) : N4 = Fuori90(tD + 20)
Case 4 : N1 = Fuori90(tC + 22) : N2 = Fuori90(tD + 71) : N3 = Fuori90(tE + 33) : N4 = Fuori90(tB + 05)
Case 5 : N1 = Fuori90(tC + 32) : N2 = Fuori90(tE + 24) : N3 = Fuori90(tD + 08) : N4 = Fuori90(tA + 19)
Case 6 : N1 = Fuori90(tC + 85) : N2 = Fuori90(tB + 32) : N3 = Fuori90(tD + 16) : N4 = Fuori90(tA + 33)
Case 7 : N1 = Fuori90(tB + 67) : N2 = Fuori90(tE + 60) : N3 = Fuori90(tB + 73) : N4 = Fuori90(tC + 27)
Case 8 : N1 = Fuori90(tD + 06) : N2 = Fuori90(tC + 29) : N3 = Fuori90(tE + 55) : N4 = Fuori90(tD + 80)
Case 9 : N1 = Fuori90(tB + 85) : N2 = Fuori90(tD + 53) : N3 = Fuori90(tE + 67) : N4 = Fuori90(tB + 81)
End Select
Casi = Casi + 1
Scrivi String(100, "=")
Scrivi "CASO N. " & Casi & " - Agosto - Estrazione: " & GetInfoEstrazione(Es), 1
Scrivi "Figura rilevata sul 3° di NZ: " & flFig, 1
Scrivi "Numeri in gioco: " & N1 & "-" & N2 & " e " & N3 & "-" & N4, 1
' --- IMPOSTAZIONE GIOCATE ---
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 1, Ambo, Ruo, Poste, Clp,6
Ambo1(1) = N3 : Ambo1(2) = N4
ImpostaGiocata 2, Ambo1, Ruo, Poste, Clp,6
Ambo2(1) = N1 : Ambo2(2) = N2 : Ambo2(3) = N3 : Ambo2(4) = N4
ImpostaGiocata 3, Ambo2, Ruo, Poste, Clp,2
Gioca Es, True
' --- Verifica Ambetti SOLO su BA e NZ (come richiesto) ---
Scrivi Space(20) & "VERIFICA AMBETTI - Bari Nazionale = Figura : " & flFig,1,,,2
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
' ? Ruote per ambetto:
Ruo1(1) = BA_ : Ruo1(2) = NZ_
' --- ---
Ambetto = VerificaAmbetto(Ambo,1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto Ambo 1 su BA: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo,12,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto Ambo 1 su NZ: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi "Ambetto Ambo 2 su BA: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,12,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto Ambo 2 su NZ: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
' Scrivi ""
Next
If ScriptInterrotto Then Exit Sub
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
Sub Main
' --- COSTANTI RUOTE ---
Dim BA_, CA_, FI_, GE_, MI_, NA_, PA_, RO_, TO_, VE_, TT_, NZ_
BA_ = 1 : CA_ = 2 : FI_ = 3 : GE_ = 4 : MI_ = 5 : NA_ = 6
PA_ = 7 : RO_ = 8 : TO_ = 9 : VE_ = 10 : TT_ = 11 : NZ_ = 12
Dim FIn, Es, Es2, Ini, N1, N2, N3, N4, Retnum, Retvinc
Dim Caso, Casi, Clp, Ind_Me, Ambetto, k, flFig
Dim Ambo(2), Ambo1(2), Ambo2(4), Poste(5), Ruo(3), Ruo1(2)
Dim tA, tB, tC, tD, tE
' --- IMPOSTAZIONI ---
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione da cui iniziare",, FIn - 2800)
Clp = 15 ' Impostato a 15 colpi
Ind_Me = 13 ' 11ª estrazione del mese
' --- Configurazione Poste ---
Poste(2) = 1 ' Posta per Ambo
Poste(3) = 0.5 ' Posta per terno
Poste(4) = 0.10 ' Posta per quaterna
Ruo(1) = BA_ : Ruo(2) = TT_' Ruote di gioco principali
Casi = 0
' --- CICLO PRINCIPALE ---
For Es = Ini To FIn
' FILTRO MESE DI AGOSTO
If Mese(Es) = 8 Then
' FILTRO INDICE MENSILE
If IndiceMensile(Es) = Ind_Me Then
tA = Estratto(Es, NZ_, 1)
tB = Estratto(Es, NZ_, 2)
tC = Estratto(Es, NZ_, 3)
tD = Estratto(Es, NZ_, 4)
tE = Estratto(Es, NZ_, 5)
If tC > 0 Then
flFig = Figura(tC) ' Calcolo figura sul 3° di Nazionale
' --- NUOVA LOGICA FIGURE ---
Select Case flFig
Case 1 : N1 = Fuori90(tA + 50) : N2 = Fuori90(tD + 15) : N3 = Fuori90(tA + 47) : N4 = Fuori90(tC + 29)
Case 2 : N1 = Fuori90(tE + 41) : N2 = Fuori90(tD + 79) : N3 = Fuori90(tD + 09) : N4 = Fuori90(tC + 80)
Case 3 : N1 = Fuori90(tD + 86) : N2 = Fuori90(tA + 84) : N3 = Fuori90(tE + 49) : N4 = Fuori90(tD + 20)
Case 4 : N1 = Fuori90(tC + 22) : N2 = Fuori90(tD + 71) : N3 = Fuori90(tE + 33) : N4 = Fuori90(tB + 05)
Case 5 : N1 = Fuori90(tC + 32) : N2 = Fuori90(tE + 24) : N3 = Fuori90(tD + 08) : N4 = Fuori90(tA + 19)
Case 6 : N1 = Fuori90(tC + 85) : N2 = Fuori90(tB + 32) : N3 = Fuori90(tD + 16) : N4 = Fuori90(tA + 33)
Case 7 : N1 = Fuori90(tB + 67) : N2 = Fuori90(tE + 60) : N3 = Fuori90(tB + 73) : N4 = Fuori90(tC + 27)
Case 8 : N1 = Fuori90(tD + 06) : N2 = Fuori90(tC + 29) : N3 = Fuori90(tE + 55) : N4 = Fuori90(tD + 80)
Case 9 : N1 = Fuori90(tB + 85) : N2 = Fuori90(tD + 53) : N3 = Fuori90(tE + 67) : N4 = Fuori90(tB + 81)
End Select
Casi = Casi + 1
Scrivi String(100, "=")
Scrivi "CASO N. " & Casi & " - Agosto - Estrazione: " & GetInfoEstrazione(Es), 1
Scrivi "Figura rilevata sul 3° di NZ: " & flFig, 1
Scrivi "Numeri in gioco: " & N1 & "-" & N2 & " e " & N3 & "-" & N4, 1
' --- IMPOSTAZIONE GIOCATE ---
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 1, Ambo, Ruo, Poste, Clp,6
Ambo1(1) = N3 : Ambo1(2) = N4
ImpostaGiocata 2, Ambo1, Ruo, Poste, Clp,6
Ambo2(1) = N1 : Ambo2(2) = N2 : Ambo2(3) = N3 : Ambo2(4) = N4
ImpostaGiocata 3, Ambo2, Ruo, Poste, Clp,2
Gioca Es, True
' --- Verifica Ambetti SOLO su BA e NZ (come richiesto) ---
Scrivi Space(20) & "VERIFICA AMBETTI - Bari Nazionale = Figura : " & flFig,1,,,2
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
' ? Ruote per ambetto:
Ruo1(1) = BA_ : Ruo1(2) = NZ_
' --- ---
Ambetto = VerificaAmbetto(Ambo,1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto Ambo 1 su BA: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo,12,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto Ambo 1 su NZ: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi "Ambetto Ambo 2 su BA: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,12,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto Ambo 2 su NZ: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
' Scrivi ""
Next
If ScriptInterrotto Then Exit Sub
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
Estrazione genaratrice 13a
3 estratto Nazionale si ricava figura per ogni figura si procede a calcoli come tabella
