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

:)

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

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03

Ultimi Messaggi

Indietro
Alto