Novità

Aiuto Script Lotto Metodo quasi MICIDIALE!

E

Edoardo_95

Advanced Member
Salve a tutti, ho provato più volte ha generare uno script per un metodo da me in possesso ma senza risultati (ho provato a scopiazzare parti di codice da altri listati ma senza successo). Se mandato in privato, c'è qualche anima pia in grado di farlo per me? Ve ne sarei eternamente grato. Così io avrò questo benedetto script
 
Ultima modifica:
Ciao antonio65 grazie mille per la tua disponibilità nell'aiutarmi :D. Mi servirebbe la tua e-mail per poterti inviare il metodo in privato :)
 
X Edoardo95, ti affidi al primo che ti scrive senza renderti conto che spessissimo chiede aiuto per script, vuole solo il tuo metodo. Ci sono tanti bravi scripter, cerca uno di loro.
 
Ultima modifica:
Ciao Edoardo, questo è per l'ambata ho messo 8 colpi ma puoi variare dove c'è scritto clp(colpi).

Sub Main()
Scrivi("Metodo Edoardo 95")
Dim ruota(10),nn(1)
Dim ruote(10)
Dim ambata(2)
Dim terzina(3)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
clp = InputBox("Inserisci i colpi di gioco :",,8)
ds = CInt(InputBox("Inserisci la distanza (da 1 a 45) :",,2))
ini = InputBox("Inizio Ricerca :",,9300)
fin = EstrazioneFin
For es = ini To fin
For ess = es - 2 To es
Call AvanzamentoElab(ini,fin,es)
Messaggio "script By Antonio"
For r = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
ruota(1) = r : ruote(1) = r : ruote(2) = 11 'tutte le ruote
n1 = Estratto(es,r,p1): n2 = Estratto(es,r,p2)
If Distanza(n1,n2) = ds Then
'If Decina(n2) = Decina(n1) Then
x = Fuori90(n1*n2)
a = Estratto(ess,r,p3)
If a = x Then
m1 =(n1 + n2)/2
m2 = m1
m3 =Vert(m1) '< da qui
co = co + 1
Scrivi String(100,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo Distanza " & ds & " [" & Format2(n1) & "-" & Format2(n2) & "] Stessa decina"
Scrivi DataEstrazione(ess) & " " & SiglaRuota(r) & " " & StringaEstratti(ess,r) & " " & n1 & "x" & n2 & " = " & Format2(x)
ColoreTesto 0
If ess = es Then
ColoreTesto 2
Scrivi " Presente nella stessa estrazione",False,False
Scrivi
Else
ColoreTesto 1
Scrivi " Presente " & es - ess & " Estrazione/i fa",False,False
Scrivi
End If
ColoreTesto 0
ambata(1) = m1'per il vertibile scrivere m3
'ambata(2) = m3
nGiocata = nGiocata + 1
Call ImpostaGiocataVirtuale(nGiocata,ambata,ruota,posta,k,1)
terzina(1) = m1
terzina(2) = m3
terzina(3) = a
'ImpostaGiocata 2,terzina,ruote,poste,k,2
GiocaVirtuale es,1,,,,True
Call Scrivi("GetVincita " & GetVincita(True,True))
If GetVincita(True,True) > 0 Then
Call ImpostaGiocata(nGiocata,ambata,ruota,posta,k,1)
Gioca es,1
'End If
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
elencogiocate
Scrivi:ScriviResoconto
End Sub
Function elencogiocate
ReDim aT(8)
aT(1) = "NumGiocata"
aT(2) = "Colpo"
aT(3) = "SpesaParz"
aT(4) = "VincitaParz"
aT(5) = "Guadagno Prz "
aT(6) = "Spesa Totale"
aT(7) = "Vincita totale"
aT(8) = "Guadagno Totale "
Call InitTabella(aT,1,,,5)
For k = 0 To GetQuantitaGiocateEffettuate
If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
ReDim aTT(8)
aTT(1) = clp
aTT(2) = RetColpo
aTT(3) = RetSpesaParz
aTT(4) = RetVincitaParz
aTT(5) =(aTT(4) - aTT(3))
aTT(6) = RetSpesa
aTT(7) = RetVincita
aTT(8) =(aTT(7) - aTT(6))
Call AddRigaTabella(aTT)
If aTT(2) < 1 Then Call SetColoreCella(2,2,4)
If aTT(2) > 0 Then Call SetColoreCella(2,3,1)
End If
Next
Call AddRigaTabella(aT,1,,,5)
Call CreaTabella()
End Function
 
PRIMO x Antonio ...metti il codice "
Codice: 
  [SIZE=12px][COLOR=#FF0000]qui dentro[/COLOR][/SIZE]
" lo troverai in "Attiva Editor Avanzato" clicchi sull'icona con una grossa A
SECONDO cosi come è stato scritto il metodo è perdente in quanto dici che i colpi di gioco sono 8 se si vogliono variare varia "clp" solo che nel codice metti " k" invece di " clp " per cui nel rendiconto ti conta anche le sortite che avvengono dopo gli 8 colpi .
Terzo se nel codice si corregge Imposta giocata e si mette clp al posto di K allora il rendiconto darà un esito positivo ma semplicemente perchè , cosi come è scritto il codice conta solo gli esiti positivi :rolleyes:;)
 
[Sub Main()
Scrivi("Metodo Edoardo 95")
Dim ruota(10)
Dim ruote(10)
Dim ambata(3)
Dim terzina(3)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
k = InputBox("Inserisci i colpi di gioco :",,13)
ds = CInt(InputBox("Inserisci la distanza (da 1 a 45) :",,2))
ini = InputBox("Inizio Ricerca :",,9300)
fin = EstrazioneFin
For es = ini To fin
For ess = es - 2 To es
Call AvanzamentoElab(ini,fin,es)
Messaggio "script By Antonio"
For r = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
ruota(1) = r : ruote(1) = r : ruote(2) = 11 'tutte le ruote
n1 = Estratto(es,r,p1): n2 = Estratto(es,r,p2)
If Distanza(n1,n2) = ds Then
'If Decina(n2) = Decina(n1) Then
x = Fuori90(n1*n2)
a = Estratto(ess,r,p3)
If a = x Then
S_E = SommaEstratti(es,r)
B = n1 + n2
C = S_E - B
D = Fuori90(C)
m1 =(n1 + n2)/2
m2 = D
m3 = Vert(m1) '< da qui
co = co + 1
Scrivi String(100,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo Distanza " & ds & " [" & Format2(n1) & "-" & Format2(n2) & "] Stessa decina" & " B " & Format2(B) & " C " & Format2(C) & " D " & Format2(D)
Scrivi DataEstrazione(ess) & " " & SiglaRuota(r) & " " & StringaEstratti(ess,r) & " " & n1 & "x" & n2 & " S_E " & Format2(S_E)'& " = " & Format2(x)
ColoreTesto 0
If ess = es Then
ColoreTesto 2
Scrivi " Presente nella stessa estrazione",False,False
Scrivi
Else
ColoreTesto 1
Scrivi " Presente " & es - ess & " Estrazione/i fa",False,False
Scrivi
End If
ColoreTesto 0
ambata(1) = m2
ambata(2) = m3
'ambata(3) = m3'per il vertibile scrivere m3
nGiocata = nGiocata + 1
Call ImpostaGiocataVirtuale(nGiocata,ambata,ruota,posta,k,1)
terzina(1) = m1
terzina(2) = m3
terzina(3) = a
'ImpostaGiocata 2,terzina,ruote,poste,k,2
GiocaVirtuale es,1,,,,True
Call Scrivi("GetVincita " & GetVincita(True,True))
If GetVincita(True,True) > 0 Then
Call ImpostaGiocata(nGiocata,ambata,ruota,posta,k,1)
Gioca es,1
'End If
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
elencogiocate
Scrivi:ScriviResoconto
End Sub
Function elencogiocate
ReDim aT(8)
aT(1) = "NumGiocata"
aT(2) = "Colpo"
aT(3) = "SpesaParz"
aT(4) = "VincitaParz"
aT(5) = "Guadagno Prz "
aT(6) = "Spesa Totale"
aT(7) = "Vincita totale"
aT(8) = "Guadagno Totale "
Call InitTabella(aT,1,,,5)
For k = 0 To GetQuantitaGiocateEffettuate
If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
ReDim aTT(8)
aTT(1) = k
aTT(2) = RetColpo
aTT(3) = RetSpesaParz
aTT(4) = RetVincitaParz
aTT(5) =(aTT(4) - aTT(3))
aTT(6) = RetSpesa
aTT(7) = RetVincita
aTT(8) =(aTT(7) - aTT(6))
Call AddRigaTabella(aTT)
If aTT(2) < 1 Then Call SetColoreCella(2,2,4)
If aTT(2) > 0 Then Call SetColoreCella(2,3,1)
End If
Next
Call AddRigaTabella(aT,1,,,5)
Call CreaTabella()
End Function
]
 
Buongiorno Edoardo, buongiorno filotto ho cambiato il codice...nel mio piccolo mi sono dato da fare come hanno fatto e fanno con me...non so mettere lo script sull'apposita finestra ci ho provato tante volte non riesco....

Ti ho fatto le previsioni per ambo come da manuale con una differenza che con l'apposita ambata da solo un esito
invece con il rivolto 5 ambi in casi 57....

Sub Main()
Scrivi("Metodo Edoardo 95")
Dim ruota(10)
Dim ruote(10)
Dim ambata(3)
Dim terzina(3)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
k = InputBox("Inserisci i colpi di gioco :",,13)
ds = CInt(InputBox("Inserisci la distanza (da 1 a 45) :",,2))
ini = InputBox("Inizio Ricerca :",,9300)
fin = EstrazioneFin
For es = ini To fin
For ess = es - 2 To es
Call AvanzamentoElab(ini,fin,es)
Messaggio "script By Antonio"
For r = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
ruota(1) = r : ruote(1) = r : ruote(2) = 11 'tutte le ruote
n1 = Estratto(es,r,p1): n2 = Estratto(es,r,p2)
If Distanza(n1,n2) = ds Then
'If Decina(n2) = Decina(n1) Then
x = Fuori90(n1*n2)
a = Estratto(ess,r,p3)
If a = x Then
S_E = SommaEstratti(es,r)
B = n1 + n2
C = S_E - B
D = Fuori90(C)
m1 =(n1 + n2)/2
m2 = D
m3 = Vert(m1) '< da qui
co = co + 1
Scrivi String(100,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo Distanza " & ds & " [" & Format2(n1) & "-" & Format2(n2) & "] Stessa decina" & " B " & Format2(B) & " C " & Format2(C) & " D " & Format2(D)
Scrivi DataEstrazione(ess) & " " & SiglaRuota(r) & " " & StringaEstratti(ess,r) & " " & n1 & "x" & n2 & " S_E " & Format2(S_E)'& " = " & Format2(x)
ColoreTesto 0
If ess = es Then
ColoreTesto 2
Scrivi " Presente nella stessa estrazione",False,False
Scrivi
Else
ColoreTesto 1
Scrivi " Presente " & es - ess & " Estrazione/i fa",False,False
Scrivi
End If
ColoreTesto 0
ambata(1) = m2
ambata(2) = m3
'ambata(3) = m3'per il vertibile scrivere m3
nGiocata = nGiocata + 1
Call ImpostaGiocataVirtuale(nGiocata,ambata,ruota,posta,k,1)
terzina(1) = m1
terzina(2) = m3
terzina(3) = a
'ImpostaGiocata 2,terzina,ruote,poste,k,2
GiocaVirtuale es,1,,,,True
Call Scrivi("GetVincita " & GetVincita(True,True))
If GetVincita(True,True) > 0 Then
Call ImpostaGiocata(nGiocata,ambata,ruota,posta,k,1)
Gioca es,1
'End If
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
elencogiocate
Scrivi:ScriviResoconto
End Sub
Function elencogiocate
ReDim aT(8)
aT(1) = "NumGiocata"
aT(2) = "Colpo"
aT(3) = "SpesaParz"
aT(4) = "VincitaParz"
aT(5) = "Guadagno Prz "
aT(6) = "Spesa Totale"
aT(7) = "Vincita totale"
aT(8) = "Guadagno Totale "
Call InitTabella(aT,1,,,5)
For k = 0 To GetQuantitaGiocateEffettuate
If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then
ReDim aTT(8)
aTT(1) = k
aTT(2) = RetColpo
aTT(3) = RetSpesaParz
aTT(4) = RetVincitaParz
aTT(5) =(aTT(4) - aTT(3))
aTT(6) = RetSpesa
aTT(7) = RetVincita
aTT(8) =(aTT(7) - aTT(6))
Call AddRigaTabella(aTT)
If aTT(2) < 1 Then Call SetColoreCella(2,2,4)
If aTT(2) > 0 Then Call SetColoreCella(2,3,1)
End If
Next
Call AddRigaTabella(aT,1,,,5)
Call CreaTabella()
End Function
 
Ciao Druid, l'ho scritto sopra che per ambi non è un gran che...tuttavia siccome c'è una divisione nello script ti consiglio di provare solo le distanze pari...e poi lo testi....o aumenti i colpi...
 
ciao
per distanze dispari lo devi controlla con m1 =(n1 + n2)\2 O m1 =int((n1 + n2)/2)

Perchè fai il conteggio solo dei casi positivi ?
 
VI lascio a tempo scaduto 3 ambate x bari ...28-7-66 abb. ad ambo 50-40-15
ad ambetto 33-22-44 non oltre 2 colpi.
 
Ultima modifica:
claudio8;n2103878 ha scritto:
VI lascio a tempo scaduto 3 ambate x bari ...28-7-66 abb. ad ambo 50-40-15
ad ambetto 33-22-44 non oltre 2 colpi.
Clicca per espandere...
si va a cassa d' Ambata secca 66
Ba 70 57 66 47 37

Previsione.. forse chiusa :cool::cool::cool: per ferie.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 luglio 2026
    Bari
    86
    66
    30
    01
    25
    Cagliari
    14
    36
    79
    07
    51
    Firenze
    89
    41
    87
    30
    23
    Genova
    29
    11
    35
    57
    66
    Milano
    19
    28
    31
    27
    47
    Napoli
    03
    23
    61
    12
    65
    Palermo
    61
    90
    47
    56
    34
    Roma
    22
    26
    48
    50
    44
    Torino
    62
    75
    23
    15
    13
    Venezia
    80
    25
    84
    49
    61
    Nazionale
    23
    76
    80
    55
    46
    Estrazione Simbolotto
    Nazionale
    37
    44
    16
    05
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto