antonio65
Super Member >PLATINUM<
Ciao Salvo come va? spero bene...la notte porta consigli....
ti ricordi quando mi hai creato lo script che tu dicevi che era fatto su misura??? adesso di seguito ti allego lo script sperando che ti ricordi???
Ti volevo chiedere se puoi fare una piccola variazione di calcolo che tu hai definito" numeri trovati"
Quindi trovando la differenza tra le 2 somme ....il numero che stabilisce la differenza deve essere presente nei successivi 5 estratti...
ora la cortesia che ti chiedo è che il numero trovato in base alla differenza di somma....lo devi sommare con il fuori 90 al 1° estratto , poi al 2 estratto poi al terzo estratto ed infine al 5 estratto....
esempio reale:
i numeri trovati che trovi in basso, sono con il vecchio calcolo che dovrebbe essere sostituito cosi:
in questo caso abbiamo trovato la differenza 89 tra la somma 307 e 218 la somma successiva...
quindi nuovo calcolo: 89+72=161 fuori 90 89+58= 147 fuori 90 89+86= 89 +77= 89+14= etc etc
ricapitolando bisogna sommare i 5 estratti dell'estrazione precedente in questo casoi 5 estratti che danno la somma 307...
che ovviamente andranno a sostituire i numeri trovati che trovi in basso....grazie e buonanotte Antonio...
Estrazione n.01 del 07.01.1871 PA 72.58.86.77.14 Somma estratti = 307 Differenza col Fuori90 89 Estrazione n.02 del 14.01.1871 PA 89.12.70.33.14 Somma estratti = 218
Numeri trovati 89 51 68 82 16
ti ricordi quando mi hai creato lo script che tu dicevi che era fatto su misura??? adesso di seguito ti allego lo script sperando che ti ricordi???
Ti volevo chiedere se puoi fare una piccola variazione di calcolo che tu hai definito" numeri trovati"
Quindi trovando la differenza tra le 2 somme ....il numero che stabilisce la differenza deve essere presente nei successivi 5 estratti...
ora la cortesia che ti chiedo è che il numero trovato in base alla differenza di somma....lo devi sommare con il fuori 90 al 1° estratto , poi al 2 estratto poi al terzo estratto ed infine al 5 estratto....
esempio reale:
i numeri trovati che trovi in basso, sono con il vecchio calcolo che dovrebbe essere sostituito cosi:
in questo caso abbiamo trovato la differenza 89 tra la somma 307 e 218 la somma successiva...
quindi nuovo calcolo: 89+72=161 fuori 90 89+58= 147 fuori 90 89+86= 89 +77= 89+14= etc etc
ricapitolando bisogna sommare i 5 estratti dell'estrazione precedente in questo casoi 5 estratti che danno la somma 307...
che ovviamente andranno a sostituire i numeri trovati che trovi in basso....grazie e buonanotte Antonio...
Estrazione n.01 del 07.01.1871 PA 72.58.86.77.14 Somma estratti = 307 Differenza col Fuori90 89 Estrazione n.02 del 14.01.1871 PA 89.12.70.33.14 Somma estratti = 218
Numeri trovati 89 51 68 82 16
Codice:
'chiesto da Antonio65
'script by Sslvo50
Option Explicit
Sub Main
Dim Fin,Es,Ini,R1,R2,A,B1,B2,B3,B4,B5
Dim SommaA,SommaB,Casi,SS1,P,E1,SS2,SommaC
Dim Di1,Xdi2,Di2,Xdi3,Di3,Di4,Di5
Dim Xdi2M,Xdi3M
Fin = EstrazioneFin - 1
Ini = 1'EstrazioneFin - 11 '9449
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
B1 = Estratto(Es + 1,R1,1)
B2 = Estratto(Es + 1,R1,2)
B3 = Estratto(Es + 1,R1,3)
B4 = Estratto(Es + 1,R1,4)
B5 = Estratto(Es + 1,R1,5)
SommaA = SommaEstratti(Es,R1)
SommaB = SommaEstratti(Es + 1,R1)
'Calcoli per Primo numero
Di1 = Differenza(SommaA,SommaB)
If Di1 = B1 Or Di1 = B2 Or Di1 = B3 Or Di1 = B4 Or Di1 = B5 Then
'Calcoli per secondo numero
Xdi2 =(Di1 * 4)
Xdi2M = Xdi2 - 100
Di2 = Differenza(SommaA,Xdi2M)
Di2 = Fuori90(Di2)
' If Di2 = B1 Or Di2 = B2 Or Di2 = B3 Or Di2 = B4 Or Di2 = B5 Then
If Di2 <> Di1 Then
'Calcoli per terzo numero
Xdi3 =(SommaA * 4)
SS1 = SommaA + Xdi2
Xdi3 = Differenza(Xdi3,SS1)
Xdi3M = Xdi3 - 100
Di3 = Differenza(SommaA,Xdi3M)
Di3 = Fuori90(Di3)
'If Di3 = B1 Or Di3 = B2 Or Di3 = B3 Or Di3 = B4 Or Di3 = B5 Then
If Di3 <> Di1 And Di3 <> Di2 Then
'Calcoli per il quarto numero
SommaC = Di1 + Di2 + Di3
SommaC = SommaC / 2
Di4 =(SommaC + Di3)
Di4 = Fuori90(Di4)
'If Di4 = B1 Or Di4 = B2 Or Di4 = B3 Or Di4 = B4 Or Di4 = B5 Then
If Di4 <> Di1 And Di4 <> Di2 And Di4 <> Di3 Then
'Calcoli per quinto numero
SS2 = Di2 + Di3 + Di4
Di5 = Differenza(SommaA,SS2)
Di5 = Fuori90(Di5)
'If Di5 = B1 Or Di5 = B2 Or Di5 = B3 Or Di5 = B4 Or Di5 = B5 Then
If Di5 <> Di1 And Di5 <> Di2 And Di5 <> Di3 And Di5 <> Di4 Then
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"-") & " Caso " & FormattaStringa(Casi,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
Scrivi " Somma estratti = " & Format2(SommaA),1
Scrivi Space(74) & " Differenza col Fuori90 ",1,0
ColoreTesto 2
Scrivi Format2(Di1),1
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,0
Scrivi " Somma estratti = " & Format2(SommaB),1
Scrivi
Scrivi " Numeri trovati " & Format2(Di1) & " " & Format2(Di2) & " " & Format2(Di3) & " " & Format2(Di4) & " " & Format2(Di5)
End If
End If
End If
End If
End If
'End If
'End If
'End If
'End If
'End If
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub
Ultima modifica:
