Richiesta script

DjNomade · 31 Dicembre 2024

Non so se ho capito bene controlla questo

BUON ANNO
Ciauz

'https://forum.lottoced.com/threads/richiesta-script.2220591/
'https://forum.lottoced.com/threads/richiesta-script.2220591/#post-2706450
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=46370
'31-12-2024
ColoreTesto 2 :Scrivi String(17,32)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5 by phil79 Modif. x KEN ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0

Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10),ruotee(2),numeri(1)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",120))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",13))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 3-5 ,1-5 by phil79 "

For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
If (p1=1 And p2=3)Or (p1=2 And p2=4)Or (p1=3 And p2=5)Or(p1=1 And p2=5)Then
If ((Pari(n1)=True And Pari(n2)=True) Or (Pari(n1)=False And Pari(n2)=False))And Distanza(n1,n2)=30 Then
nn1=(n1+n2)/2 '76+88 164/2 82 ok
nn=Fuori90(n1+n2)'76+88 74 ok
If Decina(n1)=Decina(n2)Then nn1=Diametrale((n1+n2)/2)
nn2=Fuori90(nn1+nn)
numeri(1)=nn
ruotee(1)=11
ruotee(2)=12
Freq=SerieFreq(es,es,numeri,ruotee,1)
If Freq=1 Then
'

For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)

n4=Fuori90(n1+30)
If n4=n2 Then n4=Fuori90(n1+60)
If ((Distanza(n3,n1)=30 And Distanza(n3,n2)=30 And n3<>n1 And n3<>n2)Or n3=Diametrale(n4)) And Distanza(p3,p1)=Distanza(p3,p2) Then

casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1

Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0

am3(1)=nn
am3(2)=nn1

ImpostaGiocata 1,am3,ruote,poste,k

am4(1)=nn
am4(2)=nn1
am4(3)=nn2

ImpostaGiocata 2,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

KEN · 31 Dicembre 2024

Perfetto come sempre grazie

matt68 · 3 Marzo 2025

buongiorno vorrei chiedere gentilmente compilazione di questo metodo in script grazie METODO NON MIO MA DONATELLA
Il metodo sotto esposto si calcola alla prima estrazione del mese e il pronostico mette in gioco due ambi secchi e 1 terzina e NESSUNA AMBATA
Prima estrazione del mese : ruota di Cagliari
AMBATA ( DA NON GIOCARE!) :
sommare al 01° estratto il fisso 05 > il risultato di questa operazione l'ambata ( da non giocare)
esempio : 01° estratto di Cagliari 60 > 60 + 05 ( fisso ) = 65
Ambi secchi : calcolo abbinamenti
Trovare la figura dell'ambata : esempio > ambata 65 : figura 02
I due abbinamenti per ambo saranno i radicali gemelli e finale 09 della figura 02 : quindi 22 - 29
Ambi secchi : 65.22 - 65.29 : giocare a : Roma - Cagliari . tutte ( escluso Nz)
Terzina per ambo e terno : abbinare all'ambata
il vertibile dell'ambata - e il numeretto dei radicali cioè il 02
Terzina per ambo e terno :
65.56.02
Giocare a : Genova . Tutte ( escluso NZ)
--------------------------------------------------------------------------------------------------------------------------------
Riassunto statistico :
nell'arco di 10 estrazioni di gioco il pronostico in 17 mesi si è sfaldato mediamente 2 volte :
1 volta : 4 pronostici
2 volte : 09 pronostici
3 volte : 03 pronostici
1 volta : al 14° colpo per ambo - al 16° per terno secco
Nota : quando l'ambata è un numero radicale degli abbinamenti ambi secchi saranno 3 e non si giocherà la terzina
----------------------------------------------------------------------------------------------
statistica : Settembre 2022 - gennaio 2024
Mesi analizzati : 17 > positivi 18 - negativi : 0
Ambi secchi vinti a tutte : 21 - ambi in terzina vinti a tutte : 14
Ambi a Roma : 03
Ambi a Cagliari : 03
Ambi a Firenze : 03
Ambi a Palermo : 03 ( ultima vincita : dicembre 22)
Ambi in terzina a Genova : 04
------------------------------------------------------

Settembre > 55 : 11.19 / 55.59.01
03° colpo ambo in terzina 59.55 a Palermo
05°colpo ambo secco 55.19 a Palermo ( e 10
---------------------------------------------------------------------
Ottobre > 10 : 11.19.01
02° colpo ambo secco 10.01 a Milano
-------------------------------------------------------------------
Novembre > 65 : 22.29 / 65.56.02
03° colpo ambo in terzina 56.02 a Napoli
06° colpo ambo in terzina 56.02 a Genova
----------------------------------------------------------------------
Dicembre > 20 : 22 - 29 - 02
07° colpo ambo secco 20.22 a Genova
08° colpo ambo secco 20.29 a Palermo
--------------------------------------------------------------------

DjNomade · 4 Marzo 2025

Controlla questo

Codice:

'Due Ambi Secchi e 1 Terzina by Donatella
 ColoreTesto 1
Scrivi"                       Due Ambi Secchi e 1 Terzina by Donatella  ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)):
 ColoreTesto 0
Sub Main()
'https://forum.lottoced.com/threads/richiesta-script.2220591/page-2#post-2720386
    Dim ambata(10)
    Dim ambataV(10)
    Dim cou1(6) ,cou2(6),cou3(7),cou4(4)
    Dim abb(5)
    Dim ruota(10),ruote1(10),ruote(10)
    Dim posta(5), poste2(3)
    Dim poste(5)
    posta(1) = 1
    poste(2) = 1
    poste2(2) = 1
    poste2(3) = 1
    k=13
    Dim A,B,C,D,E,F,G,H,I
    ruota(1) = GE_
    ruota(2) = 11
    ruote(1) = CA_
    ruote(2) = RO_
    ruote(3) = 11

    fin = EstrazioneFin
    ini = fin - 500
    Scrivi " Ricerca 1°del mese    "
    For es = ini To fin
        If IndiceMensile(es) = 1 Then
            A = Fuori90(Estratto(es,CA_,1)+5)
            B = Figura(A)&Figura(A)
            C = Figura(A)&9
            
Scrivi"*****************************************************************"

Scrivi DataEstrazione(es)&"  CAGLIARI  " & StringaEstratti(es,CA_) ,1
    
Scrivi
      
cou2(1) = A
cou2(2) = B
ImpostaGiocata 1,cou2,ruote,poste,k
cou2(1) = A
cou2(2) = C
EliminaRipetuti cou2
ImpostaGiocata 2,cou2,ruote,poste,k
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(a)
ImpostaGiocata 3,cou3,ruota,poste2,k

Gioca es

End If
Next
ScriviResoconto
End Sub

Pandit · 4 Marzo 2025

Sempre un DJ pronto ad aiutare..

Grazie, i Tuoi script mi aiutano molto ad imparare..

matt68 · 4 Marzo 2025

buongiorno a tutti ho fatto una piccola modifica premesso che non so nulla di linguaggio quindi se si può migliorare

grazie

'Due Ambi Secchi e 1 Terzina by Donatella
ColoreTesto 1
Scrivi" Due Ambi Secchi e 1 Terzina by Donatella ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)):
ColoreTesto 0
Sub Main()
'https://forum.lottoced.com/threads/richiesta-script.2220591/page-2#post-2720386
Dim ambata(10)
Dim ambataV(10)
Dim cou1(6) ,cou2(6),cou3(7),cou4(4)
Dim abb(5)
Dim ruota(10),ruote1(10),ruote(10)
Dim posta(5), poste2(3)
Dim poste(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
k=10
Dim A,B,C,D,E,F,G,H,I
ruota(1) = GE_
ruota(2) = 11
ruote(1) = CA_
ruote(2) = RO_
ruote(3) = 11

fin = EstrazioneFin
ini = fin - 500
Scrivi " Ricerca 1°del mese "
For es = ini To fin
If IndiceMensile(es) = 1 Then
A = Fuori90(Estratto(es,CA_,1)+5)
B = Figura(A)&Figura(A)
C = Figura(A)&9

Scrivi"*****************************************************************"

Scrivi DataEstrazione(es)&" CAGLIARI " & StringaEstratti(es,CA_) ,1

Scrivi

cou2(1) = A
cou2(2) = B
ImpostaGiocata 1,cou2,ruote,poste,k
cou2(1) = A
cou2(2) = C
EliminaRipetuti cou2
ImpostaGiocata 2,cou2,ruote,poste,k
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(A)
cou2(4) = B
cou2(5) = C
ImpostaGiocata 3,cou3,ruota,poste2,k

Gioca es

End If
Next
ScriviResoconto
End Sub

matt68 · 4 Marzo 2025

matt68 ha scritto:
buongiorno a tutti ho fatto una piccola modifica premesso che non so nulla di linguaggio quindi se si può migliorare

grazie

'Due Ambi Secchi e 1 Terzina by Donatella
ColoreTesto 1
Scrivi" Due Ambi Secchi e 1 Terzina by Donatella ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)):
ColoreTesto 0
Sub Main()
'https://forum.lottoced.com/threads/richiesta-script.2220591/page-2#post-2720386
Dim ambata(10)
Dim ambataV(10)
Dim cou1(6) ,cou2(6),cou3(7),cou4(4)
Dim abb(5)
Dim ruota(10),ruote1(10),ruote(10)
Dim posta(5), poste2(3)
Dim poste(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
k=10
Dim A,B,C,D,E,F,G,H,I
ruota(1) = GE_
ruota(2) = 11
ruote(1) = CA_
ruote(2) = RO_
ruote(3) = 11

fin = EstrazioneFin
ini = fin - 500
Scrivi " Ricerca 1°del mese "
For es = ini To fin
If IndiceMensile(es) = 1 Then
A = Fuori90(Estratto(es,CA_,1)+5)
B = Figura(A)&Figura(A)
C = Figura(A)&9

Scrivi"*****************************************************************"

Scrivi DataEstrazione(es)&" CAGLIARI " & StringaEstratti(es,CA_) ,1

Scrivi

cou2(1) = A
cou2(2) = B
ImpostaGiocata 1,cou2,ruote,poste,k
cou2(1) = A
cou2(2) = C
EliminaRipetuti cou2
ImpostaGiocata 2,cou2,ruote,poste,k
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(A)
cou2(4) = B
cou2(5) = C
ImpostaGiocata 3,cou3,ruota,poste2,k

Gioca es

End If
Next
ScriviResoconto
End Sub

vengono fuori anche i terni e con giusta progressione si può aggredire

matt68 · 4 Marzo 2025

DjNomade ha scritto:

Controlla questo

Codice:

'Due Ambi Secchi e 1 Terzina by Donatella
 ColoreTesto 1
Scrivi"                       Due Ambi Secchi e 1 Terzina by Donatella  ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)):
 ColoreTesto 0
Sub Main()
'https://forum.lottoced.com/threads/richiesta-script.2220591/page-2#post-2720386
    Dim ambata(10)
    Dim ambataV(10)
    Dim cou1(6) ,cou2(6),cou3(7),cou4(4)
    Dim abb(5)
    Dim ruota(10),ruote1(10),ruote(10)
    Dim posta(5), poste2(3)
    Dim poste(5)
    posta(1) = 1
    poste(2) = 1
    poste2(2) = 1
    poste2(3) = 1
    k=13
    Dim A,B,C,D,E,F,G,H,I
    ruota(1) = GE_
    ruota(2) = 11
    ruote(1) = CA_
    ruote(2) = RO_
    ruote(3) = 11

    fin = EstrazioneFin
    ini = fin - 500
    Scrivi " Ricerca 1°del mese    "
    For es = ini To fin
        If IndiceMensile(es) = 1 Then
            A = Fuori90(Estratto(es,CA_,1)+5)
            B = Figura(A)&Figura(A)
            C = Figura(A)&9
           
Scrivi"*****************************************************************"

Scrivi DataEstrazione(es)&"  CAGLIARI  " & StringaEstratti(es,CA_) ,1
   
Scrivi
     
cou2(1) = A
cou2(2) = B
ImpostaGiocata 1,cou2,ruote,poste,k
cou2(1) = A
cou2(2) = C
EliminaRipetuti cou2
ImpostaGiocata 2,cou2,ruote,poste,k
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(a)
ImpostaGiocata 3,cou3,ruota,poste2,k

Gioca es

End If
Next
ScriviResoconto
End Sub

grazie di cuore

DjNomade · 4 Marzo 2025

cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(A)
cou2(4) = B <----------
cou2(5) = C <----------
ImpostaGiocata 3,cou3,ruota,poste2,k

CAMBIA
cou2(4) = B <----------
cou2(5) = C <-----------
..IN

cou3(4) = B <----------
cou3(5) = C <-----------

SAREBBE DA AGGIUNGERE EliminaRipetuti cou3
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(A)
cou3(4) = B
cou3(5) = C
EliminaRipetuti cou3 <-------------------------
ImpostaGiocata 3,cou3,ruota,poste2,k

matt68 · 4 Marzo 2025

G 0003 Numeri in gioco : 50.05.05 su GE TT per Ambo,Terno
N. [50.05.05 ] [GE] [.. .. .. .. ..] C. 1 10600 [ 36 - 04/03/2025]
V N. [50.05.05 ] [TT] [TO][.. .. .. 50 05] C. 1 Ambo 10600 [ 36 - 04/03/2025]

ambo tutte

matt68 · 4 Marzo 2025

matt68 ha scritto:
vengono fuori anche i terni e con giusta progressione si può aggredire

G 0003 Numeri in gioco : 50.05.05 su GE TT per Ambo,Terno
N. [50.05.05 ] [GE] [.. .. .. .. ..] C. 1 10600 [ 36 - 04/03/2025]
V N. [50.05.05 ] [TT] [TO][.. .. .. 50 05] C. 1 Ambo 10600 [ 36 - 04/03/2025]

matt68 · 6 Marzo 2025

Buonasera grazie dei consigli e correzioni ma ho letto il dost Donatella e credo ci sono due versioni una si calcola all'ultima del mese ed una la prima

phil79 · Venerdì alle 23:12

Notte

Cerca

Cerca

Richiesta script

DjNomade

Advanced Member >PLATINUM PLUS<

KEN

Super member

matt68

Member

DjNomade

Advanced Member >PLATINUM PLUS<

Pandit

Super Member >GOLD<

matt68

Member

matt68

Member

matt68

Member

DjNomade

Advanced Member >PLATINUM PLUS<

matt68

Member

matt68

Member

matt68

Member

phil79

Member

Ultima estrazione Lotto

Ultimi Messaggi