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
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15

Ultimi Messaggi

Indietro
Alto