Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Bravissima Blusolemare, è uscito come avevi previsto, grande sensazione la tua, complimenti.blusolemare;n2157721 ha scritto:Ciao,
il 79 A BARI USCIRà LA PROSSIMA SETTIMANA,
CREDETECI
ciccioriccio;n2157734 ha scritto:scusate ma io non uso lo script mi potreste dare la previsione scritta qui quando possibile?
Sub Main()
Dim aruo(2)
Dim aposte(3)
aposte(1) = 10 'x ambata
aposte(2) = 1 'x ambo
aposte(3) = 1 'x terno
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,79))
' ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,1500))
clp = CInt(InputBox("QUANTI COLPI?",,9))
co = 0' contatore
fin = EstrazioneFin
ini = 8322 ' EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
anum(2) = Fuori90(Estratto(es,FI_,1)*53)
anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
aruo(1) = BA_
aruo(2) = CA_
co = co + 1
Scrivi
'Scrivi "Capogioco = " &anum(1) & "abb.ambo: " &anum(2)& "." &anum(3)& "abb.terno: " &anum(4)& "." &anum(5)& "." &anum(6)
Scrivi "Caso n°: " & CInt(co),1
Scrivi "NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data " & DataEstrazione(es),1
Scrivi " Capogioco = " & anum(1) & " - abb.ambo: " & anum(2) & "." & anum(3) & " - abb.terno: " & anum(4) & "." & anum(5) & "." & anum(6),1
ImpostaGiocata 1,anum,aruo,aposte,clp
Gioca es,True,,2
End If
Next
ScriviResoconto
End Sub