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.
Sub Main()
ColoreTesto 1 :Scrivi String(44," ") & " METODO AMBI SPIA DI OSVALDO MANARA",1
Scrivi String(51," ") & "Listato By Blackmore",1
Scrivi : ColoreTesto 0
Dim ruota(1),amb(4),nu3(4),n1(1),n2(2),n3(2),n4(2),pt(1),pt1(2),ptt(4),ruote(10),ruotee(10)
pt(1) = 1
pt1(2) = 1
ptt(2) = 1
ptt(3) = 1
inizio = InputBox(" DA QUALE ESTRAZIONI VUOI PARTIRE?",,8300)
clp = CInt(InputBox("QUANTI COLPI?",,9))
ini = inizio
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
ruota(1) = r
ruote(1) = r
ruotee(1) = r
ruotee(2) = 11
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r,p) : b = Estratto(es,r,p1)
'-------------------------------------------------------------------
ok = 0
If a = 01 And b = 46 Or a = 46 And b = 01 Then amb(1) = 19 :amb(2) = 05 :amb(3) = 29 :amb(4) = 51 :ok = 1
If a = 23 And b = 68 Or a = 68 And b = 23 Then amb(1) = 61 :amb(2) = 02 :amb(3) = 57 :amb(4) = 89 :ok = 1
If a = 02 And b = 47 Or a = 47 And b = 02 Then amb(1) = 58 :amb(2) = 11 :amb(3) = 45 :amb(4) = 84 :ok = 1
If a = 24 And b = 69 Or a = 69 And b = 24 Then amb(1) = 89 :amb(2) = 04 :amb(3) = 29 :amb(4) = 57 :ok = 1
If a = 03 And b = 48 Or a = 48 And b = 22 Then amb(1) = 22 :amb(2) = 08 :amb(3) = 35 :amb(4) = 73 :ok = 1
If a = 30 And b = 75 Or a = 75 And b = 30 Then amb(1) = 77 :amb(2) = 06 :amb(3) = 11 :amb(4) = 17 :ok = 1
If a = 04 And b = 49 Or a = 49 And b = 04 Then amb(1) = 55 :amb(2) = 01 :amb(3) = 87 :amb(4) = 90 :ok = 1
If a = 31 And b = 76 Or a = 76 And b = 31 Then amb(1) = 29 :amb(2) = 20 :amb(3) = 27 :amb(4) = 85 :ok = 1
If a = 10 And b = 55 Or a = 55 And b = 10 Then amb(1) = 60 :amb(2) = 01 :amb(3) = 77 :amb(4) = 82 :ok = 1
If a = 32 And b = 77 Or a = 77 And b = 32 Then amb(1) = 51 :amb(2) = 24 :amb(3) = 84 :amb(4) = 73 :ok = 1
If a = 11 And b = 56 Or a = 56 And b = 11 Then amb(1) = 34 :amb(2) = 17 :amb(3) = 36 :amb(4) = 55 :ok = 1
If a = 33 And b = 78 Or a = 78 And b = 33 Then amb(1) = 39 :amb(2) = 25 :amb(3) = 42 :amb(4) = 69 :ok = 1
If a = 12 And b = 57 Or a = 57 And b = 12 Then amb(1) = 78 :amb(2) = 18 :amb(3) = 33 :amb(4) = 75 :ok = 1
If a = 34 And b = 79 Or a = 79 And b = 34 Then amb(1) = 81 :amb(2) = 15 :amb(3) = 57 :amb(4) = 73 :ok = 1
If a = 13 And b = 58 Or a = 58 And b = 13 Then amb(1) = 73 :amb(2) = 19 :amb(3) = 47 :amb(4) = 80 :ok = 1
If a = 41 And b = 86 Or a = 86 And b = 41 Then amb(1) = 78 :amb(2) = 19 :amb(3) = 33 :amb(4) = 46 :ok = 1
If a = 20 And b = 65 Or a = 65 And b = 20 Then amb(1) = 05 :amb(2) = 15 :amb(3) = 35 :amb(4) = 71 :ok = 1
If a = 42 And b = 87 Or a = 87 And b = 42 Then amb(1) = 46 :amb(2) = 04 :amb(3) = 12 :amb(4) = 71 :ok = 1
If a = 21 And b = 66 Or a = 66 And b = 21 Then amb(1) = 63 :amb(2) = 11 :amb(3) = 13 :amb(4) = 15 :ok = 1
If a = 43 And b = 88 Or a = 88 And b = 43 Then amb(1) = 53 :amb(2) = 41 :amb(3) = 71 :amb(4) = 80 :ok = 1
If a = 22 And b = 67 Or a = 67 And b = 22 Then amb(1) = 62 :amb(2) = 06 :amb(3) = 28 :amb(4) = 73 :ok = 1
If a = 44 And b = 89 Or a = 89 And b = 44 Then amb(1) = 08 :amb(2) = 19 :amb(3) = 29 :amb(4) = 86 :ok = 1
'-------------------------------------------------------------------
If ok = 1 Then
co = co + 1
Scrivi String(110,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " * AMBO SPIA DI OSVALDO MANARA * "& a & " - " & b
Scrivi String(76,"-")
ruota(1) = r:cg = 0
n1(1) = amb(1)
cg = cg + 1
ImpostaGiocata cg,n1,ruota,pt,clp,1
n2(1) = amb(1)
n2(2) = amb(2)
cg = cg + 1
ImpostaGiocata cg,n2,ruotee,pt1,clp,2
n3(1) = amb(1)
n3(2) = amb(3)
cg = cg + 1
ImpostaGiocata cg,n3,ruotee,pt1,clp,2
n4(1) = amb(1)
n4(2) = amb(4)
cg = cg + 1
ImpostaGiocata cg,n4,ruotee,pt1,clp,2
nu3(1) = amb(1)
nu3(2) = amb(2)
nu3(3) = amb(3)
nu3(4) = amb(4)
cg = cg + 1
ImpostaGiocata cg,nu3,ruote,ptt,clp,2
Gioca es
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
ciao gennaro, lo script dovrebbe essere corretto, ho inserito un basso range di ricerca perchè ci sono troppi esiti
ed il programma ci impiega troppo tempo (puoi fermare lo script quando vuoi con la funzione scriptinterrotto)
se usi spaziometria una volta copiato ti consiglio di non formattarlo, ma, di farlo partire così com'è
ciao
Codice:sub main() coloretesto 1 :scrivi string(44," ") & " metodo ambi spia di osvaldo manara",1 scrivi string(51," ") & "listato by blackmore",1 scrivi : Coloretesto 0 dim ruota(1),amb(4),nu3(4),n1(1),n2(2),n3(2),n4(2),pt(1),pt1(2),ptt(4),ruote(10),ruotee(10) pt(1) = 1 pt1(2) = 1 ptt(2) = 1 ptt(3) = 1 inizio = inputbox(" da quale estrazioni vuoi partire?",,8300) clp = cint(inputbox("quanti colpi?",,9)) ini = inizio fin = estrazionefin co = 0 for es = ini to fin messaggio es for r = 1 to 10 ruota(1) = r ruote(1) = r ruotee(1) = r ruotee(2) = 11 for p = 1 to 4 for p1 = p + 1 to 5 a = estratto(es,r,p) : B = estratto(es,r,p1) '------------------------------------------------------------------- ok = 0 if a = 01 and b = 46 or a = 46 and b = 01 then amb(1) = 19 :amb(2) = 05 :amb(3) = 29 :amb(4) = 51 :ok = 1 if a = 23 and b = 68 or a = 68 and b = 23 then amb(1) = 61 :amb(2) = 02 :amb(3) = 57 :amb(4) = 89 :ok = 1 if a = 02 and b = 47 or a = 47 and b = 02 then amb(1) = 58 :amb(2) = 11 :amb(3) = 45 :amb(4) = 84 :ok = 1 if a = 24 and b = 69 or a = 69 and b = 24 then amb(1) = 89 :amb(2) = 04 :amb(3) = 29 :amb(4) = 57 :ok = 1 if a = 03 and b = 48 or a = 48 and b = 22 then amb(1) = 22 :amb(2) = 08 :amb(3) = 35 :amb(4) = 73 :ok = 1 if a = 30 and b = 75 or a = 75 and b = 30 then amb(1) = 77 :amb(2) = 06 :amb(3) = 11 :amb(4) = 17 :ok = 1 if a = 04 and b = 49 or a = 49 and b = 04 then amb(1) = 55 :amb(2) = 01 :amb(3) = 87 :amb(4) = 90 :ok = 1 if a = 31 and b = 76 or a = 76 and b = 31 then amb(1) = 29 :amb(2) = 20 :amb(3) = 27 :amb(4) = 85 :ok = 1 if a = 10 and b = 55 or a = 55 and b = 10 then amb(1) = 60 :amb(2) = 01 :amb(3) = 77 :amb(4) = 82 :ok = 1 if a = 32 and b = 77 or a = 77 and b = 32 then amb(1) = 51 :amb(2) = 24 :amb(3) = 84 :amb(4) = 73 :ok = 1 if a = 11 and b = 56 or a = 56 and b = 11 then amb(1) = 34 :amb(2) = 17 :amb(3) = 36 :amb(4) = 55 :ok = 1 if a = 33 and b = 78 or a = 78 and b = 33 then amb(1) = 39 :amb(2) = 25 :amb(3) = 42 :amb(4) = 69 :ok = 1 if a = 12 and b = 57 or a = 57 and b = 12 then amb(1) = 78 :amb(2) = 18 :amb(3) = 33 :amb(4) = 75 :ok = 1 if a = 34 and b = 79 or a = 79 and b = 34 then amb(1) = 81 :amb(2) = 15 :amb(3) = 57 :amb(4) = 73 :ok = 1 if a = 13 and b = 58 or a = 58 and b = 13 then amb(1) = 73 :amb(2) = 19 :amb(3) = 47 :amb(4) = 80 :ok = 1 if a = 41 and b = 86 or a = 86 and b = 41 then amb(1) = 78 :amb(2) = 19 :amb(3) = 33 :amb(4) = 46 :ok = 1 if a = 20 and b = 65 or a = 65 and b = 20 then amb(1) = 05 :amb(2) = 15 :amb(3) = 35 :amb(4) = 71 :ok = 1 if a = 42 and b = 87 or a = 87 and b = 42 then amb(1) = 46 :amb(2) = 04 :amb(3) = 12 :amb(4) = 71 :ok = 1 if a = 21 and b = 66 or a = 66 and b = 21 then amb(1) = 63 :amb(2) = 11 :amb(3) = 13 :amb(4) = 15 :ok = 1 if a = 43 and b = 88 or a = 88 and b = 43 then amb(1) = 53 :amb(2) = 41 :amb(3) = 71 :amb(4) = 80 :ok = 1 if a = 22 and b = 67 or a = 67 and b = 22 then amb(1) = 62 :amb(2) = 06 :amb(3) = 28 :amb(4) = 73 :ok = 1 if a = 44 and b = 89 or a = 89 and b = 44 then amb(1) = 08 :amb(2) = 19 :amb(3) = 29 :amb(4) = 86 :ok = 1 '------------------------------------------------------------------- if ok = 1 then co = co + 1 scrivi string(110,"*") & " caso n°" & co,1 scrivi dataestrazione(es) & " * " & siglaruota(r) & " " & stringaestratti(es,r) & " * ambo spia di osvaldo manara * "& a & " - " & b scrivi string(76,"-") ruota(1) = r:cg = 0 n1(1) = amb(1) cg = cg + 1 impostagiocata cg,n1,ruota,pt,clp,1 n2(1) = amb(1) n2(2) = amb(2) cg = cg + 1 impostagiocata cg,n2,ruotee,pt1,clp,2 n3(1) = amb(1) n3(2) = amb(3) cg = cg + 1 impostagiocata cg,n3,ruotee,pt1,clp,2 n4(1) = amb(1) n4(2) = amb(4) cg = cg + 1 impostagiocata cg,n4,ruotee,pt1,clp,2 nu3(1) = amb(1) nu3(2) = amb(2) nu3(3) = amb(3) nu3(4) = amb(4) cg = cg + 1 impostagiocata cg,nu3,ruote,ptt,clp,2 gioca es end if next next next if scriptinterrotto then exit for next scriviresoconto end sub
ciao gennaro, lo script dovrebbe essere corretto, ho inserito un basso range di ricerca perchè ci sono troppi esiti
ed il programma ci impiega troppo tempo (puoi fermare lo script quando vuoi con la funzione scriptinterrotto)
se usi spaziometria una volta copiato ti consiglio di non formattarlo, ma, di farlo partire così com'è
ciao
Codice:sub main() coloretesto 1 :scrivi string(44," ") & " metodo ambi spia di osvaldo manara",1 scrivi string(51," ") & "listato by blackmore",1 scrivi : Coloretesto 0 dim ruota(1),amb(4),nu3(4),n1(1),n2(2),n3(2),n4(2),pt(1),pt1(2),ptt(4),ruote(10),ruotee(10) pt(1) = 1 pt1(2) = 1 ptt(2) = 1 ptt(3) = 1 inizio = inputbox(" da quale estrazioni vuoi partire?",,8300) clp = cint(inputbox("quanti colpi?",,9)) ini = inizio fin = estrazionefin co = 0 for es = ini to fin messaggio es for r = 1 to 10 ruota(1) = r ruote(1) = r ruotee(1) = r ruotee(2) = 11 for p = 1 to 4 for p1 = p + 1 to 5 a = estratto(es,r,p) : B = estratto(es,r,p1) '------------------------------------------------------------------- ok = 0 if a = 01 and b = 46 or a = 46 and b = 01 then amb(1) = 19 :amb(2) = 05 :amb(3) = 29 :amb(4) = 51 :ok = 1 if a = 23 and b = 68 or a = 68 and b = 23 then amb(1) = 61 :amb(2) = 02 :amb(3) = 57 :amb(4) = 89 :ok = 1 if a = 02 and b = 47 or a = 47 and b = 02 then amb(1) = 58 :amb(2) = 11 :amb(3) = 45 :amb(4) = 84 :ok = 1 if a = 24 and b = 69 or a = 69 and b = 24 then amb(1) = 89 :amb(2) = 04 :amb(3) = 29 :amb(4) = 57 :ok = 1 if a = 03 and b = 48 or a = 48 and b = 22 then amb(1) = 22 :amb(2) = 08 :amb(3) = 35 :amb(4) = 73 :ok = 1 if a = 30 and b = 75 or a = 75 and b = 30 then amb(1) = 77 :amb(2) = 06 :amb(3) = 11 :amb(4) = 17 :ok = 1 if a = 04 and b = 49 or a = 49 and b = 04 then amb(1) = 55 :amb(2) = 01 :amb(3) = 87 :amb(4) = 90 :ok = 1 if a = 31 and b = 76 or a = 76 and b = 31 then amb(1) = 29 :amb(2) = 20 :amb(3) = 27 :amb(4) = 85 :ok = 1 if a = 10 and b = 55 or a = 55 and b = 10 then amb(1) = 60 :amb(2) = 01 :amb(3) = 77 :amb(4) = 82 :ok = 1 if a = 32 and b = 77 or a = 77 and b = 32 then amb(1) = 51 :amb(2) = 24 :amb(3) = 84 :amb(4) = 73 :ok = 1 if a = 11 and b = 56 or a = 56 and b = 11 then amb(1) = 34 :amb(2) = 17 :amb(3) = 36 :amb(4) = 55 :ok = 1 if a = 33 and b = 78 or a = 78 and b = 33 then amb(1) = 39 :amb(2) = 25 :amb(3) = 42 :amb(4) = 69 :ok = 1 if a = 12 and b = 57 or a = 57 and b = 12 then amb(1) = 78 :amb(2) = 18 :amb(3) = 33 :amb(4) = 75 :ok = 1 if a = 34 and b = 79 or a = 79 and b = 34 then amb(1) = 81 :amb(2) = 15 :amb(3) = 57 :amb(4) = 73 :ok = 1 if a = 13 and b = 58 or a = 58 and b = 13 then amb(1) = 73 :amb(2) = 19 :amb(3) = 47 :amb(4) = 80 :ok = 1 if a = 41 and b = 86 or a = 86 and b = 41 then amb(1) = 78 :amb(2) = 19 :amb(3) = 33 :amb(4) = 46 :ok = 1 if a = 20 and b = 65 or a = 65 and b = 20 then amb(1) = 05 :amb(2) = 15 :amb(3) = 35 :amb(4) = 71 :ok = 1 if a = 42 and b = 87 or a = 87 and b = 42 then amb(1) = 46 :amb(2) = 04 :amb(3) = 12 :amb(4) = 71 :ok = 1 if a = 21 and b = 66 or a = 66 and b = 21 then amb(1) = 63 :amb(2) = 11 :amb(3) = 13 :amb(4) = 15 :ok = 1 if a = 43 and b = 88 or a = 88 and b = 43 then amb(1) = 53 :amb(2) = 41 :amb(3) = 71 :amb(4) = 80 :ok = 1 if a = 22 and b = 67 or a = 67 and b = 22 then amb(1) = 62 :amb(2) = 06 :amb(3) = 28 :amb(4) = 73 :ok = 1 if a = 44 and b = 89 or a = 89 and b = 44 then amb(1) = 08 :amb(2) = 19 :amb(3) = 29 :amb(4) = 86 :ok = 1 '------------------------------------------------------------------- if ok = 1 then co = co + 1 scrivi string(110,"*") & " caso n°" & co,1 scrivi dataestrazione(es) & " * " & siglaruota(r) & " " & stringaestratti(es,r) & " * ambo spia di osvaldo manara * "& a & " - " & b scrivi string(76,"-") ruota(1) = r:cg = 0 n1(1) = amb(1) cg = cg + 1 impostagiocata cg,n1,ruota,pt,clp,1 n2(1) = amb(1) n2(2) = amb(2) cg = cg + 1 impostagiocata cg,n2,ruotee,pt1,clp,2 n3(1) = amb(1) n3(2) = amb(3) cg = cg + 1 impostagiocata cg,n3,ruotee,pt1,clp,2 n4(1) = amb(1) n4(2) = amb(4) cg = cg + 1 impostagiocata cg,n4,ruotee,pt1,clp,2 nu3(1) = amb(1) nu3(2) = amb(2) nu3(3) = amb(3) nu3(4) = amb(4) cg = cg + 1 impostagiocata cg,nu3,ruote,ptt,clp,2 gioca es end if next next next if scriptinterrotto then exit for next scriviresoconto end sub
ciao blackmore, ho scaricato questo script, ringrazio gennaro per averlo richiesto e a te per averlo realizzato, c'e' un problema non si aggiorna con i nuovi ambi di agosto.
Ho fatto tutte le prove prima di scriverti l'ho pure ricopiato da questo ma proprio non vuole saperne di aggiornarsi.
Mi puoi aiutare?
Grazie x quello che puoi fare.
ciao rosce14 scusami se mi intrometto a me fuonziona benissimo forse qualcosa non va nel tuo computer ti posso dare l'ultimo aggiornamento il 2 agosto la previsione . Eccola come puoi vedere e tutto funzionante ... Spero ti possa essere di aiuto
02.08.2012 * pa 55.76.31.16.88 * ambo spia di osvaldo manara * 76 - 31
----------------------------------------------------------------------------
estrazione generatrice del pronostico 08569 [ 92 - 02/08/2012]
g 0001
numeri in gioco : 29 su pa per estratto
n. [29 ] [pa] [.. .. .. .. ..] c. 1 08570 [ 93 - 04/08/2012]
in corso per altre 8 estrazioni
g 0002
numeri in gioco : 29.20 su pa tt per ambo
n. [29.20 ] [pa] [.. .. .. .. ..] c. 1 08570 [ 93 - 04/08/2012]
n. [29.20 ] [tt] [ ][.. .. .. .. ..] c. 1 08570 [ 93 - 04/08/2012]
in corso per altre 8 estrazioni
g 0003
numeri in gioco : 29.27 su pa tt per ambo
n. [29.27 ] [pa] [.. .. .. .. ..] c. 1 08570 [ 93 - 04/08/2012]
n. [29.27 ] [tt] [ve][.. .. .. .. 27] c. 1 estratto 08570 [ 93 - 04/08/2012]
in corso per altre 8 estrazioni
g 0004
numeri in gioco : 29.85 su pa tt per ambo
n. [29.85 ] [pa] [.. .. .. .. ..] c. 1 08570 [ 93 - 04/08/2012]
n. [29.85 ] [tt] [mi][.. .. 85 .. ..] c. 1 estratto 08570 [ 93 - 04/08/2012]
in corso per altre 8 estrazioni
g 0005
numeri in gioco : 29.20.27.85 su pa per ambo,terno
n. [29.20.27.85 ] [pa] [.. .. .. .. ..] c. 1 08570 [ 93 - 04/08/2012]
in corso per altre 8 estrazioni
grazie gennaro per la tua gentilezza, in effetti questa previsione l'ho pure io, credevo che fosse del 31 07 12, in effetti e' del 02 08 12.
Ma i diametrali del 04 08 12 che sono mi 25 70 // na 18 63 // na 83 38.
Questi non li da' e a te ?
Mi fai sapere?
Grazie ancora.