METODO SOMMA ruota Cagliari Aggiornato.

[Imaging]

ci ha bugerato Bari

Ci saranno altre vincite

 

[Imaging]

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

 

[NEM]

complimenti per i risultati, novità per domani sera?

 

[NEM]

Come non detto, vedo che a Ca non c'è somma15

 

[gabby]

grazie per lo script

 

[kira]

......64-79 bari 1°cp.....pazienza sarà x la prossima

+ 64- -38 a pal nella stessa estrazione ( nn mi ero accorta ) due ambi a tt al 1°cp

 

[trylli]

Cosa consigli per domani sera

 

[Imaging]

Come non detto, vedo che a Ca non c'è somma15

Puoi seguire La previsione del metodo somma 15 o seguire quella con somma 83 sempre a cagliari

 

[Imaging]

Cosa consigli per domani sera

Ho fatto una ricerca per la ruota di Firenze

 

[trylli]

Dove trovo quella somma 15 qui in prima pagina ?

 

[Imaging]

Dove trovo quella somma 15 qui in prima pagina ?

SI

 

[Imaging]

Cosa consigli per domani sera

Tra qualche minuto su Firenze.

 

[NEM]

Puoi seguire La previsione del metodo somma 15 o seguire quella con somma 83 sempre a cagliari

Grazie, gentilissimo!

 

[kira]

 

[Imaging]

Scusami non ho capito

 

[kira]

condizione di gioco: sortita ambo di somma 83
Ruota/e di ricerca condizione: Ca
Ruota/e di Gioco: Ca

 

[Imaging]

condizione di gioco: sortita ambo di somma 83
Ruota/e di ricerca condizione: Ca
Ruota/e di Gioco: Ca

Non ho capito in dubbio non riesco a dare una risposta ...

 

[kira]

NEM ha scritto:
Come non detto, vedo che a Ca non c'è somma15

Puoi seguire La previsione del metodo somma 15 o seguire quella con somma 83 sempre a cagliari

tua risposta a NEM lunedi post nr48

 

[Imaging]

Puoi seguire La previsione del metodo somma 15 o seguire quella con somma 83 sempre a cagliari

tua risposta a NEM lunedi post nr48

Per Kira , si può seguire la previsione somma 15 la prima... la seconda si è sfaldata con l'uscita dell'ambo e l'ambata, si può seguire ancora il metodo somma 38 e si può seguire Firenze effetti speciali esclusa la previsione che ho postato la bolletta di vincita... in bocca al lupo....

 

[baby83]

Ciao imaging, puoi gentilmente riassumere cosa resta in gioco?grazie