| CITAZIONE (Giovanni Calzolari @ 2/5/2018, 09:46) Salve pigreko73,
ho provato, senza successo, a modificare uno script trovato in un forum con n° estrazione mensile ma senza combinare nulla.
Chiedevo se tu o altro esperto potevate crearlo.
Grazie dell'attenzione, Giovanni.
Condizioni di gioco
Estrazione di calcolo : Settima
Ruote di gioco: FIRENZE
Colpi di gioco: 13
Si ricava un’ambata e cinque numeri per relativi ambi secchi
Algoritmi in gioco:
Ambata : 5°estratto di Palermo + 66
Ambo : 3° estratto di Genova + 20
Ambo : 4° estratto di Torino + 35
Ambo : 2° estratto di Genova + 49
Ambo : 4° estratto di Genova + 77
Ambo : 5° estratto di Genova + 44
n.b: applicare la regola del fuori 90 Ciao Giovanni, controlla il listato nello Spoiler, se ci sono errori me li segnali. Saluti Sub main()
ColoreTesto 2
Scrivi"-----FORUM SUPERLOTTO X Giovanni"
Scrivi" Metodo Sommativo 7^ estr.mensile FIRENZE "
Scrivi"------ Listed by federico53 ------"
ColoreTesto 0
Dim lg(2),lg2(3),lg3(3),lg1(5)
Dim ruote(10),lg4(3),lg5(3)
Dim posta(5),ruota(3)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
clp=13
r1=3
For es = EstrazioneFin - 350 To EstrazioneFin
AvanzamentoElab 1,10,100
If Indicemensile(es) = 7 Then
caso = 0
caso = caso + 1
casi = casi + 1
Scrivi String(65,"=")
ColoreTesto 1
Scrivi"-----FORUM SUPERLOTTO X Giovanni"
Scrivi" Metodo Sommativo 7^ estr.mensile FIRENZE "
Scrivi"------ Listed by federico53 ------"
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))&" " & Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1),1
ColoreTesto 1
Scrivi String(53,"-") & " Caso N " & Format2(caso) & " Estraz. ",0,0
ColoreTesto 2
Scrivi Format2(es)
ColoreTesto 1
Scrivi String(53,"-") & " Casi Totali N " & Format2(casi)
ColoreTesto 0
ruota(1) = r1
ruote(1)=r1
ruote(2)=11
lg(1)=Fuori90(Estratto (es,7,5)+ 66)'AMBATA
ImpostaGiocata 1,lg,ruota,posta,13
lg1(1)=Fuori90(Estratto (es,7,5)+ 66)
lg1(2)=Fuori90(Estratto (es,4,3)+ 20)
ImpostaGiocata 2,lg1,ruote,poste,13
lg2(1)=Fuori90(Estratto (es,7,5)+ 66)
lg2(2)=Fuori90(Estratto (es,9,4)+ 35)
ImpostaGiocata 3,lg2,ruote,poste,13
lg3(1)=Fuori90(Estratto (es,7,5)+ 66)
lg3(2)=Fuori90(Estratto (es,4,2)+ 49)
ImpostaGiocata 4,lg3,ruote,poste,13
lg4(1)=Fuori90(Estratto (es,7,5)+ 66)
lg4(2)=Fuori90(Estratto (es,4,4)+ 77)
ImpostaGiocata 5,lg4,ruote,poste,13
lg5(1)=Fuori90(Estratto (es,7,5)+ 66)
lg5(2)=Fuori90(Estratto (es,4,5)+ 44)
ImpostaGiocata 6,lg5,ruote,poste,13
Gioca es
Scrivi"Non si garantiscono vincite - Saluti federico53"
End If
Next
ScriviResoconto
End Sub |
