Halmun
Advanced Member >PLATINUM<
Certo, già presenti nel Programma SpazioMetria, ma non nella rilevazione delle migliori % d'esito fra coppie-estratti di diversa posizione .
vedi script d'esempio = Pos1 - Pos2
vedi script d'esempio = Pos1 - Pos2
Codice:
'BARI - analisi ultime 794 estraz. doppia ambata x 9° C.
'POS1 - POS2 - RANGE - % - F1 - F2
'5-6-794-87-26-53-
'7-8-794-85-30-23-
'5-8-794-85-26-23-
'4-5-794-85-01-26-
'4-8-794-82-01-23-
'8-8-794-80-23-30-
'4-4-794-80-01-75-
'6-7-794-79-53-30-
'5-7-794-79-26-30-
'4-6-794-79-01-53-
'6-6-794-77-53-39-
'6-8-794-77-53-23-
'4-7-794-77-01-30-
'diminuire di 3 i Valori Pos1 e Pos2 x ottenere l'estratto-base
'F1 e F2 = Adattatori moltiplicativi ( x )
'esempio Pos1 Pos2 :
'5-6-794-87-26-53- /// pos1=5 - 3 = 2° estratto /// pos2=6 - 3 = 3° estratto
'quindi :
'1°ma ambata = 2° Estratto x 26 ( F1 )
'2°da ambata = 3° Estratto x 53 ( F2 )
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1) = 1
poste(2) = 0
ruote(1) = 1
For n = 7799 To EstrazioneFin
If IndiceMensile(n) = 1 Then
numeri1(1) = Fuori90(90 +((Estratto(n,1,2)*(26))))
numeri1(2) = Fuori90(90 +((Estratto(n,1,3)*(53))))
ImpostaGiocata 1,numeri1,ruote,poste,9,1
Gioca n
End If
Next
ScriviResoconto
End Sub