Sub Main Dim k Dim Classe Dim aCol ReDim aNum(90) Dim i Dim ruota(1),rt(10) r = InputBox("Quale ruota ",,1) cl = CInt(InputBox("Quale classe di sviluppo",,3)) sorte = CInt(InputBox("Quale sorte esito analizzo ",,2)) capog = CInt(InputBox("Quale capogioco ",,0)) ruota(1) = r ScegliNumeri(aNum) Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1 Scrivi " Sulla ruota di..." & NomeRuota(r),1 Scrivi " In sviluppo di classe..." & cl,1 ColoreTesto 2 Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1 ColoreTesto 1 Scrivi " Sorte isocroni per...." & NomeSorte(cl),1 ColoreTesto 0 For k = 1 To UBound(aNum) aNum(0) = capog aNum(k) = aNum(k) Next Classe = cl ReDim atitoli(13) atitoli(1) = " Contatore " atitoli(2) = " Sviluppo comb. " atitoli(3) = " Ritardo " atitoli(4) = " Ritardo Max " atitoli(5) = " Frequenza " atitoli(6) = " Incrmax " atitoli(7) = " acol(1) " atitoli(8) = " info Es " atitoli(9) = " N.1 " atitoli(10) = " N.2 " atitoli(11) = " N.3 " atitoli(12) = " Cont " atitoli(13) = " Estrazione Es " Call InitTabella(atitoli,1,,3,5) If InitSviluppoIntegrale(aNum,Classe) > 0 Then Do While GetCombSviluppo(aCol) = True i = i + 1 Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin) Isorit = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,cl) isofre = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,cl) isosto = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,cl) For rr = 1 To 10 rt(rr) = rr Next ReDim avalori(13) avalori(1) = FormattaStringa(i,"00") & " " & ii avalori(2) = StringaNumeri(aCol,,1) avalori(3) = sr avalori(4) = st avalori(5) = sf avalori(6) = Incr avalori(7) = aCol(1) Ini = EstrazioneFin-10 fin = EstrazioneFin For Es = Ini To fin Tott = fin-Ini If VerificaEsito(aCol,rt,Es,1,1,,,,estratti,id) Then avalori(13) = estratti If EstrattoFrequenza(rr,aCol(1),Es,Es) > 0 Then avalori(9) = aCol(1) If EstrattoFrequenza(rr,aCol(1),Es,Es) > 0 Then k1 = 1 If EstrattoFrequenza(rr,aCol(2),Es,Es) > 0 Then avalori(10) = aCol(2) If EstrattoFrequenza(rr,aCol(2),Es,Es) > 0 Then k2 = 1 If EstrattoFrequenza(rr,aCol(3),Es,Es) > 0 Then avalori(11) = aCol(3) If EstrattoFrequenza(rr,aCol(3),Es,Es) > 0 Then k3 = 1 avalori(8) = GetInfoEstrazione(id) avalori(12) = k1 + k2 + k3 k1 = 0 k2 = 0 k3 = 0 If avalori(12) = 3 Then k5=k5+1 If avalori(12) = 3 Then Call AddRigaTabella(avalori,4,,2) 'Else ' invece se 'Call AddRigaTabella(avalori,,,3) ' scrive i valori diversi da avalori(12) = 3 End If Next Loop End If Call SetTableWidth("100%") CreaTabella() Scrivi "Valori Di P.N.C. = " & k5 & " Su un Totale di " & Tott & " Estrazioni ",1,1,1,5,3 ReDim atitoli1(6) atitoli1(1) = " Contatore " atitoli1(2) = " Sviluppo comb. " atitoli1(3) = " Ritardo " atitoli1(4) = " Ritardo Max " atitoli1(5) = " Frequenza " atitoli1(6) = " Incrmax " Call InitTabella(atitoli1,1,,3,5) Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin) Scrivi"Statistica Globale ",1 ReDim avalori1(6) avalori1(1) = FormattaStringa(i,"0") avalori1(2) = StringaNumeri(aNum) avalori1(3) = sr avalori1(4) = st avalori1(5) = sf avalori1(6) = Incr Call AddRigaTabella(avalori1,4,,3) CreaTabella() Scrivi Scrivi "Tabella List by Mike58 for I Legend ********* Forum LottoCed ****** ",1,- 1,3 End Sub