Novità

piccola modifica x listato

fata65

Super Member >GOLD<
Sub Main()
Scrivi " Ad ogni estrazione sommare i primi estratti di bari milano venezia + il Vertibile * di fata65 *",1
Scrivi
Dim n(2),ruota(3),posta(1)
posta(1) = 1
ruota(1) = 1
ruota(2) = 5
ruota(3) = 10
k = 9
ini = EstrazioneIni + 8478
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab ini,fin,es
a = Estratto(es,1,1)
b = Estratto(es,5,1)
c = Estratto(es,10,1)
n(1) = Fuori90(a + b + c)
n(2) = Vert(n(1))
co = co + 1
Scrivi String(70,"°") & " Caso n°" & co,1
ColoreTesto 2
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " 1°Estratto " & a,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(5) & " " & StringaEstratti(es,5) & " 1°Estratto " & b,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10) & " 1°Estratto " & c,1
Scrivi "Somma dei 1° Numeri Estratti " & Format2(n(1)) & " - Vertibile " & Format2(n(2)),1
co = co + 1
ColoreTesto 0
Scrivi String(70,"°")
ImpostaGiocata 1,n,ruota,posta,k,1
Gioca es,True,,1
Next
ScriviResoconto
End Sub

sostituire i primi estratti con i quinti chi mi aiuta grazieeeeeeeeeeeeeeeeeeeeeeee
 

Joe91

Advanced Member >PLATINUM PLUS<
fata65;n1980434 ha scritto:
...

" Ad ogni estrazione sommare i primi estratti di bari milano venezia + il Vertibile * di fata65 *",1

a = Estratto(es,1,1)
b = Estratto(es,5,1)
c = Estratto(es,10,1)
...

sostituire i primi estratti con i quinti chi mi aiuta grazieeeeeeeeeeeeeeeeeeeeeeee

Ciao Fata.

Nell' Archivio, ogni ESTRATTO è raggiungibile alle coordinate di :

* ESTRAZIONE (ovvero es)

* RUOTA (1,5,10 Ovvero BA_ MI_ VE_ )

* POSIZIONE ( nel caso è 1 ... da far diventare ...5 )

L' istuzione, e la sintassi dello script sono :

ESTRATTO (Estrazione, Ruota, Posizione)

:)
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Ok, benissimo.

La cosa importante è che tu abbia familiarizzato, capendo come agire

sui parametri di dell'istruzione ESTRATTO.

Ovvero sui numeri scritti tra le parentesi

Ora ... prima che tramonti il sole, è probabile che qualcuno scriva altro ... TIPO:

"Ma come mai a me non funziona ?" (non mi calcola nessun pronostico).

... vedremo come rendere più versatile e meno critico questo script.

:)
 
Ultima modifica:

fata65

Super Member >GOLD<
joe91 volevo chiederti come faccio in un listato ad inserire le ruote in ordine
ba ve
ve ca
ca-to
to fi
fi ro
ro ge
ge pa
pa mi
mi na
na ba

ho questa voglio inserire le altre e possibile

r = InputBox("Quale ruota visualizzare ",,5)
r1 = InputBox("Quale ruota visualizzare ",,6)
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Intando vediamo un errore:

All'interno del ciclo "For/Next" principale "co = co + 1" è una istruzione duplicata.

Ma ... per il computer, è un nostra istruzione

ed esso la eseguirà ...le 2 volte così come è scritta.


CFR.jpg

Pertanto all esito di questo "i casi" saranno erroneamente numerati di 2 in 2 (DISPARI).

Soluzione: CANCELLARE LA SECONDA RIPETIZIONE di questa linea di comando.

:)
 

fata65

Super Member >GOLD<
Sub Main()
Dim ruo(2),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),nn1(1),nn2(1),nn3(1),nn4(4),nn5(1),nnu(5)
Inizio = EstrazioneFin - 10
fine = EstrazioneFin
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,1)
r1 = InputBox("Quale ruota visualizzare ",,10)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,10)
r1 = InputBox("Quale ruota visualizzare ",,2)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,2)
r1 = InputBox("Quale ruota visualizzare ",,9)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,9)
r1 = InputBox("Quale ruota visualizzare ",,3)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,3)
r1 = InputBox("Quale ruota visualizzare ",,8)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,8)
r1 = InputBox("Quale ruota visualizzare ",,4)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,4)
r1 = InputBox("Quale ruota visualizzare ",,7)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,7)
r1 = InputBox("Quale ruota visualizzare ",,5)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,5)
r1 = InputBox("Quale ruota visualizzare ",,6)
ex = fine - Inizio
r = InputBox("Quale ruota visualizzare ",,6)
r1 = InputBox("Quale ruota visualizzare ",,1)
ex = fine - Inizio
Scrivi " Quadro estrazionale statistica numeri estratti ",1,0,3
Scrivi " su n° " & ex & " estrazioni ",1,0,7
Scrivi " Sulla Ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1,- 1,4
Scrivi
Scrivi "Estrazione del......." & DataEstrazione(fine,1),1
ReDim atitoli(65)
atitoli(1) = " "
atitoli(2) = " DATA "
atitoli(3) = " "
atitoli(4) = " 1°E "
atitoli(5) = " 2°E "
atitoli(6) = " 3°E "
atitoli(7) = " 4°E "
atitoli(8) = " 5°E "
atitoli(9) = " "
atitoli(10) = " SM 1° "
atitoli(11) = " SM 2° "
atitoli(12) = " SM 3° "
atitoli(13) = " SM 4° "
atitoli(14) = " SM 5° "
atitoli(15) = " "
atitoli(16) = " DF 1° "
atitoli(17) = " DF 2° "
atitoli(18) = " DF 3° "
atitoli(19) = " DF 4° "
atitoli(20) = " DF 5° "
atitoli(44) = " SM 1-2 R2-R1"
atitoli(48) = " SM 2-3 R2-R1"
atitoli(51) = " SM 3-4 R2-R1"
atitoli(53) = " SM 4-5 R2-R1"
atitoli(55) = " DF 1-2 R2-R1"
atitoli(59) = " DF 2-3 R2-R1"
atitoli(62) = " DF 3-4 R2-R1"
atitoli(64) = " DF 4-5 R2-R1"
Call InitTabella(atitoli,1,,3,5)
For ess = Inizio To fine
ruo(1) = r
ruo(2) = r1
a = Estratto(ess,r,1)
aa = Estratto(ess,r1,1)
b = Estratto(ess,r,2)
bb = Estratto(ess,r1,2)
c = Estratto(ess,r,3)
cc = Estratto(ess,r1,3)
d = Estratto(ess,r,4)
dd = Estratto(ess,r1,4)
e = Estratto(ess,r,5)
ee = Estratto(ess,r1,5)
n1(1) = a
n2(1) = b
n3(1) = c
n4(1) = d
n5(1) = e
nn1(1) = aa
nn2(1) = bb
nn3(1) = cc
nn4(1) = dd
nn5(1) = ee
rp1 = Fuori90(a + aa)
rp2 = Fuori90(b + bb)
rp3 = Fuori90(c + cc)
rp4 = Fuori90(d + dd)
rp5 = Fuori90(e + ee)
sf1 = Differenza(a,aa)
sf2 = Differenza(b,bb)
sf3 = Differenza(c,cc)
sf4 = Differenza(d,dd)
sf5 = Differenza(e,ee)
ReDim avalori(65)
avalori(1) = " "
avalori(2) = DataEstrazione(ess) & " - " & SiglaRuota(r) & " - " & SiglaRuota(r1)
avalori(3) = " "
avalori(4) = a & "." & aa
avalori(5) = b & "." & bb
avalori(6) = c & "." & cc
avalori(7) = d & "." & dd
avalori(8) = e & "." & ee
avalori(9) = " "
avalori(10) = rp1
avalori(11) = rp2
avalori(12) = rp3
avalori(13) = rp4
avalori(14) = rp5
avalori(15) = " "
avalori(16) = sf1
avalori(17) = sf2
avalori(18) = sf3
avalori(19) = sf4
avalori(20) = sf5
avalori(44) = Fuori90(aa + b)
avalori(48) = Fuori90(bb + c)
avalori(51) = Fuori90(cc + d)
avalori(53) = Fuori90(dd + e)
avalori(55) = Differenza(aa,b)
avalori(59) = Differenza(bb,c)
avalori(62) = Differenza(cc,d)
avalori(64) = Differenza(dd,e)
nu(1) = a
nu(2) = b
nu(3) = c
nu(4) = d
nu(5) = e
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(1,vbBlue)
Call SetColoreCella(3,vbBlue)
Call SetColoreCella(9,vbBlue)
Call SetColoreCella(15,vbBlue)
Call SetColoreCella(21,vbBlue)
Call SetColoreCella(32,vbBlue)
Call SetColoreCella(43,vbBlue)
Call SetColoreCella(54,vbBlue)
Call SetColoreCella(65,vbBlue)
Call SetColoreCella(4,vbYellow)
Call SetColoreCella(5,vbYellow)
Call SetColoreCella(6,vbYellow)
Call SetColoreCella(7,vbYellow)
Call SetColoreCella(8,vbYellow)
Next
CreaTabella()
Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
Call PicEsegui
End Sub



provato ad inserire le altre ruote joe91 mi esce sempre solo due ruote
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Ciao, devo dire che non avevo visto la tua richiesta ...

Quindi non ho risposto per questa ragione.

Non amo gli imput-box anche se in questa occasione ne avrei proposto uno.

Ma applicarne 10 fatti di copia-incolla ... davvero, mi scoraggia.

NO.

Così è diventato discorso ingestibile.

L' errore che hai introdotto è una riedizione dello stesso di prima.

Ognuno di questi inputbox viene eseguito ... e sovrascrive i precedenti.

Alla fine di tutti questi 10 ... rimane solo l'ultimo.

I 9 precedenti sono di troppo ed inutili.

Ma il problema secondo me non è questo.

E' una cabala troppo complicata, sia a livello lottologico,

che per uno scripter alle prime armi.

Quindi sebbene secondo me sia possibile ...

non me la sento di gestire una procedura così.

Devo/posso consigliarti e dirti che è possibile trasformare in codice,

l'elenco delle ruote che hai fornito.

Ma Scripter capaci di questo si contano sulla punta delle dita di una mano.

Ipse dixit ... non è una semplice modifica.

Vedremo se qualcun altro ... se la sente.

:)

CFR.jpg
 
Ultima modifica:

Ouroboros

Senior Member
Buongiorno a tutti gli intervenuti.

Sperando di fare cosa gradita.......

Codice:
Sub Main()
Dim ruo(2),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),nn1(1), nn2(1),nn3(1),nn4(4),nn5(1),nnu(5)
Inizio = EstrazioneFin - 10
fine = EstrazioneFin
ru= InputBox(" Seleziona coppia ruote: ba_ve=1, ve_ca=2, ca_to=3, to_fi=4, fi_rm=5, rm_ge=6, ge_pa=7, pa_mi=8, mi_na=9, na_ba=10 ",,1)
Select Case ru
  Case 1
    r= BA_: r1= VE_
  Case 2
   r=VE_:r1=CA_
  Case 3
     r=CA_:r1=TO_
  Case 4
    r=TO_:r1=FI_
  Case 5
   r=FI_:r1=RO_
  Case 6
    r=RO_:r1=GE_
  Case 7
   r=GE_:r1=PA_
  Case 8
    r=PA_:r1=MI_
  Case 9
   r=MI_:r1=NA_
  Case 10
    r= NA_:r1= BA_
End Select

