Frequenze dei 90 numeri nelle 5 Posizioni

[alessandro63]

Qualcuno possiede qualche script, può pubblicarlo? grazie

 

[BaffoBlù]

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...

 

[BaffoBlù]

prova questo semplice script, gli ho fatto qualche modifica per adattarlo

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

 

[Mike58]

Ecco la I numeri Frequenti per posizioni

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

 

[Mike58]

Posto un altra versione in Tabella

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

 

[alessandro63]

GRAZIE gentilissimi.

 

[solare]

Ciao Mike58, Ottimo lavoro
Chiedo se possibile la l'inserimento ciclico Mensile
grazie

 

[Mike58]

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

 

[alessandro63]

Mike58 Sei un punto di riferimento per tutti.

 

[*blacklotto*]

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.

 

[Mike58]

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.