Novità

Errore script

Ciao Alien,

si esatto proprio quello, te lo riporto qui già estratto.

Codice: 
Scrivi Space(36) & "STATISTICHE LOTTO",1: ColoreTesto 1
Scrivi String(78,"=") & "listedrobyca",1 :ColoreTesto 0
Sub Main()
Dim mtr(90,4),mrc(10,6),nu(1),ru(1),nm(10),nms(90,10)
Dim dn(9,13),totfrdn(9),totradn(9),totrsdn(9)
Dim cd(10,12),totfrcd(10),totracd(10),totrscd(10)
Dim fg(9,13),totfrfg(9),totrafg(9),totrsfg(9)
Dim trz(3),datitrz(30,3),rdl(4),datirdl(8,3)
Dim gem(8),datigem(3),dativrt(90,5),nr(2),ena(6)
Erase dativrt: Erase nms


ms = InputBox("INSERIRE IL NUMERO DEL MESE",,10):ms = CInt(ms)
r = InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r = CInt(r):ru(1) = r


fin = EstrazioneFin: ini = 3950
Scrivi "Questa statistica fornisce dati inerenti a tutti i mesi di " & _
MeseNome(ms) & " del periodo che và" & Chr(13) & "dal " & DataEstrazione(ini) & _
" al " & DataEstrazione(fin) & " sulla ruota di " & NomeRuota(r),1 : Call righeu
Scrivi Chr(13) & "Archivio degli ultimi 5 anni di estrazioni in " & MeseNome(ms) & Chr(13) & _
Chr(13) & "Nmr. Data Lotto" & Space(29) & "Superenalotto" & Chr(13) & Chr(13),1


c1 = 0: For x = 1 To 9: For y = 0 To 9:c1 = c1 + 1:dn(x,y + 1) = c1 - 1: Next : Next :dn(1,1) = 90


For x = 1 To 10: For y = 0 To 8:cd(x,y + 1) = x +(10*y): Next : Next
For x = 1 To 9: For y = 0 To 9:fg(x,y + 1) = x +(9*y): Next : Next
gem(1) = 11:gem(2) = 22:gem(3) = 33:gem(4) = 44:gem(5) = 55:gem(6) = 66:gem(7) = 77:gem(8) = 88
For x = 1 To 90:mtr(x,1) = x:nms(x,1) = x: Next


For es = ini To fin: Messaggio NomeRuota(r) & " " & MeseNome(ms) & " " & Anno(es)
If Mese(es) = ms Then
c0 = c0 + 1


For x = 1 To 90:nms(x,9) = nms(x,9) + 1:fn = Posizione(es,r,x)
If fn = 0 Then mtr(x,3) = mtr(x,3) + 1
If fn > 0 Then mtr(x,2) = mtr(x,2) + 1:mtr(x,3) = 0
If mtr(x,4) < mtr(x,3) Then mtr(x,4) = mtr(x,3)
Next


For p = 1 To 6:ns = Estratto(es,,p,1):ena(p) = ns
nms(ns,8) = nms(ns,8) + 1:nms(ns,p + 1) = nms(ns,p + 1) + 1
If nms(ns,10) < nms(ns,9) Then nms(ns,10) = nms(ns,9)
nms(ns,9) = 0: Next
OrdinaMatrice ena,+ 1
If es >(fin - 520) Then : ColoreTesto 1: Scrivi es & " " & DataEstrazione(es) & _
" " & StringaEstratti(es,r) & Space(20) & StringaNumeri(ena),1: ColoreTesto 0


nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm(y) = dn(x,y): Next
fdn = 0:fdn = SerieFreq(es,es,nm,ru,2)
If fdn = 0 Then totradn(x) = totradn(x) + 1
If fdn > 0 Then totfrdn(x) = totfrdn(x) + fdn:totradn(x) = 0
If totrsdn(x) < totradn(x) Then totrsdn(x) = totradn(x)
Erase nm : Next


nm(0) = 0: For x = 1 To 10: For y = 1 To 9:nm(y) = cd(x,y): Next
frcd = 0:frcd = SerieFreq(es,es,nm,ru,2)
If frcd = 0 Then totracd(x) = totracd(x) + 1
If frcd > 0 Then totfrcd(x) = totfrcd(x) + frcd:totracd(x) = 0
If totrscd(x) < totracd(x) Then totrscd(x) = totracd(x)
Erase nm: Next


nm(0) = 0: For x = 1 To 9: For y = 1 To 10:nm(y) = fg(x,y): Next
frfg = 0:frfg = SerieFreq(es,es,nm,ru,2)
If frfg = 0 Then totrafg(x) = totrafg(x) + 1
If frfg > 0 Then totfrfg(x) = totfrfg(x) + frfg:totrafg(x) = 0
If totrsfg(x) < totrafg(x) Then totrsfg(x) = totrafg(x)
Erase nm: Next


For x = 1 To 30:trz(1) = x:trz(2) = x + 30:trz(3) = x + 60
ftrz = 0:ftrz = SerieFreq(es,es,trz,ru,2)
If ftrz = 0 Then datitrz(x,2) = datitrz(x,2) + 1
If ftrz > 0 Then datitrz(x,1) = datitrz(x,1) + ftrz:datitrz(x,2) = 0
If datitrz(x,3) < datitrz(x,2) Then datitrz(x,3) = datitrz(x,2)
Next


For x = 1 To 8:rdl(1) = x:rdl(2) = x*10:rdl(3) = rdl(2) + x:rdl(4) = rdl(2) + 9
frdl = 0:frdl = SerieFreq(es,es,rdl,ru,2)
If frdl = 0 Then datirdl(x,2) = datirdl(x,2) + 1
If frdl > 0 Then datirdl(x,1) = datirdl(x,1) + frdl:datirdl(x,2) = 0
If datirdl(x,3) < datirdl(x,2) Then datirdl(x,3) = datirdl(x,2)
Next


fgem = 0:fgem = SerieFreq(es,es,gem,ru,2)
If fgem = 0 Then datigem(2) = datigem(2) + 1
If fgem > 0 Then datigem(1) = datigem(1) + fgem:datigem(2) = 0
If datigem(3) < datigem(2) Then datigem(3) = datigem(2)


For x = 1 To 90:dativrt(x,1) = x:nr(1) = x:dativrt(x,2) = Vert(x):nr(2) = Vert(x)
fvrt = 0:fvrt = SerieFreq(es,es,nr,ru,2)
If fvrt = 0 Then dativrt(x,4) = dativrt(x,4) + 1
If fvrt > 0 Then dativrt(x,3) = dativrt(x,3) + fvrt:dativrt(x,4) = 0
If dativrt(x,5) < dativrt(x,4) Then dativrt(x,5) = dativrt(x,4)
Next
End If : Next


Call righeu: Scrivi Chr(13) & "Estratti ordinati per" & Space(11) & "FREQUENZA" & Space(25) & _
"RITARDO" & Chr(13) & Space(11) & "Pos." & Space(13) & "N." & Space(5) & "Fre." & Space(3) & "R.Att." & _
Space(13) & "N." & Space(5) & "Fre." & Space(3) & "R.Att.",1


For y = 2 To 3: OrdinaMatrice mtr,- 1,y: For x = 1 To 10
If y = 2 Then mrc(x,1) = mtr(x,1):mrc(x,2) = mtr(x,2):mrc(x,3) = mtr(x,3) Else _
mrc(x,4) = mtr(x,1):mrc(x,5) = mtr(x,2):mrc(x,6) = mtr(x,3)
Next : Next


For x = 1 To 10:riga = riga & _
FormatSpace(Format2(x),13,1) & "°" & FormatSpace(Format2(mrc(x,1)),16,1) & _
FormatSpace(Format2(mrc(x,2)),8,1) & FormatSpace(Format2(mrc(x,3)),8,1) & _
FormatSpace(Format2(mrc(x,4)),17,1) & FormatSpace(Format2(mrc(x,5)),8,1) & _
FormatSpace(Format2(mrc(x,6)),8,1): Scrivi riga:riga = "": Next : Scrivi


Call abbina(ini,fin,ms,mtr(1,1),r,c0)


For x = 1 To 10
If x < 10 Then dn(x,11) = totfrdn(x):dn(x,12) = totradn(x):dn(x,13) = totrsdn(x): _
fg(x,11) = totfrfg(x):fg(x,12) = totrafg(x):fg(x,13) = totrsfg(x)
cd(x,10) = totfrcd(x):cd(x,11) = totracd(x):cd(x,12) = totrscd(x): Next


Call righeu: Scrivi Chr(13) & "Decine cabalistiche x ambo" & Space(12) & "Fre." & Space(7) & _
"R.Att." & Space(6) & "R.Sto." & Space(5) & "Ciclo Eff.",1
For x = 1 To 9: For y = 1 To 10
If y < 10 Then riga = riga & Format2(dn(x,y)) & "." Else riga = riga & Format2(dn(x,y))
Next : Scrivi riga & Space(10) & Format2(dn(x,11)) & Space(10) & Format2(dn(x,12)) & _
Space(10) & Format2(dn(x,13)) & Space(10) & Left((c0/dn(x,11)),4)
riga = "": Next


Call righeu: Scrivi Chr(13) & "Cadenze x ambo" & Space(24) & "Fre." & Space(7) & _
"R.Att." & Space(6) & "R.Sto." & Space(5) & "Ciclo Eff.",1:
For x = 1 To 10: For y = 1 To 9
If y < 9 Then riga = riga & Format2(cd(x,y)) & "." Else riga = riga & Format2(cd(x,y))
Next : Scrivi riga & Space(13) & Format2(cd(x,10)) & Space(10) & Format2(cd(x,11)) & _
Space(10) & Format2(cd(x,12)) & Space(10) & Left((c0/cd(x,10)),4):
riga = "": Next


Call righeu: Scrivi Chr(13) & "Figure x ambo" & Space(25) & "Fre." & Space(7) & _
"R.Att." & Space(6) & "R.Sto." & Space(5) & "Ciclo Eff.",1: For x = 1 To 9: For y = 1 To 10
If y < 10 Then riga = riga & Format2(fg(x,y)) & "." Else riga = riga & Format2(fg(x,y))
Next : Scrivi riga & Space(10) & Format2(fg(x,11)) & Space(10) & Format2(fg(x,12)) & _
Space(10) & Format2(fg(x,13)) & Space(10) & Left((c0/fg(x,11)),4):
riga = "": Next


Call righeu: Scrivi Chr(13) & "Terzine simmetriche x ambo" & Chr(13) & Space(15) & "Fre." & _
Space(3) & "R.A." & Space(3) & "R.S." & Space(32) & "Fre." & Space(3) & "R.A." & Space(3) & "R.S." & Space(3),1
For x = 1 To 15: Scrivi Format2(x) & "." & Format2(x + 30) & "." & Format2(x + 60) & _
FormatSpace(CInt(datitrz(x,1)),10,1) & FormatSpace(CInt(datitrz(x,2)),7,1) & _
FormatSpace(CInt(datitrz(x,3)),7,1) & Space(18) & _
Format2(15 + x) & "." & Format2(15 + x + 30) & "." & Format2(15 + x + 60) & _
FormatSpace(CInt(datitrz(x,1)),10,1) & FormatSpace(CInt(datitrz(x,2)),7,1) & _
FormatSpace(CInt(datitrz(x,3)),7,1): Next


Call righeu: Scrivi Chr(13) & Space(18) & "Radicali x ambo" & Space(9) & "Fre." & Space(5) & _
"R.A." & Space(5) & "R.S.",1
For x = 1 To 8: rdl(1) = x:rdl(2) = x*10:rdl(3) = rdl(2) + x:rdl(4) = rdl(2) + 9
Scrivi String(18," ") & StringaNumeri(rdl) & FormatSpace(CInt(datirdl(x,1)),16,1) & _
FormatSpace(CInt(datirdl(x,2)),9,1) & FormatSpace(CInt(datirdl(x,3)),9,1): Next


Call righeu: Scrivi Chr(13) & Space(10) & "Gemelli x ambo" & Space(18) & "Fre." & Space(5) & _
"R.A." & Space(5) & "R.S.",1
Scrivi Space(10) & StringaNumeri(gem) & FormatSpace(CInt(datigem(1)),12,1) & _
FormatSpace(CInt(datigem(2)),9,1) & FormatSpace(CInt(datigem(3)),9,1)


Call righeu: Scrivi Chr(13) & "Vertibili x ambo" & Chr(13) & " Fre. R.A. R.S." & _
Space(17) & "Fre. R.A. R.S." & Space(17) & "Fre. R.A. R.S.",1: OrdinaMatrice dativrt,- 1,3
For x = 1 To 30: riga = riga & Format2(dativrt(x,1)) & "-" & Format2(dativrt(x,2))
If dativrt(x,3) > 0 Then riga = riga & FormatSpace(dativrt(x,3),5,1) Else riga = riga & " 0"
riga = riga & FormatSpace(dativrt(x,4),6,1) & FormatSpace(dativrt(x,5),6,1):riga = riga & Space(11)
riga = riga & Format2(dativrt(30 + x,1)) & "-" & Format2(dativrt(30 + x,2))
If dativrt(30 + x,3) > 0 Then riga = riga & FormatSpace(dativrt(30 + x,3),5,1) Else riga = riga & " 0"
riga = riga & FormatSpace(dativrt(30 + x,4),6,1) & FormatSpace(dativrt(30 + x,5),6,1)
riga = riga & Space(11):riga = riga & Format2(dativrt(60 + x,1)) & "-" & Format2(dativrt(60 + x,2))
If dativrt(60 + x,3) > 0 Then riga = riga & FormatSpace(dativrt(60 + x,3),5,1) Else riga = riga & " 0"
riga = riga & FormatSpace(dativrt(60 + x,4),6,1) & FormatSpace(dativrt(60 + x,5),6,1)
Scrivi riga:riga = "": Next


Call righeu: Scrivi Chr(13) & Space(33) & "STATISTICHE SUPERENALOTTO" & Chr(13) & Chr(13) & _
"Per un totale di " & c0 & " estrazioni in data " & "gg/" & MeseNome(ms) & "/aa sulla ruota di " & _
NomeRuota(r) & "." & Chr(13) & "Le presenze" & " ed i ritardi vengono rilevati all'ultima" & _
" estrazione del mese di " & MeseNome(ms) & Chr(13) & "presente in archivio" & Chr(13) & Chr(13) & _
"Frequenze per posizione",1


For y = 2 To 7:OrdinaMatrice nms,- 1,y
For x = 1 To 10:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,y)),5,1): Next
Scrivi y - 1 & "° " & "Pos: " & riga,1: ColoreTesto 1: Scrivi "Fre. : " & rige
ColoreTesto 0:riga = "":rige = "": Next


Scrivi Chr(13) & "Frequenze totali",1: OrdinaMatrice nms,- 1,8
For x = 1 To 15:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,8)),5,1): Next
Scrivi "Num. : " & riga,1: ColoreTesto 2: Scrivi "Pre. : " & rige
ColoreTesto 0: riga = "":rige = ""


Scrivi Chr(13) & "Ritardi Attuali totali",1: OrdinaMatrice nms,- 1,9
For x = 1 To 15:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,9)),5,1): Next
Scrivi "Num. : " & riga,1: ColoreTesto 2: Scrivi "Rit. : " & rige
ColoreTesto 0:riga = "":rige = ""


Scrivi Chr(13) & "Ritardi Storici totali",1: OrdinaMatrice nms,- 1,10
For x = 1 To 15:riga = riga & FormatSpace(Format2(nms(x,1)),5,1)
rige = rige & FormatSpace(Format2(nms(x,10)),5,1): Next
Scrivi "Num. : " & riga,1: ColoreTesto 2: Scrivi "Rit. : " & rige
ColoreTesto 0: riga = "":rige = ""
ColoreTesto 2: Scrivi Chr(13) & Space(78) & "listedrobyca",1: End Sub


Function abbina(ini,fin,ms,n,r,c0): Dim nu(90,2)
For x = 1 To 90:nu(x,1) = x:nu(x,2) = 0: Next
c1 = 0:
For es = ini To fin
If Mese(es) = ms And Posizione(es,r,n) > 0 Then
c1 = c1 + 1: ColoreTesto 2: Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r)
For p = 1 To 5:nm = Estratto(es,r,p):nu(nm,2) = nu(nm,2) + 1: Next
End If : Next
OrdinaMatrice nu,- 1,2: For x = 1 To 20
If nu(x,2) > 0 And nu(x,1) <> n Then rig1 = rig1 & FormatSpace(Format2(nu(x,1)),4,1): _
rig2 = rig2 & FormatSpace(Format2(nu(x,2)),4,1)
Next : ColoreTesto 0: Scrivi Chr(13) & "Il numero " & n & " si è presentato " & c1 & " volta/e" & _
" in " & c0 & " estrazioni con data gg/" & MeseNome(ms) & "/aa," & Chr(13) & _
"Questi gli abbinameti: (max. 20)" & Chr(13) & Chr(13),1: ColoreTesto 1
If c1 = 0 Then rig1 = "":rig2 = ""
Scrivi "Numeri : " & rig1 & Chr(13) & "Frequenza: " & rig2,1:rig1 = "":rig2 = "": End Function


Sub righeu: ColoreTesto 1: Scrivi Chr(13) & String(90,"="),1: ColoreTesto 0: End Sub

Saluti
 
Ciao Moro,perdonami ma non ho capito il superenalotto :

STATISTICHE SUPERENALOTTO

Per un totale di 402 estrazioni in data gg/Gennaio/aa sulla ruota di Bari.
Le presenze ed i ritardi vengono rilevati all'ultima estrazione del mese di Gennaio
presente in archivio

Frequenze per posizione
1° Pos: 60 61 59 57 58 62 66 67 65 63
Fre. :
2° Pos: 01 02 03 04 05 06 07 08 09 10 ???????
Fre. :
3° Pos: 60 61 59 57 58 62 66 67 65 63
Fre. :
4° Pos: 01 02 03 04 05 06 07 08 09 10 ????????
Fre. :
5° Pos: 60 61 59 57 58 62 66 67 65 63
Fre. :
6° Pos: 01 02 03 04 05 06 07 08 09 10 ????????
Fre. :

Frequenze totali
Num. : 60 61 59 57 58 62 66 67 65 63 64 49 50 48 46
Pre. :

Ritardi Attuali totali
Num. : 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 ???????????
Rit. : 402 402 402 402 402 402 402 402 402 402 402 402 402 402 402

Ritardi Storici totali
Num. : 60 61 59 57 58 62 66 67 65 63 64 49 50 48 46
Rit. :





puoi estrapolare solo i numeri dispari freq e rit ed indice di convenienza..ed altro che ti può venire in mente.......eheheh non usare il martello....hahaha ciao
 
mentre per il lotto:

Archivio degli ultimi 5 anni di estrazioni in Gennaio


ma visualizza solo 3 anni..

***************************************
qua ci sarebbe da fare un bel giochino.

es:3/4 anni di estrazioni lotto diciamo di gennaio escluso l'anno in corso(2013 anche se già passato)Negli ultimi 3/4 anni addietro avremo una statistica di freq e rit dei 90 numeri.A QUESTO PUNTO man mano che escono le estrazioni del lotto di gen 2013 andremo a vedere ogni numero della cinquina estratta quanta è la sua freq. e rit.e vetremo per le 12/13 cinquine mensili -Per ogni cinquina avremo un tot.di freq.ed ritardo avremo delle medie.A questo punto adremo a giocare quelle cinquine che rientrano nella media. 20/40 cinquine e con una certa,certezza potremo beccare la cinquina........no no non inviarmi alla prima porta a destra.......
 
Ultima modifica:
Ciao Alien,

purtroppo lo script che ho riportato non è di mia creazione, ma bensì di Robyca, come riportato all'interno dello stesso.

Mi sono limitato a cercarlo e a postarlo per lota che ne aveva fatto richiesta, tutto qui.

Ciò non toglie che lo si possa studiare, modificare o implementere con quello che si ritiene più opportuno.


Saluti
 
Ciao Moro,
si vero ma non si potrebbe fare lo stesso,ovviamente con comodo diciamo .ieri...scherzo....comunque grazie per la tua disponibilità.
ALIEN.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 21 giugno 2025
    Bari
    07
    03
    45
    25
    05
    Cagliari
    20
    73
    88
    50
    15
    Firenze
    04
    19
    09
    52
    55
    Genova
    21
    47
    65
    53
    24
    Milano
    11
    64
    70
    67
    51
    Napoli
    59
    66
    83
    33
    03
    Palermo
    61
    74
    28
    62
    04
    Roma
    25
    29
    15
    54
    44
    Torino
    34
    22
    30
    59
    28
    Venezia
    42
    75
    06
    83
    84
    Nazionale
    36
    67
    41
    54
    56
    Estrazione Simbolotto
    Napoli
    02
    40
    06
    26
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto