lotto_tom75
Advanced Premium Member
Ciao Tom.
Ma...
Codice:| Casi esaminati : 3.001 | Casi vincenti : 2.843 | Percentuale pos. : 94,74 % | Pronostici totali : 3.001 | Pronostici vinc. : 2.843 | Percentuale pos. : 94,74 % | Giocate in corso : 14
come nasce ?
![]()
Ciao joe! Quanto tempo!

Il reportino nascerebbe da questo script di Lanfranco60 (presente in questo thread) su idea di francesco57
Codice:
Dim idEstr
Dim Inizio
Dim Fine
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim Analisi
Dim ColpiDiGioco
Dim n(2)
Dim am(4)
posta(1) = 1
poste(2) = 1
Analisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"120"))
ColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"13"))
Inizio = EstrazioneFin - Analisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruote(1) = 1
ruote(2) = 2
a = Estratto(idEstr,1,3)
b = Estratto(idEstr,2,3)
c = Differenza(a,b)
n(1) = c
n(2) = Vert(n(1))
am(1) = n(1)
am(2) = n(2)
am(3) = Fuori90(a + b)
am(4) = Vert(am(3))
co = co + 1
Scrivi String(110,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(1) & " - " & StringaEstratti(idEstr,1) & " -- " & SiglaRuota(2) & " - " & StringaEstratti(idEstr,2) & " ** " & " Previsione : Ambate " & n(1) & " - " & n(2) & " *** X Ambo " & am(3) & " - " & am(4),1
Scrivi String(110,"°"),1
ImpostaGiocata 1,n,ruote,posta,ColpiDiGioco,1
ImpostaGiocata 2,am,ruote,poste,ColpiDiGioco,2
Gioca idEstr,1,,1
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea by francesco57 listato by Lanfranco60 "),1,3,0
ScriviResoconto
End Sub
Rispondendo semplicemente alla prima domanda... ("Quante estrazioni vuoi esaminare?") : 3000
