Sub Main()
' Giulio
'
https://forum.lottoced.com/threads/numero-3-su-cagliari-milano-roma.2229873/
Dim Ini, Fin, Es, Colpo
Dim CG, A1, A2, A3
Dim Ambi(3,2)
Dim R, P, NomeRuota
Dim I, N1, N2
Dim Pres1, Pres2
Dim TrovCA, TrovMI, TrovRO
Dim Vinti(3), Colpi(3)
Dim VinciteAmbo(3), VinciteColpo(9)
Dim TotCond, TotVinti
Dim CasiVinti, CasiPersi, CasiInCorso
Dim VinciteCaso, Stato
Dim Perc, DataCaso
Dim Condizione
Ini = 7158 ' 07/09/2002
Fin = EstrazioneFin
TotCond = 0
TotVinti = 0
CasiVinti = 0
CasiPersi = 0
CasiInCorso = 0
For I = 1 To 3
VinciteAmbo(I) = 0
Next
For I = 1 To 9
VinciteColpo(I) = 0
Next
Scrivi "STUDIO NUMERO 3 - CA MI RO"
Scrivi "Inizio estrazione: " & Ini
Scrivi "Condizione: 3 su almeno due ruote"
Scrivi "Coppie: CA-MI / CA-RO / MI-RO"
Scrivi "Ruota gioco: Cagliari-Milsno-Roma"
Scrivi "Periodo gioco: 9 estrazioni"
Scrivi "-----------------------------------"
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
TrovCA = False
TrovMI = False
TrovRO = False
' Ricerca numero 3 sulle tre ruote
For P = 1 To 5
If Estratto(Es,2,P) = 3 Then
TrovCA = True
End If
If Estratto(Es,5,P) = 3 Then
TrovMI = True
End If
If Estratto(Es,8,P) = 3 Then
TrovRO = True
End If
Next
Condizione = ""
If TrovCA And TrovMI And TrovRO Then
Condizione = "CA-MI-RO"
Else
If TrovCA And TrovMI Then
Condizione = "CA-MI"
End If
If TrovCA And TrovRO Then
Condizione = "CA-RO"
End If
If TrovMI And TrovRO Then
Condizione = "MI-RO"
End If
End If
If Condizione <> "" Then
TotCond = TotCond + 1
' Capogioco: 4 Roma + 23
CG = Fuori90(Estratto(Es,8,4) + 23)
' Abbinamenti
A1 = Fuori90(Estratto(Es,1,5) + 2)
A2 = Fuori90(Estratto(Es,10,5) + 74)
A3 = Fuori90(Estratto(Es,9,1) + 75)
If A1=A2 Then a1=a1+1
If A1=A3 Then a1=a1+1
If a2=a3 Then a2=a2+1
Ambi(1,1) = CG
Ambi(1,2) = A1
Ambi(2,1) = CG
Ambi(2,2) = A2
Ambi(3,1) = CG
Ambi(3,2) = A3
For I = 1 To 3
Vinti(I) = False
Colpi(I) = 0
Next
VinciteCaso = 0
DataCaso = DataEstrazione(Es)
Scrivi ""
Scrivi "CASO N. " & TotCond
Scrivi "Data: " & DataCaso
Scrivi "Estrazione: " & Es
Scrivi "Condizione: " & Condizione
Scrivi "Capogioco: " & CG
Scrivi "Ambo 1: " & CG & "-" & A1
Scrivi "Ambo 2: " & CG & "-" & A2
Scrivi "Ambo 3: " & CG & "-" & A3
' Controllo delle 9 estrazioni successive
For Colpo = 1 To 9
If Es + Colpo <= Fin Then
For I = 1 To 3
If Not Vinti(I) Then
N1 = Ambi(I,1)
N2 = Ambi(I,2)
If N1 <> N2 Then
' Verifica su tutte le ruote
For R = 1 To 12
If R = 2 Or R = 5 Or R = 8 Then
Pres1 = False
Pres2 = False
For P = 1 To 5
If Estratto(Es+Colpo,R,P) = N1 Then
Pres1 = True
End If
If Estratto(Es+Colpo,R,P) = N2 Then
Pres2 = True
End If
Next
If Pres1 And Pres2 Then
Vinti(I) = True
Colpi(I) = Colpo
TotVinti = TotVinti + 1
VinciteCaso = VinciteCaso + 1
VinciteAmbo(I) = VinciteAmbo(I) + 1
VinciteColpo(Colpo) = VinciteColpo(Colpo) + 1
Select Case R
Case 2
NomeRuota = "Cagliari"
Case 5
NomeRuota = "Milano"
Case 8
NomeRuota = "Roma"
End Select
Scrivi "VINTO ambo " & I & _
" al colpo " & Colpo & _
" - Ruota " & NomeRuota
Exit For
End If
End If
Next
End If
End If
Next
End If
Next
If VinciteCaso > 0 Then
Stato = "VINTO"
CasiVinti = CasiVinti + 1
Else
If Es + 9 <= Fin Then
Stato = "PERSO"
CasiPersi = CasiPersi + 1
Else
Stato = "IN CORSO"
CasiInCorso = CasiInCorso + 1
End If
End If
Scrivi "Stato: " & Stato
Scrivi "Ambi vinti: " & VinciteCaso
Scrivi "-----------------------------------"
End If
Next
Scrivi ""
Scrivi "========== RESOCONTO FINALE =========="
Scrivi "Condizioni rilevate: " & TotCond
Scrivi "Casi vinti: " & CasiVinti
Scrivi "Casi persi: " & CasiPersi
Scrivi "Casi in corso: " & CasiInCorso
Scrivi "Totale ambi vinti: " & TotVinti
Scrivi ""
Scrivi "VINCITE PER AMBO"
For I = 1 To 3
Scrivi "Ambo " & I & ": " & VinciteAmbo(I)
Next
Scrivi ""
Scrivi "VINCITE PER COLPO"
For I = 1 To 9
Scrivi "Colpo " & I & ": " & VinciteColpo(I)
Next
If CasiVinti + CasiPersi > 0 Then
Perc = CasiVinti * 100 / _
(CasiVinti + CasiPersi)
Scrivi ""
Scrivi "Percentuale casi vinti: " & _
Round(Perc,2) & "%"
End If
Scrivi "======================================"
End Sub
