fillotto
Advanced Member >PLATINUM<
Buona sera , ho fatto una tabella dove rilevo la somma estratti Under/Over 227,5 per ciascuna ruota per tot estrazioni ,fin qui ci sono riuscito ma non riesco a gestire l'output della tabella nel senso che la tabella mi appare nell'output dopo una serie di spazi pari all'estrazioni richieste , come ovviare a questo?
Ho fatto in modo che se a BA la somma estratti sia sotto 227,5 mi metta 1 se superiore mi metta 2 ,se a CA la somma estratti sia sotto 227,5 mi metta 3 se superiore mi metta 4 e così via fino a VE (under 19 over 20) quindi ogni estrazione ottengo 10
numeri è escluso che escano 1 e 2 oppure 3 e 4 del resto facendo girare il sottonotato abbozzo di script ci si rende conto di come ho impostato il preoblema.
Cosa voglio ottenere ? vorrei una tabella che mi gestisca tutte le 960 terzine possibili (ogni estrazione escono 120 terzine sulle 960 possibili un rapporto di uno a otto) in questo modo:
Combinazione---- Ritardo----Freq----R S
2--3--5 ---- 36 ---- 6 ---- 36
3--7--17 ---- 34 ---- 3 ---- 39
ecc ecc
ecco lo script:
Ho fatto in modo che se a BA la somma estratti sia sotto 227,5 mi metta 1 se superiore mi metta 2 ,se a CA la somma estratti sia sotto 227,5 mi metta 3 se superiore mi metta 4 e così via fino a VE (under 19 over 20) quindi ogni estrazione ottengo 10
numeri è escluso che escano 1 e 2 oppure 3 e 4 del resto facendo girare il sottonotato abbozzo di script ci si rende conto di come ho impostato il preoblema.
Cosa voglio ottenere ? vorrei una tabella che mi gestisca tutte le 960 terzine possibili (ogni estrazione escono 120 terzine sulle 960 possibili un rapporto di uno a otto) in questo modo:
Combinazione---- Ritardo----Freq----R S
2--3--5 ---- 36 ---- 6 ---- 36
3--7--17 ---- 34 ---- 3 ---- 39
ecc ecc
ecco lo script:
Codice:
Sub Main()
er = CInt(InputBox("Quante estrazioni a ritroso",,10))
fin = EstrazioneFin
Ini = fin - er
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "TABELLA UNDER/OVER 227,5 della Somma Estratti ",0
ReDim atitoli(11)
atitoli(1) = " DATA ESTRAZIONE "
atitoli(2) = " BA (1-2) "
atitoli(3) = " CA (3-4)"
atitoli(4) = " FI (5-6)"
atitoli(5) = " GE (7-8)"
atitoli(6) = " MI (9-10)"
atitoli(7) = " NA (11-12) "
atitoli(8) = " PA (13-14) "
atitoli(9) = " RO (15-16) "
atitoli(10) = " TO (17-18)"
atitoli(11) = " VE (19-20) "
Call InitTabella(atitoli,1,,3,5)
For es = Ini + 1 To Fin
Call AvanzamentoElab(Ini,fin,es)
eb = SommaEstratti(es,1)
ec = SommaEstratti(es,2)
ef = SommaEstratti(es,3)
eg = SommaEstratti(es,4)
em = SommaEstratti(es,5)
en = SommaEstratti(es,6)
ep = SommaEstratti(es,7)
er = SommaEstratti(es,8)
et = SommaEstratti(es,9)
ev = SommaEstratti(es,10)
Scrivi : ColoreTesto 0: Scrivi,1
ReDim avalori(11)
avalori(1) = DataEstrazione(es)
avalori(2) = eb
If eb < 228 Then
avalori(2) = 1
Else
avalori(2) = 2
End If
avalori(3) = ec
If ec < 228 Then
avalori(3) = 3
Else
avalori(3) = 4
End If
avalori(4) = ef
If ef < 228 Then
avalori(4) = 5
Else
avalori(4) = 6
End If
avalori(5) = eg
If eg < 228 Then
avalori(5) = 7
Else
avalori(5) = 8
End If
avalori(6) = em
If em < 228 Then
avalori(6) = 9
Else
avalori(6) = 10
End If
avalori(7) = en
If en < 228 Then
avalori(7) = 11
Else
avalori(7) = 12
End If
avalori(8) = ep
If ep < 228 Then
avalori(8) = 13
Else
avalori(8) = 14
End If
avalori(9) = er
If er < 228 Then
avalori(9) = 15
Else
avalori(9) = 16
End If
avalori(10) = et
If et < 228 Then
avalori(10) = 17
Else
avalori(10) = 18
End If
avalori(11) = ev
If ev < 228 Then
avalori(11) = 19
Else
avalori(11) = 20
End If
Call AddRigaTabella(avalori,,,3)
Next
Call SetTableWidth("80%")
Call CreaTabella()
End Sub
Ultima modifica:
ma la questione rimane trattare i numeri del lotto come un pronostico di una partita solo che non c'è l'x in excel lo gestisco ma è molto ferraginoso con uno script sarebbe l'ideale
