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 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto