Novità

Aiuto Script Lotto Metodo quasi MICIDIALE!

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.
si va a cassa d' Ambata secca 66
Ba 70 57 66 47 37


Previsione.. forse chiusa :cool::cool::cool: per ferie.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 settembre 2025
    Bari
    24
    27
    08
    70
    68
    Cagliari
    75
    27
    64
    20
    17
    Firenze
    53
    20
    46
    14
    39
    Genova
    38
    72
    71
    36
    65
    Milano
    24
    43
    76
    19
    26
    Napoli
    32
    70
    51
    23
    48
    Palermo
    23
    73
    55
    64
    62
    Roma
    66
    58
    15
    49
    55
    Torino
    84
    22
    38
    29
    64
    Venezia
    47
    52
    56
    35
    89
    Nazionale
    04
    49
    67
    57
    05
    Estrazione Simbolotto
    Palermo
    07
    18
    33
    28
    19
Indietro
Alto