Novità

Help Aiuto x modifica script

I

irepi

Junior Member
Buonasera, posso approfittare della vostra disponibilita?
Come posso fare x cambiare la visualizzazione delle previsioni di uno script sommativo da ordine crescente di una quartina (esempio 1 2 3 4 ) in ordine inserimento sommativi? Nell'attesa ringrazio
Questo e lo script (dalla raccolta di Rabberto)
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
'poste(2)=1
poste(3) = 0.9
poste(4) = 0.1
ruote(1) = 1
k = 2
y = 5
For n = 6880 To EstrazioneFin
If IndiceMensile(n) = 4 Then
ng = 0
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,4,4) + 72)
numeri1(2) = Fuori90(Estratto(n,1,1) + Estratto(n,4,3) + 15)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,4,2) + 46)
numeri1(4) = Fuori90(Estratto(n,3,2) + Estratto(n,9,3) + 36)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,5) + Estratto(n,5,1) + 50)
numeri1(2) = Fuori90(Estratto(n,1,3) + Estratto(n,5,3) + 88)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,4,2) + 46)
numeri1(4) = Fuori90(Estratto(n,3,4) + Estratto(n,7,3) + 18)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,5) + Estratto(n,5,1) + 50)
numeri1(2) = Fuori90(Estratto(n,3,4) + Estratto(n,7,3) + 86)
numeri1(3) = Fuori90(Estratto(n,6,1) + Estratto(n,7,2) + 37)
numeri1(4) = Fuori90(Estratto(n,4,1) + Estratto(n,6,3) + 17)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,5,4) + 49)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,5,1) + 66)
numeri1(3) = Fuori90(Estratto(n,4,4) + Estratto(n,9,2) + 39)
numeri1(4) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 82)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,1) + Estratto(n,3,2) + 86)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,10,3) + 41)
numeri1(3) = Fuori90(Estratto(n,3,5) + Estratto(n,7,3) + 45)
numeri1(4) = Fuori90(Estratto(n,4,4) + Estratto(n,7,4) + 51)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,2) + Estratto(n,3,4) + 17)
numeri1(2) = Fuori90(Estratto(n,7,4) + Estratto(n,8,1) + 34)
numeri1(3) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 82)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,9,2) + 17)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,2) + Estratto(n,3,4) + 17)
numeri1(2) = Fuori90(Estratto(n,2,4) + Estratto(n,8,1) + 35)
numeri1(3) = Fuori90(Estratto(n,2,2) + Estratto(n,10,2) + 9)
numeri1(4) = Fuori90(Estratto(n,1,5) + Estratto(n,4,3) + 57)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,9,2) + 77)
numeri1(2) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 28)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,8,1) + 88)
numeri1(4) = Fuori90(Estratto(n,2,1) + Estratto(n,9,1) + 22)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,5) + Estratto(n,6,3) + 90)
numeri1(2) = Fuori90(Estratto(n,8,3) + Estratto(n,10,2) + 45)
numeri1(3) = Fuori90(Estratto(n,2,3) + Estratto(n,6,5) + 17)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,9,3) + 4)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,9,1) + 20)
numeri1(2) = Fuori90(Estratto(n,4,3) + Estratto(n,8,4) + 14)
numeri1(3) = Fuori90(Estratto(n,3,1) + Estratto(n,6,1) + 23)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,3,5) + 54)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,9,1) + 20)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,4,1) + 57)
numeri1(3) = Fuori90(Estratto(n,3,2) + Estratto(n,10,2) + 34)
numeri1(4) = Fuori90(Estratto(n,8,2) + Estratto(n,10,4) + 43)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,7,4) + 38)
numeri1(2) = Fuori90(Estratto(n,1,1) + Estratto(n,7,5) + 10)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,8,1) + 88)
numeri1(4) = Fuori90(Estratto(n,3,2) + Estratto(n,9,3) + 36)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,7,4) + 38)
numeri1(2) = Fuori90(Estratto(n,1,3) + Estratto(n,2,4) + 77)
numeri1(3) = Fuori90(Estratto(n,4,1) + Estratto(n,10,1) + 28)
numeri1(4) = Fuori90(Estratto(n,7,4) + Estratto(n,8,3) + 72)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,8,3) + Estratto(n,9,5) + 84)
numeri1(2) = Fuori90(Estratto(n,6,2) + Estratto(n,7,3) + 28)
numeri1(3) = Fuori90(Estratto(n,2,5) + Estratto(n,7,5) + 43)
numeri1(4) = Fuori90(Estratto(n,1,3) + Estratto(n,10,4) + 7)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,2) + Estratto(n,4,2) + 24)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,7,1) + 30)
numeri1(3) = Fuori90(Estratto(n,2,1) + Estratto(n,2,3) + 65)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,9,1) + 48)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,2) + Estratto(n,4,2) + 24)
numeri1(2) = Fuori90(Estratto(n,2,4) + Estratto(n,6,4) + 61)
numeri1(3) = Fuori90(Estratto(n,1,4) + Estratto(n,6,2) + 2)
numeri1(4) = Fuori90(Estratto(n,5,1) + Estratto(n,10,4) + 35)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,8,1) + Estratto(n,8,3) + 83)
numeri1(2) = Fuori90(Estratto(n,1,5) + Estratto(n,6,5) + 53)
numeri1(3) = Fuori90(Estratto(n,3,5) + Estratto(n,10,4) + 28)
numeri1(4) = Fuori90(Estratto(n,4,3) + Estratto(n,4,4) + 39)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,5,4) + 2)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,6,5) + 17)
numeri1(3) = Fuori90(Estratto(n,4,1) + Estratto(n,6,3) + 17)
numeri1(4) = Fuori90(Estratto(n,7,4) + Estratto(n,8,3) + 72)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,7,2) + 37)
numeri1(2) = Fuori90(Estratto(n,2,1) + Estratto(n,6,2) + 17)
numeri1(3) = Fuori90(Estratto(n,10,2) + Estratto(n,10,4) + 76)
numeri1(4) = Fuori90(Estratto(n,3,4) + Estratto(n,7,3) + 18)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,7,2) + 48)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 85)
numeri1(3) = Fuori90(Estratto(n,1,2) + Estratto(n,9,1) + 48)
numeri1(4) = Fuori90(Estratto(n,9,1) + Estratto(n,9,4) + 3)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 04 maggio 2026
    Bari
    22
    24
    23
    33
    09
    Cagliari
    40
    15
    22
    90
    51
    Firenze
    70
    02
    71
    41
    40
    Genova
    51
    80
    25
    69
    30
    Milano
    23
    28
    89
    02
    64
    Napoli
    16
    54
    41
    08
    56
    Palermo
    18
    25
    11
    66
    36
    Roma
    28
    07
    03
    47
    76
    Torino
    72
    24
    01
    07
    70
    Venezia
    10
    80
    17
    69
    13
    Nazionale
    06
    39
    41
    42
    38
    Estrazione Simbolotto
    Milano
    18
    31
    25
    04
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto