Rafele ‘o Ruoss’
Banned
vero son proprio bravi e tecnicamente preparati presumo, solo che alle volte parlano un linguaggio tutto loro e si fa fatica nel capire.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Le mie solite idee
- Creatore Discussione Marco-elle
- Data di inizio
Marco-elle
Banned
Ricerca statistica su quaterna in cadenza su TT
Gioca 3 ambi + 1 quartina su ruote congeniali
Gioca 3 ambi + 1 quartina su ruote congeniali
Codice:
Sub Main()
ColoreTesto 2
Scrivi "QUATERNA IN CADENZA SU TT "
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim ruota(2)
Dim a1(2),a2(2),a3(2),a4(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 7000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 11
For p1 = 1 To 2
For p2 = p1 + 1 To 3
For p3 = p2 + 1 To 4
For p4 = p3 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
d = Estratto(es,r1,p4)
ok = 0
If Cadenza(a) = 1 And Cadenza(b) = 1 And Cadenza(c) = 1 And Cadenza(d) = 1 Then
a1(1) = 2
a1(2) = 25
a2(1) = 2
a2(2) = 56
a3(1) = 2
a3(2) = 57
a4(1) = 2
a4(2) = 25
a4(3) = 56
a4(4) = 69
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Cadenza(a) = 2 And Cadenza(b) = 2 And Cadenza(c) = 2 And Cadenza(d) = 2 Then
a1(1) = 6
a1(2) = 17
a2(1) = 6
a2(2) = 34
a3(1) = 6
a3(2) = 72
a4(1) = 6
a4(2) = 27
a4(3) = 34
a4(4) = 72
ruota(1) = 7
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 3 And Cadenza(b) = 3 And Cadenza(c) = 3 And Cadenza(d) = 3 Then
a1(1) = 31
a1(2) = 16
a2(1) = 31
a2(2) = 43
a3(1) = 31
a3(2) = 82
a4(1) = 8
a4(2) = 13
a4(3) = 16
a4(4) = 80
ruota(1) = 6
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 4 And Cadenza(b) = 4 And Cadenza(c) = 4 And Cadenza(d) = 4 Then
a1(1) = 4
a1(2) = 10
a2(1) = 4
a2(2) = 15
a3(1) = 4
a3(2) = 17
a4(1) = 4
a4(2) = 15
a4(3) = 17
a4(4) = 22
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Cadenza(a) = 5 And Cadenza(b) = 5 And Cadenza(c) = 5 And Cadenza(d) = 5 Then
a1(1) = 23
a1(2) = 2
a2(1) = 23
a2(2) = 8
a3(1) = 23
a3(2) = 86
a4(1) = 2
a4(2) = 8
a4(3) = 23
a4(4) = 86
ruota(1) = 6
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 6 And Cadenza(b) = 6 And Cadenza(c) = 6 And Cadenza(d) = 6 Then
a1(1) = 88
a1(2) = 2
a2(1) = 88
a2(2) = 23
a3(1) = 88
a3(2) = 70
a4(1) = 23
a4(2) = 53
a4(3) = 70
a4(4) = 88
ruota(1) = 3
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 7 And Cadenza(b) = 7 And Cadenza(c) = 7 And Cadenza(d) = 7 Then
a1(1) = 58
a1(2) = 9
a2(1) = 58
a2(2) = 55
a3(1) = 58
a3(2) = 81
a4(1) = 9
a4(2) = 48
a4(3) = 58
a4(4) = 81
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Cadenza(a) = 8 And Cadenza(b) = 8 And Cadenza(c) = 8 And Cadenza(d) = 8 Then
a1(1) = 24
a1(2) = 47
a2(1) = 24
a2(2) = 69
a3(1) = 24
a3(2) = 86
a4(1) = 24
a4(2) = 36
a4(3) = 47
a4(4) = 86
ruota(1) = 8
ruota(2) = 10
ok = 1
End If
If Cadenza(a) = 9 And Cadenza(b) = 9 And Cadenza(c) = 9 And Cadenza(d) = 9 Then
a1(1) = 15
a1(2) = 20
a2(1) = 15
a2(2) = 42
a3(1) = 15
a3(2) = 61
a4(1) = 15
a4(2) = 42
a4(3) = 61
a4(4) = 71
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 And Decina(d) = 8 Then
If Cadenza(a) = 0 And Cadenza(b) = 0 And Cadenza(c) = 0 And Cadenza(d) = 0 Then
a1(1) = 80
a1(2) = 9
a2(1) = 80
a2(2) = 70
a3(1) = 80
a3(2) = 87
a4(1) = 70
a4(2) = 80
a4(3) = 82
a4(4) = 87
ruota(1) = 5
ruota(2) = 6
ok = 1
End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"=") : ColoreTesto 1
ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
ColoreTesto 0
ColoreTesto 1
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Quaterna in Cadenza " & a & " - " & b & " - " & c & " - " & d,1
ColoreTesto 0
Scrivi
ImpostaGiocata 1,a1,ruota,poste,clp
ImpostaGiocata 2,a2,ruota,poste,clp
ImpostaGiocata 3,a3,ruota,poste,clp
ImpostaGiocata 4,a4,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
i legend
Premium Member
Ciao Marco per velocizzare la ricerca di un terno in decina potresti fare così:
---------------------------
Redim aE(5)
M=0
For p =1 to 5
E=estratto(id,r,p)
If decina(e)=1 then
M=m+1
AE(m)=E
End if
Next
If m= 3 then ' sevuoi che ci sia solo un terno
Scrivi stringa numeri (aE)
Altrimenti
If m>=3 then ' anche se ci dovessero essere più terni.
If m=4 se vuoi una quaterna
If m>=4 se vuoi anche più di una quaterna.
Sperando di aver fatto cosa gradita .
Ciao
Marco-elle
Banned
Eccerto che è cosa gradita!Ciao Marco per velocizzare la ricerca di un terno in decina potresti fare così:
---------------------------
Redim aE(5)
M=0
For p =1 to 5
E=estratto(id,r,p)
If decina(e)=1 then
M=m+1
AE(m)=E
End if
Next
If m= 3 then ' sevuoi che ci sia solo un terno
Scrivi stringa numeri (aE)
Altrimenti
If m>=3 then ' anche se ci dovessero essere più terni.
If m=4 se vuoi una quaterna
If m>=4 se vuoi anche più di una quaterna.
Sperando di aver fatto cosa gradita .
Ciao
Grazie Legend.....purtroppo sono molto Basic con ste robe
Marco-elle
Banned
Ricerca Quaterne in cadenza modificata perchè avevo sbagliato una condizione
sulle quaterne con gli zerati e non ho fatto a tempo a modificare,
Con calma cercherò di applicare i consigli dei Guru del VB Script per semplificare
le mie ricerche.Al momento,sono soddisfatto delle mie basilari saccenze e nonostante
tutto riesco a esporre ,a chi fa piacere, i miei lavori
sulle quaterne con gli zerati e non ho fatto a tempo a modificare,
Con calma cercherò di applicare i consigli dei Guru del VB Script per semplificare
le mie ricerche.Al momento,sono soddisfatto delle mie basilari saccenze e nonostante
tutto riesco a esporre ,a chi fa piacere, i miei lavori
Codice:
Sub Main()
ColoreTesto 2
Scrivi "QUATERNA IN CADENZA SU TT "
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "RICERCA E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim ruota(2)
Dim a1(2),a2(2),a3(2),a4(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 7000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 1 To 11
For p1 = 1 To 2
For p2 = p1 + 1 To 3
For p3 = p2 + 1 To 4
For p4 = p3 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
d = Estratto(es,r1,p4)
ok = 0
If Cadenza(a) = 1 And Cadenza(b) = 1 And Cadenza(c) = 1 And Cadenza(d) = 1 Then
a1(1) = 2
a1(2) = 25
a2(1) = 2
a2(2) = 56
a3(1) = 2
a3(2) = 57
a4(1) = 2
a4(2) = 25
a4(3) = 56
a4(4) = 69
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Cadenza(a) = 2 And Cadenza(b) = 2 And Cadenza(c) = 2 And Cadenza(d) = 2 Then
a1(1) = 6
a1(2) = 17
a2(1) = 6
a2(2) = 34
a3(1) = 6
a3(2) = 72
a4(1) = 6
a4(2) = 27
a4(3) = 34
a4(4) = 72
ruota(1) = 7
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 3 And Cadenza(b) = 3 And Cadenza(c) = 3 And Cadenza(d) = 3 Then
a1(1) = 31
a1(2) = 16
a2(1) = 31
a2(2) = 43
a3(1) = 31
a3(2) = 82
a4(1) = 8
a4(2) = 13
a4(3) = 16
a4(4) = 80
ruota(1) = 6
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 4 And Cadenza(b) = 4 And Cadenza(c) = 4 And Cadenza(d) = 4 Then
a1(1) = 4
a1(2) = 10
a2(1) = 4
a2(2) = 15
a3(1) = 4
a3(2) = 17
a4(1) = 4
a4(2) = 15
a4(3) = 17
a4(4) = 22
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Cadenza(a) = 5 And Cadenza(b) = 5 And Cadenza(c) = 5 And Cadenza(d) = 5 Then
a1(1) = 23
a1(2) = 2
a2(1) = 23
a2(2) = 8
a3(1) = 23
a3(2) = 86
a4(1) = 2
a4(2) = 8
a4(3) = 23
a4(4) = 86
ruota(1) = 6
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 6 And Cadenza(b) = 6 And Cadenza(c) = 6 And Cadenza(d) = 6 Then
a1(1) = 88
a1(2) = 2
a2(1) = 88
a2(2) = 23
a3(1) = 88
a3(2) = 70
a4(1) = 23
a4(2) = 53
a4(3) = 70
a4(4) = 88
ruota(1) = 3
ruota(2) = 9
ok = 1
End If
If Cadenza(a) = 7 And Cadenza(b) = 7 And Cadenza(c) = 7 And Cadenza(d) = 7 Then
a1(1) = 58
a1(2) = 9
a2(1) = 58
a2(2) = 55
a3(1) = 58
a3(2) = 81
a4(1) = 9
a4(2) = 48
a4(3) = 58
a4(4) = 81
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Cadenza(a) = 8 And Cadenza(b) = 8 And Cadenza(c) = 8 And Cadenza(d) = 8 Then
a1(1) = 24
a1(2) = 47
a2(1) = 24
a2(2) = 69
a3(1) = 24
a3(2) = 86
a4(1) = 24
a4(2) = 36
a4(3) = 47
a4(4) = 86
ruota(1) = 8
ruota(2) = 10
ok = 1
End If
If Cadenza(a) = 9 And Cadenza(b) = 9 And Cadenza(c) = 9 And Cadenza(d) = 9 Then
a1(1) = 15
a1(2) = 20
a2(1) = 15
a2(2) = 42
a3(1) = 15
a3(2) = 61
a4(1) = 15
a4(2) = 42
a4(3) = 61
a4(4) = 71
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If a = Figura(a)*10 And b = Figura(b)*10 And c = Figura(c)*10 And d = Figura(d)*10 Then
a1(1) = 80
a1(2) = 9
a2(1) = 80
a2(2) = 70
a3(1) = 80
a3(2) = 87
a4(1) = 70
a4(2) = 80
a4(3) = 82
a4(4) = 87
ruota(1) = 5
ruota(2) = 6
ok = 1
'End If
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(110,"=") : ColoreTesto 1
ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
ColoreTesto 0
ColoreTesto 1
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Quaterna in Cadenza " & a & " - " & b & " - " & c & " - " & d,1
ColoreTesto 0
Scrivi
ImpostaGiocata 1,a1,ruota,poste,clp
ImpostaGiocata 2,a2,ruota,poste,clp
ImpostaGiocata 3,a3,ruota,poste,clp
ImpostaGiocata 4,a4,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End SubMarco-elle
Banned
Ricerca statistica di terni in decina
Gioca 3 ambi + 1 quartina su ruote congeniali
Listato in collaborazione di Legend
Gioca 3 ambi + 1 quartina su ruote congeniali
Listato in collaborazione di Legend
Codice:
Sub Main
Dim idEstr,R,p,D,nClp
Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
nClp = 12
aP(2) = 1
' array da esempio, sono da modificare con i valori reali studiati da Marco
''''''''''''''''''''''''''''''''''
' cadenza zero
aAmbo(0,1) = Array(0,1,2)
aAmbo(0,2) = Array(0,1,16)
aAmbo(0,3) = Array(0,1,90)
aQuart(0) = Array(0,1,2,16,90)
aR(0) = Array(0,1,2)
'''''''''''''''''''''''''''''''''''''''''''''''
' Decina 1
aAmbo(1,1) = Array(0,12,8)
aAmbo(1,2) = Array(0,12,15)
aAmbo(1,3) = Array(0,12,38)
aQuart(1) = Array(0,12,25,36,38)
aR(1) = Array(0,1,5)
'''''''''''''''''''''''''''''''''''''''''''''''
' Decina 2
aAmbo(2,1) = Array(0,50,7)
aAmbo(2,2) = Array(0,50,70)
aAmbo(2,3) = Array(0,50,72)
aQuart(2) = Array(0,50,70,72,75)
aR(2) = Array(0,2,8)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 3
aAmbo(3,1) = Array(0,6,2)
aAmbo(3,2) = Array(0,6,29)
aAmbo(3,3) = Array(0,6,51)
aQuart(3) = Array(0,2,6,19,50)
aR(3) = Array(0,1,4)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 4
aAmbo(4,1) = Array(0,54,3)
aAmbo(4,2) = Array(0,54,26)
aAmbo(4,3) = Array(0,54,65)
aQuart(4) = Array(0,26,54,65,69)
aR(4) = Array(0,6,7)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 5
aAmbo(5,1) = Array(0,41,18)
aAmbo(5,2) = Array(0,41,33)
aAmbo(5,3) = Array(0,41,65)
aQuart(5) = Array(0,2,13,41,44)
aR(5) = Array(0,3,8)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 6
aAmbo(6,1) = Array(0,13,20)
aAmbo(6,2) = Array(0,13,58)
aAmbo(6,3) = Array(0,13,65)
aQuart(6) = Array(0,7,13,58,65)
aR(6) = Array(0,1,5)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 7
aAmbo(7,1) = Array(0,29,4)
aAmbo(7,2) = Array(0,29,15)
aAmbo(7,3) = Array(0,29,56)
aQuart(7) = Array(0,4,15,29,56)
aR(7) = Array(0,3,5)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 8
aAmbo(8,1) = Array(0,34,18)
aAmbo(8,2) = Array(0,34,33)
aAmbo(8,3) = Array(0,34,65)
aQuart(8) = Array(0,2,5,14,34)
aR(8) = Array(0,1,4)
''''''''''''''''''''''''''''''''''''''''''''
For idEstr = EstrazioneFin - 300 To EstrazioneFin
For R = 1 To 10
ReDim aE(0)
Call GetArrayNumeriRuota(idEstr,R,aE)
ReDim aDec(9,2)' va da 0 a 9
For p = 1 To 5
D = Decina(aE(p))
aDec(D,1) = aDec(D,1) + 1
aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
Next
For D = 0 To 9
If aDec(D,1) >= 3 Then
Scrivi idEstr & " " & SiglaRuota(R) & " " & StringaEstratti(idEstr,R) & " " & aDec(D,2)
Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
Call Gioca(idEstr,1)
Exit For
End If
Next
Next
Next ' idestr
Call ScriviResoconto
End SubMarco-elle
Banned
Così è più pulito
Codice:
Sub Main
Dim idEstr,R,p,D,nClp
Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
nClp = 12
aP(2) = 1
' array da esempio, sono da modificare con i valori reali studiati da Marco
''''''''''''''''''''''''''''''''''
' cadenza zero
aAmbo(0,1) = Array(0,1,2)
aAmbo(0,2) = Array(0,1,16)
aAmbo(0,3) = Array(0,1,90)
aQuart(0) = Array(0,1,2,16,90)
aR(0) = Array(0,1,2)
'''''''''''''''''''''''''''''''''''''''''''''''
' Decina 1
aAmbo(1,1) = Array(0,12,8)
aAmbo(1,2) = Array(0,12,15)
aAmbo(1,3) = Array(0,12,38)
aQuart(1) = Array(0,12,25,36,38)
aR(1) = Array(0,1,5)
'''''''''''''''''''''''''''''''''''''''''''''''
' Decina 2
aAmbo(2,1) = Array(0,50,7)
aAmbo(2,2) = Array(0,50,70)
aAmbo(2,3) = Array(0,50,72)
aQuart(2) = Array(0,50,70,72,75)
aR(2) = Array(0,2,8)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 3
aAmbo(3,1) = Array(0,6,2)
aAmbo(3,2) = Array(0,6,29)
aAmbo(3,3) = Array(0,6,51)
aQuart(3) = Array(0,2,6,19,50)
aR(3) = Array(0,1,4)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 4
aAmbo(4,1) = Array(0,54,3)
aAmbo(4,2) = Array(0,54,26)
aAmbo(4,3) = Array(0,54,65)
aQuart(4) = Array(0,26,54,65,69)
aR(4) = Array(0,6,7)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 5
aAmbo(5,1) = Array(0,41,18)
aAmbo(5,2) = Array(0,41,33)
aAmbo(5,3) = Array(0,41,65)
aQuart(5) = Array(0,2,13,41,44)
aR(5) = Array(0,3,8)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 6
aAmbo(6,1) = Array(0,13,20)
aAmbo(6,2) = Array(0,13,58)
aAmbo(6,3) = Array(0,13,65)
aQuart(6) = Array(0,7,13,58,65)
aR(6) = Array(0,1,5)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 7
aAmbo(7,1) = Array(0,29,4)
aAmbo(7,2) = Array(0,29,15)
aAmbo(7,3) = Array(0,29,56)
aQuart(7) = Array(0,4,15,29,56)
aR(7) = Array(0,3,5)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 8
aAmbo(8,1) = Array(0,34,18)
aAmbo(8,2) = Array(0,34,33)
aAmbo(8,3) = Array(0,34,65)
aQuart(8) = Array(0,2,5,14,34)
aR(8) = Array(0,1,4)
''''''''''''''''''''''''''''''''''''''''''''
For idEstr = EstrazioneFin - 300 To EstrazioneFin
For R = 1 To 10
ReDim aE(0)
Call GetArrayNumeriRuota(idEstr,R,aE)
ReDim aDec(9,2)' va da 0 a 9
For p = 1 To 5
D = Decina(aE(p))
aDec(D,1) = aDec(D,1) + 1
aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
Next
For D = 0 To 9
If aDec(D,1) >= 3 Then
ColoreTesto 1
Scrivi String(65,"=") : ColoreTesto 0
Scrivi idEstr & " " & SiglaRuota(R) & " " & StringaEstratti(idEstr,R) & " " & aDec(D,2)
ColoreTesto 1
Scrivi String(65,"=") : ColoreTesto 0
Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
Call Gioca(idEstr,1)
Exit For
End If
Next
Next
Next ' idestr
Call ScriviResoconto
End SubMarco-elle
Banned
Script definitivo,vi erano alcuni errori previsionali
Codice:
Sub Main
Dim idEstr,R,p,D,nClp
Dim aAmbo(9,3),aQuart(9),aR(9),aP(2) ' indici da zero a 9
nClp = 12
aP(2) = 1
' array da esempio, sono da modificare con i valori reali studiati da Marco
''''''''''''''''''''''''''''''''''
' cadenza zero
aAmbo(0,1) = Array(0,42,17)
aAmbo(0,2) = Array(0,42,78)
aAmbo(0,3) = Array(0,42,84)
aQuart(0) = Array(0,2,41,42,78)
aR(0) = Array(0,6,10)
'''''''''''''''''''''''''''''''''''''''''''''''
' Decina 1
aAmbo(1,1) = Array(0,12,8)
aAmbo(1,2) = Array(0,12,15)
aAmbo(1,3) = Array(0,12,38)
aQuart(1) = Array(0,12,25,36,38)
aR(1) = Array(0,1,5)
'''''''''''''''''''''''''''''''''''''''''''''''
' Decina 2
aAmbo(2,1) = Array(0,50,7)
aAmbo(2,2) = Array(0,50,70)
aAmbo(2,3) = Array(0,50,72)
aQuart(2) = Array(0,50,70,72,75)
aR(2) = Array(0,2,8)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 3
aAmbo(3,1) = Array(0,6,2)
aAmbo(3,2) = Array(0,6,29)
aAmbo(3,3) = Array(0,6,51)
aQuart(3) = Array(0,2,6,19,50)
aR(3) = Array(0,1,4)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 4
aAmbo(4,1) = Array(0,54,3)
aAmbo(4,2) = Array(0,54,26)
aAmbo(4,3) = Array(0,54,65)
aQuart(4) = Array(0,26,54,65,69)
aR(4) = Array(0,6,7)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 5
aAmbo(5,1) = Array(0,41,18)
aAmbo(5,2) = Array(0,41,33)
aAmbo(5,3) = Array(0,41,65)
aQuart(5) = Array(0,2,13,41,44)
aR(5) = Array(0,3,8)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 6
aAmbo(6,1) = Array(0,13,20)
aAmbo(6,2) = Array(0,13,58)
aAmbo(6,3) = Array(0,13,65)
aQuart(6) = Array(0,7,13,58,65)
aR(6) = Array(0,1,5)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 7
aAmbo(7,1) = Array(0,29,4)
aAmbo(7,2) = Array(0,29,15)
aAmbo(7,3) = Array(0,29,56)
aQuart(7) = Array(0,4,15,29,56)
aR(7) = Array(0,3,5)
''''''''''''''''''''''''''''''''''''''''''''
' Decina 8
aAmbo(8,1) = Array(0,34,18)
aAmbo(8,2) = Array(0,34,33)
aAmbo(8,3) = Array(0,34,65)
aQuart(8) = Array(0,2,5,14,34)
aR(8) = Array(0,1,4)
''''''''''''''''''''''''''''''''''''''''''''
For idEstr = EstrazioneFin - 300 To EstrazioneFin
For R = 1 To 10
ReDim aE(0)
Call GetArrayNumeriRuota(idEstr,R,aE)
ReDim aDec(9,2)' va da 0 a 9
For p = 1 To 5
D = Decina(aE(p))
aDec(D,1) = aDec(D,1) + 1
aDec(D,2) = aDec(D,2) & Format2(aE(p)) & " "
Next
For D = 0 To 9
If aDec(D,1) >= 3 Then
ColoreTesto 1
Scrivi String(65,"=") : ColoreTesto 0
Scrivi idEstr & " " & SiglaRuota(R) & " " & StringaEstratti(idEstr,R) & " " & aDec(D,2)
ColoreTesto 1
Scrivi String(65,"=") : ColoreTesto 0
Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
Call Gioca(idEstr,1)
Exit For
End If
Next
Next
Next ' idestr
Call ScriviResoconto
End SubMarco-elle
Banned
Ricerca Statistica su Quaterne in figura
Gioca 3 ambi + 1 quartina su ruote congeniali
Gioca 3 ambi + 1 quartina su ruote congeniali
Codice:
Sub Main
ColoreTesto 2
Scrivi " QUATERNA IN FIGURA "
Scrivi " GIOCA 3 AMBI + 1 QUARTINA SU RUOTE CONGENIALI "
Scrivi " RICERCA BY Marco"
ColoreTesto 0
Dim idEstr,R,p,D,nClp
Dim aAmbo(9,3),aQuart(9),aR(9),aP(2)
nClp = 12
aP(2) = 1
''''''''''''''''''''''''''''''''''
' Figura 9
aAmbo(9,1) = Array(0,30,17)
aAmbo(9,2) = Array(0,30,78)
aAmbo(9,3) = Array(0,30,84)
aQuart(9) = Array(0,30,58,70,81)
aR(9) = Array(0,7,10)
'''''''''''''''''''''''''''''''''''''''''''''''
' Figura 1
aAmbo(1,1) = Array(0,27,31)
aAmbo(1,2) = Array(0,27,64)
aAmbo(1,3) = Array(0,27,78)
aQuart(1) = Array(0,3,27,31,64)
aR(1) = Array(0,2,6)
'''''''''''''''''''''''''''''''''''''''''''''''
' Figura 2
aAmbo(2,1) = Array(0,64,15)
aAmbo(2,2) = Array(0,64,49)
aAmbo(2,3) = Array(0,64,58)
aQuart(2) = Array(0,9,48,64,72)
aR(2) = Array(0,3,7)
''''''''''''''''''''''''''''''''''''''''''''
' Figura 3
aAmbo(3,1) = Array(0,60,29)
aAmbo(3,2) = Array(0,60,78)
aAmbo(3,3) = Array(0,60,81)
aQuart(3) = Array(0,29,60,68,81)
aR(3) = Array(0,1,2)
''''''''''''''''''''''''''''''''''''''''''''
' Figura 4
aAmbo(4,1) = Array(0,36,4)
aAmbo(4,2) = Array(0,36,32)
aAmbo(4,3) = Array(0,36,72)
aQuart(4) = Array(0,5,12,36,72)
aR(4) = Array(0,3,6)
''''''''''''''''''''''''''''''''''''''''''''
' Figura 5
aAmbo(5,1) = Array(0,26,18)
aAmbo(5,2) = Array(0,26,33)
aAmbo(5,3) = Array(0,26,65)
aQuart(5) = Array(0,1,26,59,65)
aR(5) = Array(0,3,9)
''''''''''''''''''''''''''''''''''''''''''''
' Figura 6
aAmbo(6,1) = Array(0,41,6)
aAmbo(6,2) = Array(0,41,38)
aAmbo(6,3) = Array(0,41,73)
aQuart(6) = Array(0,38,41,47,73)
aR(6) = Array(0,3,4)
''''''''''''''''''''''''''''''''''''''''''''
' Figura 7
aAmbo(7,1) = Array(0,54,12)
aAmbo(7,2) = Array(0,54,14)
aAmbo(7,3) = Array(0,54,15)
aQuart(7) = Array(0,4,14,54,76)
aR(7) = Array(0,2,10)
''''''''''''''''''''''''''''''''''''''''''''
' Figura 8
aAmbo(8,1) = Array(0,32,6)
aAmbo(8,2) = Array(0,32,66)
aAmbo(8,3) = Array(0,32,90)
aQuart(8) = Array(0,6,32,49,90)
aR(8) = Array(0,5,7)
''''''''''''''''''''''''''''''''''''''''''''
For idEstr = EstrazioneFin - 4000 To EstrazioneFin
For R = 1 To 10
ReDim aE(0)
Call GetArrayNumeriRuota(idEstr,R,aE)
ReDim aFig(9,2)' va da 0 a 9
For p = 1 To 5
D = Figura(aE(p))
aFig(D,1) = aFig(D,1) + 1
aFig(D,2) = aFig(D,2) & Format2(aE(p)) & " "
Next
For D = 0 To 9
If aFig(D,1) >= 4 Then
ColoreTesto 1
Scrivi String(65,"*") : ColoreTesto 0
Scrivi idEstr & " " & SiglaRuota(R) & " " & StringaEstratti(idEstr,R) & " - Quaterna in figura - " & aFig(D,2)
ColoreTesto 1
Scrivi String(65,"*") : ColoreTesto 0
Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
Call Gioca(idEstr,1)
Exit For
End If
Next
Next
Next
Call ScriviResoconto
End SubMarco-elle
Banned
Ricerca statistica del terno radicale in figura
Gioca 3 ambi + 1 quartina su ruote congeniali
Gioca 3 ambi + 1 quartina su ruote congeniali
Codice:
Sub Main
ColoreTesto 2
Scrivi " TERNO RADICALE IN FIGURA "
Scrivi " GIOCA 3 AMBI + 1 QUARTINA SU RUOTE CONGENIALI "
Scrivi " RICERCA BY Marco"
ColoreTesto 0
Dim idEstr,R,p,D,nClp
Dim aAmbo(9,3),aQuart(9),aR(9),aP(2)
nClp = 12
aP(2) = 1
'''''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 1
aAmbo(1,1) = Array(0,30,3)
aAmbo(1,2) = Array(0,30,17)
aAmbo(1,3) = Array(0,30,84)
aQuart(1) = Array(0,3,17,30,84)
aR(1) = Array(0,1,5)
'''''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 2
aAmbo(2,1) = Array(0,56,15)
aAmbo(2,2) = Array(0,56,49)
aAmbo(2,3) = Array(0,56,58)
aQuart(2) = Array(0,21,26,56,81)
aR(2) = Array(0,2,7)
''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 3
aAmbo(3,1) = Array(0,15,17)
aAmbo(3,2) = Array(0,15,41)
aAmbo(3,3) = Array(0,15,59)
aQuart(3) = Array(0,15,40,41,44)
aR(3) = Array(0,1,7)
''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 4
aAmbo(4,1) = Array(0,83,3)
aAmbo(4,2) = Array(0,83,44)
aAmbo(4,3) = Array(0,83,65)
aQuart(4) = Array(0,3,44,65,83)
aR(4) = Array(0,2,4)
''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 5
aAmbo(5,1) = Array(0,2,53)
aAmbo(5,2) = Array(0,2,57)
aAmbo(5,3) = Array(0,2,64)
aQuart(5) = Array(0,2,31,53,57)
aR(5) = Array(0,2,5)
''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 6
aAmbo(6,1) = Array(0,41,15)
aAmbo(6,2) = Array(0,41,17)
aAmbo(6,3) = Array(0,41,44)
aQuart(6) = Array(0,1,10,41,44)
aR(6) = Array(0,1,4)
''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 7
aAmbo(7,1) = Array(0,10,7)
aAmbo(7,2) = Array(0,10,8)
aAmbo(7,3) = Array(0,10,66)
aQuart(7) = Array(0,8,10,47,66)
aR(7) = Array(0,2,7)
''''''''''''''''''''''''''''''''''''''''''''
' Terno Radicale Figura 8
aAmbo(8,1) = Array(0,19,30)
aAmbo(8,2) = Array(0,19,57)
aAmbo(8,3) = Array(0,19,59)
aQuart(8) = Array(0,8,10,19,30)
aR(8) = Array(0,1,8)
''''''''''''''''''''''''''''''''''''''''''''
For idEstr = EstrazioneFin - 6000 To EstrazioneFin
For R = 1 To 10
ReDim aE(0)
Call GetArrayNumeriRuota(idEstr,R,aE)
ReDim aRad(8,2)' va da 0 a 9
For p = 1 To 5
D = Radicale(aE(p))
aRad(D,1) = aRad(D,1) + 1
aRad(D,2) = aRad(D,2) & Format2(aE(p)) & " "
Next
For D = 1 To 8
If aRad(D,1) = 3 Then
ColoreTesto 1
Scrivi String(65,"*") : ColoreTesto 0
Scrivi idEstr & " " & SiglaRuota(R) & " " & StringaEstratti(idEstr,R) & " - Terno Radicale in Figura - " & aRad(D,2)
ColoreTesto 1
Scrivi String(65,"*") : ColoreTesto 0
Call ImpostaGiocata(1,aAmbo(D,1),aR(D),aP,nClp)
Call ImpostaGiocata(2,aAmbo(D,2),aR(D),aP,nClp)
Call ImpostaGiocata(3,aAmbo(D,3),aR(D),aP,nClp)
Call ImpostaGiocata(4,aQuart(D),aR(D),aP,nClp)
Call Gioca(idEstr,1)
Exit For
End If
Next
Next
Next
Call ScriviResoconto
End SubMarco-elle
Banned
Questa sera il metodo del cavallo full version
regala un altro ambo,sembra il metodo più
profiquo di quelli inseriti
regala un altro ambo,sembra il metodo più
profiquo di quelli inseriti
Marco-elle
Banned
Diaventiamo tutti ricchi
metodo sommativo
gioca 1 cinquina su BA
metodo sommativo
gioca 1 cinquina su BA
Codice:
Sub Main()
ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI"
Scrivi "GIOCA 1 CINQUINA SU BARI"
Scrivi "METODO BY MARCO"
ColoreTesto 0
Dim n(5)
Dim ruota(1)
Dim pt5(5)
pt5(2) = 1
pt5(3) = 1
pt5(4) = 1
pt5(5) = 1
clp = 10
co = 0
ini = 9500
For es = ini To EstrazioneFin
Messaggio(es)
For r = 12 To 12
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
ok = 0
If a < 10 And b < 10 And c < 10 Then
n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2)
n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10))
n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4))
n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65))
n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12)
ok = 1
End If
If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31))
n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24))
n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63))
n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4))
n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1)
ok = 1
End If
If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then
n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37))
n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52))
n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4))
n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14))
n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3)
ok = 1
End If
If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then
n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1)
n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1)
n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1)
ok = 1
End If
If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then
n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14))
n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1))
n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63))
n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1))
n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39)
ok = 1
End If
If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then
n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55))
n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7))
n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1))
n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25))
n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1))
ok = 1
End If
If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then
n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25))
n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5))
n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1))
n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6))
n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86)
ok = 1
End If
If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then
n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67))
n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13))
n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26))
n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6)
n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1)
ok = 1
End If
If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then
n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76))
n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1))
n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13)
n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33)
n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1))
ok = 1
End If
If ok = 1 Then
ColoreTesto 2
Scrivi String(110,"*") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
Scrivi
ruota(1) = 1
ImpostaGiocata 1,n,ruota,pt5,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End SubCiao Marco puoi scrivere la previsione e quanti colpi grazie mille
Marco-elle
Banned
Ciao Tessa,
attualmente non ci sono previsioni in corso
Marco-elle
Banned
Sei un anunnaki, confessa...
Buongiorno grazie Marco
Rafele ‘o Ruoss’
Banned
Buon pomeriggio Marco, è sempre apprezzato ogni tuo post lo è ancora di piu' quando ti accorgi che l'incredibile esiste , non sono un esperto
e non conosco le funzionalità degli script in genere ma ce tanta curiosità.
Provando ad andare a ritroso nel tempo ho notato che dal 2005 a metà circa del 2018 lo script ha prodotto poco e solo pochi ambi ,come mai aldilà di varie modifiche da metà del 2018 lo stesso ha praticamente sbancato quasi ogni mese fino ad oggi ?cosa secondo te puo' esser accaduto
in questo preciso periodo.
il fatto di averlo condiviso puo' secondo la tua esperienza incidere sui strabilianti risultati avuti fino ad oggi.
grazie
Marco-elle
Banned
Ciao Bogotà,
La mia ricerca è fatta dal 2018
Questi algoritmi sono sempre da prendere con le pinze,però è bello vedere output del genere ma…..ti posso assicurare che,molto spesso questo tipo di previsioni vanno a segno.Sono sempre alla ricerca di nuove possibili combinazioni da mettere in gioco cercando di giocare meno colpi possibile e quando vado a verificare se la previsione è valida,moltissime volte mi ritrovo con vincite pazzesche mancate.Ora però….in questo periodo mi sto divertendo con le ambate in posizione da giocare max 3/4 colpi,non disdegnando qualche buona convergenza
Rafele ‘o Ruoss’
Banned
non ultima e come non ricordarla la quaterna sulla NZ
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 21 giugno 2025Bari0703452505Cagliari2073885015Firenze0419095255Genova2147655324Milano1164706751Napoli5966833303Palermo6174286204Roma2529155444Torino3422305928Venezia4275068384Nazionale3667415456Estrazione Simbolotto
Napoli
0240062629
