Novità

PER ALDEBARAN

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao Aldebaran per caso potresti modificare lo script della settenaria in modo da trovare gli ambi e terni dei numeri sulla stessa riga nel trino incluso il numero di quota? Ad esempio:

2 -> 26 65 14

ambo 2 65

grazie mille in anticipo

_______________________

"Occhio per occhio dente per dente
otto per otto sessanta quattro
attento alle cifre ivi comprese
Piu e meno tra le cifre presenti
c'è un numero diviso che fa rima
ed è..... che addizionato e sottratto
ne da quattro".
_______________________
 
Ciao Engine, vi seguo fin dall'inizio, se va bene io ho fatto così, ma probabilmente il bravissimo Aldeberan lo impostera come nello schema

Codice: 
Sub Main
Dim num(10)
Dim num1(10)
Dim ruote(10)
Dim poste(5)
Dim posta(5)
poste(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 0
posta(5) = 0
ruote(1) = 1 ' < - - - cambiare per la ruota
r = ruote(1)
k = 9 ' < - - - - cambiare per i colpi
For n = 8267 To EstrazioneFin

s = Fuori90(Estratto(n,r,1) + Estratto(n,r,2) + Estratto(n,r,3) + Estratto(n,r,4) + Estratto(n,r,5))

a = Estratto(n,r,1)
b = Estratto(n,r,2)
c = Estratto(n,r,3)
d = Estratto(n,r,4)
e = Estratto(n,r,5)

x = Fuori90(a*13)
x1 = Fuori90(a + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(1) = Fuori90(x2 + x4 + x5)

x = Fuori90(b*13)
x1 = Fuori90(b + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(2) = Fuori90(x2 + x4 + x5)

x = Fuori90(c*13)
x1 = Fuori90(c + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(3) = Fuori90(x2 + x4 + x5)

x = Fuori90(d*13)
x1 = Fuori90(d + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(4) = Fuori90(x2 + x4 + x5)


x = Fuori90(e*13)
x1 = Fuori90(e + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(5) = Fuori90(x2 + x4 + x5)


Scrivi " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = "
ColoreTesto 2
Scrivi "Estrazione " & a & " - " & b & " - " & c & " - " & d & " - " & e & " somma numeri " & s & " Figura " & Figura(s)
Scrivi "NUMERI RIPETUTI " & num(1) & " " & num(2) & " " & num(3) & " " & num(4) & " " & num(5) & "..............Figura " & Figura(num(1))
ColoreTesto 0
EliminaRipetuti num


ImpostaGiocata 1,num,ruote,poste,k,8




'Distanze

If a > b Then
 a1 = Fuori90(91 -(Fuori90((a - b)*13)))
 Else 
 g = a + 90
 a1 = Fuori90(91 -(Fuori90((g - b)*13)))
 End If
 
If b > c Then
 b1 = Fuori90(91 -(Fuori90((b - c)*13)))
 Else 
 g = b + 90
 b1 = Fuori90(91 -(Fuori90((g - c)*13)))
 End If

If c > d Then
 c1 = Fuori90(91 -(Fuori90((c - d)*13)))
 Else
 g = c + 90 
 c1 = Fuori90(91 -(Fuori90((g - d)*13)))
 End If
 
 
If d > e Then
 d1 = Fuori90(91 -(Fuori90((d - e)*13)))
 Else
 g = d + 90 
 d1 = Fuori90(91 -(Fuori90((g - e)*13)))
 End If
 
 'Seconde
 
 
 If a1 > b1 Then
 a2 = Fuori90(91 -(Fuori90((a1 - b1)*13)))
 Else 
 g = a1 + 90 
 a2 = Fuori90(91 -(Fuori90((g - b1)*13)))
 End If
 
If b1 > c1 Then
 b2 = Fuori90(91 -(Fuori90((b1 - c1)*13)))
 Else 
 g = b1 + 90
 b2 = Fuori90(91 -(Fuori90((g - c1)*13)))
 End If
 
 If c1 > d1 Then
 c2 = Fuori90(91 -(Fuori90((c1 - d1)*13)))
 Else 
 g = c1 + 90
 c2 = Fuori90(91 -(Fuori90((g - d1)*13)))
 End If
 
 'Terze
 
 
If a2 > b2 Then
 a3 = Fuori90(91 -(Fuori90((a2 - b2)*13)))
 Else 
 g = a2 + 90
 a3 = Fuori90(91 -(Fuori90((g - b2)*13)))
 End If
 
If b2 > c2 Then
 b3 = Fuori90(91 -(Fuori90((b2 - c2)*13)))
 Else
 g = b2 + 90
 b3 = Fuori90(91 -(Fuori90((g - c2)*13)))
 End If
 
 'Ultima
 
 If a3 > b3 Then
 a4 = Fuori90(91 -(Fuori90((a3 - b3)*13)))
 Else
 g = a3 + 90 
 a4 = Fuori90(91 -(Fuori90((g - b3)*13)))
 End If
 DN = a4 
 
Scrivi:ColoreTesto 2
Scrivi "Distanza nostra " & DN

'Prima piramide


x = 91 -(Fuori90(13*a))

x1 = Fuori90(a + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

IncA = Fuori90(x2 + x4 + x5)

x = 91 -(Fuori90(13*b))

x1 = Fuori90(b + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

IncB = Fuori90(x2 + x4 + x5)


x = 91 -(Fuori90(13*c))

x1 = Fuori90(c + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

IncC = Fuori
 
quote:Originally posted by rudivall

Ciao Engine, vi seguo fin dall'inizio, se va bene io ho fatto così, ma probabilmente il bravissimo Aldeberan lo impostera come nello schema

Codice: 
Sub Main
Dim num(10)
Dim num1(10)
Dim ruote(10)
Dim poste(5)
Dim posta(5)
poste(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 0
posta(5) = 0
ruote(1) = 1 ' < - - - cambiare per la ruota
r = ruote(1)
k = 9 ' < - - - - cambiare per i colpi
For n = 8267 To EstrazioneFin

s = Fuori90(Estratto(n,r,1) + Estratto(n,r,2) + Estratto(n,r,3) + Estratto(n,r,4) + Estratto(n,r,5))

a = Estratto(n,r,1)
b = Estratto(n,r,2)
c = Estratto(n,r,3)
d = Estratto(n,r,4)
e = Estratto(n,r,5)

x = Fuori90(a*13)
x1 = Fuori90(a + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(1) = Fuori90(x2 + x4 + x5)

x = Fuori90(b*13)
x1 = Fuori90(b + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(2) = Fuori90(x2 + x4 + x5)

x = Fuori90(c*13)
x1 = Fuori90(c + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(3) = Fuori90(x2 + x4 + x5)

x = Fuori90(d*13)
x1 = Fuori90(d + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(4) = Fuori90(x2 + x4 + x5)


x = Fuori90(e*13)
x1 = Fuori90(e + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(5) = Fuori90(x2 + x4 + x5)


Scrivi " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = "
ColoreTesto 2
Scrivi "Estrazione " & a & " - " & b & " - " & c & " - " & d & " - " & e & " somma numeri " & s & " Figura " & Figura(s)
Scrivi "NUMERI RIPETUTI " & num(1) & " " & num(2) & " " & num(3) & " " & num(4) & " " & num(5) & "..............Figura " & Figura(num(1))
ColoreTesto 0
EliminaRipetuti num


ImpostaGiocata 1,num,ruote,poste,k,8




'Distanze

If a > b Then
 a1 = Fuori90(91 -(Fuori90((a - b)*13)))
 Else 
 g = a + 90
 a1 = Fuori90(91 -(Fuori90((g - b)*13)))
 End If
 
If b > c Then
 b1 = Fuori90(91 -(Fuori90((b - c)*13)))
 Else 
 g = b + 90
 b1 = Fuori90(91 -(Fuori90((g - c)*13)))
 End If

If c > d Then
 c1 = Fuori90(91 -(Fuori90((c - d)*13)))
 Else
 g = c + 90 
 c1 = Fuori90(91 -(Fuori90((g - d)*13)))
 End If
 
 
If d > e Then
 d1 = Fuori90(91 -(Fuori90((d - e)*13)))
 Else
 g = d + 90 
 d1 = Fuori90(91 -(Fuori90((g - e)*13)))
 End If
 
 'Seconde
 
 
 If a1 > b1 Then
 a2 = Fuori90(91 -(Fuori90((a1 - b1)*13)))
 Else 
 g = a1 + 90 
 a2 = Fuori90(91 -(Fuori90((g - b1)*13)))
 End If
 
If b1 > c1 Then
 b2 = Fuori90(91 -(Fuori90((b1 - c1)*13)))
 Else 
 g = b1 + 90
 b2 = Fuori90(91 -(Fuori90((g - c1)*13)))
 End If
 
 If c1 > d1 Then
 c2 = Fuori90(91 -(Fuori90((c1 - d1)*13)))
 Else 
 g = c1 + 90
 c2 = Fuori90(91 -(Fuori90((g - d1)*13)))
 End If
 
 'Terze
 
 
If a2 > b2 Then
 a3 = Fuori90(91 -(Fuori90((a2 - b2)*13)))
 Else 
 g = a2 + 90
 a3 = Fuori90(91 -(Fuori90((g - b2)*13)))
 End If
 
If b2 > c2 Then
 b3 = Fuori90(91 -(Fuori90((b2 - c2)*13)))
 Else
 g = b2 + 90
 b3 = Fuori90(91 -(Fuori90((g - c2)*13)))
 End If
 
 'Ultima
 
 If a3 > b3 Then
 a4 = Fuori90(91 -(Fuori90((a3 - b3)*13)))
 Else
 g = a3 + 90 
 a4 = Fuori90(91 -(Fuori90((g - b3)*13)))
 End If
 DN = a4 
 
Scrivi:ColoreTesto 2
Scrivi "Distanza nostra " & DN

'Prima piramide


x = 91 -(Fuori90(13*a))

x1 = Fuori90(a + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

IncA = Fuori90(x2 + x4 + x5)

x = 91 -(Fuori90(13*b))

x1 = Fuori90(b + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

IncB = Fuori90(x2 +
Clicca per espandere...
 
Bravo Rudivall lo script non è ben strutturato che è poco li faccio

Per lottoengine se vuoi tutti i numeri ti metto questo ci sono tutti fino a 10 numeri


Sub Main
Dim num(10)
Dim num1(10)
Dim ruote(10)
Dim posta(5)
posta(1) = 0
posta(2) = 1
posta(3) = 0.90
posta(4) = 0.05
posta(5) = 0.05
ruote(1) = 5' < - - - cambiare per la ruota
r = ruote(1)
k = 2 ' < - - - - cambiare per i colpi
For n = 8000 To EstrazioneFin

s = Fuori90(Estratto(n,r,1) + Estratto(n,r,2) + Estratto(n,r,3) + Estratto(n,r,4) + Estratto(n,r,5))

a = Estratto(n,r,1)
b = Estratto(n,r,2)
c = Estratto(n,r,3)
d = Estratto(n,r,4)
e = Estratto(n,r,5)

x = Fuori90(a*13)
x1 = Fuori90(a + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(1) = Fuori90(x2 + x4 + x5)

x = Fuori90(b*13)
x1 = Fuori90(b + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(2) = Fuori90(x2 + x4 + x5)

x = Fuori90(c*13)
x1 = Fuori90(c + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(3) = Fuori90(x2 + x4 + x5)

x = Fuori90(d*13)
x1 = Fuori90(d + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(4) = Fuori90(x2 + x4 + x5)


x = Fuori90(e*13)
x1 = Fuori90(e + s)
x2 = Fuori90(x + x1)
x3 = Fuori90(s + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)
num(5) = Fuori90(x2 + x4 + x5)


Scrivi " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = "
ColoreTesto 2
Scrivi "Estrazione " & a & " - " & b & " - " & c & " - " & d & " - " & e & " somma numeri " & s & " Figura " & Figura(s)
Scrivi "NUMERI RIPETUTI " & num(1) & " " & num(2) & " " & num(3) & " " & num(4) & " " & num(5) & "..............Figura " & Figura(num(1))
ColoreTesto 0
EliminaRipetuti num


'ImpostaGiocata 1,num,ruote,posta,k,1




'Distanze

If a > b Then
a1 = Fuori90(91 -(Fuori90((a - b)*13)))
Else
g = a + 90
a1 = Fuori90(91 -(Fuori90((g - b)*13)))
End If

If b > c Then
b1 = Fuori90(91 -(Fuori90((b - c)*13)))
Else
g = b + 90
b1 = Fuori90(91 -(Fuori90((g - c)*13)))
End If

If c > d Then
c1 = Fuori90(91 -(Fuori90((c - d)*13)))
Else
g = c + 90
c1 = Fuori90(91 -(Fuori90((g - d)*13)))
End If


If d > e Then
d1 = Fuori90(91 -(Fuori90((d - e)*13)))
Else
g = d + 90
d1 = Fuori90(91 -(Fuori90((g - e)*13)))
End If

'Seconde


If a1 > b1 Then
a2 = Fuori90(91 -(Fuori90((a1 - b1)*13)))
Else
g = a1 + 90
a2 = Fuori90(91 -(Fuori90((g - b1)*13)))
End If

If b1 > c1 Then
b2 = Fuori90(91 -(Fuori90((b1 - c1)*13)))
Else
g = b1 + 90
b2 = Fuori90(91 -(Fuori90((g - c1)*13)))
End If

If c1 > d1 Then
c2 = Fuori90(91 -(Fuori90((c1 - d1)*13)))
Else
g = c1 + 90
c2 = Fuori90(91 -(Fuori90((g - d1)*13)))
End If

'Terze


If a2 > b2 Then
a3 = Fuori90(91 -(Fuori90((a2 - b2)*13)))
Else
g = a2 + 90
a3 = Fuori90(91 -(Fuori90((g - b2)*13)))
End If

If b2 > c2 Then
b3 = Fuori90(91 -(Fuori90((b2 - c2)*13)))
Else
g = b2 + 90
b3 = Fuori90(91 -(Fuori90((g - c2)*13)))
End If

'Ultima

If a3 > b3 Then
a4 = Fuori90(91 -(Fuori90((a3 - b3)*13)))
Else
g = a3 + 90
a4 = Fuori90(91 -(Fuori90((g - b3)*13)))
End If
DN = a4

Scrivi:ColoreTesto 2
Scrivi "Distanza nostra " & DN

'Prima piramide


x = 91 -(Fuori90(13*a))

x1 = Fuori90(a + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

IncA = Fuori90(x2 + x4 + x5)

x = 91 -(Fuori90(13*b))

x1 = Fuori90(b + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

IncB = Fuori90(x2 + x4 + x5)


x = 91 -(Fuori90(13*c))

x1 = Fuori90(c + DN)
x2 = Fuori90(x + x1)
x3 = Fuori90(DN + x1)
x4 = Fuori90(x1 + x2)
x5 = Fuori90(x3 + x4)

Inc
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 settembre 2026
    Bari
    22
    29
    63
    55
    38
    Cagliari
    02
    71
    47
    42
    75
    Firenze
    09
    21
    74
    71
    19
    Genova
    87
    52
    82
    72
    26
    Milano
    57
    19
    11
    37
    76
    Napoli
    72
    78
    31
    37
    07
    Palermo
    82
    15
    68
    28
    60
    Roma
    28
    67
    61
    82
    90
    Torino
    67
    78
    56
    18
    59
    Venezia
    84
    66
    75
    76
    43
    Nazionale
    06
    14
    62
    09
    88
    Estrazione Simbolotto
    Palermo
    34
    02
    23
    36
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto