GioRyuKen72
Premium Member
fresco fresco il 09-90 sulla Nazionale..
qui c'è lo
Codice:
Sub Main()
Scrivi " GLI AMBI DELLA VITTORIA DI A.GARGIULO...Script GIORYUKEN72",1,,2,6,5,,1
Dim rt(2),Nn(5),E1,E2,P5,P6
Dim Terno1(3),PostaT(3),Ambata1(1),PostaA(2),Ambo1(2),Ambo2(2),PostaABT(1)
Dim Num(3),Ambata,Abb1,Abb2,Abb3
ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es
For R1 = 1 To 12
'For R2 = R1 + 1 To 12
'If R2 = 11 Then R2 = 12
Nn(1) = Estratto(es,R1,1) : Nn(2) = Estratto(es,R1,2) : Nn(3) = Estratto(es,R1,3) : Nn(4) = Estratto(es,R1,4) : Nn(5) = Estratto(es,R1,5)
If Nn(5) = Fuori90(Nn(1) + 1) Or Nn(5) = Fuori90((90 + Nn(1)) - 1) Then
Ambata = Fuori90(Nn(1) + Nn(5))
If Ambata = Nn(2) Or Ambata = Nn(3) Or Ambata = Nn(4) Then Ambata = Vert(Fuori90(Nn(1) + Nn(5)))
Abb1 = DiametraleD(Nn(1))
Abb2 = DiametraleD(Nn(5))
If Abb1 = Ambata Then Abb1 = Fuori90(Ambata + 13)'aggiunge 13 se numero ripetuto
If Abb2 = Ambata Then Abb2 = Fuori90(Ambata + 13)'aggiunge 13 se numero ripetuto
Abb3 = Fuori90(Ambata + 90) - 1
rt(1) = r1
rt(2) = RuotaGemella(r1)
If rt(1) = 12 Then rt(2) = BA_ ' 2A RUOTA DA MODIFICARE..
'rt(3) = TT_
PostaABT(1) = 1
PostaA(2) = 1
PostaT(2) = 1
PostaT(3) = 0.5
k = 15
Ambata1(1) = Ambata
ImpostaGiocata 1,Ambata1,rt,PostaABT,k,1
Ambo1(1) = Ambata
Ambo1(2) = Abb1
ImpostaGiocata 2,Ambo1,rt,PostaA,k,2
Ambo2(1) = Ambata
Ambo2(2) = Abb2
ImpostaGiocata 3,Ambo2,rt,PostaA,k,2
Terno1(1) = Abb3
Terno1(2) = Abb1
Terno1(3) = Abb2
ImpostaGiocata 4,Terno1,rt,PostaT,k,2
casi = casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ColoreTesto 0
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = Nn(1) Or E1 = Nn(5) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(78,"-"),1
ColoreTesto 1
' OrdinaMatrice Nn,1
Scrivi "Numeri Ricercati: " & Format2(Nn(1)) & " + " & Format2(Nn(5)) & " = " & Format2(Fuori90(Nn(1) + Nn(5))) ,1,0
Scrivi
ColoreTesto 0
Scrivi String(78,"-"),1
Scrivi
Gioca es,True,,1
End If
'End If
Next
'Next
'Next
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End SubNote:
- ho messo il +13 in caso si numero ripetuto (uguale all'ambata)
..modificate a piacere- ho messo BARI come 2a ruota della Nazionale
....modificate a piacereedit del 27/09:
- ho messo il vertibile nel caso in cui l'ambata è presente nell'estrazione di calcolo
[caso del 05/07/2025]@mastrogino @scarfacetony @margot @celyne
Saluti, Gio.
Ultima modifica:
