fillotto
Advanced Member >PLATINUM<
Questo script è un tentativo di creare una tabella come hai fatto tu
nello script "Creiamo uno script?" quello in cui creavi una tabella dei numeri usciti di tutte le ruote + la nazionale in 3 estrazioni consecutive facendo poi delle considerazioni visive di questa tabella .
Ora io vorrei fare lo stesso lavoro , ma al posto di far riportare le eventuali presenze dei 55 num x le 3 estraz consecutive mettendo (1) , vorrei riportare le presenze (reali non solo 1 ma all'occor
renza anche 2 ...3 con un max di 5)questi 25 numeri, non sono altro che tutti i numeri Adattatori possibili di ciascuna di una singola estrazione di una singola ruota
Se fai girare questo piccolo script te ne renderai conto
Se non sono stato chiaro ... chiedi
Come vedi ho tentato di adattarlo ma non ci riesco.. i numeri dell'output sono quelli che vorrei che venissero presi in considerazione negli array questo output ,Limitatamente a 20 numeri e trasformati in un file di testo mi servivano per poi essere letti
con un altro script che leggeva file di testo
Sub Main
'Scrivi String(70,"=") & "by Fillotto\Rubino" & String(70,"=")
Dim nr(25),es
Dim Ini,fin
Dim k1(90)'quantità di valori(nr) usciti nella 1^ riga della tabella
Dim k2(90)'quantità di valori(nr) usciti nella 2^ riga della tabella
Dim k3(90)'quantità di valori(nr) usciti nella 3^ riga della tabella
Dim k0(90)'4^ riga contenente le somme delle precedenti righe
Dim n
ReDim atitoli(92)'una tabella con 92 titoli)il 1° titolo sarà "num. estraz"il 2°"data di estraz" e succ i num da 1 a 90
ReDim avalori(92)' dove , alla riga successiva ci saranno i valori
' preimposto i titoli delle colonne
xx = 2
For x = 1 To 90
xx = xx + 1
atitoli(xx) = Format2(x)
Next
atitoli(1) = "num. Estraz. "
atitoli(2) = "Data Estraz. "
dal = InputBox("inserire n.estrazione iniziale...",,8418)
al = dal + 2
z = InputBox("su quale ruota fare i conti...",,1)
ColoreTesto 2
Scrivi " Statistica dei numeri ADATTATORI sortiti in 3 estrazioni consecutive sulla ruota di" & " " & NomeRuota(z)
Scrivi " Estrazione iniziale n. " & dal & " del " & DataEstrazione(dal) & " / " & DataEstrazione(al)
Scrivi " script name = Ruota Circ"
ColoreTesto 0
Scrivi "_____________________________________________________________________________"
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1,5,"Calibri")
Ini = dal
fin = al
For es = Ini To fin
Messaggio es
nr(1) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,1)))
nr(2) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,2)))
nr(3) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,3)))
nr(4) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,4)))
nr(5) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,5)))
nr(6) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,1)))
nr(7) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,2)))
nr(8) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,3)))
nr(9) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,4)))
nr(10) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,5)))
nr(11) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,1)))
nr(12) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,2)))
nr(13) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,3)))
nr(14) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,4)))
nr(15) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,5)))
nr(16) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,1)))
nr(17) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,2)))
nr(18) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,3)))
nr(19) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,4)))
nr(20) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,5)))
nr(21) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,1)))
nr(22) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(e
nello script "Creiamo uno script?" quello in cui creavi una tabella dei numeri usciti di tutte le ruote + la nazionale in 3 estrazioni consecutive facendo poi delle considerazioni visive di questa tabella .
Ora io vorrei fare lo stesso lavoro , ma al posto di far riportare le eventuali presenze dei 55 num x le 3 estraz consecutive mettendo (1) , vorrei riportare le presenze (reali non solo 1 ma all'occor
renza anche 2 ...3 con un max di 5)questi 25 numeri, non sono altro che tutti i numeri Adattatori possibili di ciascuna di una singola estrazione di una singola ruota
Se fai girare questo piccolo script te ne renderai conto
Se non sono stato chiaro ... chiedi
Come vedi ho tentato di adattarlo ma non ci riesco.. i numeri dell'output sono quelli che vorrei che venissero presi in considerazione negli array questo output ,Limitatamente a 20 numeri e trasformati in un file di testo mi servivano per poi essere letti
con un altro script che leggeva file di testo
Sub Main
'Scrivi String(70,"=") & "by Fillotto\Rubino" & String(70,"=")
Dim nr(25),es
Dim Ini,fin
Dim k1(90)'quantità di valori(nr) usciti nella 1^ riga della tabella
Dim k2(90)'quantità di valori(nr) usciti nella 2^ riga della tabella
Dim k3(90)'quantità di valori(nr) usciti nella 3^ riga della tabella
Dim k0(90)'4^ riga contenente le somme delle precedenti righe
Dim n
ReDim atitoli(92)'una tabella con 92 titoli)il 1° titolo sarà "num. estraz"il 2°"data di estraz" e succ i num da 1 a 90
ReDim avalori(92)' dove , alla riga successiva ci saranno i valori
' preimposto i titoli delle colonne
xx = 2
For x = 1 To 90
xx = xx + 1
atitoli(xx) = Format2(x)
Next
atitoli(1) = "num. Estraz. "
atitoli(2) = "Data Estraz. "
dal = InputBox("inserire n.estrazione iniziale...",,8418)
al = dal + 2
z = InputBox("su quale ruota fare i conti...",,1)
ColoreTesto 2
Scrivi " Statistica dei numeri ADATTATORI sortiti in 3 estrazioni consecutive sulla ruota di" & " " & NomeRuota(z)
Scrivi " Estrazione iniziale n. " & dal & " del " & DataEstrazione(dal) & " / " & DataEstrazione(al)
Scrivi " script name = Ruota Circ"
ColoreTesto 0
Scrivi "_____________________________________________________________________________"
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1,5,"Calibri")
Ini = dal
fin = al
For es = Ini To fin
Messaggio es
nr(1) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,1)))
nr(2) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,2)))
nr(3) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,3)))
nr(4) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,4)))
nr(5) = Format2(Fuori90(Estratto(es,z,1) + 90 - Estratto(es - 1,z,5)))
nr(6) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,1)))
nr(7) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,2)))
nr(8) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,3)))
nr(9) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,4)))
nr(10) = Format2(Fuori90(Estratto(es,z,2) + 90 - Estratto(es - 1,z,5)))
nr(11) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,1)))
nr(12) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,2)))
nr(13) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,3)))
nr(14) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,4)))
nr(15) = Format2(Fuori90(Estratto(es,z,3) + 90 - Estratto(es - 1,z,5)))
nr(16) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,1)))
nr(17) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,2)))
nr(18) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,3)))
nr(19) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,4)))
nr(20) = Format2(Fuori90(Estratto(es,z,4) + 90 - Estratto(es - 1,z,5)))
nr(21) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(es - 1,z,1)))
nr(22) = Format2(Fuori90(Estratto(es,z,5) + 90 - Estratto(e