Marco-elle
Banned
Grazie del consiglio.....ora è tutto più bello!Marco vai di ignora utente a gogo e vivi sereno.
Buona giornata.
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.
Grazie del consiglio.....ora è tutto più bello!Marco vai di ignora utente a gogo e vivi sereno.
Buona giornata.
Grazie,sei una bella persona!proprio vero caro sig.marco si fa estrema fatica a seguire molti post del tutto dediti alla confusione ,per fortuna scrivono :
"cautela al lotto non vi è certezza alcuna" questo rassicura e non poco.
saluti buon fine anno
Per quelli che hanno qualcosa da dire sulla mia vincita ...lo script in questione è questo e nonTi 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
Grazie ma....non vorrei che la gente pensasse che tu sei uno dei miei tanti nick.....buongiorno Marco, eccellente nei risultati e nelle parole usate, davvero complimenti per la persona che sei.
non vado oltre ad esprimere il mio pensiero potrei suscitare repliche che andrebbero a sporcare un post chiaro ,
con stima
LottoLuke
Grazie America ma.....l'ho lasciato per l'uscita del vertibile,E 75 fu'..mitico Marcotu si che vales