Sub Main()
ColoreTesto 1
Scrivi "======================= ROUTINE DI RICERCA ============================*",1
ColoreTesto 2
Scrivi "============= DA UN IDEA ORIGINALE BY B A F F O B L U ================*",1
ColoreTesto 1
Scrivi "====================UNA QUARTINA PER AMBO A TUTTE =====================*",1
Scrivi
ColoreTesto 0
Scrivi "=== Questo listato serve per ricercare la particolare condizione ======*",1
Scrivi "====== Imposta da Baffoblu di tutti gli ambi somma possibili =========*",1
Scrivi "= nel quadro estrazionale che rispettano le caratteristiche richieste =*",1
Scrivi
Scrivi "====== Sta a voi trovare le condizioni migliori di ogni somma ========*",1
Scrivi "=========== e di ogni somma trovare le coppie più proficue ============*",1
Scrivi "================= scartando quelle di meno rilievo ====================*",1
Scrivi "************************************************************************",1
Scrivi
ColoreTesto 0
Dim nSpia
Dim ruote(3)
Dim ruota(1)
Dim poste(2)
Dim Importi(2,12)
Dim nprogryesno
Dim nprogr(12)
Dim nposition
Dim n(4)
poste(2) = 1
clp = 12
nSpia = CInt(InputBox("Inserisci somma Ambo Spia - da 1 a 90 "))
nprogryesno = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO"))
If nprogryesno = 1 Then
nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro "))
nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 1 Euro "))
nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 1 Euro "))
nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 1 Euro "))
nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 1 Euro "))
nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 1 Euro "))
nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 1 Euro "))
nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 1 Euro "))
nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 1 Euro "))
nprogr(10) = CInt(InputBox("Inserisci la puntata per il 10°colpo * 1 = 1 Euro "))
nprogr(11) = CInt(InputBox("Inserisci la puntata per il 11°colpo * 1 = 1 Euro "))
nprogr(12) = CInt(InputBox("Inserisci la puntata per il 12°colpo * 1 = 1 Euro "))
Importi(2,1) = nprogr(1)
Importi(2,2) = nprogr(2)
Importi(2,3) = nprogr(3)
Importi(2,4) = nprogr(4)
Importi(2,5) = nprogr(5)
Importi(2,6) = nprogr(6)
Importi(2,7) = nprogr(7)
Importi(2,8) = nprogr(8)
Importi(2,9) = nprogr(9)
Importi(2,10) = nprogr(10)
Importi(2,11) = nprogr(11)
Importi(2,12) = nprogr(12)
End If
nposition = CInt(InputBox("Inserisci la posizione di rilevamento spie - da 1 a 5 "))
nanalisis = CInt(InputBox("Quante estrazioni vuoi controllare ? "))
ini = EstrazioneFin - nanalisis
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruota(1) = 11
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 10
a = Estratto(es,r1,nposition)
b = Estratto(es,r2,nposition)
c = Estratto(es,r3,nposition)
ok = 0
If(Fuori90(a + b) = nSpia) And(Fuori90(a + c) = nSpia) Then
w = nSpia - 90
n(1) = a
n(2) = b
n(3) = Abs(a - b)
d = Fuori90(n(3) + w)
n(4) = 90 - d
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ** " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ** " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3) & " * SPIE BY BAFFOBLU: " & a & " - " & b & " * " & c,1
Scrivi String(115,"°"),1
ruota(1) = 11
ImpostaGiocata 1,n,ruota,poste,clp,2
ImpostaProgressione 1,Importi
Scrivi "puntate eseguite " & colpi
If nprogryesno = 1 Then
Scrivi " - .1 colpo - " & Importi(2,1) & " euro x ambo "
Scrivi " - .2 colpo - " & Importi(2,2) & " euro x ambo"
Scrivi " - .3 colpo - " & Importi(2,3) & " euro x ambo"
Scrivi " - .4 colpo - " & Importi(2,4) & " euro x ambo"
Scrivi " - .5 colpo - " & Importi(2,5) & " euro x ambo"
Scrivi " - .6 colpo - " & Importi(2,6) & " euro x ambo"
Scrivi " - .7 colpo - " & Importi(2,7) & " euro x ambo"
Scrivi " - .8 colpo - " & Importi(2,8) & " euro x ambo"
Scrivi " - .9 colpo - " & Importi(2,9) & " euro x ambo"
Scrivi " - 10 colpo - " & Importi(2,10) & " euro x ambo"
Scrivi " - 11 colpo - " & Importi(2,11) & " euro x ambo"
Scrivi " - 12 colpo - " & Importi(2,12) & " euro x ambo"
End If
Gioca es
End If
Next
Next
Next
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* I d e a t o e L i s t a t o By B A F F O B L U *°*°* ",1,3,0
ScriviResoconto
End Sub