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
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto