X SOLARE UNA CORTESIA

[chicco3]

Ciao solare leggendo nei vari post ho letto che hai un listato sulle frequenze abbinando ai capogiochi.Se puoi postarlo ti ringrazierei buona giornata
chicco

 

[rudivall]

Ciao Chicco per il momento sul pc ho trovato questo, è di Mike58 fatto su richiesta di Serpico, ne ricordavo anche un'altro di Rubino fatto per Edesimone ma quest'ultimo ancora non riesco a trovarlo.........
Vedi l'allegato Mike58 Tabella per Serpico.txt

 

[chicco3]

Grazie rudi come sempre adesso lo provo e vediamo ti diro grazie buona serata.

 

[chicco3]

Ciao Rudi ho visto è ottimo caspita ma qui ci vuole un interprete x capire qualcosa.Ti volevo chiedere che non ricordo piu nel filtraggio i segni = <> <= >= cosa si riferiscono.Grazie e ti saluto con stima ciao chicco

 

[solare]

Ciao Chicco3, ho trovato questo.

Sub Main()
Scrivi: Scrivi String(25," ") & "ABBINAMENTI + FREQUENTI CON IL CAPOGIOCO BY BLACKMORE * FORUM LOTTOPASSION *"
Scrivi
Dim mt(90,3),n(1),ru(1)
r = CInt(InputBox("RUOTA DI RICERCA ?","Blackmore",1))
a = CInt(InputBox("CAPOGIOCO ? ","Blackmore",90))
tot = CInt(InputBox("QUANTI ABBINAMENTI VUOI VEDERE ? " + Chr(13) + "METTERE 89 PER VEDERE TUTTI I NUMERI","Blackmore",10))
cont = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ? ","Blackmore",10))
ru(1) = r
caso = 0
fin = EstrazioneFin
ini = EstrazioneFin - cont
For es = EstrazioneFin To 1 Step - 1
If caso < cont Then
If Posizione(es,r,a) > 0 Then
caso = caso + 1
co = 0
For x = 1 To 90
n(1) = x
If n(1) <> a Then
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
fr = SerieFreq(es,es,n,ru,1)
mt(co,3) = mt(co,3) + fr
End If
Next
ColoreTesto 1
Scrivi "[N°" & es & "] " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r)
ColoreTesto 0
End If
End If
Next
OrdinaMatrice mt,- 1,3
Scrivi:Scrivi
Scrivi "RUOTA DI RICERCA/RILEVAMENTO: " & UCase(NomeRuota(r))
Scrivi "CAPOGIOCO: " & Format2(a)
Scrivi "CASI ESAMINATI: " & Format2(caso)
Scrivi "ABBINAMENTI + FREQUENTI CON IL CAPOGIOCO:":Scrivi
Scrivi String(59,"="),1
For co = 1 To tot
Scrivi "Il n° " & Format2(mt(co,2)) & " si è abbinato " & Format2(mt(co,3)) & " volte " & " su " & Format2(caso) & " casi [" & Format2(a) & "-" & Format2(mt(co,2)) & "]"
Next
Scrivi String(59,"="),1
End Sub

 

[salvo50]

Ciao Rudi ho visto è ottimo caspita ma qui ci vuole un interprete x capire qualcosa.Ti volevo chiedere che non ricordo piu nel filtraggio i segni = <> <= >= cosa si riferiscono.Grazie e ti saluto con stima ciao chicco

Ciao a Tutti.

= uguale
<> diverso
<= minore o uguale
>= maggiore o uguale

 

[rudivall]

Grazie caro Salvo sempre presente.....

 

[rudivall]

Chicco ti ha risposto Salvo sempre disponibile.....

 

[chicco3]

Ciao Salvo grazie gentilissimo Buona giornata

 

[chicco3]

Ciao Rudivall grazie a te, Salvo e Solare sempre disponibili buona giornata

 

[chicco3]

Ciao Solare Grazie gentilissimo Buona giornata