Salve a tutti,
questo metodo l'ho chiamato: "cazzeggiando per il quadro estrazionale"
Vengo al sodo:
rilevare in una ruota qualsiasi,un ambo diametrale e su altra ruota
(impotante che sia sucessiva e non precedente all'ambo diametrale)
il numero somma dell'ambo.
A rilevamento, giocheremo il diametrale del numero somma come ambata
La quartina sarà composta dall'ambata,dalla (ambata:2),(ambata:2)+30,(ambata:2)+60
Esempiuccio:
12/1/2012
NA 43-88
RO 41
previsione
NA-RO 86 (diametrale del numero somma)
86-43-73-13
esito al 1 1° colpo NA 86
esito al 2° colpo RO 86 e ambo 86-13
Nel fratempo ci sono state molte altre vincite.
Vi allego lo script
[CODE]Sub Main() Dim ruote(11)
Dim n1(4)
Dim ambata(1)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ambata(1) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",500)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
'---------------------------------------------
If Distanza(a,b) = 45 Then
If c = Fuori90(a + b) Then
nu1 = Fuori90(a + b)
nu2 = Diametrale(nu1)
nu3 =(nu2)/2
nu4 = Fuori90(nu3 + 30)
nu5 = Fuori90(nu3 + 60)
ok = 1
'-----------------------------------------------
If ok = 1 Then
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * estratti : " & " [ " &(a) & " - " &(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * estratti : " & " [ " &(c) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,n1,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
[/CODE]
questo metodo l'ho chiamato: "cazzeggiando per il quadro estrazionale"
Vengo al sodo:
rilevare in una ruota qualsiasi,un ambo diametrale e su altra ruota
(impotante che sia sucessiva e non precedente all'ambo diametrale)
il numero somma dell'ambo.
A rilevamento, giocheremo il diametrale del numero somma come ambata
La quartina sarà composta dall'ambata,dalla (ambata:2),(ambata:2)+30,(ambata:2)+60
Esempiuccio:
12/1/2012
NA 43-88
RO 41
previsione
NA-RO 86 (diametrale del numero somma)
86-43-73-13
esito al 1 1° colpo NA 86
esito al 2° colpo RO 86 e ambo 86-13
Nel fratempo ci sono state molte altre vincite.
Vi allego lo script
[CODE]Sub Main() Dim ruote(11)
Dim n1(4)
Dim ambata(1)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ambata(1) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",500)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
'---------------------------------------------
If Distanza(a,b) = 45 Then
If c = Fuori90(a + b) Then
nu1 = Fuori90(a + b)
nu2 = Diametrale(nu1)
nu3 =(nu2)/2
nu4 = Fuori90(nu3 + 30)
nu5 = Fuori90(nu3 + 60)
ok = 1
'-----------------------------------------------
If ok = 1 Then
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * estratti : " & " [ " &(a) & " - " &(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * estratti : " & " [ " &(c) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,n1,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
[/CODE]