Novità

Richiesta script

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
 
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
--------------------------------------------------------------------
 
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
 
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
 
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
 
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
 
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
 
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
 
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]
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 27 maggio 2025
    Bari
    15
    61
    19
    34
    80
    Cagliari
    69
    10
    33
    22
    25
    Firenze
    18
    55
    30
    29
    78
    Genova
    64
    18
    35
    56
    57
    Milano
    41
    86
    61
    17
    89
    Napoli
    87
    31
    27
    57
    16
    Palermo
    31
    69
    53
    64
    14
    Roma
    14
    24
    02
    08
    29
    Torino
    83
    04
    79
    49
    27
    Venezia
    19
    57
    53
    10
    33
    Nazionale
    14
    68
    86
    56
    58
    Estrazione Simbolotto
    Milano
    42
    04
    44
    34
    07
Indietro
Alto