Novità

Frequenze dei 90 numeri nelle 5 Posizioni

Dovresti trovare qualcosa sulle raccolte script sparse per il web
anche qui nella sezione download trovi una raccolta script
devi cercare scorrendo le pagine, chissa dovè, ma c'è fidati.
poi da parte tua devi perdere un po di vista per trovare quello più adatto
ti avviso, sono centinaia, per quello che nessuno ancora non ti da una risposta,, ci vuole tempo e voglia...
 
prova questo semplice script, gli ho fatto qualche modifica per adattarlo

Codice:
Option Explicit
Sub Main()
   Dim ru(1)
   Dim nu1(90,3),nn1(2)
   Dim r,r1,zz,tmp,fin,Ini,es,a,casi,ess,co,xx,k1,wx,p1,sp
   r1 = 1
   r = InputBox(" Ruota della spia ?"," Immetti N° Ruota",1)
   sp = CInt(InputBox(" Quale spia ? "," Immetti N°spia","1"))
   p1 = InputBox(" Posizione della spia?"," Immetti Posizione",1)
   zz = InputBox("Quante estrazioni del ciclo da esaminare?"," Ciclo ?",9)
   tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI ?",10348)
   fin = EstrazioneFin
   Ini = EstrazioneFin - tmp
   For es = Ini To fin
      Messaggio "Ricerca Spia " & " Data " & DataEstrazione(es)
      a = Estratto(es,r,p1)
      If a = sp Then
         casi = casi + 1
         ess = es + zz
         If ess > fin Then ess = fin End If
         co = 0
         For xx = 1 To 90
            co = co + 1
            nu1(co,1) = co
            nu1(co,2) = xx
            nn1(1) = xx
            ru(1) = r1
            k1 = SerieFreq(es + 1,ess,nn1,ru,1)
            If k1 > 1 Then k1 = 1
            nu1(co,3) = nu1(co,3) + k1
         Next
      End If
   Next
   OrdinaMatrice nu1,- 1,3
   ColoreTesto 0
   For wx = 1 To 20
      Scrivi Format2(nu1(wx,2)) & ".",1,0,4,,2
   Next
   Scrivi
   For wx = 1 To 20
      Scrivi Format2(nu1(wx,3)) & ".",,0
   Next
End Sub
 
Ecco la I numeri Frequenti per posizioni
Codice:
Sub Main
   Dim fp(5),Riga
   Ini = 8117
   fin = EstrazioneFin
   Scrivi "Numeri Frequenti In posizione"
   Scrivi
   r = InputBox("Quale Ruota",,1)
   T = "Num" & Space(2) & "P1  P2  P3  P4  P5" & Space(5) & "Min  Max" & Space(5) & " Ruota di " & NomeRuota(r)
   Scrivi T,1
   For n = 1 To 90
      ReDim aPos(5)
      For p = 1 To 5
         aPos(p) = True
         fp(p) = EstrattoFrequenza(r,n,Ini,fin,,,aPos)
         min = MinimoV(fp,1,- 1)
         max = MassimoV(fp)
         Riga = Riga & FormattaStringa(fp(p),"000" & " ")
      Next
      Scrivi FormatSpace(n,2) & " | " & Riga & " | " & min & " | " & max & " | "
      Riga = ""
   Next
End Sub

 
Posto un altra versione in Tabella
Codice:
Sub Main
   'Ritardo & frequenze Posizionale
   Dim T
   Ini = 8117'EstrazioneIni
   fin = EstrazioneFin
   Scrivi Space(20) & "Frequenze" & Space(40) & "Ritardi",1
   r = InputBox("Quale Ruota",,1)
   T = Array(T,"Numero","Fp1","Fp2","Fp3","Fp4","Fp5","Min","Max"," - ","Rp1","Rp2","Rp3","Rp4","Rp5","Min","Max")
   Call InitTabella(T,0,,3,5,"arial balck")
   For n = 1 To 90
      For p = 1 To 5
         ReDim apos(5)
         apos(p) = True
         a = EstrattoFrequenza(r,n,Ini,fin,,,apos)
         b = EstrattoRitardo(r,n,Ini,fin,,,apos)
         ReDim Preserve pos(p)
         pos(p) = a
         ReDim Preserve por(p)
         por(p) = b
         min = MinimoV(pos,1,- 1)
         max = MassimoV(pos)
         minR = MinimoV(por,1,- 1)
         MaxR = MassimoV(por)
         'riga = riga & FormattaStringa(a,"000") & " "
      Next
      T = Array(T,n,pos(1),pos(2),pos(3),pos(4),pos(5),min,max,"--",por(1),por(2),por(3),por(4),por(5),minR,maxR)
      Call AddRigaTabella(T)
      Call SetColoreCella(1,6,0)
      Call SetColoreCella(7,3,0)
      Call SetColoreCella(8,4,0)
      Call SetColoreCella(9,0,5)
      Call SetColoreCella(15,3,0)
      Call SetColoreCella(16,4,0)
      For x = 2 To 6
         If T(x) = min Then Call SetColoreCella((x),3,1)
         If T(x) = max Then Call SetColoreCella((x),4,1)
      Next
      For xx = 10 To 14
         If T(xx) = minR Then Call SetColoreCella((xx),3,1)
         If T(xx) = maxR Then Call SetColoreCella((xx),4,1)
         If T(xx) = 0 Then Call SetColoreCella((xx),2,4)
      Next
   Next
   CreaTabella
End Sub
 
Solare mi spiace ma No !!!
In questo costrutto di script non c'è il flusso for-next delle estrazioni e quindi non c'è lo scorrere delle estrazioni e pertanto risulta difficoltoso conteggiare le risultanze per mese.
Purtroppo sarebbe tutto un altro script nella sua iterazione.
Script così ne sono stati già fatti ed anche rifarli o cercarli diventa complicato.

Io stacco dal forum...... via LuigiB non c'è più stimolo.

Ciao a Tutti
 
Concordo con alessandro63,

spiace sapere che LuigiB si sia allontanato dal forum, ma chissà, tutto potrà accadere in futuro.
Ma anche per te, caro amico Mike58, sarà una pausa, convergo anch' io che essere in pensione è una gran fatica !
Scherzi a parte, non credo che LuigiB possa davvero abbandonare la sua creatura, quanto a te Mike58,
non credo che davvero tu voglia portare ad una fine i tuoi infiniti insegnamenti, che fine faranno i tuoi allievi ?
Un saluto ad entrambi, equivale ad un arrivederci, e a risentirci a presto.
 
Io ho detto stacco, intesa come pausa, poi è chiaro che senza il Prof lo stimolo manca un pochino,
Purtroppo i codici , il linguaggio vb, se poco stimolato e poco confrontato, va pian piano a perdersi e senza una guida poi è dura ritrovarlo.

P.s. proprio l'altro giorno ho trovato un mio file excel del lotto e campionato di calcio, con macro , formule varie (del 2012 ) , come indice confronta,CercaVert,Scarto,Resto che a rivederlo non sembra proprio che l'ho avevo costruito io ,e purtroppo non ne ricordo bene l'uso e l'utilizzo e le possibili modifiche.

Questo per dire che se le cose non vengono utilizzate si finisce per dimenticare quel poco che abbiamo imparato, ecco perchè io partecipo alle richieste e alle sfide scriptiche, imparare ancora mi piace, ma senza il prof è dura.

per rispondere a BlackLotto (mio amico da tempo) in Pensione per me va benissimo e utilizzo il mio tempo per i miei hobby e spazio alla famiglia.

Comunque un Grazie a tutti gli amici.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto