e si ?
Ma le hai aggiornate le percentuali ?
metti lo script non lo ritrovo .
Grazie
E' questo boh,dopo ci spieghi.
Sub Main()
'Rif. 0901_15 Genios decina nat tab 1.2 doppia matrice5
'colora di rosso le celle relative al num sortito nella stessa estrazione
'accanto ad ogni es, mostra le % relative ai num sortiti nell'es precedente
Dim dn(10,11),num(5),pro(10),prov()
x = 100 ' <==== IMPOSTARE INTERVALLO DI ESTRAZIONI
r = 1 ' <==== IMPOSTARE LA RUOTA
d = 8 ' <==== DECINA NATURALE
For i = 1 To 10
a = 80 + i
dn(0,i) = a 'riempio la riga zero con la decina
dn(i,0) = a 'riempio la colonna zero con la Decina
Next
'-------segue il caricamento delle varie percentuali
dn(0,0) = " "
dn(1,1) = 70:dn(1,2) = 40:dn(1,3) = 40:dn(1,4) = 20:dn(1,5) = 20:dn(1,6) = 30:dn(1,7) = 30:dn(1,8) = 30:dn(1,9) = 20:dn(1,10) = 20 '==> 81
dn(2,1) = 20:dn(2,2) = 40:dn(2,3) = 30:dn(2,4) = 30:dn(2,5) = 30:dn(2,6) = 40:dn(2,7) = 70:dn(2,8) = 70:dn(2,9) = 50:dn(2,10) = 30 '==> 82
dn(3,1) = 20:dn(3,2) = 40:dn(3,3) = "SS":dn(3,4) = 50:dn(3,5) = 30:dn(3,6) = 70:dn(3,7) = 30:dn(3,8) = 30:dn(3,9) = 40:dn(3,10) = 20 '==> 83
dn(4,1) = 20:dn(4,2) = 30:dn(4,3) = 30:dn(4,4) = 60:dn(4,5) = 40:dn(4,6) = 40:dn(4,7) = 50:dn(4,8) = 50:dn(4,9) = 40:dn(4,10) = 10 '==> 84
dn(5,1) = 40:dn(5,2) = 30:dn(5,3) = 30:dn(5,4) = 40:dn(5,5) = 40:dn(5,6) = 30:dn(5,7) = 10:dn(5,8) = 10:dn(5,9) = 20:dn(5,10) = 30 '==> 85
dn(6,1) = 50:dn(6,2) = 40:dn(6,3) = 10:dn(6,4) = 40:dn(6,5) = 30:dn(6,6) = 30:dn(6,7) = 80:dn(6,8) = 80:dn(6,9) = 40:dn(6,10) = 40 '==> 86
dn(7,1) = 20:dn(7,2) = 40:dn(7,3) = 40:dn(7,4) = 10:dn(7,5) = 30:dn(7,6) = 30:dn(7,7) = 80:dn(7,8) = 80:dn(7,9) = 10:dn(7,10) = 20 '==> 87
dn(8,1) = 30:dn(8,2) = 30:dn(8,3) = 20:dn(8,4) = 30:dn(8,5) = 70:dn(8,6) = 20:dn(8,7) = 40:dn(8,8) = 40:dn(8,9) = "SS":dn(8,10) = 10 '==> 88
dn(9,1) = 50:dn(9,2) = 40:dn(9,3) = 40:dn(9,4) = 20:dn(9,5) = 60:dn(9,6) = 20:dn(9,7) = 30:dn(9,8) = 30:dn(9,9) = 30:dn(9,10) = 40 '==> 89
dn(10,1) = 50:dn(10,2) = 40:dn(10,3) = 20:dn(10,4) = 10:dn(10,5) = 70:dn(10,6) = 40:dn(10,7) = 40:dn(10,8) = 40:dn(10,9) = 40:dn(10,10) = 20 '==> 90
'----------------------
Scrivi
Scrivi " Tabella delle % di riferimento per la decina naturale " & d,1
Scrivi " Elaborazione sulla ruota di " & NomeRuota(r),1
Scrivi
For i = 0 To 10
riga = " "
For y = 0 To 10
riga = riga & FormatSpace(dn(i,y),2,1) & Space(1)
Next
Scrivi " " & riga
Next
'----------------intestazione numeri
rignum = ""
For i = 1 To 10 : rignum = rignum & dn(0,i) & " " : Next
Scrivi Chr(10) & Space(30) & rignum,1
'-------------------------------
prec = 0
Scrivi
For es = EstrazioneFin - x To EstrazioneFin
'------------------------------rig serve a scrivere i numeri in decina rintracciati
prec = de
de = 0 : Erase num : rig = ""
ColoreTesto 0
For p = 1 To 5
If DecinaNaturale(Estratto(es,r,p)) = d Then
rig = rig & Estratto(es,r,p) & " "
de = de + 1
num(de) = Estratto(es,r,p)
Else rig = rig & "== "
End If
Next 'chiude p
ColoreTesto 0
If PREC = 0 Then
Scrivi DataEstrazione(es) & " " & rig & Space(4),0,0
For i = 1 To 10
ColoreTesto 0
If de > 0 Then 'queste sono per colorare la cella
colore = 0
For y = 1 To de
If Cadenza(num) = Cadenza(i) Then Colore = 1
Next
End If
If colore = 1 Then ColoreTesto 2 Else ColoreTesto 0
If i < 10 Then Scrivi pro(i) & " ",0,0 Else Scrivi pro(i)
Next
Colore = 0
Else
For u = 1 To prec 'scorro le righe della matrice prov
If u = 1 Then 'se è la prima riga allora..
Scrivi DataEstrazione(es) & " " & rig & Space(4),0,0
For i = 1 To 10
If de > 0 Then 'queste sono per colare la cella
colore = 0
For y = 1 To de
If Cadenza(num) = Cadenza(i) Then Colore = 1
Next
End If
If colore = 1 Then ColoreTesto 2 Else ColoreTesto 0
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)
Next
colore = 0
Else 'se non è la prima riga prosegue così
Scrivi Space(30),0,0
For i = 1 To 10
If de > 0 Then 'queste sono per colare la cella
colore = 0 : ColoreTesto 0
For y = 1 To de
If Cadenza(num) = Cadenza(i) Then Colore = 1
Next
End If
If colore = 1 Then ColoreTesto 2 Else ColoreTesto 0
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)
Next
Colore = 0
End If
Next
End If 'chiude if prec=0
ReDim prov(0,0):Erase pro
ReDim prov(de,10) 'dimensiono la matrice provvisoria con tante righe quanti num in decina ha trovato
If de = 0 Then
For w = 1 To 10 : pro(w) = "==" : Next
End If
If de > 0 Then 'se ha rilevato dei numeri in decina prosegue
For i = 1 To de ' scorro i numeri in decina rilevati
For y = 0 To 10 'scorro la colonna 0 della matrice dn
If dn(y,0) = num(i) Then 'quando trovo il num corrisp. a quello sortito in decina
For w = 0 To 10 'scorro la riga della matrice dn corrisp. al numero rilevato (riga y)
If VarType(dn(y,w)) = 2 Then
If dn(y,w) > 49 Then prov(i,w) =(dn(y,w)) Else prov(i,w) = "=="'carico sulla matrice prov dati > a 71
Else
If VarType(dn(y,w)) = 8 Then prov(i,w) =(dn(y,w))
End If
Next
End If
Next
Next
End If
'----------------------------per visualizzare le % dei num sortiti nell'ultima estrazione
If es = EstrazioneFin Then
If de > 0 Then
For u = 1 To de 'scorro le righe della matrice prov
If u = 1 Then 'se è la prima riga allora..
Scrivi Space(30),0,0
For i = 1 To 10
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)
Next
Else 'se non è la prima riga prosegue così
Scrivi Space(30),0,0
For i = 1 To 10
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)
Next
End If
Next
End If
End If
Next 'chiude es
End Sub
