BABY BOOMERS ed estratti Doc

[Beppignello]

x vincenzo4221

ma hai un foglio con nome output4,

okkio al maiuscolo o minuscolo, qualche riga sopra a dove viene segnalato l'errore

fog = "output4"
Sheets(fog).Select
Cells(1, 1) = " Ruota "
Cells(1, 2) = " Ambo "
Cells(1, 3) = " Ritardo "
Cells(1, 4) = " Ambo "
Cells(1, 5) = " Ritardo "
Cells(1, 6) = " Ambo "
Cells(1, 7) = " Ritardo "

altrimenti forse non hai copiato o salvato tutte le istruzione della macro.

--------------------------------------------------------------------------------------------------------------

per genios

se non ci sono dati, vuol dire che nel foglio INPUT non c'è l'ultima estrazione,

cosa hai messo nella cella C13? estrazione n. 5693 o non hai messo nulla?

in B13 dovresti scrivere, forse lo abbiamo saltato, non so, non ricordo.

in B13 devi scrivere "Elabora fino a Estraz.n."
in C13 devi scrivere 5693 che corrisponde in questo caso all'ultima estraz. in archivio

questo dato può essere cambiato, mettendo esempio 5600, ottengo la situazione all'estrazione 5600
se metto 5693 ottengo la situazione ad oggi.

penso sia questo il motivo.
prova e fammi sapere

 

[genios]

Beppignello ok ora funziona.

non c'è bisogno di una macro per stampare l'archivio, ma perché vuoi stampare l'archivio delle estrazioni?

Non voglio stamparlo su carta ma nel foglio Output4 per vedere come si legge l' archivio e si stampa . Per capire un po' piu' di programmazione .

 

[Beppignello]

dopo vedo di darti qualche indirizzo di come fare, proviamo questa altra macro che crea una situazione statistica di tutte gli ambi
sincroni a Tutte Le Ruote.

1) bisogna creare un foglio con nome "output"
2) bisogna copiare ed incollare questa macro che ti posto e salvarla con nome "Sincroni"
3) creare un bottone a tuo piacere
4) assegnare al bottone la macro "Sincroni"
5) Modificare il testo del bottone scrivendoci dentro, cosa fa quel bottone "Sincroni-Tutte"

fammi sapere se funziona

Sub Sincroni()
    Dim rambo(8990, 1), maxmax(100)
    Dim ult, rankda, riga, estr, es1, es2, z1, z2, zz1, zz2, ambo, numEm, hh, cap, dif1, dif2, a, na

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''leggo archivio estrazioni
    ult = Range("INPUT!C13")
    fog = "output"
    Sheets(fog).Select
    Range("A02:J4005").Select
    Selection.Delete
    Selection.Range("A01:J4005").NumberFormat = "@"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''carica arrays con ritardi storici
maxmax(100) = 3: maxmax(99) = 3: maxmax(98) = 4
maxmax(97) = 7: maxmax(96) = 7: maxmax(95) = 7
maxmax(94) = 9: maxmax(93) = 8: maxmax(92) = 10
maxmax(91) = 10: maxmax(90) = 11: maxmax(89) = 11
maxmax(88) = 12: maxmax(87) = 13: maxmax(86) = 14
maxmax(85) = 15: maxmax(84) = 16: maxmax(83) = 16
maxmax(82) = 17: maxmax(81) = 17: maxmax(80) = 21
maxmax(79) = 22: maxmax(78) = 20: maxmax(77) = 19
maxmax(76) = 20: maxmax(75) = 22: maxmax(74) = 22
maxmax(73) = 26: maxmax(72) = 26: maxmax(71) = 27
maxmax(70) = 27: maxmax(69) = 27: maxmax(68) = 31
maxmax(67) = 28: maxmax(66) = 32: maxmax(65) = 28
maxmax(64) = 33: maxmax(63) = 30: maxmax(62) = 34
maxmax(61) = 32: maxmax(60) = 35: maxmax(59) = 36
maxmax(58) = 36: maxmax(57) = 38: maxmax(56) = 36
maxmax(55) = 39: maxmax(54) = 41: maxmax(53) = 42
maxmax(52) = 41: maxmax(51) = 44: maxmax(50) = 46
maxmax(49) = 48: maxmax(48) = 50: maxmax(47) = 51
maxmax(46) = 53: maxmax(45) = 49: maxmax(44) = 54
maxmax(43) = 55: maxmax(42) = 53: maxmax(41) = 56
maxmax(40) = 57: maxmax(39) = 58: maxmax(38) = 59
maxmax(37) = 60: maxmax(36) = 66: maxmax(35) = 67
maxmax(34) = 70: maxmax(33) = 67: maxmax(32) = 71
maxmax(31) = 72
maxmax(30) = 74: maxmax(29) = 75: maxmax(28) = 77
maxmax(27) = 81: maxmax(26) = 82: maxmax(25) = 87
maxmax(24) = 88: maxmax(23) = 90: maxmax(22) = 92
maxmax(21) = 97: maxmax(20) = 100: maxmax(19) = 103
maxmax(18) = 104: maxmax(17) = 117: maxmax(16) = 120
maxmax(15) = 123: maxmax(14) = 125: maxmax(13) = 133
maxmax(12) = 135: maxmax(11) = 138: maxmax(10) = 148
maxmax(9) = 156: maxmax(8) = 171: maxmax(7) = 186
maxmax(6) = 204: maxmax(5) = 214: maxmax(4) = 221
maxmax(3) = 279: maxmax(2) = 338: maxmax(1) = 630

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Sheets("Archivio").Select  'seleziona il Foglio Archivio per andare a leggere i dati delle estrazioni
''''questa riga serve per azzerare la variabile conta che ci servir per passare da una ruota alla successiva
riga = 1       'si aggiunge + 1 perch l'arichivio inizia dalla seconda riga
es1 = Cells(riga, 1)   'scrive la variabile NumEM (il numero estrazione) nella Cella H2
es2 = Cells(riga, 3)   'scrive la variabile DataE (la data dell'estrazione) nella Cella D4
estr = 1

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''legge archivio dal 1939 di tutte le estrazioni
For estr = estr + 1 To ult + 1
rankda = 4
numEm = estr - 1
''''Tutte le ruote carica i 50 estratti
For ruota = 1 To 10
ReDim nm(5)
hh = 0
For k = 0 To 4
  hh = hh + 1
  nm(hh) = Cells(estr, rankda + k)
Next
rankda = rankda + 5
'''calcola ritardo dei 100 ambi di ogni estrazione
For z1 = 1 To 4
  z2 = z1
    For z2 = z2 + 1 To 5

     If nm(z1) < 10 Then
        zz1 = "0" & nm(z1)
     Else
        zz1 = nm(z1)
     End If
        If nm(z2) < 10 Then
          zz2 = "0" & nm(z2)
        Else
          zz2 = nm(z2)
        End If

    If Int(zz1) < Int(zz2) Then
       ambo = zz1 & zz2
    Else
       ambo = zz2 & zz1
    End If

    rambo(ambo, 0) = ambo
    rambo(ambo, 1) = numEm

    Next
Next

Next
Next
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''sposta ritardi in array ambi
    ReDim ambi(4005, 1)
    za = 8990
    cc = 0
    For z = 1 To za
    If rambo(z, 0) > 0 Then
    cc = cc + 1
    ambi(cc, 1) = ult - rambo(z, 1)
    ambi(cc, 0) = rambo(z, 0)
    End If
    Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''scrivi intestazione colonne su foglio output
        fog = "output"
        Sheets(fog).Select
    Cells(1, 1) = " Ruota "
    Cells(1, 2) = " Rit.Attuale "
    Cells(1, 3) = " Qta "
    Cells(1, 4) = " Ambi Sincro - Isocroni "
    Cells(1, 5) = " N.Estraz. "
'''prova sort per ritardo discendente a tutte valutato
'''    Case "descend"
 SortCol = 1
'riempiere campi output
 Dim i As Long, j As Long, temp As Variant
 Numrows = 4005
 For i = 1 To Numrows - 1
    For j = i To Numrows
       If Val(ambi(j, 1)) > Val(ambi(i, 1)) Then
          temp = ambi(i, 1)
          temp1 = ambi(i, 0)
          ambi(i, 1) = ambi(j, 1)
          ambi(i, 0) = ambi(j, 0)
          ambi(j, 1) = temp
          ambi(j, 0) = temp1
       End If
    Next j
 Next i
' Selection.Value = ram

''''''''''scrittura file di output
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''' solo sincroni ritardo
     cs = 1
     za = 4005
     ReDim ordine(4005, 1)
 For z = 1 To za
    ordine(ambi(z, 1), 0) = ordine(ambi(z, 1), 0) & ambi(z, 0) & " | "
    ordine(ambi(z, 1), 1) = ordine(ambi(z, 1), 1) + 1
 Next
    For a = 0 To 4005
    If ordine(a, 1) > 0 Then
      cs = cs + 1
      Cells(cs, 1) = " T u t t e "
      Cells(cs, 2) = a
      Cells(cs, 3) = ordine(a, 1)
      Cells(cs, 4) = ordine(a, 0)
      Cells(cs, 5) = ult - a
       If a >= maxmax(ordine(a, 1)) Then
       Cells(cs, 2).Interior.ColorIndex = 4
       Cells(cs, 3).Interior.ColorIndex = 4
       Cells(cs, 4).Interior.ColorIndex = 4
       End If
    End If
    Next
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 cs = cs + 1
 Cells(cs, 4) = " Aggiornata all'estrazione n." & es1 & " - " & es2
 Cells(cs, 4).Interior.ColorIndex = 6

For j = 1 To 100
Cells(cs + j, 4) = "n.Ambi  " & j & " Rit.MaxSto   " & maxmax(j)
Next

End Sub

 

[genios]

Mi da il seguente errore .

 

[Beppignello]

il copia incolla nel forum, trasforma alcuni caratteri, rendendo ineseguibile la macro
5

If nm(z1) < 10 Then
zz1 = "0" & nm(z1)
Else
zz1 = nm(z1)
End If
If nm(z2) < 10 Then
zz2 = "0" & nm(z2)
Else
zz2 = nm(z2)
End If

If Int(zz1) < Int(zz2) Then
ambo = zz1 & zz2
Else
ambo = zz2 & zz1
End If

quel &lt non esiste nell'istruzione ma è il segno <
provo con copia incolla txt
e vediamo cosa succede

Sub Sincroni()
Dim rambo(8990, 1), maxmax(100)
Dim ult, rankda, riga, estr, es1, es2, z1, z2, zz1, zz2, ambo, numEm, hh, cap, dif1, dif2, a, na

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''
''leggo archivio estrazioni
ult = Range("INPUT!C13")
fog = "output"
Sheets(fog).Select
Range("A02:J4005").Select
Selection.Delete
Selection.Range("A01:J4005").NumberFormat = "@"
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''
''''carica arrays con ritardi storici
maxmax(100) = 3: maxmax(99) = 3: maxmax(98) = 4
maxmax(97) = 7: maxmax(96) = 7: maxmax(95) = 7
maxmax(94) = 9: maxmax(93) = 8: maxmax(92) = 10
maxmax(91) = 10: maxmax(90) = 11: maxmax(89) = 11
maxmax(88) = 12: maxmax(87) = 13: maxmax(86) = 14
maxmax(85) = 15: maxmax(84) = 16: maxmax(83) = 16
maxmax(82) = 17: maxmax(81) = 17: maxmax(80) = 21
maxmax(79) = 22: maxmax(78) = 20: maxmax(77) = 19
maxmax(76) = 20: maxmax(75) = 22: maxmax(74) = 22
maxmax(73) = 26: maxmax(72) = 26: maxmax(71) = 27
maxmax(70) = 27: maxmax(69) = 27: maxmax(68) = 31
maxmax(67) = 28: maxmax(66) = 32: maxmax(65) = 28
maxmax(64) = 33: maxmax(63) = 30: maxmax(62) = 34
maxmax(61) = 32: maxmax(60) = 35: maxmax(59) = 36
maxmax(58) = 36: maxmax(57) = 38: maxmax(56) = 36
maxmax(55) = 39: maxmax(54) = 41: maxmax(53) = 42
maxmax(52) = 41: maxmax(51) = 44: maxmax(50) = 46
maxmax(49) = 48: maxmax(48) = 50: maxmax(47) = 51
maxmax(46) = 53: maxmax(45) = 49: maxmax(44) = 54
maxmax(43) = 55: maxmax(42) = 53: maxmax(41) = 56
maxmax(40) = 57: maxmax(39) = 58: maxmax(38) = 59
maxmax(37) = 60: maxmax(36) = 66: maxmax(35) = 67
maxmax(34) = 70: maxmax(33) = 67: maxmax(32) = 71
maxmax(31) = 72
maxmax(30) = 74: maxmax(29) = 75: maxmax(28) = 77
maxmax(27) = 81: maxmax(26) = 82: maxmax(25) = 87
maxmax(24) = 88: maxmax(23) = 90: maxmax(22) = 92
maxmax(21) = 97: maxmax(20) = 100: maxmax(19) = 103
maxmax(18) = 104: maxmax(17) = 117: maxmax(16) = 120
maxmax(15) = 123: maxmax(14) = 125: maxmax(13) = 133
maxmax(12) = 135: maxmax(11) = 138: maxmax(10) = 148
maxmax(9) = 156: maxmax(8) = 171: maxmax(7) = 186
maxmax(6) = 204: maxmax(5) = 214: maxmax(4) = 221
maxmax(3) = 279: maxmax(2) = 338: maxmax(1) = 630
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''
Sheets("Archivio").Select 'seleziona il Foglio Archivio per andare a leggere i dati delle estrazioni
''''questa riga serve per azzerare la variabile conta che ci servir… per passare da una ruota alla successiva
riga = 1 'si aggiunge + 1 perchŠ l'arichivio inizia dalla seconda riga
es1 = Cells(riga, 1) 'scrive la variabile NumEM (il numero estrazione) nella Cella H2
es2 = Cells(riga, 3) 'scrive la variabile DataE (la data dell'estrazione) nella Cella D4
estr = 1
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''
'''legge archivio dal 1939 di tutte le estrazioni
For estr = estr + 1 To ult + 1
rankda = 4
numEm = estr - 1
''''Tutte le ruote carica i 50 estratti
For ruota = 1 To 10
ReDim nm(5)
hh = 0
For k = 0 To 4
hh = hh + 1
nm(hh) = Cells(estr, rankda + k)
Next
rankda = rankda + 5
'''calcola ritardo dei 100 ambi di ogni estrazione
For z1 = 1 To 4
z2 = z1
For z2 = z2 + 1 To 5
If nm(z1) < 10 Then
zz1 = "0" & nm(z1)
Else
zz1 = nm(z1)
End If
If nm(z2) < 10 Then
zz2 = "0" & nm(z2)
Else
zz2 = nm(z2)
End If
If Int(zz1) < Int(zz2) Then
ambo = zz1 & zz2
Else
ambo = zz2 & zz1
End If
rambo(ambo, 0) = ambo
rambo(ambo, 1) = numEm
Next
Next
Next
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
'''sposta ritardi in array ambi
ReDim ambi(4005, 1)
za = 8990
cc = 0
For z = 1 To za
If rambo(z, 0) > 0 Then
cc = cc + 1
ambi(cc, 1) = ult - rambo(z, 1)
ambi(cc, 0) = rambo(z, 0)
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''scrivi intestazione colonne su foglio output
fog = "output"
Sheets(fog).Select
Cells(1, 1) = " Ruota "
Cells(1, 2) = " Rit.Attuale "
Cells(1, 3) = " Qta "
Cells(1, 4) = " Ambi Sincro - Isocroni "
Cells(1, 5) = " N.Estraz. "
'''prova sort per ritardo discendente a tutte valutato
''' Case "descend"
SortCol = 1
'riempiere campi output
Dim i As Long, j As Long, temp As Variant
Numrows = 4005
For i = 1 To Numrows - 1
For j = i To Numrows
If Val(ambi(j, 1)) > Val(ambi(i, 1)) Then
temp = ambi(i, 1)
temp1 = ambi(i, 0)
ambi(i, 1) = ambi(j, 1)
ambi(i, 0) = ambi(j, 0)
ambi(j, 1) = temp
ambi(j, 0) = temp1
End If
Next j
Next i
' Selection.Value = ram
''''''''''scrittura file di output
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''
''''''' solo sincroni ritardo
cs = 1
za = 4005
ReDim ordine(4005, 1)
For z = 1 To za
ordine(ambi(z, 1), 0) = ordine(ambi(z, 1), 0) & ambi(z, 0) & " | "
ordine(ambi(z, 1), 1) = ordine(ambi(z, 1), 1) + 1
Next
For a = 0 To 4005
If ordine(a, 1) > 0 Then
cs = cs + 1
Cells(cs, 1) = " T u t t e "
Cells(cs, 2) = a
Cells(cs, 3) = ordine(a, 1)
Cells(cs, 4) = ordine(a, 0)
Cells(cs, 5) = ult - a
If a >= maxmax(ordine(a, 1)) Then
Cells(cs, 2).Interior.ColorIndex = 4
Cells(cs, 3).Interior.ColorIndex = 4
Cells(cs, 4).Interior.ColorIndex = 4
End If
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''
cs = cs + 1
Cells(cs, 4) = " Aggiornata all'estrazione n." & es1 & " - " & es2
Cells(cs, 4).Interior.ColorIndex = 6
For j = 1 To 100
Cells(cs + j, 4) = "n.Ambi " & j & " Rit.MaxSto " & maxmax(j)
Next
End Sub

 

[genios]

Beppignello adesso funziona .

Dato che ti piacciono i sincroni . Sto rileggendo il libro di Fosco da Montalbano detto il Fisico e Leontino Gorgia. Ti andrebbe di impegnarti nell' avventura di stendere codice per applicare le sue idee tra aspetti teorici e reali ?

Ciao Eugenio

 

[Beppignello]

Fosco da Montalbano detto il Fisico e Leontino Gorgia, ed anche altri

hanno fatto il loro corso, ed hanno dato il loro contributo, come matematici esperti, ed ideatori e traghettatori del lotto vecchio al lotto Moderno, per lo stato.

hanno dato una grande base matematico-statistica per i posteri e per molti anni ancora.

Ma non essendo matematico, posso solo usufruire di alcune loro formule o idee, ma ad ognuno il suo metodo.

stasera è caduta la teoria del Samaritani e di tutti i concetti vecchi matematici e teorici.

qualche mese fa, è caduto il 17 56 a Bari dopo aver deluso tutti gli esperti che credeva nel massimo ritardo di 1 ambo a Ruota Fissa
oggi, è caduta la teoria di calcolo del ritardo massimo di 1 estratto a ruota, ritardo di 231 estrazioni e viaggia ancora bene nel suo trend
a salire.

Eppure secondo la mia idea, che ho espresso più volte,

1) è un problema di decimali
2) è già avvenuto un esempio che ricopierà la medesima situazione, ma nessuno la vuole riconoscere.

il 53 viaggia per arrivare
1) vicino a 279 ritardo un 1° caso
2) vicino a 320 ritardo un 2° caso

questi i limiti massimi per qualche secolo.

se ricadrà in quel range 279:320 sarà non una scheggia impazzita, ma un caso normale , perché già avvenuto nel
passato ed oggi stiamo per verificarne la normalità con i nostri occhi.


a i miei output, è solo questione di entrare maggiormente nei dettagli statistici, per renderli maggiormente
efficaci.

 

[Beppignello]

Previsione FIRENZE estratto 2x1 nr. 59 45

per il momento per i nr.89 02 non ho trovato corrispondenza con la doppia sincronia, ma da somma pos. IDR+IDF, che aggancia numeri non corrispondenti per sincronia ma per somma
trovo

BARI 02 89
TORINO 89
VENEZIA 02

occhio anche al grafico del nr.89 a FIRENZE postato

lottoced evidenzia la coppia 02 47 Genova in ritardo storico


Ultima modifica di Beppignello; 15-11-2016, 17:50.

escono questa sera dalla bi-sincronia con altri


FIRENZE 59
TORINO 89 secco

 

[genios]

