Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
xSalvo50
- Creatore Discussione Zetrix
- Data di inizio
Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim k
k = EstrazioniArchivioSE - 0
'..........................................
'''definizione tabella intestazione e righe
Dim atitoli2(10),Estrat(6)
Dim avalori1(10),avalori2(10),avalori3(10),avalori4(10)
Dim avalori5(10),avalori6(10),avalori7(10),avalori8(10)
Dim avalori9(10),avalori10(10),avalori11(10),avalori12(10)
Dim avalori13(10),avalori14(10),avalori15(10),avalori16(10)
'................................
Estrat(1) = EstrattoSE(k,1)
Estrat(2) = EstrattoSE(k,2)
Estrat(3) = EstrattoSE(k,3)
Estrat(4) = EstrattoSE(k,4)
Estrat(5) = EstrattoSE(k,5)
Estrat(6) = EstrattoSE(k,6)
'................................
atitoli2(1) = " "
atitoli2(2) = StringaNumeri((Estrat)," * ")
atitoli2(3) = " "
atitoli2(4) = " "
atitoli2(5) = " "
atitoli2(6) = " "
atitoli2(7) = " "
atitoli2(8) = " "
atitoli2(9) = " "
atitoli2(10) = " "
'.............................
' ' inizializza la tabella
Call SetTableWidth("48%")
Call InitTabella(atitoli2,Bianco_,"center",4,Nero_,"raavi")
'................................................
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori1(2) = "01 02 03 04 05 06"
avalori1(3) = Format2(Fuori90(Estrat(1) + 1))
avalori1(4) = Format2(Fuori90(Estrat(2) + 2))
avalori1(5) = Format2(Fuori90(Estrat(3) + 3))
avalori1(6) = Format2(Fuori90(Estrat(4) + 4))
avalori1(7) = Format2(Fuori90(Estrat(5) + 5))
avalori1(8) = Format2(Fuori90(Estrat(6) + 6))
Call AddRigaTabella(avalori1,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori2(2) = "07 08 09 10 11 12"
avalori2(3) = Format2(Fuori90(Estrat(1) + 7))
avalori2(4) = Format2(Fuori90(Estrat(2) + 8))
avalori2(5) = Format2(Fuori90(Estrat(3) + 9))
avalori2(6) = Format2(Fuori90(Estrat(4) + 10))
avalori2(7) = Format2(Fuori90(Estrat(5) + 11))
avalori2(8) = Format2(Fuori90(Estrat(6) + 12))
Call AddRigaTabella(avalori2,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori3(2) = "13 14 15 16 17 18"
avalori3(3) = Format2(Fuori90(Estrat(1) + 13))
avalori3(4) = Format2(Fuori90(Estrat(2) + 14))
avalori3(5) = Format2(Fuori90(Estrat(3) + 15))
avalori3(6) = Format2(Fuori90(Estrat(4) + 16))
avalori3(7) = Format2(Fuori90(Estrat(5) + 17))
avalori3(8) = Format2(Fuori90(Estrat(6) + 18))
Call AddRigaTabella(avalori3,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori4(2) = "19 20 21 22 23 24"
avalori4(3) = Format2(Fuori90(Estrat(1) + 19))
avalori4(4) = Format2(Fuori90(Estrat(2) + 20))
avalori4(5) = Format2(Fuori90(Estrat(3) + 21))
avalori4(6) = Format2(Fuori90(Estrat(4) + 22))
avalori4(7) = Format2(Fuori90(Estrat(5) + 23))
avalori4(8) = Format2(Fuori90(Estrat(6) + 24))
Call AddRigaTabella(avalori4,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori5(2) = "25 26 27 28 29 30"
avalori5(3) = Format2(Fuori90(Estrat(1) + 25))
avalori5(4) = Format2(Fuori90(Estrat(2) + 26))
avalori5(5) = Format2(Fuori90(Estrat(3) + 27))
avalori5(6) = Format2(Fuori90(Estrat(4) + 28))
avalori5(7) = Format2(Fuori90(Estrat(5) + 29))
avalori5(8) = Format2(Fuori90(Estrat(6) + 30))
Call AddRigaTabella(avalori5,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori6(2) = "31 32 33 34 35 36"
avalori6(3) = Format2(Fuori90(Estrat(1) + 31))
avalori6(4) = Format2(Fuori90(Estrat(2) + 32))
avalori6(5) = Format2(Fuori90(Estrat(3) + 33))
avalori6(6) = Format2(Fuori90(Estrat(4) + 34))
avalori6(7) = Format2(Fuori90(Estrat(5) + 35))
avalori6(8) = Format2(Fuori90(Estrat(6) + 36))
Call AddRigaTabella(avalori6,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori7(2) = "37 38 39 40 41 42"
avalori7(3) = Format2(Fuori90(Estrat(1) + 37))
avalori7(4) = Format2(Fuori90(Estrat(2) + 38))
avalori7(5) = Format2(Fuori90(Estrat(3) + 39))
avalori7(6) = Format2(Fuori90(Estrat(4) + 40))
avalori7(7) = Format2(Fuori90(Estrat(5) + 41))
avalori7(8) = Format2(Fuori90(Estrat(6) + 42))
Call AddRigaTabella(avalori7,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori8(2) = "43 44 45 46 47 48"
avalori8(3) = Format2(Fuori90(Estrat(1) + 43))
avalori8(4) = Format2(Fuori90(Estrat(2) + 44))
avalori8(5) = Format2(Fuori90(Estrat(3) + 45))
avalori8(6) = Format2(Fuori90(Estrat(4) + 46))
avalori8(7) = Format2(Fuori90(Estrat(5) + 47))
avalori8(8) = Format2(Fuori90(Estrat(6) + 48))
Call AddRigaTabella(avalori8,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori9(2) = "49 50 51 52 53 54"
avalori9(3) = Format2(Fuori90(Estrat(1) + 49))
avalori9(4) = Format2(Fuori90(Estrat(2) + 50))
avalori9(5) = Format2(Fuori90(Estrat(3) + 51))
avalori9(6) = Format2(Fuori90(Estrat(4) + 52))
avalori9(7) = Format2(Fuori90(Estrat(5) + 53))
avalori9(8) = Format2(Fuori90(Estrat(6) + 54))
Call AddRigaTabella(avalori9,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori10(2) = "55 56 57 58 59 60"
avalori10(3) = Format2(Fuori90(Estrat(1) + 55))
avalori10(4) = Format2(Fuori90(Estrat(2) + 56))
avalori10(5) = Format2(Fuori90(Estrat(3) + 57))
avalori10(6) = Format2(Fuori90(Estrat(4) + 58))
avalori10(7) = Format2(Fuori90(Estrat(5) + 59))
avalori10(8) = Format2(Fuori90(Estrat(6) + 60))
Call AddRigaTabella(avalori10,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori11(2) = "61 62 63 64 65 66"
avalori11(3) = Format2(Fuori90(Estrat(1) + 61))
avalori11(4) = Format2(Fuori90(Estrat(2) + 62))
avalori11(5) = Format2(Fuori90(Estrat(3) + 63))
avalori11(6) = Format2(Fuori90(Estrat(4) + 64))
avalori11(7) = Format2(Fuori90(Estrat(5) + 65))
avalori11(8) = Format2(Fuori90(Estrat(6) + 66))
Call AddRigaTabella(avalori11,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori12(2) = "67 68 69 70 71 72"
avalori12(3) = Format2(Fuori90(Estrat(1) + 67))
avalori12(4) = Format2(Fuori90(Estrat(2) + 68))
avalori12(5) = Format2(Fuori90(Estrat(3) + 69))
avalori12(6) = Format2(Fuori90(Estrat(4) + 70))
avalori12(7) = Format2(Fuori90(Estrat(5) + 71))
avalori12(8) = Format2(Fuori90(Estrat(6) + 72))
Call AddRigaTabella(avalori12,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori13(2) = "73 74 75 76 77 78"
avalori13(3) = Format2(Fuori90(Estrat(1) + 73))
avalori13(4) = Format2(Fuori90(Estrat(2) + 74))
avalori13(5) = Format2(Fuori90(Estrat(3) + 75))
avalori13(6) = Format2(Fuori90(Estrat(4) + 76))
avalori13(7) = Format2(Fuori90(Estrat(5) + 77))
avalori13(8) = Format2(Fuori90(Estrat(6) + 78))
Call AddRigaTabella(avalori13,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori14(2) = "79 80 81 82 83 84"
avalori14(3) = Format2(Fuori90(Estrat(1) + 79))
avalori14(4) = Format2(Fuori90(Estrat(2) + 80))
avalori14(5) = Format2(Fuori90(Estrat(3) + 81))
avalori14(6) = Format2(Fuori90(Estrat(4) + 82))
avalori14(7) = Format2(Fuori90(Estrat(5) + 83))
avalori14(8) = Format2(Fuori90(Estrat(6) + 84))
Call AddRigaTabella(avalori14,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
avalori15(2) = "85 86 87 88 89 90"
avalori15(3) = Format2(Fuori90(Estrat(1) + 85))
avalori15(4) = Format2(Fuori90(Estrat(2) + 86))
avalori15(5) = Format2(Fuori90(Estrat(3) + 87))
avalori15(6) = Format2(Fuori90(Estrat(4) + 88))
avalori15(7) = Format2(Fuori90(Estrat(5) + 89))
avalori15(8) = Format2(Fuori90(Estrat(6) + 90))
Call AddRigaTabella(avalori15,Bianco_,"center",4,Nero_,"dubai light")
Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
avalori16(2) = GetInfoEstrazioneSE(k)
avalori16(3) = " "
avalori16(4) = " "
avalori16(5) = " "
avalori16(6) = " "
avalori16(7) = " "
avalori16(8) = " "
Call AddRigaTabella(avalori16,Bianco_,"center",4,Nero_,"raavi")
Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
ScriviEstrazioneSE(k)
'Call SetTableWidth("50%")
Call CreaTabella
End SubxSALVO50,ALIEN
Ultima modifica:
Zetrix
Advanced Premium Member
xALIEN ,
se passi di qua vedi sta tabella il 1 e 6 numero scrivono il 20 e 85 della sestina
questa tabella scrivono le chiavi con il 20.13.13.13.13.13. somma delle chiavi 85
invece la sestina del SE scrivono le chiavi diverse da queste e su queste chiavi e con le altre chiavi del SE che devi generare la sestina..
questa tabella scrivono le chiavi con il 20.13.13.13.13.13. somma delle chiavi 85
invece la sestina del SE scrivono le chiavi diverse da queste e su queste chiavi e con le altre chiavi del SE che devi generare la sestina..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 15 novembre 2025Bari1772572453Cagliari2783667634Firenze6176599034Genova2653624838Milano2547351872Napoli7783540428Palermo6031014461Roma1710458503Torino3674443760Venezia8967303438Nazionale8007388414Estrazione Simbolotto
Torino
3505101326
