Novità

piccola modifica x listato

F

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
 
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
Clicca per espandere...

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

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

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

:)
Clicca per espandere...

;)
 
ciao grazie ragazzi x il vostro aiuto mi chiedevo se è possibile inserirle in unica tabella tutte le ruote :)
 
ciao grazie ragazzi x il vostro aiuto mi chiedevo se è possibile inserirle in
unica tabella tutte le ruote :)
Clicca per espandere...

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]
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto