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
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13

Ultimi Messaggi

Indietro
Alto