x Mike58

[solare]

Ciao Mike58, ti ridisturbo
sempre che si possa modificare questo script che ho trovato in rete però non ha le stesse previsioni. Io ti allego le mie

Listato trovato in rete:

Sub Main()
ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
ColoreTesto 1 :Scrivi "------------------- Listato DjNomade",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) = 1t2(3) = 1
clp = 13
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es


For r = 1 To 11
If r = 11 Then r = 12
For p = 1 To 5
For p1 = 1 To 5
s1 = Estratto(es,r,p)
s2 = Estratto(es,r,p1)
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p2 = 1 To 5
s3 = Estratto(es,r1,p2)
a1 = s1 '<
a2 = s2 '< le tre spie, così le puoi cambiare a piacimento
a3 = s3 '<
'-------------------------------------------------------------------
ok = 0


If a1 = 19 And a2 = 37 And a3 = 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) = 82k = 1
If a1 = 38 And a2 = 65 And a3 = 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) = 86k = 1
If a1 = 16 And a2 = 34 And a3 = 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) = 86k = 1
If a1 = 09 And a2 = 36 And a3 = 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) = 89k = 1
If a1 = 01 And a2 = 28 And a3 = 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) = 76k = 1
If a1 = 04 And a2 = 49 And a3 = 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) = 49k = 1
If a1 = 22 And a2 = 40 And a3 = 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) = 85k = 1
If a1 = 08 And a2 = 53 And a3 = 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) = 52k = 1
If a1 = 25 And a2 = 52 And a3 = 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) = 67k = 1
If a1 = 28 And a2 = 55 And a3 = 73 Then amb(1) = 66: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) = 76k = 1
If a1 = 30 And a2 = 48 And a3 = 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) = 73k = 1
If a1 = 07 And a2 = 52 And a3 = 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) = 58k = 1
If a1 = 45 And a2 = 63 And a3 = 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) = 28k = 1
If a1 = 38 And a2 = 56 And a3 = 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) = 88k = 1
If a1 = 13 And a2 = 58 And a3 = 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) = 76k = 1
If a1 = 18 And a2 = 30 And a3 = 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) = 63k = 1
If ok = 1 Then
'-------------------------------------------------------------------


'If s1=a1 Then
If((s1 = a1 Or s1 = a2 Or s1 = a3) And(s2 = a1 Or s2 = a2 Or s2 = a3)) And(s3 = a1 Or s3 = a2 Or s3 = a3)And r1 <> r Then
co = co + 1

Scrivi String(65,"=") & " Caso n°" & co
Scrivi "*************************************"
Scrivi "" & DataEstrazione(es) & ""
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a1 & "-" & a2
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & a3
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



Gioca es
End If
End If
Next:Next:Next:Next:Next:Next
ScriviResoconto
End Sub
I dati sottostanti sono quelli che bisognerebbe inserire nel listato: Si cercano tre numeri, due in una ruota e uno in'altra es. Dopo la sortita dei numeri
1-28-46 si mette in gioco il primo numero a dx quello evidenziato come ambata e l'altro come abbinamento per ambo e così per tutti gli altri.