Alien.
Advanced Premium Member
Sub Main()
Dim ruote(1),tutte(1),n3(3)
Dim ambN(1),numeri(90,2),poste(1),ambiRuot(4005,3),ambiTu(4005,3),terniRuot(7140,5),terniTu(7140,5),num(2)
rr = InputBox("Ruota da Controllare","Analisi del Terzo Estrazionale by Jai.Jai",1)
estrCTR = InputBox("Estrazioni di controllo a ritroso","Analisi del Terzo Estrazionale by Jai.Jai",36)
freqCiclo = InputBox("Frequenza dei Numeri Nel Ciclo [0] Assenti","Analisi del Terzo Estrazionale by Jai.Jai",4)
ultima = InputBox("Estrazione oggetto di Analisi","Analisi del Terzo Estrazionale by Jai.Jai",EstrazioneFin)
tst = " ********** "
tst1 = "ANALISI DEL TERZO ESTRAZIONALE"
spc1 =(90 - Len(tst + tst1 + tst))/2
tst2 = "... STATISTICHE DALLA LDT ..."
spc2 =(90 - Len(tst + tst2 + tst))/2
Scrivi Space(spc1) & tst & tst1 & tst & Chr(10),1
Scrivi Space(spc2) & tst & tst2 & tst & Chr(10),1
ColoreTesto 2 : Scrivi Space((90 - Len("by Jai.Jai"))) & "by Jai.Jai" & Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*") & "listato by Jai.Jai" & Chr(10),1
ColoreTesto 0
tutte(1) = 11
Scrivi
Scrivi "ANALISI STATISTICA Legge del Terzo"
Scrivi "FREQUENZE dei singoli numeri in un (1) periodo superiore al Terzo Estrazionale (min. 36 estrazioni)"
Scrivi "Calcolo Ritardi per Ambate,Ambi e Terni su Ruota e Tutte"
Scrivi "Partenza della statistica a ritroso dall'estrazione numero " & ultima & "(" & DataEstrazione(ultima) & ")"
Scrivi "Durata del periodo di controllo a ritroso nr. " & estrCTR & " estrazioni"
Scrivi
ini = EstrazioneIni
fine = EstrazioneFin
For i = rr To rr
Erase numeri
Erase ambiRuot
Erase ambiTu
ruote(1) = i
estrI = ultima + 1 - estrCTR
estrF = ultima
cont = 0
Scrivi
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 2
Scrivi NomeRuota(rr) & " .....INIZIO ANALISI ESTRAZIONI A RITROSO "
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 0
Scrivi
Scrivi "AMBATE (numeri capolista):"
For sn = 1 To 90
ambN(1) = sn
sFR = SerieFreq(estrI,estrF,ambN,ruote,1)
If sFR = CInt(freqCiclo) Then
cont = cont + 1
rit = SerieRitardo(ini,ultima,ambN,ruote,1)
numeri(cont,1) = rit
numeri(cont,2) = ambN(1)
End If
Next
OrdinaMatrice numeri,- 1,1 'Ordinamento matrice ambate in ordine decrescente di ritardo
For kkk = 1 To cont
Scrivi " numero " & Format2(numeri(kkk,2)) & " ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & numeri(kkk,1)
Next
contat = 0
'ciclo di creazione composizione ambi con calcolo dei ritardi su Ruota e Tutte
For kkk = 1 To cont - 1
For jjj = kkk + 1 To cont
contat = contat + 1
num(1) = numeri(kkk,2)
num(2) = numeri(jjj,2)
rit = SerieRitardo(ini,ultima,num,ruote,2)
ambiRuot(contat,1) = rit
ambiRuot(contat,2) = num(1)
ambiRuot(contat,3) = num(2)
rit = SerieRitardo(ini,ultima,num,tutte,2)
ambiTu(contat,1) = rit
ambiTu(contat,2) = num(1)
ambiTu(contat,3) = num(2)
Next
Next
'Ordinamento matrici ambi in ordine decrescente di ritardo
OrdinaMatrice ambiRuot,- 1,1
OrdinaMatrice ambiTu,- 1,1
'ciclo di creazione composizione terni con calcolo dei ritardi su Ruota e Tutte
contat3 = 0
For kkkkk = 1 To cont - 2
For kkk = kkkkk + 1 To cont - 1
For jjj = kkk + 1 To cont
contat3 = contat3 + 1
n3(1) = numeri(kkkkk,2)
n3(2) = numeri(kkk,2)
n3(3) = numeri(jjj,2)
rit = SerieRitardo(ini,ultima,n3,ruote,2)
terniRuot(contat3,1) = rit
terniRuot(contat3,2) = n3(1)
terniRuot(contat3,3) = n3(2)
terniRuot(contat3,4) = n3(3)
rit = SerieRitardo(ini,ultima,n3,ruote,1)
terniRuot(contat3,5) = rit
rit = SerieRitardo(ini,ultima,n3,tutte,2)
terniTu(contat3,1) = rit
terniTu(contat3,2) = n3(1)
terniTu(contat3,3) = n3(2)
terniTu(contat3,4) = n3(3)
rit = SerieRitardo(ini,ultima,n3,tutte,1)
terniTu(contat3,5) = rit
Next
Next
Next
'Ordinamento matrici ambi in ordine decrescente di ritardo
OrdinaMatrice terniRuot,- 1,1
OrdinaMatrice terniTu,- 1,1
Scrivi
Scrivi "AMBO SU RUOTA (10 ambi capolista):"
For iii = 1 To 10 ' selezione ambi CAPOLISTA RUOTA
Scrivi " Ambo su Ruota " & Format2(ambiRuot(iii,2)) & "-" & Format2(ambiRuot(iii,3)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & ambiRuot(iii,1)
Next
Scrivi
Scrivi "AMBO SU TUTTE (10 ambi capolista):"
For iii = 1 To 10 ' selezione ambi CAPOLISTA TUTTE
Scrivi " Ambo su Tutte " & Format2(ambiTu(iii,2)) & "-" & Format2(ambiTu(iii,3)) & " ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & ambiTu(iii,1)
Next
Scrivi
Scrivi "TERNO SU RUOTA (10 terni capolisti per ambo):"
For iii = 1 To 10 ' selezione terni CAPOLISTA RUOTA
Scrivi " Terno su Ruota " & Format2(terniRuot(iii,2)) & "-" & Format2(terniRuot(iii,3)) & "-" & Format2(terniRuot(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniRuot(iii,1)
Next
Scrivi
Scrivi "TERNI SU TUTTE (10 terni capolisti per ambo):"
For iii = 1 To 10 ' selezione terni CAPOLISTA TUTTE
Scrivi " Terno su Tutte " & Format2(terniTu(iii,2)) & "-" & Format2(terniTu(iii,3)) & "-" & Format2(terniTu(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniTu(iii,1)
Next
OrdinaMatrice terniRuot,- 1,5
OrdinaMatrice terniTu,- 1,5
Scrivi
Scrivi "TERNO SU RUOTA (10 terni capolisti per ambata):"
For iii = 1 To 20 ' selezione terni CAPOLISTA RUOTA
Scrivi " Terno su Ruota " & Format2(terniRuot(iii,2)) & "-" & Format2(terniRuot(iii,3)) & "-" & Format2(terniRuot(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniRuot(iii,5)
Next
Scrivi
Scrivi "TERNI SU TUTTE (10 terni capolisti per ambata):"
For iii = 1 To 20 ' selezione terni CAPOLISTA TUTTE
Scrivi " Terno su Tutte " & Format2(terniTu(iii,2)) & "-" & Format2(terniTu(iii,3)) & "-" & Format2(terniTu(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniTu(iii,5)
Next
Scrivi
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 2
Scrivi "ELABORAZIONE TERMINATA "
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 0
Next
End Sub
Ciao,per poter fare una statistica,se lo script è valido ,si potrebbe fare una modifica: inserire richiesta data ricerca dal............al..............(min. 36 estrazioni)
ovviamente che poi venga visualizzata anche nell'elaborazione......grazie.
Dim ruote(1),tutte(1),n3(3)
Dim ambN(1),numeri(90,2),poste(1),ambiRuot(4005,3),ambiTu(4005,3),terniRuot(7140,5),terniTu(7140,5),num(2)
rr = InputBox("Ruota da Controllare","Analisi del Terzo Estrazionale by Jai.Jai",1)
estrCTR = InputBox("Estrazioni di controllo a ritroso","Analisi del Terzo Estrazionale by Jai.Jai",36)
freqCiclo = InputBox("Frequenza dei Numeri Nel Ciclo [0] Assenti","Analisi del Terzo Estrazionale by Jai.Jai",4)
ultima = InputBox("Estrazione oggetto di Analisi","Analisi del Terzo Estrazionale by Jai.Jai",EstrazioneFin)
tst = " ********** "
tst1 = "ANALISI DEL TERZO ESTRAZIONALE"
spc1 =(90 - Len(tst + tst1 + tst))/2
tst2 = "... STATISTICHE DALLA LDT ..."
spc2 =(90 - Len(tst + tst2 + tst))/2
Scrivi Space(spc1) & tst & tst1 & tst & Chr(10),1
Scrivi Space(spc2) & tst & tst2 & tst & Chr(10),1
ColoreTesto 2 : Scrivi Space((90 - Len("by Jai.Jai"))) & "by Jai.Jai" & Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*") & "listato by Jai.Jai" & Chr(10),1
ColoreTesto 0
tutte(1) = 11
Scrivi
Scrivi "ANALISI STATISTICA Legge del Terzo"
Scrivi "FREQUENZE dei singoli numeri in un (1) periodo superiore al Terzo Estrazionale (min. 36 estrazioni)"
Scrivi "Calcolo Ritardi per Ambate,Ambi e Terni su Ruota e Tutte"
Scrivi "Partenza della statistica a ritroso dall'estrazione numero " & ultima & "(" & DataEstrazione(ultima) & ")"
Scrivi "Durata del periodo di controllo a ritroso nr. " & estrCTR & " estrazioni"
Scrivi
ini = EstrazioneIni
fine = EstrazioneFin
For i = rr To rr
Erase numeri
Erase ambiRuot
Erase ambiTu
ruote(1) = i
estrI = ultima + 1 - estrCTR
estrF = ultima
cont = 0
Scrivi
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 2
Scrivi NomeRuota(rr) & " .....INIZIO ANALISI ESTRAZIONI A RITROSO "
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 0
Scrivi
Scrivi "AMBATE (numeri capolista):"
For sn = 1 To 90
ambN(1) = sn
sFR = SerieFreq(estrI,estrF,ambN,ruote,1)
If sFR = CInt(freqCiclo) Then
cont = cont + 1
rit = SerieRitardo(ini,ultima,ambN,ruote,1)
numeri(cont,1) = rit
numeri(cont,2) = ambN(1)
End If
Next
OrdinaMatrice numeri,- 1,1 'Ordinamento matrice ambate in ordine decrescente di ritardo
For kkk = 1 To cont
Scrivi " numero " & Format2(numeri(kkk,2)) & " ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & numeri(kkk,1)
Next
contat = 0
'ciclo di creazione composizione ambi con calcolo dei ritardi su Ruota e Tutte
For kkk = 1 To cont - 1
For jjj = kkk + 1 To cont
contat = contat + 1
num(1) = numeri(kkk,2)
num(2) = numeri(jjj,2)
rit = SerieRitardo(ini,ultima,num,ruote,2)
ambiRuot(contat,1) = rit
ambiRuot(contat,2) = num(1)
ambiRuot(contat,3) = num(2)
rit = SerieRitardo(ini,ultima,num,tutte,2)
ambiTu(contat,1) = rit
ambiTu(contat,2) = num(1)
ambiTu(contat,3) = num(2)
Next
Next
'Ordinamento matrici ambi in ordine decrescente di ritardo
OrdinaMatrice ambiRuot,- 1,1
OrdinaMatrice ambiTu,- 1,1
'ciclo di creazione composizione terni con calcolo dei ritardi su Ruota e Tutte
contat3 = 0
For kkkkk = 1 To cont - 2
For kkk = kkkkk + 1 To cont - 1
For jjj = kkk + 1 To cont
contat3 = contat3 + 1
n3(1) = numeri(kkkkk,2)
n3(2) = numeri(kkk,2)
n3(3) = numeri(jjj,2)
rit = SerieRitardo(ini,ultima,n3,ruote,2)
terniRuot(contat3,1) = rit
terniRuot(contat3,2) = n3(1)
terniRuot(contat3,3) = n3(2)
terniRuot(contat3,4) = n3(3)
rit = SerieRitardo(ini,ultima,n3,ruote,1)
terniRuot(contat3,5) = rit
rit = SerieRitardo(ini,ultima,n3,tutte,2)
terniTu(contat3,1) = rit
terniTu(contat3,2) = n3(1)
terniTu(contat3,3) = n3(2)
terniTu(contat3,4) = n3(3)
rit = SerieRitardo(ini,ultima,n3,tutte,1)
terniTu(contat3,5) = rit
Next
Next
Next
'Ordinamento matrici ambi in ordine decrescente di ritardo
OrdinaMatrice terniRuot,- 1,1
OrdinaMatrice terniTu,- 1,1
Scrivi
Scrivi "AMBO SU RUOTA (10 ambi capolista):"
For iii = 1 To 10 ' selezione ambi CAPOLISTA RUOTA
Scrivi " Ambo su Ruota " & Format2(ambiRuot(iii,2)) & "-" & Format2(ambiRuot(iii,3)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & ambiRuot(iii,1)
Next
Scrivi
Scrivi "AMBO SU TUTTE (10 ambi capolista):"
For iii = 1 To 10 ' selezione ambi CAPOLISTA TUTTE
Scrivi " Ambo su Tutte " & Format2(ambiTu(iii,2)) & "-" & Format2(ambiTu(iii,3)) & " ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & ambiTu(iii,1)
Next
Scrivi
Scrivi "TERNO SU RUOTA (10 terni capolisti per ambo):"
For iii = 1 To 10 ' selezione terni CAPOLISTA RUOTA
Scrivi " Terno su Ruota " & Format2(terniRuot(iii,2)) & "-" & Format2(terniRuot(iii,3)) & "-" & Format2(terniRuot(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniRuot(iii,1)
Next
Scrivi
Scrivi "TERNI SU TUTTE (10 terni capolisti per ambo):"
For iii = 1 To 10 ' selezione terni CAPOLISTA TUTTE
Scrivi " Terno su Tutte " & Format2(terniTu(iii,2)) & "-" & Format2(terniTu(iii,3)) & "-" & Format2(terniTu(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniTu(iii,1)
Next
OrdinaMatrice terniRuot,- 1,5
OrdinaMatrice terniTu,- 1,5
Scrivi
Scrivi "TERNO SU RUOTA (10 terni capolisti per ambata):"
For iii = 1 To 20 ' selezione terni CAPOLISTA RUOTA
Scrivi " Terno su Ruota " & Format2(terniRuot(iii,2)) & "-" & Format2(terniRuot(iii,3)) & "-" & Format2(terniRuot(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniRuot(iii,5)
Next
Scrivi
Scrivi "TERNI SU TUTTE (10 terni capolisti per ambata):"
For iii = 1 To 20 ' selezione terni CAPOLISTA TUTTE
Scrivi " Terno su Tutte " & Format2(terniTu(iii,2)) & "-" & Format2(terniTu(iii,3)) & "-" & Format2(terniTu(iii,4)) & " Ritardo all'Estrazione " & ultima & "(" & DataEstrazione(ultima) & ") " & terniTu(iii,5)
Next
Scrivi
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 2
Scrivi "ELABORAZIONE TERMINATA "
ColoreTesto 1
Scrivi "************************************************* ************************************************"
ColoreTesto 0
Next
End Sub
Ciao,per poter fare una statistica,se lo script è valido ,si potrebbe fare una modifica: inserire richiesta data ricerca dal............al..............(min. 36 estrazioni)
ovviamente che poi venga visualizzata anche nell'elaborazione......grazie.
Ultima modifica:
