Inserisco il listato che ho realizzato sulla base di un metodo semplice semplice trovato sul web (mi scuso con l' autore ma proprio non lo ricordo..) da utilizzare dopo la sortita di un terno ripetuto su due ruote nella stessa estrazione.
I risultati sono discreti, la giocata 'e solo per ambo in terzina su 2 ruote:
- Codice: Seleziona tutto
Sub Main()
Dim Poste(10),Ruote(12),Ruotee(11),Terzina(3)
Dim nn(3)
Dim ru(12)
ab = InputBox("Quante estrazioni vuoi controllare?","Check",500)
k = InputBox("Per quanti colpi intendi giocare?","Colpi",18)
Ruotee(1) = 11
Poste(2) = 2 'ambo
'Poste(3) = 1
TestoInBandaPassante " ***** TERNI RIPETUTI - Listato by DDBid ***** ",1,3,0
Fin = EstrazioneFin
Ini = Fin - ab
For es = ini To fin
AvanzamentoElab Ini,fin,es
Messaggio es
For r = 1 To 9
For a = 1 To 3
For b = a + 1 To 4
For c = b + 1 To 5
d = Estratto(es,r,a)
e = Estratto(es,r,b)
f = Estratto(es,r,c)
nn(1) = d : nn(2) = e : nn(3) = f : terni = 0
For r1 = r + 1 To 12
If r1 <> 11 Then
ru(1) = r1
If r1 <> r Then
terni = SerieFreq(es,es,nn,ru,3)
If terni > 0 Then
ColoreTesto 0
Scrivi "--------------------------------------------"
Scrivi "Estrazione del " & DataEstrazione(es),1
ColoreTesto 1
Scrivi FormatSpace(NomeRuota(r),10) & d & "-" & e & "-" & f & _
" SI RIPETE SU " & FormatSpace(NomeRuota(r1),10),1
DisegnaEstrazione es
'Metodo in WEB
g = Fuori90(d*2)
h = Fuori90(e*2)
i = Fuori90(f*2)
Terzina(1) = g
Terzina(2) = h
Terzina(3) = f
Ruote(1) = r
Ruote(2) = r1
ImpostaGiocata 1,Terzina,Ruote,Poste,k,2 'gioco ambo uscito su RUOTA!!
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Attualmente c'e' una giocata in corso al 13 colpo, se qualcuno vuole tentare...
