BA PA NA a pensar male

genios · 27 Maggio 2015

Si potrebbe fare uno script che per ogni estrazione prenda i cinque estratti di ogni ruota ( cioè BA NA PA ) li metta in una variabile di quindici indici e li metta in ordine dal più piccolo al più grande e li stampi a video .

Ciao eugenio

genios · 30 Maggio 2015

Mi date un aiutino ?

ciao Eugenio

Mike58 · 1 Giugno 2015

Eugenio non so cosa intenti per indici,ma nel caso ti riferisci agli estratti prova cosi.

Codice:

[B]Sub[/B] [B]Main[/B]
[B]Dim[/B] [B]nu[/B](5),[B]ru[/B](10)
Ini [B]=[/B] [B]EstrazioneFin[/B] [B]-[/B] 20
fin [B]=[/B] [B]EstrazioneFin[/B]
[B]For[/B] es [B]=[/B] Ini [B]To[/B] fin
[B]For[/B] r [B]=[/B] 1 [B]To[/B] 10
[B]If[/B] r [B]=[/B] 1 [B]Or[/B] r [B]=[/B] 6 [B]Or[/B] r [B]=[/B] 7 [B]Then[/B]
[B]ru[/B](r) [B]=[/B] r
a [B]=[/B] [B]StringaRuote[/B]([B]ru[/B])
[B]For[/B] p [B]=[/B] 1 [B]To[/B] 5
[B]nu[/B](p) [B]=[/B] [B]Estratto[/B](es,r,p)
[B]EliminaRipetuti[/B]([B]nu[/B])
[B]Next[/B]
[B]Scrivi[/B] [B]StringaNumeri[/B]([B]nu[/B],,1) [B]&[/B] " ",0,0
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]If[/B] [B]ScriptInterrotto[/B] [B]Then[/B] [B]Exit[/B] [B]For[/B]
[B]Scrivi[/B] [B]vbTab[/B] [B]&[/B] a [B]&[/B] [B]vbTab[/B] [B]&[/B] es,1,1
[B]Next[/B]
[B]Scrivi[/B]
[B]End[/B] [B]Sub[/B]

genios · 2 Giugno 2015

quasi perfetto va tolta la funzione elimina ripetuti .

e i 15 numeri trovati non vanno stampati in ordine di estrazione
27.47.52.46.50 13.08.27.86.37 22.86.51.71.30 BA.NA.PA 8990 ma vanno stampati ordinati dal numero minore al numero maggiore come da esempio . 08.13.22.27.27.30.37.46.47.50.51.52.71.76.86 BA.NA.PA 8990 e comunque la funzione elimina ripetuti non sembra funzionare a dovere . Ciao Eugenio

Mike58 · 2 Giugno 2015

Eugenio è vero la funzione eliminaRipetuti non va bene il suo dovere agiva solo ruota x ruota e non sulle ruote globali.
Purtroppo non ho ben compreso il tutto e visto che vuoi imparare la materia vbscript, ti metto un pò di carne al fuoco.

Hai parecchio materiale per mettere insieme qualcosa che fa al tuo caso.

Codice:

 [SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][B]Sub[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](10),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](90),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](90)[/SIZE]
  [SIZE=2]Ini [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 10[/SIZE]
  [SIZE=2]fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Ini [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] fin[/SIZE]
  [SIZE=2]r1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
  [SIZE=2]r2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 6[/SIZE]
  [SIZE=2]r3 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 7[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r1[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r2[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r3[/SIZE]
  [SIZE=2]a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] p [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 5[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](p) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,r1,p)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](p) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,r2,p)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](p) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,r3,p)[/SIZE]
  [SIZE=2]aa [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Array[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5))[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](aa,1,1)[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](aa,,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",0,0[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriptInterrotto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Exit[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbTab[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbTab[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] es,1,1[/SIZE]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'---- conta i numeri-------------[/COLOR][/SIZE][/COLOR][/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 20[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 90[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreqTurbo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Ini,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2]k [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Preserve[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]num[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]num[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'............. scrivi i numeri ............[/COLOR][/SIZE][/COLOR][/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](x) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] volte..... Presenze = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k,2),0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] NUM... [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]num[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],,1),1,1,,1,2[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2]k [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'......... scrivi tutti i numeri presenti > 0 ...................[/COLOR][/SIZE][/COLOR][/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] yy [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 90[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] yy[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreqTurbo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Ini,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2]kk [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] kk [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Preserve[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]num1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](kk)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]num1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](kk) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] yy[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'............. scrivi i numeri ............[/COLOR][/SIZE][/COLOR][/SIZE]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'If kk > 0 Then[/COLOR][/SIZE][/COLOR][/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Presenze = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](kk,2),0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] NUM... [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]num1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],,1),1,1,,1,2[/SIZE]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'End If[/COLOR][/SIZE][/COLOR][/SIZE]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'kk = 0[/COLOR][/SIZE][/COLOR][/SIZE]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'............................................................................[/COLOR][/SIZE][/COLOR][/SIZE]
  [SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][B]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]

P.s. non ho ancora visto altri script incollati in code, ma a me vengono cosi, sembrano funzionare lo stesso ma mi chiedo se è corretto cosi, con il nuovo form del forum.

Ciao

Mike58 · 2 Giugno 2015

infatti non funziona bene in quanto i codici vengono attaccati

Codice:

Sub Main

Dim nu1(5),nu2(5),nu3(5),ru(10),nn(90),nn1(90)

Ini = EstrazioneFin - 10

fin = EstrazioneFin

For es = Ini To fin

r1 = 1

r2 = 6

r3 = 7

ru(1) = r1

ru(2) = r2

ru(3) = r3

a = StringaRuote(ru)

For p = 1 To 5

nu1(p) = Estratto(es,r1,p)

nu2(p) = Estratto(es,r2,p)

nu3(p) = Estratto(es,r3,p)

aa = Array(nu1(1),nu1(2),nu1(3),nu1(4),nu1(5),nu2(1),nu2(2),nu2(3),nu2(4),nu2(5),nu3(1),nu3(2),nu3(3),nu3(4),nu3(5))

Next

Call OrdinaMatrice(aa,1,1)

Scrivi StringaNumeri(aa,,1) & " ",0,0

If ScriptInterrotto Then Exit For

Scrivi vbTab & a & vbTab & es,1,1

'---- conta i numeri-------------

Next

Scrivi

For x = 0 To 20

For y = 1 To 90

nn(1) = y

If SerieFreqTurbo(Ini,fin,nn,ru,1) = x Then

k = k + 1

ReDim Preserve num(k)

num(k) = y

End If

Next

'............. scrivi i numeri ............

If k > 0 Then

Scrivi Format2(x) & " volte..... Presenze = " & FormatSpace(k,2),0,0

Scrivi " NUM... " & StringaNumeri(num,,1),1,1,,1,2

End If

k = 0

Next

Scrivi

'......... scrivi tutti i numeri presenti > 0 ...................

For yy = 1 To 90

nn1(1) = yy

If SerieFreqTurbo(Ini,fin,nn1,ru,1) > 0 Then

kk = kk + 1

ReDim Preserve num1(kk)

num1(kk) = yy

End If

Next

'............. scrivi i numeri ............

'If kk > 0 Then

Scrivi "Presenze = " & FormatSpace(kk,2),0,0

Scrivi " NUM... " & StringaNumeri(num1,,1),1,1,,1,2

'End If

'kk = 0

'............................................................................

End Sub

bisognava incollarlo tra i code con incolla testo normale

Ciao

genios · 2 Giugno 2015

ok cosi va bene mike ma sarebbe possibile mettere in uscita quali sono i numeri che si sono ripetuti nelle tre ruote ? facio l' esempio :

06.33.34.35.35.38.40.40.48.49.50.57.62.74 CA.FI.RO 9010 numeri ripetuti 35.35.40.40 ciao Eugenio

Mike58 · 2 Giugno 2015

Si Eugenio, basta mettere l'apposito codice NumeriRipetutiRlevati

Codice:

Sub Main

Dim nu1(5),nu2(5),nu3(5),ru(10),nn(90),nn1(90),vetQ,vetN

Ini = EstrazioneFin - 10

fin = EstrazioneFin

For es = Ini To fin

r1 = 1

r2 = 6

r3 = 7

ru(1) = r1

ru(2) = r2

ru(3) = r3

a = StringaRuote(ru)

For p = 1 To 5

nu1(p) = Estratto(es,r1,p)

nu2(p) = Estratto(es,r2,p)

nu3(p) = Estratto(es,r3,p)

aa = Array(nu1(1),nu1(2),nu1(3),nu1(4),nu1(5),nu2(1),nu2(2),nu2(3),nu2(4),nu2(5),nu3(1),nu3(2),nu3(3),nu3(4),nu3(5))

Call NumeriRipetutiRilevatiV(aa,vetN,vetQ)

Next

Call OrdinaMatrice(aa,1,1)

Scrivi StringaNumeri(aa,,1) & " ",0,0

If ScriptInterrotto Then Exit For

Scrivi vbTab & a & vbTab & es & " Numeri Ripetuti Rilevati in Es.... " & StringaNumeri(vetN),1,1

'---- conta i numeri-------------

Next

Scrivi

For x = 0 To 20

For y = 1 To 90

nn(1) = y

If SerieFreqTurbo(Ini,fin,nn,ru,1) = x Then

k = k + 1

ReDim Preserve num(k)

num(k) = y

End If

Next

'............. scrivi i numeri ............

If k > 0 Then

Scrivi Format2(x) & " volte..... Presenze = " & FormatSpace(k,2),0,0

Scrivi " NUM... " & StringaNumeri(num,,1),1,1,,1,2

End If

k = 0

Next

Scrivi

'......... scrivi tutti i numeri presenti > 0 ...................

For yy = 1 To 90

nn1(1) = yy

If SerieFreqTurbo(Ini,fin,nn1,ru,1) > 0 Then

kk = kk + 1

ReDim Preserve num1(kk)

num1(kk) = yy

End If

Next

'............. scrivi i numeri ............

'If kk > 0 Then

Scrivi "Presenze = " & FormatSpace(kk,2),0,0

Scrivi " NUM... " & StringaNumeri(num1,,1),1,1,,1,2

'End If

'kk = 0

'............................................................................

End Sub

genios · 3 Giugno 2015

Ottimo grazie

ciao Eugenio

Cerca

Cerca

BA PA NA a pensar male

genios

Advanced Member >PLATINUM PLUS<

genios

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

genios

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

genios

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

genios

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi