Novità

Per salvo50 , una cortesia x uno script

i legend

Premium Member
Ciao Matematico ,
lo script che cerchi l ha gia fatto salvo , basta togliere l exit for al primo riscontro e spostare il next.
ma questo lo lascio fare a salvo, lo script è suo, e, non mi piace ritoccare gli script altrui.
Buona domenica anche a te :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Invece di fare la ricerca a ritroso, come avevo capito in un primo momento, sono partito dal 1939 in avanti, lo script cerca tutti i casi che si verificano, se ne appare uno solo oppure nessuno è perche dei numeri impostati ci sono solo quelli visibili, appena ho più tempo metto la scelta delle ruote delle posizioni e dei numeri, così si può vedere se escono fuori, tutte le combinazioni postate da ILegend

Codice:
'Avrei bisogno di uno script che attraverso un imput box ,
'mi permetta di inserire 2 estratti a mia scelta ...
'il Primo su BARI In quinta Posizione e
'il secondo su MILANO In prima posizione.....
'questo per una statistica della stessa condizione a ritroso.
'Esempio : 31/10/2019
'BA-20 In quinta posiz
'MI-50 In prima posiz.
'Per i lgioco dell'ambata si fà la piramidazione:
'2050
'255
'71 vertibile 17
'Ambate 71-17 anche In 1/5 posiz.
'per ambo si fà il Diametrale In Decina del 71 = 76
'poi la Figura : 71 = 8
'Quindi ambi secchi : 71-76/ 71-8 principali e 17-76 / 17-8 secondari
Option Explicit
Sub Main
   Dim FIn,Es,Es1,Es2,Ini,Clp,Salvo50,Ok
   Dim R1,R2,P1,P2,E1,E2
   Dim A,B,C,D,Caso,Casi,SS,Sp
   Dim Pr_Mi,Qu_Ba,Cusp,Vert_Cusp
   Dim DiamD_Cu,Fig_Cu
   Dim Ruo(2),P(2),S(2),Amba(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(10),Poste(2)
   Posta(1) = 1
   Posta(6) = 1
   Posta(10) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,3575))
   Qu_Ba = CInt(InputBox("Inserisci il Quinto estratto di Bari",Salvo50,20))
   Pr_Mi = CInt(InputBox("Inserisci il Primo estratto di Milano",Salvo50,50))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER MATEMATICO - SCRIPT SALVO50",1,,4,,3,,1
   Ruo(1) = BA_
   Ruo(2) = MI_
   A = Qu_Ba
   B = Pr_Mi
   Es = Ini
   S(1) = A
   S(2) = B
   SS = StringaNumeri(S,"",True)
   P(1) = Piramide(SS,1)
   P(2) = Piramide(SS,2)
   Cusp = Fuori90(P(2))
   Vert_Cusp = Vert(Cusp)
   DiamD_Cu = DiametraleD(Cusp)
   Fig_Cu = Figura(Cusp)
   ColoreTesto 2
   Scrivi Space(27) & SS,1
   Scrivi Space(27) & P(1),1
   Scrivi Space(27) & Format2(Cusp),1
   ColoreTesto 0
   Scrivi " Estrazione iniziale " & Format2(Ini) & " del " & DataEstrazione(Ini),1
   Scrivi " Estratto da cercare in quinta posizione a  Bari " & Format2(A),1
   Scrivi " Estratto da cercare in prima posizione a Milano " & Format2(B),1
   Ok = 0
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      C = Estratto(Es,BA_,5)
      D = Estratto(Es,MI_,1)
      If A = C And B = D Then
         Amba(1) = Cusp : Amba(2) = Vert_Cusp
         Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
         Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
         Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
         Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi Space(15) & "Trovati in ",1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(BA_) & Sp,1,0
         For P1 = 1 To 5
            E1 = Estratto(Es,BA_,P1)
            If E1 = C Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(MI_) & Sp,1,0
         For P2 = 1 To 5
            E2 = Estratto(Es,MI_,P2)
            If E2 = D Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi " 1ª Ambata " & Format2(Cusp) & "  Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
         Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
         Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
         Scrivi
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Questo script da quello del post 22, cambia solo nella scelta della ruota, numero e posizione in quanto si possono variare tramite inputbox, di defoult ho impostato


1BA 1MI 48-19 = 8

preso dal post di ILegend

e lo script li trova tutti e 8

è stato più semplice del previsto, non essendo una cima a livello di script, a volte annego in un bicchiere d'acqua

adesso i 2 script sono ancora da perfezionare, perchè con altre impostazioni a volte può capitare che nei 4 ambi da cercare si verificano dei numeri doppi e non penso che basti eliminaripetuti

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Es1,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,E1,E2,Pos_N1,Pos_N2
   Dim A,B,C,D,Caso,Casi,SS,Sp
   Dim Num1,Num2,Cusp,Vert_Cusp
   Dim DiamD_Cu,Fig_Cu
   Dim Ruo(2),P(2),S(2),Amba(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(10),Poste(2)
   Posta(1) = 1
   Posta(6) = 1
   Posta(10) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,3575))
   Num1 = CInt(InputBox("Inserisci 1° Numero ",Salvo50,48))
   Pos_N1 = CInt(InputBox("Inserisci La Posizione del 1° Numero ",Salvo50,1))
   R1 = CInt(InputBox(" Inserisci la 1ª Ruota ",Salvo50,1))
   Num2 = CInt(InputBox("Inserisci 2° Numero ",Salvo50,19))
   Pos_N2 = CInt(InputBox("Inserisci La Posizione del 2° Numero ",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci la 2ª Ruota ",Salvo50,5))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER MATEMATICO POSIZIONI RUOTE E NUMERI VARIABILI  - SCRIPT SALVO50",1,,4,,3,,1
   Ruo(1) = R1
   Ruo(2) = R2
   A = Num1
   B = Num2
   Es = Ini
   S(1) = A
   S(2) = B
   SS = StringaNumeri(S,"",True)
   P(1) = Piramide(SS,1)
   P(2) = Piramide(SS,2)
   Cusp = Fuori90(P(2))
   Vert_Cusp = Vert(Cusp)
   DiamD_Cu = DiametraleD(Cusp)
   Fig_Cu = Figura(Cusp)
   ColoreTesto 2
   Scrivi Space(27) & SS,1
   Scrivi Space(27) & P(1),1
   Scrivi Space(27) & Format2(Cusp),1
   ColoreTesto 0
   Scrivi " Estrazione iniziale " & Format2(Ini) & " del " & DataEstrazione(Ini),1
   Scrivi " Estratto da cercare in " &(Pos_N1) & "ª Posizione Nella Ruota di " & SiglaRuota(R1) & Sp & Format2(A),1
   Scrivi " Estratto da cercare in " &(Pos_N2) & "ª Posizione Nella Ruota di " & SiglaRuota(R2) & Sp & Format2(B),1
   Scrivi
   Scrivi " 1ª Ambata " & Format2(Cusp) & "  Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
         Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
         Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      C = Estratto(Es,R1,Pos_N1)
      D = Estratto(Es,R2,Pos_N2)
      If A = C And B = D Then
         Amba(1) = Cusp : Amba(2) = Vert_Cusp
         Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
         Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
         Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
         Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi Space(15) & "Trovati in ",1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(BA_) & Sp,1,0
         For P1 = 1 To 5
            E1 = Estratto(Es,BA_,P1)
            If E1 = C Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(MI_) & Sp,1,0
         For P2 = 1 To 5
            E2 = Estratto(Es,MI_,P2)
            If E2 = D Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
       
         Scrivi
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

gabby

Senior Member
x salvo 50 cortesemente sript 2 del mese (1 di ge+2 torino + 42 vertibile) (3 di bari + 2 naz +77) (2 ca +5 pa + 36) ( 2 ca + 5 ve + 29) (5 di ca +5 mi +81) (2 ge + 5 nz + 74) per ambo e terno su tt le ruote clpi 5 grazie
 

joe

Advanced Member >PLATINUM PLUS<
x salvo 50 cortesemente sript 2 del mese (1 di ge+2 torino + 42 vertibile) (3 di bari + 2 naz +77) (2 ca +5 pa + 36) ( 2 ca + 5 ve + 29) (5 di ca +5 mi +81) (2 ge + 5 nz + 74) per ambo e terno su tt le ruote clpi 5 grazie

Eccolo a voi in tutta la sua magnificente ingannevolezza:

Codice:
Option Explicit
Sub Main
'Medodo SOMMATIVO pubblicato il 10/12/2019 
   Dim Ini,Fin,Es,K
   Dim Nu(6),Ru(1),Po(3),Co
   Ini = 9400 : Fin = EstrazioneFin
   Po(2) = 1 : Po(3) = 1 :Ru(1) = TT_: Co = 5
   For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
      '2 del Mese
      If IndiceMensile(Es) = 2 Then
         K = K + 1 : Scrivi String(106,"=") & FormatSpace(K,4,True),True
         '(1 di ge+2 torino + 42 vertibile)
         Nu(1) = Vert(Fuori90(Estratto(Es,GE_,1) + Estratto(Es,TO_,2) + 42))
         '(3 di bari + 2 naz +77)
         Nu(2) = Fuori90(Estratto(Es,BA_,3) + Estratto(Es,NZ_,2) + 77)
         '(2 ca +5 pa + 36)
         Nu(3) = Fuori90(Estratto(Es,CA_,2) + Estratto(Es,PA_,5) + 36)
         '(2 ca + 5 ve + 29)
         Nu(4) = Fuori90(Estratto(Es,CA_,2) + Estratto(Es,VE_,5) + 29)
         '(5 di ca +5 mi +81)
         Nu(5) = Fuori90(Estratto(Es,CA_,5) + Estratto(Es,MI_,5) + 81)
         '(2 ge + 5 nz + 74)
         Nu(6) = Fuori90(Estratto(Es,GE_,2) + Estratto(Es,NZ_,5) + 74)
         ImpostaGiocata 1,Nu,Ru,Po,Co
         Gioca Es,True
      End If
   Next
   ScriviResoconto
End Sub

:)
 

Alien.

Advanced Premium Member
è giusto era aggiornato al 5 dic adesso l'ho aggiornato al 10 dic è tutto ok ......è bho
continua a dare ambi a tutte entro i 5 colpi il caos trovare la ruota giusta per adesso sono sono 4
BA
CA
GE
NA
sarebbero 9 ambi e probabili terni
....
 

salvo50

Advanced Member >PLATINUM PLUS<
L'ambo con 6 numeri a tutte le ruote, rende 1,66 volte la posta, questo 1,66 è lordo si devono togliere le tasse, quindi un sistema del genere per non andare in perdita, l'ambo deve uscire a colpo, il terno invece viene pagato 22,5 la posta, questo valore è sempre lordo, bisogna togliere la tassa, che con tutti questi cambiamenti che fanno non ho capito a quanto ammonta.

Ormai siamo in salita libera, dato che quasi tutti continuano a giocare, secondo me arriveranno a portare le tasse sul gioco superiori al 50%
 

Alien.

Advanced Premium Member
No ho detto 9 ambi secchi,con molto rischio giocherei solo Bari.Escono da 2 a 5 ambi al mese giocando le 4 ruote sopra descritte.Entro i 5 colpi.Spesso 2/3 ambi su bari al mese entro 5 colpi :questo caso solo dal 2019 ci sono state la maggior frequenze a Bari.(ho aggiunto un ambo in +)


1920
1930
1976
2030
2076
2064
3076
3064
3034
6434*
è infatti è uscito 19-20 bari al primo colpo - poi 19-30 mi
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto