Novità

Script sulla distanza

80Sete

Advanced Member >PLATINUM PLUS<
Avrei un'altra richiesta, ho riformattato il PC....ed ho perso alcuni script, chiedo per cortesia se qualcuno potrà compormi il seguente script:

Dovrà esserci una distanza Isotopa tra DUE qualsiasi Ruote (anche non consecutive) esempio 45 ....di volta in volta andrò a cambiarla nello script.
Nella condizione trovata ci saranno da mettere in gioco max. 6 nr. ....esempio 1-2-3-4-5-6 (saranno cambiati come la distanza)
Riassumendo, dovrei fare le mie ricerche, con la possibilità di : cambiare la distanza....le Ruote...e i 6 nr. da mettere in gioco (10 Colpi).
Ringrazio in anticipo chi potrà aiutarmi, e saluto chi passerà da qui :eek:
Buona giornata :rolleyes:
 
Ultima modifica:
Ciao, guarda questo se è quello che cerchi

Codice:
Sub Main()
Dim ru(2),poste(3)
poste(2) = 1 : poste(3) = 1
n =CInt(InputBox("Quale Distanza vuoi cercare?",,45))
r1 =CInt(InputBox("Prima Ruota?",,3))
r2 =CInt(InputBox("Seconda Ruota?",,6))
x =InputBox("Quante estrazioni vuoi analizzare?",,50)
k =InputBox("Per quanti colpi vuoi giocare?",,9)
nu =InputBox("Quale lunghetta, vuoi giocare x AT ",,"1.2.3.4.5.6")
If nu = "" Then Exit Sub
nu = "0." & nu
lung =Split(nu,".")
co = 0
For es =EstrazioneFin- x + 1 To EstrazioneFin
Messaggio es
For p = 1 To 5
a =Estratto(es,r1,p): b =Estratto(es,r2,p)
If Distanza(a,b) = n Then
co = co + 1
Scrivi Chr(10) &String(67,"-") & " Caso n° " & co : ColoreTesto 1
Scrivi DataEstrazione(es) & "" &SiglaRuota(r1) & "" &StringaEstratti(es,r1) & "" & a & " Pos " & p & " Dis " & n,1
Scrivi DataEstrazione(es) & "" &SiglaRuota(r2) & "" &StringaEstratti(es,r2) & "" & b & " Pos " & p & " Dis " & n,1
Scrivi: ColoreTesto 0
ru(1) = r1 : ru(2) = r2
ImpostaGiocata 2,lung,ru,poste,k
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Grazie...grazie1000 Master, andrò a provarlo appena possibile,(ora sono via) ma dalle voci che hai inserito....."quale distanza" "1à Ruota" etc.etc. credo che sarà ottimo, sei stato gentilissimo. grazie ancora e buon week end. ;)
 
Ciao Master, mi viene questo errore, e non so modificarlo.

a5evtf.jpg
 
Bellissima sorpresa....rientrare a casa e trovare il tutto, grazie ancora Master, ora è tutto ok, inizia l'avventura di trovare qualcosa di concreto con questo script, e in seguito metterlo a disposizione di tutti.
Buona domenica
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16
Indietro
Alto