Personalmente io non lo so comporre, non conosco il linguaggio informatico per le Script (Spaziometria o L8+ LottoDesk ecc..) ti accontenterei volentieri .... buona serata.
Ringrazio moltissimo a: GioRyuKen72 e Lotto_tom75 ecco il listatato gabby
Sub Main
'
https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/
ColoreTesto 0
Scrivi " Metodo SOMMA15 di IMAGING -- listato GioRyuKen72 ",1,,2,5
Scrivi "
https://forum.lottoced.com/threads/metodo-somma-ruota-cagliari-aggiornato.2199020/",1
Scrivi
ColoreTesto 0
Dim R1,ruo(3),RuoABT(1),Nn(2),E1,E2,P1,P2,P5,P6,a,b,Cap,Abb1,Abb2
Dim Terzina1(3),ambo1(2),ambo2(2),PostaA(2),PostaABT(1),PostaT(3),ambata1(2)
Dim Somma15,To1,Pa4,Fi3,Ba5
ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es
For R1 = 2 To 2
If R1 = 11 Then r2 = 12
For P1 = 1 To 4 : For P2 = P1 + 1 To 5
a = Estratto(es,R1,P1) : b = Estratto(es,R1,P2)
Nn(1) = a
Nn(2) = b
Somma15 = Fuori90(Nn(1) + Nn(2))
To1 = Estratto(es,TO_,1)
Pa4 = Estratto(es,PA_,4)
Fi3 = Estratto(es,FI_,3)
Ba5 = Estratto(es,BA_,5)
'______________________________________
If Somma15 = 15 Then
Cap = Fuori90((90 + To1) - 83)
Abb1 = Fuori90(Pa4*Ba5)
Abb2 = Fuori90(Fi3*Pa4)
If Abb1 = Cap Then Abb1 = Abb1 + 1
If Abb2 = Cap Then Abb2 = Abb2 + 1
If Abb2 = Abb1 Then Abb2 = Abb2 + 1
RuoABT(1) = R1
ruo(1) = R1
ruo(2) = TT_
'ruo(3) = NZ_
PostaABT(1) = 1
PostaA(2) = 1
PostaT(2) = 0.8
PostaT(3) = 0.2
k = 17
ambata1(1) = Cap
ImpostaGiocata 1,ambata1,RuoABT,PostaABT,k,1
ambo1(1) = Cap
ambo1(2) = Abb1
ImpostaGiocata 2,ambo1,ruo,PostaA,k
ambo2(1) = Cap
ambo2(2) = Abb2
ImpostaGiocata 3,ambo2,ruo,PostaA,k
Terzina1(1) = Cap
Terzina1(2) = Abb1
Terzina1(3) = Abb2
ImpostaGiocata 4,Terzina1,ruo,PostaT,k,3
caso = 0
casi = casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = Nn(1) Or E1 = Nn(2) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(70,"-"),1
ColoreTesto 1
Scrivi "CONDIZIONE RILEVATA: " & Format2(Nn(1)) & " + " & Format2(Nn(2)) & " = " & Format2(Somma15),1,0
ColoreTesto 0
Scrivi
Scrivi String(70,"-"),1
Scrivi "Capigioco : " & Format2(Cap),1
Scrivi "Abbinamenti: " & Format2(Abb1) & " e " & Format2(Abb2),1
ColoreTesto 0 : Scrivi String(70,"-"),1
Scrivi
Gioca es,True,,1
End If
Next
Next
Next
'Next
'End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
TestoInBandaPassante " ***** Metodo SOMMA15 di IMAGING -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub