'Progetto - NUOVA FORMULA PROPORZIONALE - by FABARRI
'Script - by Salvo50
Option Explicit
Sub Main
TestoInBandaPassante "***** Progetto NUOVA FORMULA PROPORZIONALE by Fabarri, script by Salvo50 ****** ",1,5,0
Dim r,p1,p2,es,estr1,estr2,estr3,estr4,estr5
Dim fin,Ini,ru(1),poste(2),clp,esq,ruota
Dim idestr,col,esqcol
Dim somma1,somma2,com91,semicom91,amb1,amb2,amb(2)
poste(1) = 1
poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
clp = InputBox("Per quanti colpi vuoi fare la ricerca",,3)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,9))
r = InputBox("Inserisci numero ruota ( 1 - 10 NAZ 12)",ruota,5)
ru(1) = r
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol : Messaggio(es)
AvanzamentoElab esq,esqcol,es
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r),2) & " " & StringaEstratti(es,r),2
For p1 = 1 To 4
p2 = p1 + 1
estr1 = Estratto(es,r,p1)
estr2 = Estratto(es,r,p2)
If estr1 > 0 Then
somma1 = Fuori90(90 +(estr1 + estr2))
com91 = 91 - somma1
If dispari(com91) Then com91 = com91 + 1
semicom91 = com91 / 2
If dispari(semicom91) Then semicom91 = semicom91 + 1
somma2 = com91 + semicom91
If dispari(somma2) Then somma2 = somma2 + 1
amb1 = somma2 / 2
amb2 = Fuori90(90 +(com91 - amb1))
amb(1) = amb1
amb(2) = amb2
ImpostaGiocata 1,amb,ru,poste,clp
End If
Gioca es
Next
Next
ScriviResoconto
End Sub
