Buiongiorno. Quello che segue è uno script di Mike58 modificato da Magia.
Lo script cerca i numeri più frequenti dopo un numero spia.
Da verifica mi sono accorto che lo script cerca la spia in qualsiasi posizione.
Chiedo: si può modificare lo script in maniera tale che consideri la spia SOLO nella posizione specificata ?
Io non ne sono capace.
Grazie a chi vorrà aiutarmi.
Questo lo script
Lo script cerca i numeri più frequenti dopo un numero spia.
Da verifica mi sono accorto che lo script cerca la spia in qualsiasi posizione.
Chiedo: si può modificare lo script in maniera tale che consideri la spia SOLO nella posizione specificata ?
Io non ne sono capace.
Grazie a chi vorrà aiutarmi.
Questo lo script
Codice:
'NUMERI FREQUENTI DOPO SPIA X BY Mike58
Sub Main
Call ApriBaseDatiFT("C:\Users\Utente\Desktop\ZZ.txt",7,",")
ColoreTesto 2
Call Scrivi("*** Listato by Mike58 *** ",True,True,,2,10)
ColoreTesto 0
Dim n(49,7),nu(1),nn1(1),anum(49)
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,100))
If ee = "" Then Exit Sub
nn = EstrattoFT(EstrazioniArchivioFT,7) ' spia e sua posizione (7°) nell'ultima estrazione in archivio
cl = CInt(InputBox("Quanti colpi ?",,7))
If cl = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 49?",,6))
If am = "" Then Exit Sub
nn1(1) = nn
ini = EstrazioniArchivioFT - ee
fin = EstrazioniArchivioFT
Tot = fin - Ini
'---------init tabella----------------------------------------------
ReDim atitoli(09)
atitoli(01) = " Numeri dopo SPIA "
atitoli(02) = " Presenza su Casi "
atitoli(03) = " Rit. corrente "
atitoli(04) = " Rit.Max nel ciclo "
atitoli(05) = " freq ult.ciclo "
atitoli(06) = " Sfaldato "
atitoli(07) = " Colpi "
atitoli(08) = " Frequenze tot "
atitoli(09) = " Media Uscite "
Call InitTabella(atitoli,266,,3,4)
'---------- fine titoli tabella -------------------------------------
For es = ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If PosizioneFT(es,nn) > 0 Then
If SerieFreqFT(es,es,nn1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 49
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
sfe = SerieFreqFT(Ini,fin,nu,1)
fr = SerieFreqFT(es + 1,ess,nu,1)' ricerca frequenza
rt = SerieRitardoFT(ini,fin,nu,1) 'ricerca ritardo
rs = SerieStoricoFT(fin - ee,fin,nu,1)
fru = SerieFreqFT(fin - cna,fin,nu,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
n(co,7) = sfe
ca = fin - es
cnn = EstrattoFrequenzaFT(nn,fin - ee,fin,1)
cna = EstrattoRitardoFT(nn,fin - ee,fin,1)
Next
End If
End If
Next
Scrivi String(100,"_"),1
Scrivi ""
If pari(fin) Then
Scrivi " Statistica dal Lunch " & DataEstrazioneFT(Ini) & " al Lunch " & DataEstrazioneFT(fin) & " ",1,0,6
Else
Scrivi " Statistica dal Tea " & DataEstrazioneFT(Ini) & " al Tea " & DataEstrazioneFT(fin) & " ",1,0,6
End If
Scrivi" ****** Per Lotto UK 49 ******** ",1,0,3
Scrivi " totali estrazioni " &(Tot) & " ",1,- 1,4
Call Scrivi
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & Format2(nn),True,True,,1,5
ColoreTesto 0
If pari(fin) Then
Scrivi"Dal Lunch " & DataEstrazioneFT(ini) & " (" & Format2(Ini) & ") al Lunch " & DataEstrazioneFT(fin) & " (" & Format2(fin) & ")",1
Else
Scrivi"Dal Tea " & DataEstrazioneFT(ini) & " (" & Format2(Ini) & ") al Tea " & DataEstrazioneFT(fin) & " (" & Format2(fin) & ")",1
End If
Scrivi"estrazioni Totali esaminate : " & Format2(ee),True,True,,7,3
Scrivi "nelle successive " & Format2(cl) & " estrazioni - - - Dopo l'uscita del numero spia: ---> " & Format2(nn),1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & Format2(cnn),2
Scrivi String(100,"_"),1
Scrivi ""
OrdinaMatrice n,- 1,3
For w = 1 To am
riga = riga & Format2(n(w,1)) & " "
anum(w) = n(w,1)
rtc2 = SerieRitardoFT(Ini,fin,anum,2)
rtc1 = SerieRitardoFT(Ini,fin,anum,1)
rtc3 = SerieRitardoFT(Ini,fin,anum,3)
fr1 = SerieFreqFT(Ini,fin,anum,1)
fr2 = SerieFreqFT(Ini,fin,anum,2)
fr3 = SerieFreqFT(Ini,fin,anum,3)
'-------- scrivi valori -------------------------------------------------
ReDim avalori(09)
avalori(01) =(n(w,2))
avalori(02) =(n(w,3)) & " su " & cnn
avalori(03) =(n(w,4))
avalori(04) =(n(w,5))
avalori(05) =(n(w,6))
If avalori(03) <= cna Then avalori(06) = n(w,2)
If avalori(03) > cna Then avalori(06) = "-"
If avalori(03) <= cna Then avalori(07) = cna -(avalori(03))
If avalori(03) > cna Then avalori(07) = "-"
avalori(08) =(n(w,7))
avalori(09) = "1/" & Left(Int(fin - Ini)/avalori(08),2)
Call ***RigaTabella(avalori,,,3)
If avalori(03) = 0 Then Call SetColoreCella(01,,2)
If avalori(03) = 0 Then Call SetColoreCella(03,,2)
Next
CreaTabella()
ColoreTesto 0
Scrivi String(150,"="),1
ReDim atit(07)
atit(01) = " Combinazione "
atit(02) = " Ritardo per ambo "
atit(03) = " Frequenza per ambo "
atit(04) = " Rit. Max storico "
atit(05) = " Estratti "
atit(06) = " In data Estraz. "
atit(07) = " Esito "
Call InitTabella(atit,266,,3,4)
Call StatisticaFormazioneFT(anum,2,ritardo,ritmax,Incrmax,frequenza,Ini,fin)
Call VerificaEsitoFT(anum,fin - ritardo,2,,esito,colpi,estratti,id)
ReDim aval(07)
aval(01) = riga
aval(02) = ritardo
aval(03) = frequenza
aval(04) = ritmax
aval(05) = estratti
aval(06) = DataEstrazioneFT(id)
aval(07) = esito
Call ***RigaTabella(aval,3,,3)
CreaTabella
ReDim atit3(07)
atit3(01) = " Combinazione "
atit3(02) = " Ritardo per Terno "
atit3(03) = " Frequenza per Terno "
atit3(04) = " Rit. Max storico "
atit3(05) = " Estratti "
atit3(06) = " In data Estraz. "
atit3(07) = " Esito "
Call InitTabella(atit3,266,,3,4)
Call StatisticaFormazioneFT(anum,3,ritardo,ritmax,Incrmax,frequenza,Ini,fin)
Call VerificaEsitoFT(anum,fin - ritardo,3,,esito,colpi,estratti,id)
ReDim aval3(07)
aval3(01) = riga
aval3(02) = ritardo
aval3(03) = frequenza
aval3(04) = ritmax
aval3(05) = estratti
aval3(06) = DataEstrazioneFT(id)
aval3(07) = esito
Call ***RigaTabella(aval3,4,,3,2,True,1,1)
Call CreaTabella(0,0,0,0,1)
Scrivi String(150,"="),1
End Sub
Ultima modifica:
