R
Roby
Guest
COSA SAREBBE QUESTA COSA SUL 13 ?
Che peccato non aver letto prima...
Ciao Alien
Questo è lo script del 13 a bari in prima posizione.
Più in basso ti aggiungo lo script del numero "1" in 5° posizione a Bari, appena uscito.
leggi gli script se vuoi più indicazioni sui numeri.
il 13 in 1° pos.
-----------------------------------------------------------
"1" in 5°pos.
Che peccato non aver letto prima...
Ciao Alien
Questo è lo script del 13 a bari in prima posizione.
Più in basso ti aggiungo lo script del numero "1" in 5° posizione a Bari, appena uscito.
leggi gli script se vuoi più indicazioni sui numeri.
il 13 in 1° pos.
Codice:
Option Explicit
Sub Main()
Dim sp,casi,Ini,fin,es,a,ng,r,eEsc,clp,pos
Dim ruota(1)
Dim poste(10)
Dim n1(10)
Dim n(90)
poste(2) = 1
poste(3) = 1
poste(4) = 1
casi = 0
sp = 13
n1(1) = 61
n1(2) = 58
n1(3) = 18
n1(4) = 77
n1(5) = 23
n1(6) = 86
n1(7) = 11
n1(8) = 60
n1(9) = 21
n1(10) = 30
' 21-76-81-83-04-22-30-42-45-48-59-09-17. (altri numeri statisticamente buoni dopo spia 13 in prima posizione)
eEsc = InputBox("Quante estrazioni controllo? ","N° ESTRAZIONI di CONTROLLO ",9478)
clp = InputBox("Quanti colpi di gioco? ","COLPI di GIOCO ",9)
r = InputBox("Su che Ruota? ","Ruota di Gioco ",1)
pos = InputBox("Che Posizione? ","Posizione estratto ",1)
Ini = EstrazioneFin - eEsc
fin = EstrazioneFin
For es = Ini To fin
Messaggio "Estraz n° " & es & " del " & DataEstrazione(es) & " per " & NomeRuota(r)
Call AvanzamentoElab(Ini,fin,es)
a = Estratto(es,r,pos)
If a = sp Then
casi = casi + 1
ruota(1) = r
Scrivi String(70,"-") & " caso n° " &(casi)
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] trovato in pos " & pos & " [ " & Format2(Estratto(es,r,pos)) & " ]",1,,,1
ImpostaGiocata 1,n1,ruota,poste,clp,2
Gioca es
Scrivi " Casi Totali = " & casi
End If
Next
ScriviResoconto,False
End Sub-----------------------------------------------------------
"1" in 5°pos.
Codice:
Option Explicit
Sub Main()
Dim sp,casi,Ini,fin,es,a,ng,r,eEsc,clp,pos
Dim ruota(1)
Dim poste(10)
Dim n1(10)
Dim n(90)
poste(2) = 1
poste(3) = 1
poste(4) = 1
casi = 0
sp = 1
n1(1) = 66
n1(2) = 81
n1(3) = 46
n1(4) = 68
n1(5) = 5
n1(6) = 48
n1(7) = 23
n1(8) = 40
n1(9) = 89
n1(10) = 84
' 78-49-10-17-72-51. (altri numeri statisticamente buoni dopo spia 1 in quinta posizione)
eEsc = InputBox("Quante estrazioni controllo? ","N° ESTRAZIONI di CONTROLLO ",9478)
clp = InputBox("Quanti colpi di gioco? ","COLPI di GIOCO ",9)
r = InputBox("Su che Ruota? ","Ruota di Gioco ",1)
pos = InputBox("Che Posizione? ","Posizione estratto ",5)
Ini = EstrazioneFin - eEsc
fin = EstrazioneFin
For es = Ini To fin
Messaggio "Estraz n° " & es & " del " & DataEstrazione(es) & " per " & NomeRuota(r)
Call AvanzamentoElab(Ini,fin,es)
a = Estratto(es,r,pos)
If a = sp Then
casi = casi + 1
ruota(1) = r
Scrivi String(70,"-") & " caso n° " &(casi)
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] trovato in pos " & pos & " [ " & Format2(Estratto(es,r,pos)) & " ]",1,,,1
ImpostaGiocata 1,n1,ruota,poste,clp,2
Gioca es
Scrivi " Casi Totali = " & casi
End If
Next
ScriviResoconto,False
End Sub
