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
    sabato 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto