Marco-elle
Advanced Member >PLATINUM PLUS<
BARI
12
12-34
12-34-77
Lambozzo 60-88 mi ha stufato ma è ancora valido x la prossima settimana
12
12-34
12-34-77
Lambozzo 60-88 mi ha stufato ma è ancora valido x la prossima settimana
su bari ho 77- 88BARI
12
12-34
12-34-77
Lambozzo 60-88 mi ha stufato ma è ancora valido x la prossima settimana
Ciao Fedee,su bari ho 77- 88
Anca a statistica ghesCiao Fedee,
è molto gettonato questo ambo e risulta anche a me da una formula
statistica Allorquando di Mirco
Avete questo sistema allorquando ?Ciao Fedee,
è molto gettonato questo ambo e risulta anche a me da una formula
statistica Allorquando di Mirco
Si,sono delle formule che ho riportato tuttoAvete questo sistema allorquando ?
Riusciresti a postarlo ?Si,sono delle formule che ho riportato tutto
in listati....in modo da tenere monitorato
per le convergenze
Ti inserisco lo script al limite ti ricavi le previsioni da quiRiusciresti a postarlo ?
Sub Main()
ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3)
pt(1) = 1
pt1(2) = 1
pt2(2) = 1:pt2(3) = 1
clp = 15
co = 0
ini = 10240
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
c = Estratto(es,r1,p)
ok = 0
If(a = 19 Or a = 37 Or a = 64)_
And(b = 19 Or b = 37 Or b = 64)_
And(c = 19 Or c = 37 Or c = 64) Then amb(1) = 30:amb(2) = 20:amb(3) = 30:amb(4) = 29:amb(5) = 30:amb(6) = 31:amb(7) = 30:amb(8) = 40:amb(9) = 30:amb(10) = 20:amb(11) = 29:amb(12) = 31:amb(13) = 40:amb(14) = 82:ok = 1
If(a = 38 Or a = 65 Or a = 83)_
And(b = 38 Or b = 65 Or b = 83)_
And(c = 38 Or c = 65 Or c = 83) Then amb(1) = 06:amb(2) = 05:amb(3) = 07:amb(4) = 05:amb(5) = 16:amb(6) = 05:amb(7) = 20:amb(8) = 05:amb(9) = 86:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
If(a = 16 Or a = 34 Or a = 79)_
And(b = 16 Or b = 34 Or b = 79)_
And(c = 16 Or c = 34 Or c = 79) Then amb(1) = 39:amb(2) = 29:amb(3) = 38:amb(4) = 29:amb(5) = 49:amb(6) = 40:amb(7) = 39:amb(8) = 40:amb(9) = 61:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
If(a = 09 Or a = 36 Or a = 54)_
And(b = 09 Or b = 36 Or b = 54)_
And(c = 09 Or c = 36 Or c = 54) Then amb(1) = 08:amb(2) = 08:amb(3) = 89:amb(4) = 09:amb(5) = 89:amb(6) = 09:amb(7) = 19:amb(8) = 81:amb(9) = 19:amb(10) = 09:amb(11) = 10:amb(12) = 19:amb(13) = 81:amb(14) = 89:ok = 1
If(a = 1 Or a = 28 Or a = 46)_
And(b = 1 Or b = 28 Or b = 46)_
And(c = 1 Or c = 28 Or c = 46) Then amb(1) = 75:amb(2) = 75:amb(3) = 65:amb(4) = 75:amb(5) = 74:amb(6) = 85:amb(7) = 65:amb(8) = 85:amb(9) = 75:amb(10) = 65:amb(11) = 73:amb(12) = 74:amb(13) = 75:amb(14) = 76:ok = 1
If(a = 4 Or a = 49 Or a = 76)_
And(b = 4 Or b = 49 Or b = 76)_
And(c = 4 Or c = 49 Or c = 76) Then amb(1) = 39:amb(2) = 29:amb(3) = 31:amb(4) = 29:amb(5) = 38:amb(6) = 39:amb(7) = 31:amb(8) = 39:amb(9) = 49:amb(10) = 29:amb(11) = 31:amb(12) = 38:amb(13) = 40:amb(14) = 49:ok = 1
If(a = 22 Or a = 40 Or a = 67)_
And(b = 22 Or b = 40 Or b = 67)_
And(c = 22 Or c = 40 Or c = 67) Then amb(1) = 38:amb(2) = 38:amb(3) = 39:amb(4) = 40:amb(5) = 39:amb(6) = 38:amb(7) = 49:amb(8) = 40:amb(9) = 49:amb(10) = 29:amb(11) = 39:amb(12) = 40:amb(13) = 49:amb(14) = 85:ok = 1
If(a = 08 Or a = 53 Or a = 71)_
And(b = 08 Or b = 53 Or b = 71)_
And(c = 08 Or c = 53 Or c = 71) Then amb(1) = 26:amb(2) = 26:amb(3) = 32:amb(4) = 52:amb(5) = 32:amb(6) = 26:amb(7) = 41:amb(8) = 52:amb(9) = 41:amb(10) = 32:amb(11) = 41:amb(12) = 42:amb(13) = 43:amb(14) = 52:ok = 1
If(a = 25 Or a = 52 Or a = 70)_
And(b = 25 Or b = 52 Or b = 70)_
And(c = 25 Or c = 52 Or c = 70)Then amb(1) = 47:amb(2) = 07:amb(3) = 57:amb(4) = 07:amb(5) = 58:amb(6) = 57:amb(7) = 47:amb(8) = 57:amb(9) = 67:amb(10) = 07:amb(11) = 56:amb(12) = 57:amb(13) = 58:amb(14) = 67:ok = 1
If(a = 28 Or a = 55 Or a = 73)_
And(b = 28 Or b = 55 Or b = 73)_
And(c = 28 Or c = 55 Or c = 73) Then amb(1) = 65:amb(2) = 65:amb(3) = 10:amb(4) = 65:amb(5) = 66:amb(6) = 66:amb(7) = 56:amb(8) = 66:amb(9) = 67:amb(10) = 10:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
If(a = 30 Or a = 48 Or a = 75)_
And(b = 30 Or b = 48 Or b = 75)_
And(c = 30 Or c = 48 Or c = 75) Then amb(1) = 63:amb(2) = 64:amb(3) = 03:amb(4) = 64:amb(5) = 53:amb(6) = 64:amb(7) = 63:amb(8) = 64:amb(9) = 73:amb(10) = 03:amb(11) = 03:amb(12) = 53:amb(13) = 62:amb(14) = 73:ok = 1
If(a = 07 Or a = 52 Or a = 79)_
And(b = 07 Or b = 52 Or b = 79)_
And(c = 07 Or c = 52 Or c = 79) Then amb(1) = 48:amb(2) = 48:amb(3) = 38:amb(4) = 48:amb(5) = 47:amb(6) = 49:amb(7) = 47:amb(8) = 49:amb(9) = 48:amb(10) = 34:amb(11) = 38:amb(12) = 47:amb(13) = 49:amb(14) = 58:ok = 1
If(a = 45 Or a = 63 Or a = 90)_
And(b = 45 Or b = 63 Or b = 90)_
And(c = 45 Or c = 63 Or c = 90)Then amb(1) = 18:amb(2) = 18:amb(3) = 08:amb(4) = 18:amb(5) = 17:amb(6) = 18:amb(7) = 19:amb(8) = 18:amb(9) = 28:amb(10) = 08:amb(11) = 17:amb(12) = 18:amb(13) = 19:amb(14) = 28:ok = 1
If(a = 38 Or a = 56 Or a = 83)_
And(b = 38 Or b = 56 Or b = 83)_
And(c = 38 Or c = 56 Or c = 83) Then amb(1) = 87:amb(2) = 11:amb(3) = 77:amb(4) = 11:amb(5) = 88:amb(6) = 86:amb(7) = 87:amb(8) = 86:amb(9) = 88:amb(10) = 07:amb(11) = 77:amb(12) = 86:amb(13) = 87:amb(14) = 88:ok = 1
If(a = 13 Or a = 58 Or a = 85)_
And(b = 13 Or b = 58 Or b = 85)_
And(c = 13 Or c = 58 Or c = 85) Then amb(1) = 66:amb(2) = 56:amb(3) = 65:amb(4) = 56:amb(5) = 76:amb(6) = 76:amb(7) = 65:amb(8) = 76:amb(9) = 67:amb(10) = 40:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
If(a = 18 Or a = 30 Or a = 33)_
And(b = 18 Or b = 30 Or b = 33)_
And(c = 18 Or c = 30 Or c = 33) Then amb(1) = 80:amb(2) = 80:amb(3) = 34:amb(4) = 80:amb(5) = 51:amb(6) = 80:amb(7) = 57:amb(8) = 80:amb(9) = 63:amb(10) = 34:amb(11) = 57:amb(12) = 51:amb(13) = 63:amb(14) = 18:ok = 1
If ok = 1 Then
If(r <> r1 And c <> a And c <> b) Then
co = co + 1
ColoreTesto 2
Scrivi String(65,"=") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
Scrivi
ruote(1) = r
ruote(2) = r1
cg = 0
nu1(1) = amb(1)
cg = cg + 1
ImpostaGiocata cg,nu1,ruote,pt,clp
nu2(1) = amb(2)
nu2(2) = amb(3)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp
nu2(1) = amb(4)
nu2(2) = amb(5)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp
nu2(1) = amb(6)
nu2(2) = amb(7)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp
nu2(1) = amb(8)
nu2(2) = amb(9)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp
nu3(1) = amb(10)
nu3(2) = amb(11)
nu3(3) = amb(12)
nu3(4) = amb(13)
nu3(5) = amb(14)
cg = cg + 1
ImpostaGiocata cg,nu3,ruote,pt2,clp,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
End Sub
Ti inserisco lo script al limite ti ricavi le previsioni da qui
Codice:Sub Main() ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1 ColoreTesto 1 :Scrivi "------------------- Listato Marco",1 Scrivi : ColoreTesto 0 Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3) pt(1) = 1 pt1(2) = 1 pt2(2) = 1:pt2(3) = 1 clp = 15 co = 0 ini = 10240 For es = ini To EstrazioneFin Messaggio(es) For r = 1 To 12 If r = 11 Then r = 12 For p1 = 1 To 4 For p2 = p1 + 1 To 5 a = Estratto(es,r,p1) b = Estratto(es,r,p2) For r1 = 1 To 12 If r1 = 11 Then r1 = 12 For p = 1 To 5 c = Estratto(es,r1,p) ok = 0 If(a = 19 Or a = 37 Or a = 64)_ And(b = 19 Or b = 37 Or b = 64)_ And(c = 19 Or c = 37 Or c = 64) Then amb(1) = 30:amb(2) = 20:amb(3) = 30:amb(4) = 29:amb(5) = 30:amb(6) = 31:amb(7) = 30:amb(8) = 40:amb(9) = 30:amb(10) = 20:amb(11) = 29:amb(12) = 31:amb(13) = 40:amb(14) = 82:ok = 1 If(a = 38 Or a = 65 Or a = 83)_ And(b = 38 Or b = 65 Or b = 83)_ And(c = 38 Or c = 65 Or c = 83) Then amb(1) = 06:amb(2) = 05:amb(3) = 07:amb(4) = 05:amb(5) = 16:amb(6) = 05:amb(7) = 20:amb(8) = 05:amb(9) = 86:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1 If(a = 16 Or a = 34 Or a = 79)_ And(b = 16 Or b = 34 Or b = 79)_ And(c = 16 Or c = 34 Or c = 79) Then amb(1) = 39:amb(2) = 29:amb(3) = 38:amb(4) = 29:amb(5) = 49:amb(6) = 40:amb(7) = 39:amb(8) = 40:amb(9) = 61:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1 If(a = 09 Or a = 36 Or a = 54)_ And(b = 09 Or b = 36 Or b = 54)_ And(c = 09 Or c = 36 Or c = 54) Then amb(1) = 08:amb(2) = 08:amb(3) = 89:amb(4) = 09:amb(5) = 89:amb(6) = 09:amb(7) = 19:amb(8) = 81:amb(9) = 19:amb(10) = 09:amb(11) = 10:amb(12) = 19:amb(13) = 81:amb(14) = 89:ok = 1 If(a = 1 Or a = 28 Or a = 46)_ And(b = 1 Or b = 28 Or b = 46)_ And(c = 1 Or c = 28 Or c = 46) Then amb(1) = 75:amb(2) = 75:amb(3) = 65:amb(4) = 75:amb(5) = 74:amb(6) = 85:amb(7) = 65:amb(8) = 85:amb(9) = 75:amb(10) = 65:amb(11) = 73:amb(12) = 74:amb(13) = 75:amb(14) = 76:ok = 1 If(a = 4 Or a = 49 Or a = 76)_ And(b = 4 Or b = 49 Or b = 76)_ And(c = 4 Or c = 49 Or c = 76) Then amb(1) = 39:amb(2) = 29:amb(3) = 31:amb(4) = 29:amb(5) = 38:amb(6) = 39:amb(7) = 31:amb(8) = 39:amb(9) = 49:amb(10) = 29:amb(11) = 31:amb(12) = 38:amb(13) = 40:amb(14) = 49:ok = 1 If(a = 22 Or a = 40 Or a = 67)_ And(b = 22 Or b = 40 Or b = 67)_ And(c = 22 Or c = 40 Or c = 67) Then amb(1) = 38:amb(2) = 38:amb(3) = 39:amb(4) = 40:amb(5) = 39:amb(6) = 38:amb(7) = 49:amb(8) = 40:amb(9) = 49:amb(10) = 29:amb(11) = 39:amb(12) = 40:amb(13) = 49:amb(14) = 85:ok = 1 If(a = 08 Or a = 53 Or a = 71)_ And(b = 08 Or b = 53 Or b = 71)_ And(c = 08 Or c = 53 Or c = 71) Then amb(1) = 26:amb(2) = 26:amb(3) = 32:amb(4) = 52:amb(5) = 32:amb(6) = 26:amb(7) = 41:amb(8) = 52:amb(9) = 41:amb(10) = 32:amb(11) = 41:amb(12) = 42:amb(13) = 43:amb(14) = 52:ok = 1 If(a = 25 Or a = 52 Or a = 70)_ And(b = 25 Or b = 52 Or b = 70)_ And(c = 25 Or c = 52 Or c = 70)Then amb(1) = 47:amb(2) = 07:amb(3) = 57:amb(4) = 07:amb(5) = 58:amb(6) = 57:amb(7) = 47:amb(8) = 57:amb(9) = 67:amb(10) = 07:amb(11) = 56:amb(12) = 57:amb(13) = 58:amb(14) = 67:ok = 1 If(a = 28 Or a = 55 Or a = 73)_ And(b = 28 Or b = 55 Or b = 73)_ And(c = 28 Or c = 55 Or c = 73) Then amb(1) = 65:amb(2) = 65:amb(3) = 10:amb(4) = 65:amb(5) = 66:amb(6) = 66:amb(7) = 56:amb(8) = 66:amb(9) = 67:amb(10) = 10:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1 If(a = 30 Or a = 48 Or a = 75)_ And(b = 30 Or b = 48 Or b = 75)_ And(c = 30 Or c = 48 Or c = 75) Then amb(1) = 63:amb(2) = 64:amb(3) = 03:amb(4) = 64:amb(5) = 53:amb(6) = 64:amb(7) = 63:amb(8) = 64:amb(9) = 73:amb(10) = 03:amb(11) = 03:amb(12) = 53:amb(13) = 62:amb(14) = 73:ok = 1 If(a = 07 Or a = 52 Or a = 79)_ And(b = 07 Or b = 52 Or b = 79)_ And(c = 07 Or c = 52 Or c = 79) Then amb(1) = 48:amb(2) = 48:amb(3) = 38:amb(4) = 48:amb(5) = 47:amb(6) = 49:amb(7) = 47:amb(8) = 49:amb(9) = 48:amb(10) = 34:amb(11) = 38:amb(12) = 47:amb(13) = 49:amb(14) = 58:ok = 1 If(a = 45 Or a = 63 Or a = 90)_ And(b = 45 Or b = 63 Or b = 90)_ And(c = 45 Or c = 63 Or c = 90)Then amb(1) = 18:amb(2) = 18:amb(3) = 08:amb(4) = 18:amb(5) = 17:amb(6) = 18:amb(7) = 19:amb(8) = 18:amb(9) = 28:amb(10) = 08:amb(11) = 17:amb(12) = 18:amb(13) = 19:amb(14) = 28:ok = 1 If(a = 38 Or a = 56 Or a = 83)_ And(b = 38 Or b = 56 Or b = 83)_ And(c = 38 Or c = 56 Or c = 83) Then amb(1) = 87:amb(2) = 11:amb(3) = 77:amb(4) = 11:amb(5) = 88:amb(6) = 86:amb(7) = 87:amb(8) = 86:amb(9) = 88:amb(10) = 07:amb(11) = 77:amb(12) = 86:amb(13) = 87:amb(14) = 88:ok = 1 If(a = 13 Or a = 58 Or a = 85)_ And(b = 13 Or b = 58 Or b = 85)_ And(c = 13 Or c = 58 Or c = 85) Then amb(1) = 66:amb(2) = 56:amb(3) = 65:amb(4) = 56:amb(5) = 76:amb(6) = 76:amb(7) = 65:amb(8) = 76:amb(9) = 67:amb(10) = 40:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1 If(a = 18 Or a = 30 Or a = 33)_ And(b = 18 Or b = 30 Or b = 33)_ And(c = 18 Or c = 30 Or c = 33) Then amb(1) = 80:amb(2) = 80:amb(3) = 34:amb(4) = 80:amb(5) = 51:amb(6) = 80:amb(7) = 57:amb(8) = 80:amb(9) = 63:amb(10) = 34:amb(11) = 57:amb(12) = 51:amb(13) = 63:amb(14) = 18:ok = 1 If ok = 1 Then If(r <> r1 And c <> a And c <> b) Then co = co + 1 ColoreTesto 2 Scrivi String(65,"=") : ColoreTesto 0 Scrivi "Data " & DataEstrazione(es) & " " Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r) Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1) Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c Scrivi ruote(1) = r ruote(2) = r1 cg = 0 nu1(1) = amb(1) cg = cg + 1 ImpostaGiocata cg,nu1,ruote,pt,clp nu2(1) = amb(2) nu2(2) = amb(3) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu2(1) = amb(4) nu2(2) = amb(5) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu2(1) = amb(6) nu2(2) = amb(7) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu2(1) = amb(8) nu2(2) = amb(9) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu3(1) = amb(10) nu3(2) = amb(11) nu3(3) = amb(12) nu3(4) = amb(13) nu3(5) = amb(14) cg = cg + 1 ImpostaGiocata cg,nu3,ruote,pt2,clp,2 Gioca es,1 End If End If Next Next Next Next Next Next Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1 ScriviResoconto ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1 ColoreTesto 1 :Scrivi "------------------- Listato Marco",1 Scrivi : ColoreTesto 0 End Sub
Che programma si deve usare per usare lo scriptTi inserisco lo script al limite ti ricavi le previsioni da qui
Codice:Sub Main() ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1 ColoreTesto 1 :Scrivi "------------------- Listato Marco",1 Scrivi : ColoreTesto 0 Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3) pt(1) = 1 pt1(2) = 1 pt2(2) = 1:pt2(3) = 1 clp = 15 co = 0 ini = 10240 For es = ini To EstrazioneFin Messaggio(es) For r = 1 To 12 If r = 11 Then r = 12 For p1 = 1 To 4 For p2 = p1 + 1 To 5 a = Estratto(es,r,p1) b = Estratto(es,r,p2) For r1 = 1 To 12 If r1 = 11 Then r1 = 12 For p = 1 To 5 c = Estratto(es,r1,p) ok = 0 If(a = 19 Or a = 37 Or a = 64)_ And(b = 19 Or b = 37 Or b = 64)_ And(c = 19 Or c = 37 Or c = 64) Then amb(1) = 30:amb(2) = 20:amb(3) = 30:amb(4) = 29:amb(5) = 30:amb(6) = 31:amb(7) = 30:amb(8) = 40:amb(9) = 30:amb(10) = 20:amb(11) = 29:amb(12) = 31:amb(13) = 40:amb(14) = 82:ok = 1 If(a = 38 Or a = 65 Or a = 83)_ And(b = 38 Or b = 65 Or b = 83)_ And(c = 38 Or c = 65 Or c = 83) Then amb(1) = 06:amb(2) = 05:amb(3) = 07:amb(4) = 05:amb(5) = 16:amb(6) = 05:amb(7) = 20:amb(8) = 05:amb(9) = 86:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1 If(a = 16 Or a = 34 Or a = 79)_ And(b = 16 Or b = 34 Or b = 79)_ And(c = 16 Or c = 34 Or c = 79) Then amb(1) = 39:amb(2) = 29:amb(3) = 38:amb(4) = 29:amb(5) = 49:amb(6) = 40:amb(7) = 39:amb(8) = 40:amb(9) = 61:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1 If(a = 09 Or a = 36 Or a = 54)_ And(b = 09 Or b = 36 Or b = 54)_ And(c = 09 Or c = 36 Or c = 54) Then amb(1) = 08:amb(2) = 08:amb(3) = 89:amb(4) = 09:amb(5) = 89:amb(6) = 09:amb(7) = 19:amb(8) = 81:amb(9) = 19:amb(10) = 09:amb(11) = 10:amb(12) = 19:amb(13) = 81:amb(14) = 89:ok = 1 If(a = 1 Or a = 28 Or a = 46)_ And(b = 1 Or b = 28 Or b = 46)_ And(c = 1 Or c = 28 Or c = 46) Then amb(1) = 75:amb(2) = 75:amb(3) = 65:amb(4) = 75:amb(5) = 74:amb(6) = 85:amb(7) = 65:amb(8) = 85:amb(9) = 75:amb(10) = 65:amb(11) = 73:amb(12) = 74:amb(13) = 75:amb(14) = 76:ok = 1 If(a = 4 Or a = 49 Or a = 76)_ And(b = 4 Or b = 49 Or b = 76)_ And(c = 4 Or c = 49 Or c = 76) Then amb(1) = 39:amb(2) = 29:amb(3) = 31:amb(4) = 29:amb(5) = 38:amb(6) = 39:amb(7) = 31:amb(8) = 39:amb(9) = 49:amb(10) = 29:amb(11) = 31:amb(12) = 38:amb(13) = 40:amb(14) = 49:ok = 1 If(a = 22 Or a = 40 Or a = 67)_ And(b = 22 Or b = 40 Or b = 67)_ And(c = 22 Or c = 40 Or c = 67) Then amb(1) = 38:amb(2) = 38:amb(3) = 39:amb(4) = 40:amb(5) = 39:amb(6) = 38:amb(7) = 49:amb(8) = 40:amb(9) = 49:amb(10) = 29:amb(11) = 39:amb(12) = 40:amb(13) = 49:amb(14) = 85:ok = 1 If(a = 08 Or a = 53 Or a = 71)_ And(b = 08 Or b = 53 Or b = 71)_ And(c = 08 Or c = 53 Or c = 71) Then amb(1) = 26:amb(2) = 26:amb(3) = 32:amb(4) = 52:amb(5) = 32:amb(6) = 26:amb(7) = 41:amb(8) = 52:amb(9) = 41:amb(10) = 32:amb(11) = 41:amb(12) = 42:amb(13) = 43:amb(14) = 52:ok = 1 If(a = 25 Or a = 52 Or a = 70)_ And(b = 25 Or b = 52 Or b = 70)_ And(c = 25 Or c = 52 Or c = 70)Then amb(1) = 47:amb(2) = 07:amb(3) = 57:amb(4) = 07:amb(5) = 58:amb(6) = 57:amb(7) = 47:amb(8) = 57:amb(9) = 67:amb(10) = 07:amb(11) = 56:amb(12) = 57:amb(13) = 58:amb(14) = 67:ok = 1 If(a = 28 Or a = 55 Or a = 73)_ And(b = 28 Or b = 55 Or b = 73)_ And(c = 28 Or c = 55 Or c = 73) Then amb(1) = 65:amb(2) = 65:amb(3) = 10:amb(4) = 65:amb(5) = 66:amb(6) = 66:amb(7) = 56:amb(8) = 66:amb(9) = 67:amb(10) = 10:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1 If(a = 30 Or a = 48 Or a = 75)_ And(b = 30 Or b = 48 Or b = 75)_ And(c = 30 Or c = 48 Or c = 75) Then amb(1) = 63:amb(2) = 64:amb(3) = 03:amb(4) = 64:amb(5) = 53:amb(6) = 64:amb(7) = 63:amb(8) = 64:amb(9) = 73:amb(10) = 03:amb(11) = 03:amb(12) = 53:amb(13) = 62:amb(14) = 73:ok = 1 If(a = 07 Or a = 52 Or a = 79)_ And(b = 07 Or b = 52 Or b = 79)_ And(c = 07 Or c = 52 Or c = 79) Then amb(1) = 48:amb(2) = 48:amb(3) = 38:amb(4) = 48:amb(5) = 47:amb(6) = 49:amb(7) = 47:amb(8) = 49:amb(9) = 48:amb(10) = 34:amb(11) = 38:amb(12) = 47:amb(13) = 49:amb(14) = 58:ok = 1 If(a = 45 Or a = 63 Or a = 90)_ And(b = 45 Or b = 63 Or b = 90)_ And(c = 45 Or c = 63 Or c = 90)Then amb(1) = 18:amb(2) = 18:amb(3) = 08:amb(4) = 18:amb(5) = 17:amb(6) = 18:amb(7) = 19:amb(8) = 18:amb(9) = 28:amb(10) = 08:amb(11) = 17:amb(12) = 18:amb(13) = 19:amb(14) = 28:ok = 1 If(a = 38 Or a = 56 Or a = 83)_ And(b = 38 Or b = 56 Or b = 83)_ And(c = 38 Or c = 56 Or c = 83) Then amb(1) = 87:amb(2) = 11:amb(3) = 77:amb(4) = 11:amb(5) = 88:amb(6) = 86:amb(7) = 87:amb(8) = 86:amb(9) = 88:amb(10) = 07:amb(11) = 77:amb(12) = 86:amb(13) = 87:amb(14) = 88:ok = 1 If(a = 13 Or a = 58 Or a = 85)_ And(b = 13 Or b = 58 Or b = 85)_ And(c = 13 Or c = 58 Or c = 85) Then amb(1) = 66:amb(2) = 56:amb(3) = 65:amb(4) = 56:amb(5) = 76:amb(6) = 76:amb(7) = 65:amb(8) = 76:amb(9) = 67:amb(10) = 40:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1 If(a = 18 Or a = 30 Or a = 33)_ And(b = 18 Or b = 30 Or b = 33)_ And(c = 18 Or c = 30 Or c = 33) Then amb(1) = 80:amb(2) = 80:amb(3) = 34:amb(4) = 80:amb(5) = 51:amb(6) = 80:amb(7) = 57:amb(8) = 80:amb(9) = 63:amb(10) = 34:amb(11) = 57:amb(12) = 51:amb(13) = 63:amb(14) = 18:ok = 1 If ok = 1 Then If(r <> r1 And c <> a And c <> b) Then co = co + 1 ColoreTesto 2 Scrivi String(65,"=") : ColoreTesto 0 Scrivi "Data " & DataEstrazione(es) & " " Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r) Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1) Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c Scrivi ruote(1) = r ruote(2) = r1 cg = 0 nu1(1) = amb(1) cg = cg + 1 ImpostaGiocata cg,nu1,ruote,pt,clp nu2(1) = amb(2) nu2(2) = amb(3) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu2(1) = amb(4) nu2(2) = amb(5) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu2(1) = amb(6) nu2(2) = amb(7) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu2(1) = amb(8) nu2(2) = amb(9) cg = cg + 1 ImpostaGiocata cg,nu2,ruote,pt1,clp nu3(1) = amb(10) nu3(2) = amb(11) nu3(3) = amb(12) nu3(4) = amb(13) nu3(5) = amb(14) cg = cg + 1 ImpostaGiocata cg,nu3,ruote,pt2,clp,2 Gioca es,1 End If End If Next Next Next Next Next Next Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1 ScriviResoconto ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1 ColoreTesto 1 :Scrivi "------------------- Listato Marco",1 Scrivi : ColoreTesto 0 End Sub
Devi scaricarti Spaziometria sulla sezione Download e seguire le direttive.Che programma si deve usare per usare lo script
Ok grazieDevi scaricarti Spaziometria sulla sezione Download e seguire le direttive.
Per quanto riguarda i consigli, non posso darteli perché non ho tempo di seguirlo
Giocati il terno di Arciere2 BA 60-77-88Ok grazie
Tu che consigli x domani ?
Che formula sarebbe ?Giocati il terno di Arciere2 BA 60-77-88
Convergono un po’ tutti e anch’io, e anche una formula Allorquando
Ti farò sapere, ora sono fuori e non ricordoChe formula sarebbe ?
Da che logica vi viene fuori il 60 su Bari ?Anche io ho 60 .88 a Bari e 60.1 nazionale..sperem io mi gioco 60.88 12