xToon

[Zetrix]

questa e la tabella che segue con gli algoritmi
considerate che i numeri estratti sono sovrapposti a questi numeri

 

[Zetrix]

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8
   Dim X,N,E,Y,R,F
   Dim A(5),V(5),B(5)
   Dim A2,B2,C2,D2,E2
   Dim S1,S2,S3,S4,S5
   Dim R1,R2
   Dim ES
   Dim ruota(5),ruote(5),posta(2),poste(2)
   Dim Ambata(5),Ambo1(2),Ambo2(2)
   '
   ' calcola.ambata.contata
   '
   posta(1) = 1
   poste(2) = 1
   '____________
   '
   '
   tv = InputBox("Inserire quante estrazione",,0)
   '
   ex = EstrazioneFin - tv
   For ES = ex To ex
      Messaggio(ES)
      '
      For R1 = 1 To 10
         '
         '
         A(1) = Estratto(ES,R1,1)
         A(2) = Estratto(ES,R1,2)
         A(3) = Estratto(ES,R1,3)
         A(4) = Estratto(ES,R1,4)
         A(5) = Estratto(ES,R1,5)
         '---------------------------------
         '
         For X = 1 To 5
            '
            '------------------------------------
            '
            Y = Y + 1
            V(X) = Y
            '
         Next
         '----------------------------------
         T = Array(T,"  ","  ","  ","  ","  ","  ",Space(20))
         Call InitTabella(T,Bianco_,"center",3,Nero_,"Dubai Light")
         '
         '-------------------------------
         T = Array(T,NomeRuota(R1),Format2(A(1)),Format2(A(2)),Format2(A(3)),Format2(A(4)),Format2(A(5)),"")
         Call AddRigaTabella(T,Bianco_,"center",3,,"Dubai Light")
         Call SetColoreCella(1,RGB(255,0,128),RGB(255,255,255)) ' giallo
         Call SetColoreCella(2,RGB(230,230,0),RGB(0,0,0)) ' giallo
         Call SetColoreCella(3,RGB(230,230,0),RGB(0,0,0))
         Call SetColoreCella(4,RGB(230,230,0),RGB(0,0,0)) ' giallo
         Call SetColoreCella(5,RGB(230,230,0),RGB(0,0,0)) ' giallo
         Call SetColoreCella(6,RGB(230,230,0),RGB(0,0,0)) ' giallo
         Call SetColoreCella(7,RGB(255,0,128),RGB(0,0,0)) ' giallo
         '-------------------------------
         '---------
         '-----------------------------------
         '---------------------------------
         T1 = Array(T1,"  "," + "," + "," + "," + "," + ","")
         Call AddRigaTabella(T1,Bianco_,"center",3,,"Dubai Light")
         '
         T2 = Array(T2,"  ",(V(1)),(V(2)),(V(3)),(V(4)),(V(5)),"")
         Call AddRigaTabella(T2,Bianco_,"center",3,,"Dubai Light")
         Call SetColoreCella(1,RGB(0,230,0),RGB(0,0,0)) ' verde
         Call SetColoreCella(2,RGB(0,230,0),RGB(0,0,0)) ' verde
         Call SetColoreCella(3,RGB(0,230,0),RGB(0,0,0))
         Call SetColoreCella(4,RGB(0,230,0),RGB(0,0,0)) ' verde
         Call SetColoreCella(5,RGB(0,230,0),RGB(0,0,0)) ' verde
         Call SetColoreCella(6,RGB(0,230,0),RGB(0,0,0)) ' verde
         Call SetColoreCella(7,RGB(0,230,0),RGB(0,0,0)) ' verde
         '--------------------------------
         T3 = Array(T3,"  "," = "," = "," = "," = "," = ","")
         Call AddRigaTabella(T3,Bianco_,"center",3,,"Dubai Light")
         S1 = Fuori90(A(1) + V(1))
         S2 = Fuori90(A(2) + V(2))
         S3 = Fuori90(A(3) + V(3))
         S4 = Fuori90(A(4) + V(4))
         S5 = Fuori90(A(5) + V(5))
         '
         '
         ruota(1) = R1
         ruota(2) = RuotaDiametrale(R1)
         '
         ruote(1) = R1
         ruote(2) = RuotaDiametrale(R1)
         ruote(3) = TT_
         ruote(4) = NZ_
         '
         Ambata(1) = S1
         Ambata(2) = S2
         Ambata(3) = S3
         Ambata(4) = S4
         Ambata(5) = S5
         '
         T4 = Array(T4,"  ",Format2(S1),Format2(S2),Format2(S3),Format2(S4),Format2(S5),"")
         Call AddRigaTabella(T4,Bianco_,"center",3,,"Dubai Light")
         Call SetColoreCella(1,RGB(0,0,255),RGB(250,250,250)) ' verde
         Call SetColoreCella(2,RGB(0,0,255),RGB(250,250,250)) ' giallo
         Call SetColoreCella(3,RGB(0,0,255),RGB(250,250,250))
         Call SetColoreCella(4,RGB(0,0,255),RGB(250,250,250)) ' verde
         Call SetColoreCella(5,RGB(0,0,255),RGB(250,250,250)) ' giallo
         Call SetColoreCella(6,RGB(0,0,255),RGB(250,250,250)) ' giallo
         Call SetColoreCella(7,RGB(0,0,255),RGB(250,250,250)) ' giallo
         '
         T5 = Array(T5,"  ","  ","  ","  ","  ","  ","")
         Call AddRigaTabella(T5,Bianco_,"center",3,,"Dubai Light")
         '
         T6 = Array(T6,DataEstrazione(ES),"  ","  ","  ","  ","  ","")
         Call AddRigaTabella(T6,Bianco_,"center",3,,"Dubai Light")
         '
         Call SetTableWidth("30%")
         CreaTabella
         Scrivi
         '
      Next
   Next
End Sub

volete lo script, ecco lo script

 

[Zetrix]

Alien ai visto il montepremi del superenalotto e arrivato quasi a 90 miloni di EURO
quanto arriva a 100 milioni di EURO fanno vedere che e stato vinto in qualche città
e nessuno sa chi a incassato il malloppo
secondo la mia visione questo gioco e una truffa e questo gioco deve cambiare
cosi non va bene per niente
ai visto le vincite che danno ai 2,3,4, danno una miseria 5 euro,20 euro,260 euro,
e la differenza del 4 al 5 e abnorme ai 5 danno 40 mila euro
e in tutta italia hanno realizzato solo 5 vincite con il 5
secondo la mia visione questo gioco devono togliere il super star che non serve a niente
e devono mettere le vincite con 1 + jolly, 2 + jolly, 3+jolly, 4+jolly,5+jolly,
te dirai e perche non fanno questo gioco vuoi la risposta e perche siamo in italia il paese dei balocchi
e nessuno si ribella a questo stato di cose perche sono tutti magnacci e si abbuffano di soldi.