ex = fine - Inizio
Scrivi " Quadro estrazionale statistica numeri estratti ",1,0,3
Scrivi " su n° " & ex & " estrazioni ",1,0,7
Scrivi " Sulla Ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1,- 1,4
Scrivi
Scrivi "Estrazione del......." & DataEstrazione(fine,1),1
ReDim atitoli(65)
atitoli(1) = " "
atitoli(2) = " DATA "
atitoli(3) = " "
atitoli(4) = " 1°E "
atitoli(5) = " 2°E "
atitoli(6) = " 3°E "
atitoli(7) = " 4°E "
atitoli(8) = " 5°E "
atitoli(9) = " "
atitoli(10) = " SM 1° "
atitoli(11) = " SM 2° "
atitoli(12) = " SM 3° "
atitoli(13) = " SM 4° "
atitoli(14) = " SM 5° "
atitoli(15) = " "
atitoli(16) = " DF 1° "
atitoli(17) = " DF 2° "
atitoli(18) = " DF 3° "
atitoli(19) = " DF 4° "
atitoli(20) = " DF 5° "
atitoli(44) = " SM 1-2 R2-R1"
atitoli(48) = " SM 2-3 R2-R1"
atitoli(51) = " SM 3-4 R2-R1"
atitoli(53) = " SM 4-5 R2-R1"
atitoli(55) = " DF 1-2 R2-R1"
atitoli(59) = " DF 2-3 R2-R1"
atitoli(62) = " DF 3-4 R2-R1"
atitoli(64) = " DF 4-5 R2-R1"
Call InitTabella(atitoli,1,,3,5)
For ess = Inizio To fine
ruo(1) = r
ruo(2) = r1
a = Estratto(ess,r,1)
aa = Estratto(ess,r1,1)
b = Estratto(ess,r,2)
bb = Estratto(ess,r1,2)
c = Estratto(ess,r,3)
cc = Estratto(ess,r1,3)
d = Estratto(ess,r,4)
dd = Estratto(ess,r1,4)
e = Estratto(ess,r,5)
ee = Estratto(ess,r1,5)
n1(1) = a
n2(1) = b
n3(1) = c
n4(1) = d
n5(1) = e
nn1(1) = aa
nn2(1) = bb
nn3(1) = cc
nn4(1) = dd
nn5(1) = ee
rp1 = Fuori90(a + aa)
rp2 = Fuori90(b + bb)
rp3 = Fuori90(c + cc)
rp4 = Fuori90(d + dd)
rp5 = Fuori90(e + ee)
sf1 = Differenza(a,aa)
sf2 = Differenza(b,bb)
sf3 = Differenza(c,cc)
sf4 = Differenza(d,dd)
sf5 = Differenza(e,ee)
ReDim avalori(65)
avalori(1) = " "
avalori(2) = DataEstrazione(ess) & " - " & SiglaRuota(r) & " - " & SiglaRuota(r1)
avalori(3) = " "
avalori(4) = a & "." & aa
avalori(5) = b & "." & bb
avalori(6) = c & "." & cc
avalori(7) = d & "." & dd
avalori(8) = e & "." & ee
avalori(9) = " "
avalori(10) = rp1
avalori(11) = rp2
avalori(12) = rp3
avalori(13) = rp4
avalori(14) = rp5
avalori(15) = " "
avalori(16) = sf1
avalori(17) = sf2
avalori(18) = sf3
avalori(19) = sf4
avalori(20) = sf5
avalori(44) = Fuori90(aa + b)
avalori(48) = Fuori90(bb + c)
avalori(51) = Fuori90(cc + d)
avalori(53) = Fuori90(dd + e)
avalori(55) = Differenza(aa,b)
avalori(59) = Differenza(bb,c)
avalori(62) = Differenza(cc,d)
avalori(64) = Differenza(dd,e)
nu(1) = a
nu(2) = b
nu(3) = c
nu(4) = d
nu(5) = e
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(1,vbBlue)
Call SetColoreCella(3,vbBlue)
Call SetColoreCella(9,vbBlue)
Call SetColoreCella(15,vbBlue)
Call SetColoreCella(21,vbBlue)
Call SetColoreCella(32,vbBlue)
Call SetColoreCella(43,vbBlue)
Call SetColoreCella(54,vbBlue)
Call SetColoreCella(65,vbBlue)
Call SetColoreCella(4,vbYellow)
Call SetColoreCella(5,vbYellow)
Call SetColoreCella(6,vbYellow)
Call SetColoreCella(7,vbYellow)
Call SetColoreCella(8,vbYellow)
Next
CreaTabella()
Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
Call PicEsegui
End Sub

Buona giornata.
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao Ouroboros,

Secondo me, un solo inputbox ... con il selettore del caso da considerare,

è una soluzione semplice ed efficace.

Non rimane che attendere di conoscere se essa esaudisce tutte le attese della richiesta.

Bravo.

:)
 

Ouroboros

Senior Member
Joe91;n1981485 ha scritto:
Ciao Ouroboros,

Secondo me, un solo inputbox ... con il selettore del caso da considerare,

è una soluzione semplice ed efficace.

Non rimane che attendere di conoscere se essa esaudisce tutte le attese della richiesta.

Bravo.

:)

;)
 

fata65

Super Member >GOLD<
ciao grazie ragazzi x il vostro aiuto mi chiedevo se è possibile inserirle in unica tabella tutte le ruote :)
 

Master

Advanced Member >PLATINUM<
ciao grazie ragazzi x il vostro aiuto mi chiedevo se è possibile inserirle in
unica tabella tutte le ruote :)

Buongiorno a tutti

Prova questa soluzione..ho aggiunto un ciclo for.. spero sia funzionante


Codice:
[B]Sub[/B] [B]Main[/B]()
[B]Dim[/B] [B]ruo[/B](2),[B]n1[/B](5),[B]n2[/B](1),[B]n3[/B](1),[B]n4[/B](1),[B]n5[/B](1),[B]nu[/B](5),[B]nn1[/B](1),[B]nn2[/B](1),[B]nn3[/B](1),[B]nn4[/B](4),[B]nn5[/B](1),[B]nnu[/B](5)
Inizio [B]=[/B] [B]EstrazioneFin[/B] [B]-[/B] 10
fine [B]=[/B] [B]EstrazioneFin[/B]
'ru= InputBox(" Seleziona coppia ruote: ba_ve=1, ve_ca=2, ca_to=3, to_fi=4, fi_rm=5, rm_ge=6, ge_pa=7, pa_mi=8, mi_na=9, na_ba=10 ",,1)
[B]For[/B] ru [B]=[/B] 1 [B]To[/B] 10
[B]Select[/B] [B]Case[/B] ru
[B]Case[/B] 1
r [B]=[/B] [B]BA_[/B]: r1 [B]=[/B] [B]VE_[/B]
[B]Case[/B] 2
r [B]=[/B] [B]VE_[/B]:r1 [B]=[/B] [B]CA_[/B]
[B]Case[/B] 3
r [B]=[/B] [B]CA_[/B]:r1 [B]=[/B] [B]TO_[/B]
[B]Case[/B] 4
r [B]=[/B] [B]TO_[/B]:r1 [B]=[/B] [B]FI_[/B]
[B]Case[/B] 5
r [B]=[/B] [B]FI_[/B]:r1 [B]=[/B] [B]RO_[/B]
[B]Case[/B] 6
r [B]=[/B] [B]RO_[/B]:r1 [B]=[/B] [B]GE_[/B]
[B]Case[/B] 7
r [B]=[/B] [B]GE_[/B]:r1 [B]=[/B] [B]PA_[/B]
[B]Case[/B] 8
r [B]=[/B] [B]PA_[/B]:r1 [B]=[/B] [B]MI_[/B]
[B]Case[/B] 9
r [B]=[/B] [B]MI_[/B]:r1 [B]=[/B] [B]NA_[/B]
[B]Case[/B] 10
r [B]=[/B] [B]NA_[/B]:r1 [B]=[/B] [B]BA_[/B]
[B]End[/B] [B]Select[/B]
 
ex [B]=[/B] fine [B]-[/B] Inizio
[B]Scrivi[/B] " Quadro estrazionale statistica numeri estratti ",1,0,3
[B]Scrivi[/B] " su n° " [B]&[/B] ex [B]&[/B] " estrazioni ",1,0,7
[B]Scrivi[/B] " Sulla Ruota di..." [B]&[/B] [B]NomeRuota[/B](r) [B]&[/B] " - " [B]&[/B] [B]NomeRuota[/B](r1),1,[B]-[/B] 1,4
'Scrivi
[B]Scrivi[/B] "Estrazione del......." [B]&[/B] [B]DataEstrazione[/B](fine,1),1
[B]ReDim[/B] [B]atitoli[/B](65)
[B]atitoli[/B](1) [B]=[/B] " "
[B]atitoli[/B](2) [B]=[/B] " DATA "
[B]atitoli[/B](3) [B]=[/B] " "
[B]atitoli[/B](4) [B]=[/B] " 1°E "
[B]atitoli[/B](5) [B]=[/B] " 2°E "
[B]atitoli[/B](6) [B]=[/B] " 3°E "
[B]atitoli[/B](7) [B]=[/B] " 4°E "
[B]atitoli[/B](8) [B]=[/B] " 5°E "
[B]atitoli[/B](9) [B]=[/B] " "
[B]atitoli[/B](10) [B]=[/B] " SM 1° "
[B]atitoli[/B](11) [B]=[/B] " SM 2° "
[B]atitoli[/B](12) [B]=[/B] " SM 3° "
[B]atitoli[/B](13) [B]=[/B] " SM 4° "
[B]atitoli[/B](14) [B]=[/B] " SM 5° "
[B]atitoli[/B](15) [B]=[/B] " "
[B]atitoli[/B](16) [B]=[/B] " DF 1° "
[B]atitoli[/B](17) [B]=[/B] " DF 2° "
[B]atitoli[/B](18) [B]=[/B] " DF 3° "
[B]atitoli[/B](19) [B]=[/B] " DF 4° "
[B]atitoli[/B](20) [B]=[/B] " DF 5° "
[B]atitoli[/B](44) [B]=[/B] " SM 1-2 R2-R1"
[B]atitoli[/B](48) [B]=[/B] " SM 2-3 R2-R1"
[B]atitoli[/B](51) [B]=[/B] " SM 3-4 R2-R1"
[B]atitoli[/B](53) [B]=[/B] " SM 4-5 R2-R1"
[B]atitoli[/B](55) [B]=[/B] " DF 1-2 R2-R1"
[B]atitoli[/B](59) [B]=[/B] " DF 2-3 R2-R1"
[B]atitoli[/B](62) [B]=[/B] " DF 3-4 R2-R1"
[B]atitoli[/B](64) [B]=[/B] " DF 4-5 R2-R1"
[B]Call[/B] [B]InitTabella[/B]([B]atitoli[/B],1,,3,5)
[B]For[/B] ess [B]=[/B] Inizio [B]To[/B] fine
[B]ruo[/B](1) [B]=[/B] r
[B]ruo[/B](2) [B]=[/B] r1
a [B]=[/B] [B]Estratto[/B](ess,r,1)
aa [B]=[/B] [B]Estratto[/B](ess,r1,1)
b [B]=[/B] [B]Estratto[/B](ess,r,2)
bb [B]=[/B] [B]Estratto[/B](ess,r1,2)
c [B]=[/B] [B]Estratto[/B](ess,r,3)
cc [B]=[/B] [B]Estratto[/B](ess,r1,3)
d [B]=[/B] [B]Estratto[/B](ess,r,4)
dd [B]=[/B] [B]Estratto[/B](ess,r1,4)
e [B]=[/B] [B]Estratto[/B](ess,r,5)
ee [B]=[/B] [B]Estratto[/B](ess,r1,5)
[B]n1[/B](1) [B]=[/B] a
[B]n2[/B](1) [B]=[/B] b
[B]n3[/B](1) [B]=[/B] c
[B]n4[/B](1) [B]=[/B] d
[B]n5[/B](1) [B]=[/B] e
[B]nn1[/B](1) [B]=[/B] aa
[B]nn2[/B](1) [B]=[/B] bb
[B]nn3[/B](1) [B]=[/B] cc
[B]nn4[/B](1) [B]=[/B] dd
[B]nn5[/B](1) [B]=[/B] ee
rp1 [B]=[/B] [B]Fuori90[/B](a [B]+[/B] aa)
rp2 [B]=[/B] [B]Fuori90[/B](b [B]+[/B] bb)
rp3 [B]=[/B] [B]Fuori90[/B](c [B]+[/B] cc)
rp4 [B]=[/B] [B]Fuori90[/B](d [B]+[/B] dd)
rp5 [B]=[/B] [B]Fuori90[/B](e [B]+[/B] ee)
sf1 [B]=[/B] [B]Differenza[/B](a,aa)
sf2 [B]=[/B] [B]Differenza[/B](b,bb)
sf3 [B]=[/B] [B]Differenza[/B](c,cc)
sf4 [B]=[/B] [B]Differenza[/B](d,dd)
sf5 [B]=[/B] [B]Differenza[/B](e,ee)
[B]ReDim[/B] [B]avalori[/B](65)
[B]avalori[/B](1) [B]=[/B] " "
[B]avalori[/B](2) [B]=[/B] [B]DataEstrazione[/B](ess) [B]&[/B] " - " [B]&[/B] [B]SiglaRuota[/B](r) [B]&[/B] " - " [B]&[/B] [B]SiglaRuota[/B](r1)
[B]avalori[/B](3) [B]=[/B] " "
[B]avalori[/B](4) [B]=[/B] a [B]&[/B] "." [B]&[/B] aa
[B]avalori[/B](5) [B]=[/B] b [B]&[/B] "." [B]&[/B] bb
[B]avalori[/B](6) [B]=[/B] c [B]&[/B] "." [B]&[/B] cc
[B]avalori[/B](7) [B]=[/B] d [B]&[/B] "." [B]&[/B] dd
[B]avalori[/B](8) [B]=[/B] e [B]&[/B] "." [B]&[/B] ee
[B]avalori[/B](9) [B]=[/B] " "
[B]avalori[/B](10) [B]=[/B] rp1
[B]avalori[/B](11) [B]=[/B] rp2
[B]avalori[/B](12) [B]=[/B] rp3
[B]avalori[/B](13) [B]=[/B] rp4
[B]avalori[/B](14) [B]=[/B] rp5
[B]avalori[/B](15) [B]=[/B] " "
[B]avalori[/B](16) [B]=[/B] sf1
[B]avalori[/B](17) [B]=[/B] sf2
[B]avalori[/B](18) [B]=[/B] sf3
[B]avalori[/B](19) [B]=[/B] sf4
[B]avalori[/B](20) [B]=[/B] sf5
[B]avalori[/B](44) [B]=[/B] [B]Fuori90[/B](aa [B]+[/B] b)
[B]avalori[/B](48) [B]=[/B] [B]Fuori90[/B](bb [B]+[/B] c)
[B]avalori[/B](51) [B]=[/B] [B]Fuori90[/B](cc [B]+[/B] d)
[B]avalori[/B](53) [B]=[/B] [B]Fuori90[/B](dd [B]+[/B] e)
[B]avalori[/B](55) [B]=[/B] [B]Differenza[/B](aa,b)
[B]avalori[/B](59) [B]=[/B] [B]Differenza[/B](bb,c)
[B]avalori[/B](62) [B]=[/B] [B]Differenza[/B](cc,d)
[B]avalori[/B](64) [B]=[/B] [B]Differenza[/B](dd,e)
[B]nu[/B](1) [B]=[/B] a
[B]nu[/B](2) [B]=[/B] b
[B]nu[/B](3) [B]=[/B] c
[B]nu[/B](4) [B]=[/B] d
[B]nu[/B](5) [B]=[/B] e
[B]Call[/B] [B]AddRigaTabella[/B]([B]avalori[/B],,,3)
[B]Call[/B] [B]SetColoreCella[/B](1,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](3,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](9,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](15,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](21,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](32,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](43,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](54,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](65,[B]vbBlue[/B])
[B]Call[/B] [B]SetColoreCella[/B](4,[B]vbYellow[/B])
[B]Call[/B] [B]SetColoreCella[/B](5,[B]vbYellow[/B])
[B]Call[/B] [B]SetColoreCella[/B](6,[B]vbYellow[/B])
[B]Call[/B] [B]SetColoreCella[/B](7,[B]vbYellow[/B])
[B]Call[/B] [B]SetColoreCella[/B](8,[B]vbYellow[/B])
[B]Next[/B]
[B]CreaTabella[/B]()
[B]Next[/B]
[B]Call[/B] [B]Scrivi[/B]("Tabella By Mike58 ",1,[B]True[/B],[B]True[/B],1,3,,[B]True[/B])
'Call PicEsegui
[B]End[/B] [B]Sub[/B]
 

Master

Advanced Member >PLATINUM<
Ciao
L'ho copiato e incollato e non mi da nessun errore uso spaziometria 1.5.82
anche leggendo il listato non trovo nessuna linea con scritto Per ru = 1 Per 10...
l'unica liea assomigliante è For ru = 1 to 10
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto