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
    giovedì 26 giugno 2025
    Bari
    46
    67
    85
    51
    41
    Cagliari
    31
    19
    78
    28
    58
    Firenze
    24
    63
    44
    61
    71
    Genova
    76
    74
    77
    65
    58
    Milano
    66
    50
    73
    67
    75
    Napoli
    24
    14
    33
    11
    31
    Palermo
    35
    34
    78
    19
    06
    Roma
    53
    07
    19
    36
    85
    Torino
    67
    66
    87
    10
    81
    Venezia
    14
    03
    67
    49
    17
    Nazionale
    02
    31
    11
    77
    74
    Estrazione Simbolotto
    Napoli
    19
    12
    25
    36
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto