fillotto
Advanced Member >PLATINUM<
Con l'aiuto di questo script è possibile testare l'uscita di un estratto su due ruote
Lo script si riferisce (così com'è ) in particolare a testare il 36 che in data 17/5/12 è uscito a BA in 3^ pos e a CA in 4^ le cui risultanze dicono che è atteso il 39 nelle successive 9 estr. a BA o CA .
Con poche modifiche si possono testare tutte le altre uscite di uno stesso numero che esce in due ruote consecutive
Ripeto, adesso così come è adesso si è testata la situazione del 36 a BA-CA che dovrebbe portare all'uscita del 39
Lo script si riferisce (così com'è ) in particolare a testare il 36 che in data 17/5/12 è uscito a BA in 3^ pos e a CA in 4^ le cui risultanze dicono che è atteso il 39 nelle successive 9 estr. a BA o CA .
Con poche modifiche si possono testare tutte le altre uscite di uno stesso numero che esce in due ruote consecutive
Ripeto, adesso così come è adesso si è testata la situazione del 36 a BA-CA che dovrebbe portare all'uscita del 39
Codice:
Sub Main()
'Stesso numero estratto in due ruote consecutive tecnica per rintracciare l'estratto + fequente
Dim ruote(2),num1(2),posta(3)
posta(1) = 1
ce = InputBox(" estrazione vuoi controllare? ","estrazione",1000)
k = InputBox("per quanti colpi?","colpi di gioco",9)
r2 = CInt(InputBox("SCRIVI la posizione della PRIMA RUOTA ?","POSIZIONE PRIMA RUOTA",3))
r2p = CInt(InputBox("SCRIVI la posizione ruota 2","POSIZ-RUOTA2",4))
ada = CInt(InputBox("SCRIVI il NUMERO ADATTATORE","ADATTAORE ?",3))
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
p1 = r2
a = Estratto(es,r1,p1)
p2 = r2p
b = Estratto(es,r1 + 1,p2)
If a = b And Cadenza(a) = 6 Then 'per restringere il campo di osservazione chiediamo che il numero in comune deve appartenere alla
'cadenza 6 perchè questo script è stato fatto alla luce dell'uscita del 36 in 3^ pos su BA e 4^ pos in CA nell'estr. 17/5/12
'quindi con questo script in sostanza si riesce a vedere che il numero che esce più frequentemente dopo l'uscita di uno stesso numero
'di cadenza 6 in 2 ruote consecutive rispettivamente quando escono al 3 e 4 posto
casi = casi + 1
ColoreTesto 0
Scrivi String(60,"-") & " caso n°" & casi
'------------------------------------------------------------ caso n°1
ColoreTesto 1
Scrivi " il num in comune è " & " " & a & " " & "a cui aggiungiamo Fuori90 l' adattatore" & " " & ada & " "& " che hai scelto"
ruote(1) = r1
ruote(2) = r1 + 1
n1 = a'
n2 = Fuori90(a + ada)' inserire un alto adattatore per prove
num1(2) = n2
Scrivi " le ruote su cui giocare sono" & " " & SiglaRuota(r1) & SiglaRuota(r1 + 1)
ColoreTesto 0
ImpostaGiocata 1,num1,ruote,posta,k,1
Gioca es,,,1',True ' CON " TRUE " SCEGLIAMO DI VISUALIZZARE SOLO LE ESTRAZIONI CHE VANNO A BUON FINE
End If
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "STESSO Estratto su 2 Ruote consecutive ",1
Scrivi String(45,32) & "Listato by Fillotto",1
ColoreTesto 0
End Sub