Questo era quanto ho scritto qualche giorno fa a proposito del 53 nel post Dubbi e perplessità sul famigerato 53.

Un altra prova che farei Caro Beppignello è trovare quale sia stato per ogni numero il max raggiunto di 10 ritardi consecutivi . E vedremo sicuramente che il 53 dovrà fare altra strada prima di uscire .

Mi rispondeva Xabio

Genios ho fatto statistica veloce ultime 5000 est . max valore 10 ritardi consecutivi a ruota la nazionale ne ha meno chiaramente .
ra Il 53 dovrebbe essere a 380 circa : 5/9/23/27/25/12/39/10/0/attuali

Difatti se non ricordo male qualche numero in alcune ruote ha tardato oltre 410 estrazioni per 10 ritardi consecutivi .

Quindi 380 - 230 = 150 somma 9 ritardi precedenti

150/9 = 16,66 media dei 9 ritardi precedenti sotto la media teorica .

Ciao Eugenio

 

[vincenzo4221]

tutti gli ultimi script hanno degli errori

 

[Beppignello]

Errori negli script. ?
quali ?

dove ?

 

[genios]

Beppignello mi faresti vedere una macro che mi stampi tutti i ritardi per la sorte minima di ambo su 18 numeri su ruota .

Ciao Eugenio

 

[Beppignello]

mi stampi tutti i ritardi per la sorte minima di ambo su 18 numeri su ruota .

non ho questa macro, mi spiace.

non so forse li puoi ricerca con spaziometria, lunghette ritardo per ambo,lavoro lunghissimo (18numeri) o con ricerca veloce
avendo a priori 18 nr. da immettere
oppure inserendo nelle tabella registrate i tuoi 18 numeri ed ottenere facilmente tutte le informazioni che vuoi
spaziometria o altri software fanno questo in modo pi

 

[Beppignello]

o bella il forum, non consente di modificare e completare i commenti appena inseriti, tronca ad un certo punto il testo!.

quanto tempo ha impiegato l'esecuzione della 2 macro che ho postato, sul vostro pc?

 

[genios]

Circa un minuto .
Anche se la formattazione dell' out lascia alquanto a desiderare.

Ciao Eugenio

 

[Beppignello]

in riferimento a quanto richiesto ieri, faccio un esempio , molto in generale, per far capire come si svolge il processo che io generalmente utilizzo:

creare un foglio di nome "LavoriProva"

ti indico come faccio io generalmente:

1) devo abblencare un certa quantit

 

[Beppignello]

sono costretto a sospendere l'esempio che volevo riportare in risposta alla richiesta di Genios di Ieri sera.
stampare o fare un elenco dei numeri estratti di una ruota , di alcune estrazioni.

il forum, ieri era in aggiornamento, hanno modificato qualcosa che non permette di mettere commenti troppo lunghi.
li taglia dove vuole lui.

a questo punto mi fermo.

 

[genios]

Risolto .

Sub Main()
Dim numeri(18),ruote(1)
ruote(1) = InputBox("Quale ruota vuoi analizzare?",,1)
ruota = CInt(ruote(1)) 

numeri(1)=1
numeri(2)=2
numeri(3)=3
numeri(4)=4
numeri(5)=5
numeri(6)=6
numeri(7)=7
numeri(8)=8
numeri(9)=9
numeri(10)=10
numeri(11)=11
numeri(12)=12
numeri(13)=13
numeri(14)=14
numeri(15)=15
numeri(16)=16
numeri(17)=17
numeri(18)=18



Scrivi NomeRuota(RUOTA),1

For n = EstrazioneFin - 6000 To EstrazioneFin
Messaggio n
a = SerieFreq(n,n,numeri,ruote,2)
    If a > 0 Then
        rt = SerieRitardo(n - 250,n - 1,numeri,ruote,2)'Questa

 

[Beppignello]

ho bisogno di verificare il calcolo delle presenze teoriche delle 5 colonne di una ruota al ritardo (x)
che formula avete voi a vs conoscenza?

 

[vincenzo4221]

Scusa Beppi , voglio dire che si bloccano ..come prima ..io non riesco ha farli partire esce la schermata di Errore...